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