📄 dzjsz.asm
字号:
XSHB: MOV R0,#80H
MOV R2,#32
MOV DPTR,#TAB1
MOV A,33H
SWAP A
RL A
ADD A,DPL
MOV DPL,A
MOV A,DPH
ADDC A,#0
MOV DPH,A
XSHB1: CLR A
MOVC A,@A+DPTR
MOV @R0,A
INC R0
INC DPTR
DJNZ R2,XSHB1
ACALL LCD1
ACALL LCD2
RET
LCDAM: MOV DPTR,#TAB2
MOV R0,#80H
MOV R2,#4
MOV A,36H
RL A
RL A
ADD A,DPL
MOV DPL,A
MOV A,DPH
ADDC A,#0
MOV DPH,A
LCDAM1: CLR A
MOVC A,@A+DPTR
MOV @R0,A
INC R0
INC DPTR
DJNZ R2,LCDAM1
MOV R0,#80H
MOV R2,#9
MOV R1,#0
MOV R3,#4
ACALL LCD
RET
LCDFM: MOV DPTR,#TAB3
MOV R0,#80H
MOV R2,#5
MOV A,37H
MOV B,#5
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,DPH
ADDC A,#0
MOV DPH,A
LCDFM1: CLR A
MOVC A,@A+DPTR
MOV @R0,A
INC R0
INC DPTR
DJNZ R2,LCDFM1
MOV R0,#80H
MOV R2,#8
MOV R1,#0
MOV R3,#5
ACALL LCD
RET
LCDCRP: MOV DPTR,#TAB4
MOV R0,#80H
MOV R2,#4
MOV A,39H
RL A
RL A
ADD A,DPL
MOV DPL,A
MOV A,DPH
ADDC A,#0
MOV DPH,A
LCDCRP1:CLR A
MOVC A,@A+DPTR
MOV @R0,A
INC R0
INC DPTR
DJNZ R2,LCDCRP1
MOV R0,#80H
MOV R2,#8
MOV R1,#0
MOV R3,#4
ACALL LCD
MOV DPTR,#TAB5
MOV R0,#60H
MOV R2,#6
MOV A,39H
MOV B,#6
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,DPH
ADDC A,#0
MOV DPH,A
LCDCRP2:CLR A
MOVC A,@A+DPTR
MOV @R0,A
INC R0
INC DPTR
DJNZ R2,LCDCRP2
RET
TAB1: DB 20H,20H,20H,20H,53H,69H,6EH,28H,4BH,48H,7AH,29H,20H,20H,20H,20H
DB 20H,20H,46H,72H,65H,71H,3DH,20H,31H,30H,30H,30H,2EH,30H,20H,20H
DB 20H,20H,20H,41H,4DH,28H,6DH,61H,3DH,20H,35H,30H,25H,29H,20H,20H
DB 20H,20H,46H,72H,65H,71H,3DH,20H,31H,30H,30H,30H,2EH,30H,20H,20H
DB 20H,20H,46H,4DH,28H,74H,66H,3DH,20H,35H,4BH,48H,7AH,29H,20H,20H
DB 20H,20H,46H,72H,65H,71H,3DH,20H,31H,30H,30H,2EH,30H,20H,20H,20H
DB 43H,48H,52H,50H,28H,74H,66H,3DH,20H,30H,2EH,31H,4BH,48H,7AH,29H
DB 20H,20H,46H,72H,65H,71H,3DH,20H,20H,31H,30H,30H,2EH,30H,20H,20H
DB 20H,20H,20H,20H,50H,53H,4BH,28H,4BH,48H,7AH,29H,20H,20H,20H,20H
DB 20H,20H,46H,72H,65H,71H,3DH,31H,30H,30H,2EH,30H,20H,20H,20H,20H
DB 20H,20H,20H,20H,46H,53H,4BH,28H,4BH,48H,7AH,29H,20H,20H,20H,20H
DB 66H,31H,3DH,31H,30H,30H,4BH,20H,66H,32H,3DH,32H,30H,30H,4BH,20H
DB 20H,20H,20H,20H,41H,53H,4BH,28H,4BH,48H,7AH,29H,20H,20H,20H,20H
DB 20H,20H,46H,72H,65H,71H,3DH,20H,31H,30H,30H,2EH,30H,20H,20H,20H
DB 20H,20H,20H,20H,20H,48H,65H,6CH,6CH,6FH,21H,20H,20H,20H,20H,20H
DB 20H,20H,20H,20H,20H,20H,4FH,4BH,21H,20H,20H,20H,20H,20H,20H,20H
TAB2: DB 20H,31H,30H,25H,20H,32H,30H,25H,20H,33H,30H,25H,20H,34H,30H,25H
DB 20H,35H,30H,25H,20H,36H,30H,25H,20H,37H,30H,25H,20H,38H,30H,25H
DB 20H,39H,30H,25H,31H,30H,30H,25H
TAB3: DB 20H,31H,4BH,48H,7AH,20H,32H,4BH,48H,7AH,20H,33H,4BH,48H,7AH,20H,34H,4BH,48H,7AH
DB 20H,35H,4BH,48H,7AH,20H,36H,4BH,48H,7AH,20H,37H,4BH,48H,7AH,20H,38H,4BH,48H,7AH
DB 20H,39H,4BH,48H,7AH,31H,30H,4BH,48H,7AH
TAB4: DB 20H,2DH,35H,30H,20H,2DH,31H,30H,20H,20H,2DH,35H,20H,20H,2DH,31H,2DH,30H,2EH,31H
DB 20H,30H,2EH,31H,20H,20H,20H,31H,20H,20H,20H,35H,20H,20H,31H,30H,20H,20H,35H,30H
TAB5: DB 0FFh,0D4h,04Fh,030h,078h,026h
DB 0FFh,0F7h,043h,009h,0B1h,0A1h
DB 0FFh,0FBh,0A1h,084h,0D8h,0D0h
DB 0FFh,0FFh,020h,04Dh,0C4h,0F6h
DB 0FFh,0FFh,0E9h,0A1h,060h,07Fh
DB 000h,000h,016h,05Eh,09Fh,080h
DB 000h,000h,0DFh,0B2h,03Bh,009h
DB 000h,004h,05Eh,07Bh,027h,02Fh
DB 000h,008h,0BCh,0F6h,04Eh,05Eh
DB 000h,02Bh,0B0h,0CFh,087h,0D9h
ORG 1000H
KEYP: MOV A,34H
MOV DPTR,#KEA
MOVC A,@A+DPTR
MOV R1,A
ANL A,#1FH
RL A
MOV DPTR,#KEYPJ
JMP @A+DPTR
KEYPJ: AJMP KEYP0
AJMP KEYP0
AJMP KEYP0
AJMP KEYP0
AJMP KEYP0
AJMP KEYP0
AJMP KEYP0
AJMP KEYP0
AJMP KEYP0
AJMP KEYP0
AJMP KEYPA
AJMP KEYPB
AJMP KEYPC
AJMP KEYPD
AJMP KEYPE
AJMP KEYPF
AJMP KEYPG
AJMP KEYPH
AJMP KEYPI
AJMP KEYPP
AJMP KEYPK
AJMP KEYPL
AJMP KEYPM
AJMP KEYPN
AJMP KEYPR
AJMP KEYPQ
KEYPQ: RET
KEYP0: CLR C
MOV A,#3
SUBB A,33H
JC KEYPQ
MOV A,3BH
JNZ KEYP02A
KEYP02C:MOV 3BH,#01H
MOV A,R1
ORL A,#30H
MOV 54H,A
MOV 50H,#30H
MOV 51H,#30H
MOV 52H,#30H
MOV 53H,#30H
MOV 55H,#20H
MOV 56H,#20H
MOV R0,#54H
AJMP KEYPTX
KEYP02A:CJNE A,#01H,KEYP02B
MOV A,54H
XRL A,#30H
JZ KEYP02C
MOV 53H,54H
MOV A,R1
ORL A,#30H
MOV 54H,A
INC 3BH
MOV R0,#53H
AJMP KEYPTX
KEYP02B:CJNE A,#02H,KEYP02D
MOV 52H,53H
MOV 53H,54H
MOV A,R1
ORL A,#30H
MOV 54H,A
INC 3BH
MOV R0,#52H
AJMP KEYPTX
KEYP02D:CJNE A,#03H,KEYP02E
MOV 51H,52H
MOV 52H,53H
MOV 53H,54H
MOV A,R1
ORL A,#30H
MOV 54H,A
INC 3BH
MOV R0,#51H
AJMP KEYPTX
KEYP02E:CJNE A,#04H,KEYP02F
MOV 50H,51H
MOV 51H,52H
MOV 52H,53H
MOV 53H,54H
MOV A,R1
ORL A,#30H
MOV 54H,A
INC 3BH
MOV R0,#50H
AJMP KEYPTX
KEYP02F:CJNE A,#06H,KEYPTXE
MOV A,R1
ORL A,#30H
MOV 56H,A
INC 3BH
MOV R0,#50H
KEYPTX: MOV R3,3BH
MOV R1,#1
MOV R2,#7
LCALL LCD
KEYPTXE:RET
KEYPA: CLR TR1 ;SIN
CLR ET1
MOV 21H,#00H
MOV 33H,#0
LCALL PLCSH
RET
KEYPB: CLR TR1 ;AM
CLR ET1
MOV 21H,#00H
MOV 33H,#1
MOV 36H,#4
MOV 26H,#00H
LCALL PLCSH
MOV TH1,#8DH
MOV TL1,#8DH
SETB 08H
SETB TR1
SETB ET1
RET
KEYPC: CLR TR1 ;FM
CLR ET1
MOV 21H,#00H
MOV 33H,#2
MOV 37H,#4
MOV 27H,#00H
LCALL FMCSH
MOV TH1,#1AH
MOV TL1,#1AH
SETB 09H
SETB TR1
SETB ET1
RET
KEYPD: CLR TR1 ;ASK
CLR ET1
MOV 21H,#00H
MOV 33H,#6
MOV 38H,#00H
LCALL AKCSH
MOV TH1,#048H
MOV TL1,#048H
SETB 0AH
SETB TR1
SETB ET1
RET
KEYPE: CLR TR1 ;PSK
CLR ET1
MOV 21H,#00H
MOV 33H,#4
LCALL PKCSH
RET
KEYPF: CLR TR1 ;FSK
CLR ET1
MOV 21H,#00H
MOV 33H,#5
LCALL FKCSH
RET
KEYPG: CLR TR1 ;CHIRP
CLR ET1
MOV 21H,#00H
MOV 33H,#3
MOV 39H,#5
MOV 28H,#100
LCALL CRCSH
MOV TH1,#048H
MOV TL1,#048H
SETB 0CH
SETB TR1
SETB ET1
RET
KEYPH: CLR C
MOV A,#3
SUBB A,33H
JC KEYPHE
MOV A,3BH
JZ KEYPHE
MOV 3BH,#0FFH
MOV A,55H
XRL A,#2EH
JZ KEYPH1
MOV 55H,#2EH
MOV 56H,#30H
KEYPH1: LCALL HEXB
LCALL PDIV
MOV 3FH,#02H
MOV 3EH,#07H
MOV R2,#08H
MOV R0,#3EH
ACALL T9852
KEYPHE: RET
KEYPI: CLR C
MOV A,#3
SUBB A,33H
JC KEYPHE
INC 56H
MOV A,56H
CJNE A,#3AH,KEYPHJ
MOV 56H,#30H
INC 54H
MOV A,54H
CJNE A,#3AH,KEYPHJ
MOV 54H,#30H
INC 53H
MOV A,53H
CJNE A,#3AH,KEYPHJ
MOV 53H,#30H
INC 52H
MOV A,52H
CJNE A,#3AH,KEYPHJ
MOV 52H,#30H
INC 51H
MOV A,51H
CJNE A,#3AH,KEYPHJ
MOV 51H,#30H
INC 50H
MOV A,50H
CJNE A,#33H,KEYPHJ
MOV 50H,#30H
MOV 51H,#30H
MOV 52H,#30H
MOV 53H,#30H
MOV 54H,#31H
MOV 55H,#2EH
MOV 56H,#30H
KEYPHJ: LCALL HEXB
LCALL PDIV
MOV 3FH,#02H
MOV 3EH,#07H
MOV R2,#08H
MOV R0,#3EH
ACALL T9852
MOV R0,#50H
MOV R1,#1
MOV R2,#7
MOV R3,#7
LJMP LCD
KEYPPE: RET
KEYPP: CLR C
MOV A,#3
SUBB A,33H
JC KEYPHE
DEC 56H
MOV A,56H
CJNE A,#2FH,KEYPHJ
MOV 56H,#39H
DEC 54H
MOV A,54H
CJNE A,#2FH,KEYPHJ
MOV 54H,#39H
DEC 53H
MOV A,53H
CJNE A,#2FH,KEYPHJ
MOV 53H,#39H
DEC 52H
MOV A,52H
CJNE A,#2FH,KEYPHJ
MOV 52H,#39H
DEC 51H
MOV A,51H
CJNE A,#2FH,KEYPHJ
MOV 51H,#39H
DEC 50H
MOV A,50H
CJNE A,#2FH,KEYPHJ
MOV 50H,#31H
MOV 51H,#30H
MOV 52H,#30H
MOV 53H,#30H
MOV 54H,#30H
MOV 55H,#2EH
MOV 56H,#30H
AJMP KEYPHJ
KEYPK: MOV A,33H
CJNE A,#01H,KEYPK1
INC 36H
MOV A,36H
CJNE A,#0AH,KEYPK2
MOV 36H,#0
KEYPK2: LJMP LCDAM
KEYPK1: CJNE A,#02H,KEYPK4
INC 37H
MOV A,37H
CJNE A,#0AH,KEYPK3
MOV 37H,#00H
KEYPK3: LJMP LCDFM
KEYPK4: CJNE A,#03H,KEYPKE
INC 39H
MOV A,39H
CJNE A,#0AH,KEYPK5
MOV 39H,#00H
KEYPK5: LJMP LCDCRP
KEYPKE: RET
KEYPL: MOV A,33H
CJNE A,#01H,KEYPL1
DEC 36H
MOV A,36H
CJNE A,#0FFH,KEYPL2
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -