📄 1404a.asm
字号:
;ht1408aaa6c/8051
;#########################
ORG 0000H
LJMP MAIN
MAIN: CLR EX0 ;open interrupt
CLR EX1
SETB P2.5
SETB P2.3
CLR P2.3 ;/CS
MOV 30H,#00000001B
MOV A,30H
MOV P0.0,A
SETB P2.3
LCALL T20
CLR P2.3
MOV 30H,#00011000B
MOV A,30H
MOV P0.0,A
LCALL T20
SETB P2.3
CLR P2.3
MOV 30H,#00000011B
MOV A,30H
MOV P0.0,A
LCALL T20
SETB P2.3
MAIN0: CLR P2.3
MOV R7,#20H
MOV R6,#00H
MAIN1: LCALL SD
INC R6
DJNZ R7,MAIN1
MAIN6: LCALL Z4
MOV R0,#10H ;11
MOV R7,#10H
MOV R2,#00H
MOV R3,#01010000B
LCALL Z0
MOV R0,#10H
MOV R7,#10H
MOV R2,#02H
MOV R3,#10000000B
LCALL Z0
SETB P2.3
SETB P2.6
MOV R0,#07H ;12
MOV R7,#07H
MOV R2,#02H
MOV R3,#01000000B
LCALL Z2
MOV R0,#07H
MOV R7,#07H
MOV R2,#04H
MOV R3,#00010000B
LCALL Z2
MOV R0,#07H
MOV R7,#07H
MOV R2,#06H
MOV R3,#01000000B
LCALL Z2
MOV R0,#07H
MOV R7,#07H
MOV R2,#08H
MOV R3,#00H
LCALL Z2
LCALL TIM3S
LCALL Z4
MOV R0,#10H ;21
MOV R7,#10H
MOV R2,#00H
MOV R3,#10000000B
LCALL Z0
MOV R0,#10H
MOV R7,#10H
MOV R2,#02H
MOV R3,#01000000B
LCALL Z0
MOV R0,#07H ;22
MOV R7,#07H
MOV R2,#02H
MOV R3,#00010000B
LCALL Z2
MOV R0,#07H
MOV R7,#07H
MOV R2,#04H
MOV R3,#00100000B
LCALL Z2
MOV R0,#07H
MOV R7,#07H
MOV R2,#06H
MOV R3,#00H
LCALL Z2
MOV R0,#07H
MOV R7,#07H
MOV R2,#08H
MOV R3,#00010000B
LCALL Z2
LCALL TIM3S
LCALL Z4
MOV R0,#10H ;31
MOV R7,#10H
MOV R2,#00H
MOV R3,#00100000B
LCALL Z0
MOV R0,#10H
MOV R7,#10H
MOV R2,#02H
MOV R3,#00100000B
LCALL Z0
MOV R0,#07H ;32
MOV R7,#07H
MOV R2,#02H
MOV R3,#10000000B
LCALL Z2
MOV R0,#07H
MOV R7,#07H
MOV R2,#04H
MOV R3,#01000000B
LCALL Z2
MOV R0,#07H
MOV R7,#07H
MOV R2,#06H
MOV R3,#00H
LCALL Z2
MOV R0,#07H
MOV R7,#07H
MOV R2,#08H
MOV R3,#01000000B
LCALL Z2
LCALL TIM3S
LCALL Z4
SETB P2.3
SETB P2.6
MOV R0,#07H ;42
MOV R7,#07H
MOV R2,#02H
MOV R3,#00100000B
LCALL Z2
MOV R0,#07H
MOV R7,#07H
MOV R2,#04H
MOV R3,#10000000B
LCALL Z2
MOV R0,#07H
MOV R7,#07H
MOV R2,#06H
MOV R3,#00110000B
LCALL Z2
MOV R0,#07H
MOV R7,#07H
MOV R2,#08H
MOV R3,#00H
LCALL Z2
LCALL TIM3S
LCALL Z4
MOV R0,#10H ;51
MOV R7,#10H
MOV R2,#00H
MOV R3,#00H
LCALL Z0
MOV R0,#10H
MOV R7,#10H
MOV R2,#02H
MOV R3,#00010000B
LCALL Z0
SETB P2.3
SETB P2.6
CLR P2.3
MOV R2,#00H ;52
MOV R3,#01100000B
LCALL SENDT
SETB P2.3
CLR P2.3
MOV R2,#06H
LCALL Z5
MOV R2,#08H
LCALL Z5
MOV R2,#0EH
LCALL Z5
MOV R2,#10H
LCALL Z5
MOV R2,#16H
LCALL Z5
MOV R2,#18H
LCALL Z5
MOV R2,#1EH
LCALL Z5
MOV R2,#20H
LCALL Z5
MOV R2,#26H
LCALL Z5
MOV R2,#28H
LCALL Z5
MOV R2,#2EH
LCALL Z5
MOV R2,#30H
LCALL Z5
MOV R2,#36H
LCALL Z5
MOV R2,#38H
LCALL Z5
CLR P2.3
MOV R2,#3BH
MOV R3,#10000000B
LCALL SENDT
SETB P2.3
LCALL TIM3S
LCALL TIM3S
LCALL Z4
CLR P2.3
CLR P2.6
LCALL MAQ0
LCALL TIM3S
SETB P2.3
SETB P2.6
LJMP MAIN6
;**************************
Z0: CLR P2.6
LCALL SENDT
SETB P2.6
CLR P2.6
INC R2
LCALL SENDT
SETB P2.6
DJNZ R0,Z1
RET
;*************************
Z1: INC R2
INC R2
INC R2
DJNZ R7,Z0
RET
;**************************
Z2: CLR P2.3
LCALL SENDT
SETB P2.3
CLR P2.3
INC R2
LCALL SENDT
SETB P2.3
DJNZ R0,Z3
RET
;**************************
Z3: INC R2
INC R2
INC R2
INC R2
INC R2
INC R2
INC R2
DJNZ R7,Z2
RET
;**************************
Z4: SETB P2.3
SETB P2.6
CLR P2.3
CLR P2.6
LCALL MAQL
SETB P2.3
SETB P2.6
RET
;**************************
Z5: MOV R3,#10000000B
SETB P2.3
LCALL SENDT
SETB P2.3
CLR P2.3
INC R2
LCALL SENDT
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
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 + -