📄 bh1415.asm
字号:
Q0326: MOV R5,A
INC R7
DJNZ B,Q0315
Q032B: RET
;===========================================
Q032C: DB 53H,75H,6EH,68H,6DH,20H,20H,51H ;Sunhm..Q
DB 51H,38H,39H,33H,32H,38H,36H,37H ;Q8932867
DB 00H,20H,20H,46H,4DH,20H,50H,6FH ;...FM.Po
DB 77H,65H,72H,20H,4FH,66H,66H,20H ;wer.Off.
DB 20H,00H,20H,46H,4DH,20H,54H,72H ;...FM.Tr
DB 61H,6EH,73H,6DH,69H,74H,74H,65H ;ansmitte
DB 72H,20H,00H,20H,20H,20H,20H,2EH ;r.......
DB 20H,4DH,48H,7AH,20H,20H,2DH,20H ;.MHz..-.
DB 20H,64H,42H,00H,02H,04H,19H,15H ;.dB.....
DB 15H,19H,04H,02H,20H,1FH,11H,0AH ;........
DB 04H,04H,04H,04H ;....
;===========================================
Q0380: MOV R7,#00H
MOV R6,#10H
LCALL Q05BD
MOV 0DH,R7
MOV R7,#01H
LCALL Q05BD
MOV A,R7
MOV R3,#00H
MOV R2,A
MOV R7,#02H
LCALL Q05BD
MOV R6,#00H
MOV A,R3
ADD A,R7
MOV 09H,A
MOV A,R6
ADDC A,R2
MOV 08H,A
MOV A,0DH
SETB C
SUBB A,#53H
JC Q03AE
MOV 0DH,#0AH
LCALL Q05F4
Q03AE: SETB C
MOV A,09H
SUBB A,#38H
MOV A,08H
SUBB A,#04H
JNC Q03C4
CLR C
MOV A,09H
SUBB A,#66H
MOV A,08H
SUBB A,#03H
JNC Q03CD
Q03C4: MOV 08H,#03H
MOV 09H,#8CH
LCALL Q05F4
Q03CD: RET
;===========================================
Q03CE: CLR P1.7
MOV R3,#FFH
MOV R2,#03H
MOV R1,#4EH
CLR A
MOV R7,A
LCALL Q0526
MOV R2,#03H
MOV R1,#5FH
MOV R7,#01H
LCALL Q0526
MOV R7,#C0H
LCALL Q060F
MOV R7,#01H
LCALL Q04D8
MOV R7,#CAH
LCALL Q060F
CLR A
MOV R7,A
LCALL Q04D8
MOV R7,0DH
LCALL Q0454
MOV R7,#32H
MOV R6,#00H
LCALL Q0582
SETB 20H.1
LCALL Q01D1
SETB 20H.1
LCALL Q0492
MOV R7,09H
MOV R6,08H
LJMP Q0503
;===========================================
Q0415: CLR A
MOV 0FH,A
MOV R7,#FAH
MOV R6,A
LCALL Q0582
LCALL Q05A0
MOV R3,#FFH
MOV R2,#03H
MOV R1,#70H
LCALL Q0545
CLR P1.4
CLR P1.5
CLR P1.6
CLR P3.1
CLR P3.0
LCALL Q0380
MOV TH0,#3CH
MOV TL0,#B0H
MOV TMOD,#01H
SETB EA
SETB TR0
SETB ET0
LCALL Q0643
Q0449: LCALL Q0249
LCALL Q000E
LCALL Q0046
SJMP Q0449
Q0454: MOV R5,07H
CLR C
MOV A,#57H
SUBB A,R5
MOV R5,A
ANL A,#03H
MOV B,#80H
MUL AB
MOV R7,A
MOV A,R5
ANL A,#FCH
MOV R5,A
MOV A,#06H
ORL A,B
MOV R6,A
MOV A,R5
ORL A,R7
MOV R7,A
CLR A
MOV R5,A
Q0470: MOV A,R7
RRC A
MOV P3.0,C
SETB P3.1
NOP
NOP
NOP
CLR P3.0
CLR P3.1
MOV A,R6
CLR C
RRC A
MOV R6,A
MOV A,R7
RRC A
MOV R7,A
INC R5
CJNE R5,#0AH,Q0470
SETB P3.0
SETB P3.1
NOP
NOP
NOP
CLR P3.1
RET
;===========================================
Q0492: JNB 20H.1,Q04B9
MOV R7,#CCH
LCALL Q060F
MOV A,0DH
MOV B,#0AH
DIV AB
JZ Q04A7
ADD A,#30H
MOV R7,A
SJMP Q04A9
Q04A7: MOV R7,#20H
Q04A9: LCALL Q04D8
MOV A,0DH
MOV B,#0AH
DIV AB
MOV A,B
ADD A,#30H
MOV R7,A
SJMP Q04C5
Q04B9: MOV R7,#CCH
LCALL Q060F
MOV R7,#20H
LCALL Q04D8
MOV R7,#20H
Q04C5: LCALL Q04D8
RET
;===========================================
Q04C9: MOV R4,#00H
MOV R5,#0AH
MOV R7,03H
MOV R6,02H
LCALL Q02D7
MOV A,R5
ADD A,#30H
MOV R7,A
Q04D8: MOV R6,07H
SETB P3.7
MOV R7,#0FH
LCALL Q0572
ANL P1,#F0H
MOV A,R6
SWAP A
ANL A,#0FH
ORL P1,A
SETB P3.3
LCALL Q056A
ANL P1,#F0H
MOV A,R6
ANL A,#0FH
ORL P1,A
SETB P3.3
LCALL Q056A
CLR P3.7
RET
;===========================================
Q04FF: MOV R7,09H
MOV R6,08H
Q0503: CLR A
ADD A,R7
MOV R7,A
MOV A,#48H
ADDC A,R6
MOV R6,A
SETB P1.4
MOV R5,#10H
Q050E: MOV A,R7
RRC A
MOV P1.6,C
SETB P1.5
MOV A,R6
CLR C
RRC A
MOV R6,A
MOV A,R7
RRC A
MOV R7,A
CLR P1.5
DJNZ R5,Q050E
CLR P1.4
CLR P1.6
CLR P1.5
RET
;===========================================
Q0526: MOV A,R7
SWAP A
RLC A
RLC A
ANL A,#C0H
ADD A,#80H
MOV R7,A
LCALL Q060F
Q0532: LCALL Q02BE
MOV R7,A
JZ Q0544
LCALL Q04D8
MOV A,#01H
ADD A,R1
MOV R1,A
CLR A
ADDC A,R2
MOV R2,A
SJMP Q0532
Q0544: RET
;===========================================
Q0545: MOV R7,#40H
LCALL Q060F
Q054A: LCALL Q02BE
MOV R7,A
JZ Q0563
LCALL Q04D8
MOV A,#01H
ADD A,R1
MOV R1,A
CLR A
ADDC A,R2
MOV R2,A
MOV R7,#01H
MOV R6,#00H
LCALL Q0582
SJMP Q054A
Q0563: RET
;===========================================
Q0564: ANL A,#0FH
ORL P1,A
CLR P3.3
Q056A: CLR P3.4
SETB P3.5
CLR P3.5
MOV R7,#1EH
Q0572: MOV A,R7
SETB C
SUBB A,#00H
JC Q0581
MOV 10H,#2DH
DJNZ 10H,$
DEC R7
SJMP Q0572
Q0581: RET
;===========================================
Q0582: SETB C
MOV A,R7
SUBB A,#00H
MOV A,R6
SUBB A,#00H
JC Q059F
MOV R5,#FFH
MOV R4,#00H
Q058F: MOV A,R5
DEC R5
JNZ Q0594
DEC R4
Q0594: MOV A,R5
ORL A,R4
JNZ Q058F
MOV A,R7
DEC R7
JNZ Q0582
DEC R6
SJMP Q0582
Q059F: RET
;===========================================
Q05A0: MOV R7,#22H
LCALL Q060F
MOV R7,#64H
MOV R6,#00H
LCALL Q0582
MOV R7,#0CH
LCALL Q060F
MOV R7,#64H
MOV R6,#00H
LCALL Q0582
MOV R7,#01H
LJMP Q060F
;===========================================
Q05BD: MOV R5,07H
MOV R4,06H
MOV E3H,R4
MOV R7,05H
MOV E4H,R7
MOV E7H,#83H
MOV E5H,#01H
MOV E6H,#46H
MOV E6H,#B9H
LCALL Q0679
MOV R7,E2H
RET
;===========================================
Q05D9: MOV R3,07H
MOV R2,06H
MOV E2H,R5
MOV E3H,R2
MOV R7,03H
MOV E4H,R7
MOV E7H,#83H
MOV E5H,#02H
MOV E6H,#46H
MOV E6H,#B9H
LJMP Q0679
;===========================================
Q05F4: MOV R7,#00H
MOV R6,#10H
LCALL Q0659
MOV R5,0DH
LCALL Q05D9
MOV A,08H
MOV R5,A
MOV R7,#01H
LCALL Q05D9
MOV R5,09H
MOV R7,#02H
LJMP Q05D9
;===========================================
Q060F: MOV R6,07H
SETB P3.7
MOV R7,#0FH
LCALL Q0572
ANL P1,#F0H
MOV A,R6
SWAP A
LCALL Q0564
ANL P1,#F0H
MOV A,R6
LCALL Q0564
CLR P3.7
RET
;===========================================
Q062A: PUSH A
PUSH PSW
INC 0EH
INC 0AH
MOV A,0EH
SETB C
SUBB A,#05H
JC Q063E
MOV 0EH,#00H
CPL 20H.0
Q063E: POP PSW
POP ACC
RETI
;===========================================
Q0643: SETB P1.7
MOV R3,#FFH
MOV R2,#03H
MOV R1,#3DH
CLR A
MOV R7,A
LCALL Q0526
MOV R2,#03H
MOV R1,#2CH
MOV R7,#01H
LJMP Q0526
;===========================================
Q0659: MOV E3H,R6
CLR A
MOV E4H,A
MOV E7H,#83H
MOV E5H,#03H
MOV E6H,#46H
MOV E6H,#B9H
LJMP Q0679
;===========================================
Q066D: MOV R0,#7FH
CLR A
Q0670: MOV @R0,A
DJNZ R0,Q0670
MOV SP,#20H
LJMP Q0415
;===========================================
Q0679: CLR A
MOV E7H,A
MOV E5H,A
MOV E6H,A
MOV E3H,A
MOV E4H,A
RET
;===========================================
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -