ORG 00H
AJMP ZHU
ORG 0BH
AJMP JISHU
ORG 30H
ZHU:MOV SP,#100D
MOV TH0,#0FFH
MOV TL0,#9BH
MOV TMOD,#00000001B
SETB ET0
SETB TR0
SETB EA
MOV R0,#99D
MOV R1,#1D
MOV R2,#99D
MOV R3,#1D
SAO:JNB P3.2,JIAY
JNB P3.3,JIANY
AJMP SAO
JIAY:LCALL YAN
JNB P3.2,JIAY2
AJMP SAO
JIAY2:JNB P3.2,JIAY2
JNB P3.3,JIAZ
AJMP SAO
JIANY:LCALL YAN
JNB P3.3,JIANY2
AJMP SAO
JIANY2:JB P3.3,JIANY2
JNB P3.2,JIANZ
AJMP SAO
JIAZ:CJNE R0,#01D,JIAA
AJMP FAN
JIAA:DEC R0
MOV A,R0
MOV R2,A
INC R1
MOV A,R1
MOV R3,A
FAN:JNB P3.3,FAN
AJMP SAO
JIANZ:CJNE R0,#99D,JIANA
AJMP HUI
JIANA:INC R0
MOV A,R0
MOV R2,A
DEC R1
MOV A,R0
MOV R3,A
HUI:JNB P3.2,HUI
AJMP SAO
YAN:MOV R4,#255D
DJNZ R4,$
RET
YAN2:MOV R5,#150D
DJNZ R5,$
RET
JISHU:PUSH ACC
MOV TH0,#0FFH
MOV TL0,#9BH
CJNE R2,#0D,JJ
CJNE R3,#0D,DI
MOV A,R0
MOV R2,A
MOV A,R1
MOV R3,A
AJMP AA
JJ:DJNZ R2,AA
CLR P0.0
AJMP AA
DI:DJNZ R3,AA
SETB P0.0
AA:POP ACC
RETI
END
|
