📄 1503a.asm
字号:
;#########################
ORG 0000H
LJMP MAIN
ORG 000BH
LJMP MAIN
ORG 0013H
LJMP MAIN
ORG 001BH
LJMP MAIN
ORG 0023H
LJMP MAIN
MAIN: MOV SP,#69H
CLR EX0
CLR EX1
;*************************
MOV R0,#00H
MOV R1,#00H
MOV R2,#00H
MOV R3,#00H
MOV R4,#00H
MOV R5,#00H
MOV R6,#00H
MOV 30H,#00H
MOV 31H,#00H
MOV 32H,#00H
MOV 33H,#00H
;*************************
SETB P2.5
MOV R7,#09H
MOV 33H,#00000001B
LCALL START0
MOV R7,#09H
MOV 33H,#00011000B
LCALL START0
MOV R7,#09H
MOV 33H,#00000011B
LCALL START0
MAIN0: LCALL MAQ0
MAIN1: LCALL FSKY
JB Acc.7,MAIN2
LJMP MAIN5
MAIN2: JB Acc.6,MAIN3
LJMP MAIN4
MAIN3: LJMP MAIN1
MAIN4: LCALL KEY6
LCALL MAQL
LCALL TIM3SA
LCALL MAQ0
LCALL TIM3SA
LJMP MAIN4
MAIN5: LCALL KEY7
MAIN6: LCALL MAQL
LCALL TIM3S
MOV R2,#11010000B ;0
MOV R3,#11100000B
MOV R4,#01110000B
MOV R5,#10110000B
LCALL SEND0_9
LCALL TIM3S
MOV R2,#01010000B ;1
MOV R3,#01100000B
MOV R4,#00H
MOV R5,#00H
LCALL SEND0_9
LCALL TIM3S
MOV R2,#11100000B ;2
MOV R3,#11000000B
MOV R4,#00110000B
MOV R5,#01110000B
LCALL SEND0_9
LCALL TIM3S
MOV R2,#11110000B ;3
MOV R3,#11100000B
MOV R4,#00010000B
MOV R5,#01010000B
LCALL SEND0_9
LCALL TIM3S
MOV R2,#01110000B ;4
MOV R3,#01100000B
MOV R4,#01000000B
MOV R5,#11000000B
LCALL SEND0_9
LCALL TIM3S
MOV R2,#10110000B ;5
MOV R3,#10100000B
MOV R4,#01010000B
MOV R5,#11010000B
LCALL SEND0_9
LCALL TIM3S
MOV R2,#10110000B ;6
MOV R3,#10100000B
MOV R4,#01110000B
MOV R5,#11110000B
LCALL SEND0_9
LCALL TIM3S
MOV R2,#11010000B ;7
MOV R3,#11100000B
MOV R4,#00000000B
MOV R5,#00000000B
LCALL SEND0_9
LCALL TIM3S
MOV R2,#11110000B ;8
MOV R3,#11100000B
MOV R4,#01110000B
MOV R5,#11110000B
LCALL SEND0_9
LCALL TIM3S
MOV R2,#11110000B ;9
MOV R3,#11100000B
MOV R4,#01010000B
MOV R5,#11010000B
LCALL SEND0_9
LCALL TIM3S
LCALL MAQL
MOV R2,#02H ;1A
MOV R3,#10000000B
LCALL SENDT
LCALL TIM3S
MOV R2,#05H ;2A
MOV R3,#00010000B
LCALL SENDT
LCALL TIM3S
MOV R2,#0AH ;3A
MOV R3,#10000000B
LCALL SENDT
LCALL TIM3S
MOV R2,#11H ;4A
MOV R3,#00010000B
LCALL SENDT
LCALL TIM3S
MOV R2,#19H ;5A
MOV R3,#00010000B
LCALL SENDT
LCALL TIM3S
MOV R2,#1DH ;6A
MOV R3,#00010000B
LCALL SENDT
LCALL TIM3S
MOV R2,#1EH ;7A
MOV R3,#10000000B
LCALL SENDT
LCALL TIM3S
MOV R2,#21H ;8A
MOV R3,#00010000B
LCALL SENDT
LCALL TIM3S
MOV R2,#22H ;9A
MOV R3,#10000000B
LCALL SENDT
LCALL TIM3S
MOV R2,#26H ;10A
MOV R3,#10000000B
LCALL SENDT
LCALL TIM3S
MOV R2,#29H ;11A
MOV R3,#00010000B
LCALL SENDT
LCALL TIM3S
MOV R2,#2AH ;12A
MOV R3,#10000000B
LCALL SENDT
LCALL TIM3S
MOV R2,#2EH ;13A
MOV R3,#10000000B
LCALL SENDT
LCALL TIM3S
MOV R2,#31H ;14A
MOV R3,#00010000B
LCALL SENDT
LCALL TIM3S
MOV R2,#32H ;15A
MOV R3,#10000000B
LCALL SENDT
LCALL TIM3S
MOV R2,#39H ;16A
MOV R3,#00010000B
LCALL SENDT
LCALL TIM3S
LCALL MAQ0
LCALL TIM3S
LJMP MAIN6
;*************************
CONC0: MOV 35H,#03H
SETB P2.3
SETB P2.4
CLR P2.3
CONC1: MOV P0,A ;1
LCALL TT1
CLR P2.4
LCALL TT1
SETB P2.4
RR A
DJNZ 35H,CONC1
RET
;*************************
START0: MOV A,#01H
LCALL CONC0
CLR C
MOV A,33H
STR1: LCALL TT1
RLC A
MOV P0.0,C
CLR P2.4
LCALL TT1
SETB P2.4
DJNZ R7,STR1
SETB P2.3
RET
;*************************
WR1: MOV A,#000000101B
LCALL CONC0
CLR C
MOV A,30H
RL A
RL A
WRD1: LCALL TT1
RLC A
MOV P0.0,C
CLR P2.4
LCALL TT1
SETB P2.4
DJNZ R0,WRD1
WRDL: MOV A,31H
CLR C
WRS2: LCALL TT1
RLC A
MOV P0.0,C
CLR P2.4
LCALL TT1
SETB P2.4
DJNZ R1,WRS2
RET
;*************************
WRF: MOV A,#00000101B
LCALL CONC0
CLR C
MOV A,30H
RL A
RL A
WRF1: LCALL TT1
RLC A
MOV P0.0,C
CLR P2.4
LCALL TT1
SETB P2.4
DJNZ R0,WRF1
MOV A,31H
CLR C
WRF2: LCALL TT1
RLC A
MOV P0.0,C
CLR P2.4
LCALL TT1
SETB P2.4
DJNZ R1,WRF2
LCALL TT1
SETB P2.3
RET
;*************************
MAA: MOV R6,#3FH
MAA1: MOV R0,#06H
MOV R1,#04H
LCALL WR1
MAA2: MOV R1,#04H
LCALL WRDL
DJNZ R6,MAA2
SETB P2.3
RET
;*************************
MAQ0: MOV 30H,#00H
MOV 31H,#0FFH
LCALL MAA
RET
;*************************
MAQL: MOV 30H,#00H
MOV 31H,#00H
LCALL MAA
RET
;*************************
SEND0_9: MOV 30H,#00H
MOV R6,#0FH
SEND0: MOV R0,#06H
MOV R1,#04H
MOV 31H,R2
LCALL WRF
INC 30H
MOV R0,#06H
MOV R1,#04H
MOV 31H,R3
LCALL WRF
INC 30H
MOV R0,#06H
MOV R1,#04H
MOV 31H,R4
LCALL WRF
INC 30H
MOV R0,#06H
MOV R1,#04H
MOV 31H,R5
LCALL WRF
INC 30H
DJNZ R6,SEND0
NOP
RET
;*************************
SENDT: MOV R0,#06H
MOV R1,#04H
MOV 30H,R2
MOV 31H,R3
LCALL WRF
NOP
RET
;*************************
TT1: NOP
NOP
NOP
RET
;*************************
FSKY: MOV A,#0F0H
MOV P1,A
MOV A,P1
ANL A,#0F0H
CJNE A,#0F0H,FSKY1
LJMP FSKY
FSKY1: MOV A,P1
ANL A,#0F0H
MOV 60H,A
LCALL T20
MOV A,P1
ANL A,#0F0H
CJNE A,60H,FSKY
MOV A,P1
RET
;*************************
KEY7: MOV A,#0F0H
MOV P1,A
MOV A,P1
JNB Acc.7,KEY7
RET
KEY6: MOV A,#0F0H
MOV P1,A
MOV A,P1
JNB Acc.7,KEY6
RET
;*************************
T20: MOV 5EH,#14H
TV3: MOV 5FH,#0FFH
TV4: NOP
NOP
DJNZ 5FH,TV4
DJNZ 5EH,TV3
RET
;*************************
TIM3SA: MOV 65H,#90H
T3V6: MOV 5EH,#2FH
T3V7: MOV 5FH,#0FFH
T3V8: NOP
NOP
DJNZ 5FH,T3V8
DJNZ 5EH,T3V7
DJNZ 65H,T3V6
RET
;*************************
TIM3S: MOV 65H,#50H
T3V61: MOV 5EH,#0FH
T3V71: MOV 5FH,#0FFH
T3V81: NOP
NOP
DJNZ 5FH,T3V81
DJNZ 5EH,T3V71
DJNZ 65H,T3V61
RET
;*************************
END⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -