⊙通用键盘显示板
☆管理程序
为方便用户,SCB-31-5功能板配备了管理程序,使功能板具有开发装置的功能,大大地提高了该板
的性能价格比.为了便于初学者熟悉管理程序,列出源程序清单.
0RG 0000H
0000 C2AF MAIN: CAL EA 0002 3163 ACALL DELY
0004 75A070 MOV P2, #70H 0007
0130 AJMP MAIN1 0RG 0030H
0030 758160 MAIN1:MOV SP, #60H 0033 753200 MOV 32H #00H
0036 907000 MOV DPTR,#7000H
0039 A3 INC DPTR
003A 7400 MOV A, #00H 003C F0 MOVX @DPTR, A
003D 7432 M0V A, #32H
003F F0 MOVX @DPTR, A 0040 316C ACALL CLED
0042 7800 MOV R0, #00H
0044 74C8 MOV A, #0C8H 0046 F2 MOVX @R0, A
0047 08 INC R0
0048 7480 MOV A, #80H 004A F2 MOVX @R0, A
004B 753080 LP4:MOV 30H, #80H 004E 753140 MOV 31H, #40H
0051 7801 LP5:MOV R0, #01H
0053 E2 MOVX A, @R0
0054 5407 ANL A, #07H 0056 B40002 CJNE A,
#00H,LP55
0059 0151 AJMP LP5
005B 7800 LP55:MOV R0, #00H 005D E2 MOVX A, @R0
005E F5F0 MOV B, A
0060 7900 MOV R1, #00H 0062 900700 MOV DPTR,#0700H
0065 7400 LP6:MOV A, @A+DPTR 006B 018A AJMP LED
006D A3 LP66:INC DPTR
006E 09 INC R1
006F E9 MOV A, R1 0070
20E402 JB ACC.4, CKEY
0073 0165 AJMP LP6
0075 7900 CKEY: MOV R1, #00H 0077 900710 MOV DPTR,#0710H
007A 7400 CKEY1: MOV A, #00H 007C 93 MOVC A, @A+DPTR
007D B5F002 CJNE A,B,CKEYY
0080 01A7 AJMP CKEY2
0082 A3 CKEYY: INC DPTR 0083 09 INC R1
0084 E9 MOV A, R1
0085 30E2F2 JNB ACC.2, CKEY1 0088 0100 AJMP MAIN
008A E530 LED: MOV A, 30H 008C 7801
MOV RO, #01H 008E F2 MOVX @R0, A
008F E9 MOV A, R1
0090 A831 MOV R0, 31H 0092 F6 MOV @R0, A
0093 0531 INC 31H
0095 900600 MOV DPTR,#0600H 0098 93 MOVC A, @A+DPTR
0099 7800 MOV R0, #00H
009B F2 MOVX @R0, A 009C 0530 INC
30H
009E E530 MOV A, 30H
00A0 B48802 CJNE A, #99H, LED1 00A3 014B AJMP LP4
00A5 0151 LED1:AJMP LP5 00A7 9000AE CKEY2:MOV
DPTR,#CKEY3 00AA E9 MOV A, R1
00AB 23 RL A
00AC 29 ADD A, R1 00AD
73 JMP @A+DPTR
00AE 0200CC CKEY3: LJMP LAST 00B1 0200DF LJMP NEXT0
00B4 0200B7 LJMP EXEC
00B7 12016C EXEC: LCALL CLED 00BA 120176 LCALL BH
00BD C082 PUSH DPL
00BF C083 PUSH DPH
00C1 22 RET
00C2 00 NOP
00C3 00 NOP
00C4 00 NOP
00C5 00 NOP
00C6 00 NOP
00C7 00 NOP
00C8 00 NOP
00C9 00 NOP
00CA 00 NOP
00CB 00 NOP
00CC D27F LAST: SETB 7FH 00CE
0200E1 LJMP NEXT 00D1 E582 LAST1: MOV A, DPL
00D3 9401 SUBB A, #01H
00D5 4004 JC LAST3 00D7 F582
LAST2: MOV 82H, A
00D9 01EE AJMP NEXTA
00DB 1583 LAST3: DEC DPH 00DD 01D7 AJMP LAST2
00DF C27F NEXT0: CLR 7FH 00E1
316C NEXT: ACALL CLED 00E3 3176 ACALL BH
00E5 E532 MOV A, 32H 00E7 B45500
CJNE A, #55H, NEXT2 00EA 207FE4 JB 7FH,LAST1
00ED A3 INC DPTR
00EE 3193 NEXTA: ACALL HB 00F0 31A9 ACALL HLED
00F2 01F9 AJMP NEXT3 00F4 753255
NEXT2: MOV 32H, #55H 00F7 01EE AJMP NEXTA
00F9 753084 NEXT3: MOV 30H,#84H 00FC 753144 MOV 31H, #44H
00FF 7801 NEXT4: MOV R0, #01H
0101 F2 MOVX A, @R0
0102 5407 ANL A, #07H 0104 B40002 CJNE
A,#00H,NEXT44
0107 01FF AJMP NEXT4 0109
7800 NEXT44:MOV R0,#00H 010B E2 MOVX A, #@R0
010C F5F0 MOV B, A
010E 7900 MOV R1, #00H 0110 900700 MOV DPTR, #0700H
0113 7400 NEXT5: MOV A,#00H 0115 93 MOVC A,
@A+DPTR 0116 B5F002 CJNE A, B, NEXT55
0119 2140 AJMP NEXT9
011B A3 NEXT55: INC DPTR 011C 09 INC R1
011D E9 MOV A, R1
011E 20E402 JB ACC.4 NEXT6 0121 2113 AJMP NEXT5
0123 7900 NEXT6: MOV R1, #00H 0125 900710 MOV DPTR, #0710H
0128 7400 NEXT7: MOV A,#00H
012A 93 MOVC A, @A+DPTR 012B
B5F002 CJNE A, B, NEXT77 012E 213E AJMP NEXT8
0130 A3 NEXT77: INC DPTR 0131
09 INC R1
0132 E9 MOV A, R1
0133 30E2F2 JNB ACC, 2 NEXT7 0136 0100 AJMP MAIN
0138 00 NOP
0139 00 NOP
013A 00 NOP
013B 00 NOP
013C 00 NOP
013D 00 NOP
013E 01A7 NEXT8: AJMP CKEY2
0140 7801 NEXT9: MOV R0, #01H 0142 E530 MOV A, 30H
0144 F2 MOVX @R0, A
0145 E9 MOV A, R1
0146 A831 MOV R0, 31H 0148 F6 MOV @R0, A
0149 0531 INC 31H
014B 900600 MOV DPTR, #0600H 014E 93 MOVC A, @A+DPTR
014F 7800 MOV R0, #00H
0151 F2 MOVX @R0, A 0152 0530
INC 3OH
0154 F530 MOV A, 30H 0156 B48602 CJNE A,
#86H, NEXT99 0159 01F9 AJMP HEXT3
015B 01FF NEXT99: AJMP NEXT4 015D 00 NOP
015E 00 NOP
015F 00 NOP
0160 00 NOP
0160 00 NOP
0162 00 NOP
0163 7EFF DELY: MOV R6, #0FFH 0165 7FFF DELX: MOV R7, #0FFH
0167 DFFE DELY2: DJNZ R7, DELY2 0169 DEFA DJNZ R6, DELY1
016B 22 RET
016C 74DE CLED: MOV A, #0DFH 016E 7801 MOV R0, #01H
0170 F2 MOVX @R0, A
0171 E2 CLED1: MOVX A, @R0 0172 20E7FC JB
ACC.7, CLED1 0175 22 RET
0176 7841 BH: MOV R0, #41H 0178 3188
ACALL BH1 017A F583 MOV 83H, A
017C 7843 MOV R0, #43H
017E 3188 ACALL BH1 0180 F582
MOV 82H, A
0182 7845 MOV R0, #45H
0184 3188 ACALL BH1 0186 F0
MOVX @DPTR, A
0187 22 RET
0188 E6 BH1: MOV A, @R0 0189 540F ANL A, #0FH
018B F9 MOV R1, A
018C 18 DEC R0
018D E6 MOV A, @R0
018E C4 SWAP A
018F 54F0 ANL A, #0F0H 0191 49 ORL A, R1
0192 22 RET
0193 00 HB: NOP
0194 E0 MOVX A, @DPTR
0195 7845 MOV R0, #45H
0197 319F ACALL HB1 0199 F582
MOV A, 82H
BACK<<
>>NEXT |
 |
