请求高手帮忙!重酬!! 谁能把这编汇编语言的流程图划出来!
ORG 000H
STAT: LJMP A
ORG 001BH
LJMP M
ORG 0030H
A: MOV A,#0FFH
MOV P1,A
MOV P3,A
MOV A,#0FH
MOV SP,A
CLR RS0
CLR RS1
X0 BIT 00H ;20 DAN YUAN
X1 BIT 01H
X2 BIT 02H
X3 BIT 03H
X4 BIT 04H
X5 BIT 05H
X6 BIT 06H
X7 BIT 07H
Y0 BIT 78H ;2F DAN YUAN
Y1 BIT 79H
Y2 BIT 7AH
Y3 BIT 7BH
Y4 BIT 7CH
Y5 BIT 7DH
Y6 BIT 7EH
Y7 BIT 7FH
A1: LCALL READ
MOV R0,#6AH
MOV R1,#0AH
A3: MOV A,@R0
CLR C
ADD A,#0F6H
JNC A2
MOV @R0,#00H
A2: INC R0
DJNZ R1,A3
NOP
LCALL MOV1
MOV 20H,#3FH
MOV 30H,#04H
NOP
MOV P1,#00H
MOV A,P3
ANL A,#3FH
MOV 20H,A
NOP
CLR Y1
NOP
E: MOV TH1,#0FAH ;4.943MS 3.579545MHZ
MOV TL1,#3EH
MOV TMOD,#10H
MOV IP,#08H
MOV IE,#88H
SETB TR1
NOP
G: MOV A,#0FFH
MOV P3,A
LCALL KEY
MOV A,#0FFH
MOV P3,A
LCALL CLR
LCALL MOV1
CLR P3.7
LCALL WOR
LCALL CLR
LCALL MOV2
SETB P3.7
LCALL WOR
NOP
GG: NOP
AJMP G
NOP
M: SETB RS0
CLR RS1
MOV R0,#23H
MOV @R0,A
MOV A,PSW
INC R0
MOV @R0,A
NOP
MOV TH1,#0FAH
MOV TL1,#3EH
MOV TMOD,#10H
MOV IP,#08H
MOV IE,#88H
SETB TR1
M1: CLR C
MOV A,7CH
ADD A,#39H ;199(D)
JC M2
INC 7CH
LJMP M0
M2: MOV 7CH,#00H
INC 25H
SETB X7
CLR C
MOV A,7BH
ADD A,#0F7H
JC M3
INC 7BH
LJMP M0
NOP
M3: MOV 7BH,#00H
CLR C
MOV A,7AH
ADD A,#0FBH
JC M6
INC 7AH
LJMP M0
NOP
M6: MOV 7AH,#00H
CLR C
MOV A,79H
ADD A,#0F7H
JC M7
INC 79H
LJMP M0
NOP
M7: MOV 79H,#00H
CLR C
MOV A,78H
ADD A,#0FBH
JC M9
INC 78H
LJMP M0
NOP
M9: MOV 78H,#00H
CLR C
MOV A,77H
ADD A,#0F7H
JC M10
INC 77H
LJMP M0
NOP
M10: MOV 77H,#00H
CLR C
MOV A,76H
ADD A,#0F7H
JC M11
INC 76H
LJMP M0
NOP
M11: MOV 76H,#00H
NOP
M0: LCALL XS
NOP
LJMP M14
NOP
NOP
MOV C,P3.0
JC MM0
CLR X0
MM1: MOV C,P3.1
JC MM2
CLR X1
MM3: MOV C,P3.2
JC MM4
CLR X2
MM5: MOV C,P3.3
JC MM6
CLR X3
MM7: MOV C,P3.4
JC MM8
CLR X4
MM9: MOV C,P3.4
JC MM10
CLR X5
LJMP M13
MM0: SETB X0
LJMP MM1
MM2: SETB X1
LJMP MM3
MM4: SETB X2
LJMP MM5
MM6: SETB X3
LJMP MM7
MM8: SETB X4
LJMP MM9
MM10: SETB X5
NOP
M13: MOV C,P3.2
JC M14
MOV 22H,#0FEH
INC 22H
NOP
M14: MOV R0,#24H
MOV A,@R0
MOV PSW,A
DEC R0
MOV A,@R0
CLR RS0
CLR RS1
RETI
NOP
XS: DEC 30H
MOV A,30H
MOV DPTR,#XSXS
MOVC A,@A+DPTR
MOV DPTR,#XS1
JMP @A+DPTR
XS1: MOV A,64H
ORL A,#0F0H
MOV P1,A
NOP
CLR P1.7
NOP
LJMP XSS
XS2: MOV A,65H
ORL A,#0F0H
MOV P1,A
NOP
CLR P1.6
NOP
LJMP XSS
XS3: MOV A,66H
ORL A,#0F0H
MOV P1,A
NOP
CLR P1.5
NOP
LJMP XSS
XS4: MOV A,67H
ORL A,#0F0H
MOV P1,A
NOP
CLR P1.4
NOP
LJMP XSS
XS5: MOV A,68H
ORL A,#0F0H
MOV P1,A
NOP
CLR P3.7
NOP
XSS: MOV A,30H
JZ XSS1
RET
XSS1: MOV 30H,#04H
RET
XSXS: DB 00H,0DH,1AH,27H,34H
NOP
XYXS: MOV P1,#0FFH
RET
NOP
READ: MOV R0,#69H
MOV R1,#13H
PR0: LCALL QS
PR1: CLR C
MOV A,#0A0H
LCALL PWR
SETB P3.4
LCALL DED
MOV C,X7
JNC READ
CLR P3.4
SETB P3.3
SETB P3.3
PR2: CLR C
MOV A,R0
LCALL PWR
SETB P3.4
LCALL DED
MOV C,X7
JNC READ
CLR P3.4
SETB P3.3
SETB P3.3
PR3: LCALL QS
PR4: MOV A,#0A1H
LCALL PWR
SETB P3.4
LCALL DED
MOV C,X7
JNC READ
CLR P3.4
SETB P3.3
SETB P3.3
PR5: CLR C
CLR A
LCALL PRD
MOV @R0,A
INC R0
SETB P3.4
CLR P3.3
CLR P3.3
CLR P3.3
CLR P3.3
CLR P3.3
CLR P3.4
LCALL ENDRD
DJNZ R1,PR0
SETB P3.3
SETB P3.4
SETB P3.3
SETB P3.4
RET
PRD: MOV R2,#08H
LORD: SETB P3.4
MOV C,P3.3
MOV C,P3.3
MOV C,P3.3
MOV C,P3.3
MOV C,P3.3
RLC A
CLR P3.4
NOP
NOP
DJNZ R2,LORD
RET
NOP
NOP
WRR0: LCALL WRITE
INC R0
LCALL WRITE
RET
NOP
NOP
WTIME:NOP
MOV R1,#0CH
MOV R0,#69H
WTI: LCALL WRITE
INC R0
DJNZ R1,WTI
SETB P3.3
SETB P3.4
SETB P3.3
SETB P3.4
RET
NOP
NOP
WRITE:LCALL QS
PW1:CLR C
MOV A,#0A0H
LCALL PWR
SETB P3.4
LCALL DED
MOV C,X7
JNC WRITE
CLR P3.4
SETB P3.3
SETB P3.3
PW2: CLR C
MOV A,R0
LCALL PWR
SETB P3.4
LCALL DED
MOV C,X7
JNC WRITE
CLR P3.4
SETB P3.3
SETB P3.3
PW3: CLR C
MOV A,@R0
LCALL PWR
SETB P3.4
LCALL DED
MOV C,X7
JNC WRITE
CLR P3.4
SETB P3.3
SETB P3.3
LCALL ENDRD
RET
PWR: MOV R2,#08H
LOWR: CLR P3.4
RLC A
MOV P3.3,C
MOV P3.3,C
SETB P3.4
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
CLR P3.4
NOP
NOP
DJNZ R2,LOWR
SETB P3.3
RET
QS: SETB P3.3
SETB P3.4
NOP
NOP
NOP
CLR P3.3
NOP
NOP
NOP
NOP
NOP
CLR P3.4
RET
ENDRD:CLR P3.3
NOP
SETB P3.4
NOP
NOP
NOP
SETB P3.3
NOP
NOP
CLR P3.4
RET
NOP
DED: MOV R7,#2CH ;3.579545MHZ,15MS
DD2: MOV R6,#0AH
DEE: NOP
NOP
NOP
NOP
MOV C,P3.3
JNC DD1
DJNZ R6,DEE
DJNZ R7,DD2
CLR X7
RET
DD1: SETB X7
RET
NOP
WOR: MOV C,X7
JC WO1
AJMP WOR
WO1: MOV A,64H
JZ WO2
DEC 64H
LJMP WO5
WO2: MOV A,65H
JZ WO3
DEC 65H
MOV 64H,#09H
LJMP WO5
WO3: MOV A,66H
JZ WO4
DEC 66H
MOV 65H,#05H
MOV 64H,#09H
LJMP WO5
WO4: MOV A,67H
JZ WO6
DEC 67H
MOV 66H,#09H
MOV 65H,#05H
MOV 64H,#09H
WO5: CLR X7
LJMP WOR
WO6: RET
MOV C,Y0
JNC WO7
SETB P3.7
SETB P3.7
CLR X7
RET
WO7: CLR P3.7
CLR P3.7
CLR X7
RET
NOP
KEY: MOV C,P3.2
LCALL DEL
LCALL DEL
JC KE1
MOV C,Y1
JNC KE2
LCALL WTIME
CLR Y1
KE2: RET
SB0: LJMP S0
KE1: MOV C,P3.1
LCALL DEL
LCALL DEL
JC KE3
MOV C,P3.5
JNC SB0
LCALL MOV2
MOV C,P3.3
LCALL DEL
JC KE4
KE10: MOV C,P3.3
LCALL DEL
JNC KE10
CLR C
MOV A,6CH
ADD A,#0F7H
JC KE5
INC 6CH
LJMP KE9
KE5: MOV 6CH,#00H
CLR C
MOV A,6DH
ADD A,#0F7H
JC KE6
INC 6DH
LJMP KE9
KE6: MOV 6DH,#00H
LJMP KE9
KE4: LCALL MOV2
MOV C,P3.4
LCALL DEL
JC KEY
KE11: MOV C,P3.4
LCALL DEL
JNC KE11
CLR C
MOV A,6AH
ADD A,#0F7H
JC KE7
INC 6AH
LJMP KE9
KE7: MOV 6AH,#00H
CLR C
MOV A,6BH
ADD A,#0FBH
JC KE8
INC 6BH
LJMP KE9
KE8: MOV 6BH,#00H
LJMP KE9
KE9: LCALL MOV2
SETB Y1
LJMP KEY
NOP
SB1: LJMP Z0
KE3: MOV C,P3.5
JNC SB1
LCALL MOV1
MOV C,P3.3
LCALL DEL
JC KE15
KE12: MOV C,P3.3
LCALL DEL
JNC KE12
CLR C
MOV A,72H
ADD A,#0F7H
JC KE13
INC 72H
LJMP KE20
KE13: MOV 72H,#00H
CLR C
MOV A,73H
ADD A,#0F7H
JC KE14
INC 73H
LJMP KE20
KE14: MOV 73H,#00H
LJMP KE20
KE15: LCALL MOV1
MOV C,P3.4
LCALL DEL
JC KE19
KE16: MOV C,P3.4
LCALL DEL
JNC KE16
CLR C
MOV A,70H
ADD A,#0F7H
JC KE17
INC 70H
LJMP KE20
KE17: MOV 70H,#00H
CLR C
MOV A,71H
ADD A,#0FBH
JC KE18
INC 71H
LJMP KE20
KE18: MOV 71H,#00H
LJMP KE20
KE19: LJMP KEY
NOP
KE20: LCALL MOV1
SETB Y1
LJMP KEY
NOP
NOP
DEL: MOV R7,#06H ;20MS DEL 3.579545 MHz
MOV R6,#0C8H
DE1: NOP
NOP
NOP
DJNZ R6,DE1
DJNZ R7,DE1
RET
NOP
L0: LCALL CLR ;TIME SET
LCALL MOV3
MOV C,P3.3
LCALL DEL
JC LL0
L1: MOV C,P3.3 ;XIAO SHI SET
LCALL DEL
JNC L1
CLR C
MOV A,77H
JZ L2
DEC 77H
AJMP L4
L2: MOV A,76H
JZ L3
DEC 76H
MOV 77H,#09H
AJMP L4
L3: MOV 77H,#03H
MOV 76H,#02H
L4: LCALL MOV3
LJMP KEY
NOP
RR3: LJMP Z8
LL0: LCALL MOV3 ;FEN SET
MOV C,P3.4
LCALL DEL
JC RR3
L5: MOV C,P3.4
LCALL DEL
JNC L5
MOV A,79H
JZ L6
DEC 79H
AJMP L4
L6: MOV A,78H
JZ L7
DEC 78H
MOV 79H,#09H
AJMP L4
L7: MOV 78H,#05H
MOV 79H,#09H
LJMP L4
NOP
S0: LCALL CLR ;STOP SET
LCALL MOV2
MOV C,P3.3
LCALL DEL
JC SS0
S1: MOV C,P3.3 ;XIAO SHI SET
LCALL DEL
JNC S1
CLR C
MOV A,6CH
JZ S2
DEC 6CH
AJMP S4
S2: MOV A,6DH
JZ S3
DEC 6DH
MOV 6CH,#09H
AJMP S4
S3: MOV 6CH,#09H
MOV 6DH,#09H
S4: LCALL MOV2
SETB Y1
LJMP KEY
RR4: LJMP Z8
NOP
SS0: LCALL MOV2 ;FEN SET
MOV C,P3.4
LCALL DEL
JC RR4
S5: MOV C,P3.4
LCALL DEL
JNC S5
MOV A,6AH
JZ S6
DEC 6AH
AJMP S4
S6: MOV A,6BH
JZ S7
DEC 6BH
MOV 6AH,#09H
AJMP S4
S7: MOV 6BH,#05H
MOV 6AH,#09H
LJMP S4
NOP
Z0: LCALL CLR ;WORK SET
LCALL MOV1
MOV C,P3.3
LCALL DEL
JC ZZ0
Z1: MOV C,P3.3 ;XIAO SHI SET
LCALL DEL
JNC Z1
CLR C
MOV A,72H
JZ Z2
DEC 72H
AJMP Z4
Z2: MOV A,73H
JZ Z3
DEC 73H
MOV 72H,#09H
AJMP Z4
Z3: MOV 72H,#09H
MOV 73H,#09H
Z4: LCALL MOV1
SETB Y1
LJMP KEY
NOP
ZZ0: LCALL MOV1 ;FEN SET
MOV C,P3.4
LCALL DEL
JC Z8
Z5: MOV C,P3.4
LCALL DEL
JNC Z5
MOV A,70H
JZ Z6
DEC 70H
AJMP Z4
Z6: MOV A,71H
JZ Z7
DEC 71H
MOV 70H,#09H
AJMP Z4
Z7: MOV 71H,#05H
MOV 70H,#09H
LJMP Z4
Z8: LJMP KEY
NOP
CLR: MOV 7CH,#00H
MOV 7BH,#00H
MOV 7AH,#00H
MOV 79H,#00H
MOV 78H,#00H
MOV 77H,#00H
MOV 76H,#00H
RET
NOP
MOV1: MOV 64H,70H
MOV 65H,71H
MOV 66H,72H
MOV 67H,73H
SETB Y0
RET
NOP
MOV2: MOV 64H,6AH
MOV 65H,6BH
MOV 66H,6CH
MOV 67H,6DH
CLR Y0
RET
NOP
MOV3: MOV 64H,79H
MOV 65H,78H
MOV 66H,77H
MOV 67H,76H
CLR Y0
RET
END
在下愿意重酬,qq:17500466 E-MAIL:lsd1980@163.com
|
|