dzjsz.asm

调制的代码

        MOV 36H,#9
KEYPL2: LJMP LCDAM
KEYPL1: CJNE A,#02H,KEYPL4
        DEC 37H
        MOV A,37H
        CJNE A,#0FFH,KEYPL3
        MOV 37H,#09H
KEYPL3: LJMP LCDFM
KEYPL4: CJNE A,#03H,KEYPKE
        DEC 39H
        MOV A,39H
        CJNE A,#0FFH,KEYPL5
        ANL 39H,#09H
KEYPL5: LJMP LCDCRP

KEYPM:  CLR C
        MOV A,#3
        SUBB A,33H
        JC KEYPME
        MOV 3BH,#00H
        MOV R0,#80H
        MOV A,#20H
        MOV R2,#8
KEYPM1: MOV @R0,A
        INC R0
        DJNZ R2,KEYPM1
        MOV R0,#80H
        MOV R1,#01H
        MOV R2,#7
        MOV R3,#08H
        LCALL LCD
KEYPME: RET

KEYPN:  CLR C
        MOV A,#3
        SUBB A,33H
        JC KEYPNE
        CLR C
        MOV A,#05H
        SUBB A,3BH
        JC KEYPNE
        MOV 55H,#2EH
        MOV 3BH,#06H
        MOV R0,#50H
        MOV R1,#01H
        MOV R2,#7
        MOV R3,#07H
        LCALL LCD
KEYPNE: RET

KEYPR:  MOV A,21H
        JZ KEYPNE
        CPL 0FH
        JB 0FH,KEYPR1
        SETB ET1
        SETB TR1
        RET
KEYPR1: CLR ET1
        CLR TR1
        RET

T9852:  MOV DPTR,#0A000H
T9853:  MOV A,@R0
        MOVX @DPTR,A
        INC R0
        INC DPTR
        DJNZ R2,T9853
        MOV DPTR,#0A008H
        MOV A,#55H
        MOVX @DPTR,A
        RET

PLCSH:  MOV 3BH,#0FFH
        MOV 4AH,#05H
        MOV 4BH,#07H
        MOV 4CH,#14H
        MOV 4DH,#04H
        MOV 4EH,#00H
        MOV 4FH,#20H
        MOV R0,#4AH
        MOV R2,#6
        ACALL T9852
        LCALL DELAYA
        MOV 50H,#30H
        MOV 51H,#31H
        MOV 52H,#30H
        MOV 53H,#30H
        MOV 54H,#30H
        MOV 55H,#2EH
        MOV 56H,#30H
        MOV 40H,#03H
        MOV 41H,#69H
        MOV 42H,#0D0H
        MOV 43H,#36H
        MOV 44H,#9DH
        MOV 45H,#03H
        MOV 3FH,#02H
        MOV 3EH,#07H
        MOV R2,#08H
        MOV R0,#3EH
        ACALL T9852
        LCALL DELAYA
        MOV 46H,#03H
        MOV 47H,#08H
        MOV 48H,#0FH
        MOV 49H,#0F0H
        MOV R2,#04H
        MOV R0,#46H
        ACALL T9852
        LCALL XSHB
        RET

FMCSH:  MOV 3BH,#0FFH
        MOV 4AH,#05H
        MOV 4BH,#07H
        MOV 4CH,#14H
        MOV 4DH,#04H
        MOV 4EH,#00H
        MOV 4FH,#20H
        MOV R0,#4AH
        MOV R2,#6
        ACALL T9852
        LCALL DELAYA
        MOV 50H,#30H
        MOV 51H,#30H
        MOV 52H,#31H
        MOV 53H,#30H
        MOV 54H,#30H
        MOV 55H,#2EH
        MOV 56H,#30H
        MOV 40H,#00H
        MOV 41H,#57H
        MOV 42H,#61H
        MOV 43H,#9FH
        MOV 44H,#0FH
        MOV 45H,#0B3H
        MOV 3FH,#02H
        MOV 3EH,#07H
        MOV R2,#08H
        MOV R0,#3EH
        ACALL T9852
        LCALL DELAYA
        MOV 46H,#03H
        MOV 47H,#08H
        MOV 48H,#0FH
        MOV 49H,#0F0H
        MOV R2,#04H
        MOV R0,#46H
        ACALL T9852
        LCALL XSHB
        RET

AKCSH:  MOV 3BH,#0FFH
        MOV 40H,#00H
        MOV 41H,#57H
        MOV 42H,#61H
        MOV 43H,#9FH
        MOV 44H,#0FH
        MOV 45H,#0B3H
        MOV 3FH,#02H
        MOV 3EH,#07H
        MOV R2,#08H
        MOV R0,#3EH
        ACALL T9852
        LCALL DELAYA
        MOV 46H,#03H
        MOV 47H,#08H
        MOV 48H,#0FH
        MOV 49H,#0F0H
        MOV R2,#04H
        MOV R0,#46H
        ACALL T9852
        LCALL DELAYA
        MOV 4AH,#05H
        MOV 4BH,#07H
        MOV 4CH,#14H
        MOV 4DH,#04H
        MOV 4EH,#00H
        MOV 4FH,#60H
        MOV R0,#4AH
        MOV R2,#6
        ACALL T9852
        LCALL XSHB
        RET

PKCSH:  MOV 40H,#00H
        MOV 41H,#57H
        MOV 42H,#61H
        MOV 43H,#9FH
        MOV 44H,#0FH
        MOV 45H,#0B3H
        MOV 3FH,#02H
        MOV 3EH,#07H
        MOV R2,#08H
        MOV R0,#3EH
        ACALL T9852
        LCALL DELAYA
        MOV 46H,#03H
        MOV 47H,#08H
        MOV 48H,#0FH
        MOV 49H,#0F0H
        MOV R2,#04H
        MOV R0,#46H
        ACALL T9852
        LCALL DELAYA
        MOV 46H,#03H
        MOV 47H,#00H
        MOV 48H,#10H
        MOV 49H,#00H
        MOV R2,#04H
        MOV R0,#46H
        ACALL T9852
        LCALL DELAYA
        MOV 46H,#03H
        MOV 47H,#01H
        MOV 48H,#30H
        MOV 49H,#00H
        MOV R2,#04H
        MOV R0,#46H
        ACALL T9852
        LCALL DELAYA
        MOV 3BH,#0FFH
        MOV 4AH,#05H
        MOV 4BH,#07H
        MOV 4CH,#14H
        MOV 4DH,#04H
        MOV 4EH,#08H
        MOV 4FH,#20H
        MOV R0,#4AH
        MOV R2,#6
        ACALL T9852
        LCALL XSHB
        RET

FKCSH:  MOV 3BH,#0FFH
        MOV 40H,#00H
        MOV 41H,#57H
        MOV 42H,#61H
        MOV 43H,#9FH
        MOV 44H,#0FH
        MOV 45H,#0B3H
        MOV 3FH,#02H
        MOV 3EH,#07H
        MOV R2,#08H
        MOV R0,#3EH
        ACALL T9852
        MOV 40H,#00H
        MOV 41H,#0AEH
        MOV 42H,#0C3H
        MOV 43H,#3EH
        MOV 44H,#0EFH
        MOV 45H,#67H
        MOV 3FH,#03H
        MOV 3EH,#07H
        MOV R2,#08H
        MOV R0,#3EH
        ACALL T9852
        MOV 46H,#03H
        MOV 47H,#08H
        MOV 48H,#0FH
        MOV 49H,#0F0H
        MOV R2,#02H
        MOV R0,#46H
        ACALL T9852
        MOV 4AH,#05H
        MOV 4BH,#07H
        MOV 4CH,#14H
        MOV 4DH,#04H
        MOV 4EH,#02H
        MOV 4FH,#00H
        MOV R0,#4AH
        MOV R2,#6
        ACALL T9852
        LCALL XSHB
        RET

CRCSH:  MOV 50H,#30H
        MOV 51H,#30H
        MOV 52H,#31H
        MOV 53H,#30H
        MOV 54H,#30H
        MOV 55H,#2EH
        MOV 56H,#30H
        MOV 40H,#00H
        MOV 41H,#57H
        MOV 42H,#61H
        MOV 43H,#9FH
        MOV 44H,#0FH
        MOV 45H,#0B3H
        MOV 3FH,#02H
        MOV 3EH,#07H
        MOV R2,#08H
        MOV R0,#3EH
        ACALL T9852
        MOV R2,#08H
        MOV R0,#3EH
        ACALL T9852
        MOV 60H,#00H
        MOV 61H,#00H
        MOV 62H,#16H
        MOV 63H,#5EH
        MOV 64H,#9FH
        MOV 65H,#80H
        MOV 5FH,#04H
        MOV 5EH,#07H
        MOV 3BH,#0FFH
        MOV 4AH,#05H
        MOV 4BH,#07H
        MOV 4CH,#14H
        MOV 4DH,#04H
        MOV 4EH,#00H
        MOV 4FH,#20H
        MOV R0,#4AH
        MOV R2,#6
        ACALL T9852
        MOV 46H,#03H
        MOV 47H,#08H
        MOV 48H,#0FH
        MOV 49H,#0F0H
        MOV R2,#04H
        MOV R0,#46H
        ACALL T9852
        LCALL XSHB
        RET

KEA:    DB 07H,08H,09H,0AH,0BH,04H,05H,06H
        DB 0CH,0DH,01H,02H,03H,0EH,0FH,00H
        DB 17H,16H,10H,18H,14H,15H,12H,13H
        DB 11H,19H,19H,19H,19H,19H,19H,19H
TABAM:  db 00fH,  0f0H,  00fH,  0deH,  00fH,  0acH,  00fH,  063H
	db 00fH,  00eH,  00eH,  0beH,  00eH,  07eH,  00eH,  05cH
	db 00eH,  05cH,  00eH,  07eH,  00eH,  0beH,  00fH,  00eH
	db 00fH,  063H,  00fH,  0acH,  00fH,  0deH,  00fH,  0f0H
        db 00fH,  0f0H,  00fH,  0ccH,  00fH,  068H,  00eH,  0d6H
        db 00eH,  02cH,  00dH,  08cH,  00dH,  0cH,   00cH,  0c8H
        db 00cH,  0c8H,  00dH,  00cH,  00dH,  08cH,  00eH,  02cH
        db 00eH,  0d6H,  00fH,  068H,  00fH,  0ccH,  00fH,  0f0H
        db 00fH,  0f0H,  00fH,  0baH,  00fH,  024H,  00eH,  049H
        db 00dH,  04aH,  00cH,  05aH,  00bH,  09aH,  00bH,  034H
        db 00bH,  034H,  00bH,  09aH,  00cH,  05aH,  00dH,  04aH
        db 00eH,  049H,  00fH,  024H,  00fH,  0baH,  00fH,  0f0H
        db 00fH,  0f0H,  00fH,  0a8H,  00eH,  0e0H,  00dH,  0bcH
        db 00cH,  068H,  00bH,  028H,  00aH,  028H,  009H,  0a0H
        db 009H,  0a0H,  00aH,  028H,  00bH,  028H,  00cH,  068H
        db 00dH,  0bcH,  00eH,  0e0H,  00fH,  0a8H,  00fH,  0f0H
        db 00fH,  0f0H,  00fH,  096H,  00eH,  09cH,  00dH,  02fH
        db 00bH,  086H,  009H,  0f6H,  008H,  0b6H,  008H,  00cH
        db 008H,  0cH,   008H,  0b6H,  009H,  0f6H,  00bH,  086H
        db 00dH,  02fH,  00eH,  09cH,  00fH,  096H,  00fH,  0f0H
        db 00fH,  0f0H,  00fH,  084H,  00eH,  058H,  00cH,  0a2H
        db 00aH,  0a4H,  008H,  0c4H,  007H,  044H,  006H,  078H
        db 006H,  078H,  007H,  044H,  008H,  0c4H,  00aH,  0a4H
        db 00cH,  0a2H,  00eH,  058H,  00fH,  084H,  00fH,  0f0H
        db 00fH,  0f0H,  00fH,  072H,  00eH,  014H,  00cH,  015H
        db 009H,  0c2H,  007H,  092H,  005H,  0d2H,  004H,  0e4H
        db 004H,  0e4H,  005H,  0d2H,  007H,  092H,  009H,  0c2H
        db 00cH,  015H,  00eH,  014H,  00fH,  072H,  00fH,  0f0H
        db 00fH,  0f0H,  00fH,  060H,  00dH,  0d0H,  00bH,  088H
        db 008H,  0e0H,  006H,  060H,  004H,  060H,  003H,  050H
        db 003H,  050H,  004H,  060H,  006H,  060H,  008H,  0e0H
        db 00bH,  088H,  00dH,  0d0H,  00fH,  060H,  00fH,  0f0H
        db 00fH,  0f0H,  00fH,  04eH,  00dH,  08cH,  00aH,  0fbH
        db 007H,  0feH,  005H,  02eH,  002H,  0eeH,  001H,  0bcH
        db 001H,  0bcH,  002H,  0eeH,  005H,  02eH,  007H,  0feH
        db 00aH,  0fbH,  00dH,  08cH,  00fH,  04eH,  00fH,  0f0H
        db 00fH,  0f0H,  00fH,  03cH,  00dH,  048H,  00aH,  06eH
        db 007H,  01cH,  003H,  0fcH,  001H,  07cH,  000H,  028H
        db 000H,  028H,  001H,  07cH,  003H,  0fcH,  007H,  01cH
        db 00aH,  06eH,  00dH,  048H,  00fH,  03cH,  00fH,  0f0H

  TABFM:DB 000H,000H,000H,000H,000H,000H
	DB 00AH,057H,02DH,09EH,000H,000H
	DB 009H,03BH,0B2H,0DFH,000H,000H
	DB 00AH,057H,02DH,09EH,000H,000H
	DB 000H,000H,000H,000H,000H,000H
	DB 0F5H,0A8H,0D2H,061H,0FFH,0FFH
	DB 0F6H,0C4H,04DH,020H,0FFH,0FFH
	DB 0F5H,0A8H,0D2H,061H,0FFH,0FFH

	DB 000H,000H,000H,000H,000H,000H
	DB 014H,0AEH,05AH,03CH,001H,000H
	DB 012H,076H,064H,0BFH,001H,000H
	DB 014H,0AEH,05AH,03CH,001H,000H
	DB 000H,000H,000H,000H,000H,000H
	DB 0EBH,051H,0A5H,0C3H,0FEH,0FFH
	DB 0EDH,089H,09BH,040H,0FEH,0FFH
	DB 0EBH,051H,0A5H,0C3H,0FEH,0FFH

	DB 000H,000H,000H,000H,000H,000H
	DB 01EH,005H,088H,0DAH,001H,000H
	DB 01CH,0B1H,016H,09FH,002H,000H
	DB 01EH,005H,088H,0DAH,001H,000H
	DB 000H,000H,000H,000H,000H,000H
	DB 0E1H,0FAH,077H,025H,0FEH,0FFH
	DB 0E3H,04EH,0E9H,060H,0FDH,0FFH
	DB 0E1H,0FAH,077H,025H,0FEH,0FFH

	DB 000H,000H,000H,000H,000H,000H
	DB 028H,05CH,0B5H,078H,002H,000H
	DB 025H,0ECH,0C8H,07EH,003H,000H
	DB 028H,05CH,0B5H,078H,002H,000H
	DB 000H,000H,000H,000H,000H,000H
	DB 0D7H,0A3H,04AH,087H,0FDH,0FFH
	DB 0DAH,013H,037H,081H,0FCH,0FFH
	DB 0D7H,0A3H,04AH,087H,0FDH,0FFH

	DB 000H,000H,000H,000H,000H,000H
	DB 033H,0B3H,0E2H,016H,003H,000H
	DB 02FH,027H,07BH,05EH,004H,000H
	DB 033H,0B3H,0E2H,016H,003H,000H
	DB 000H,000H,000H,000H,000H,000H
	DB 0CCH,04CH,01DH,0E9H,0FCH,0FFH
	DB 0D0H,0D8H,084H,0A1H,0FBH,0FFH
	DB 0CCH,04CH,01DH,0E9H,0FCH,0FFH

	DB 000H,000H,000H,000H,000H,000H
	DB 03DH,00AH,010H,0B5H,003H,000H
	DB 038H,062H,02DH,03EH,005H,000H
	DB 03DH,00AH,010H,0B5H,003H,000H
	DB 000H,000H,000H,000H,000H,000H
	DB 0C2H,0F5H,0EFH,04AH,0FCH,0FFH
	DB 0C7H,09DH,0D2H,0C1H,0FAH,0FFH
	DB 0C2H,0F5H,0EFH,04AH,0FCH,0FFH

	DB 000H,000H,000H,000H,000H,000H
	DB 047H,061H,03DH,053H,004H,000H
	DB 042H,09DH,0DFH,01DH,006H,000H
	DB 047H,061H,03DH,053H,004H,000H
	DB 000H,000H,000H,000H,000H,000H
	DB 0B8H,09EH,0C2H,0ACH,0FBH,0FFH
	DB 0BDH,062H,020H,0E2H,0F9H,0FFH
	DB 0B8H,09EH,0C2H,0ACH,0FBH,0FFH

	DB 000H,000H,000H,000H,000H,000H
	DB 051H,0B8H,06AH,0F1H,004H,000H
	DB 04BH,0D8H,091H,0FDH,006H,000H
	DB 051H,0B8H,06AH,0F1H,004H,000H
	DB 000H,000H,000H,000H,000H,000H
	DB 0AEH,047H,095H,00EH,0FBH,0FFH
	DB 0B4H,027H,06EH,002H,0F9H,0FFH
	DB 0AEH,047H,095H,00EH,0FBH,0FFH

	DB 000H,000H,000H,000H,000H,000H
	DB 05BH,00FH,098H,08FH,005H,000H
	DB 055H,013H,044H,0DDH,007H,000H
	DB 05BH,00FH,098H,08FH,005H,000H
	DB 000H,000H,000H,000H,000H,000H
	DB 0A4H,0F0H,067H,070H,0FAH,0FFH
	DB 0AAH,0ECH,0BBH,022H,0F8H,0FFH
	DB 0A4H,0F0H,067H,070H,0FAH,0FFH

	DB 000H,000H,000H,000H,000H,000H
	DB 066H,066H,0C5H,02DH,006H,000H
	DB 05EH,04EH,0F6H,0BCH,008H,000H
	DB 066H,066H,0C5H,02DH,006H,000H
	DB 000H,000H,000H,000H,000H,000H
	DB 099H,099H,03AH,0D2H,0F9H,0FFH
	DB 0A1H,0B1H,009H,043H,0F7H,0FFH
	DB 099H,099H,03AH,0D2H,0F9H,0FFH
  END