单片机课程设计 程序

MOV R5,#2 MOV R6,#2 MOV R7,#2 LCALL XS LJMP JPOUT JPLP3: CJNE A,#11H,JPLP4 MOV R0,#3 SETB RS0 CLR RS1 MOV R1,#3 MOV R2,#3 MOV R3,#3 MOV R4,#3 MOV R5,#3 MOV R6,#3 MOV R7,#3 LCALL XS LJMP JPOUT JPLP4: MOV R0,#8 SETB RS0 CLR RS1 MOV R1,#8 MOV R2,#8 MOV R3,#8 MOV R4,#8 MOV R5,#8 MOV R6,#8 MOV R7,#8 LCALL XS JPOUT: POP PSW POP A RETI JCB: RETI XS: ;用来显示七个数在数码管上 SETB RS0 CLR RS1 PUSH A MOV DPTR,#TAB MOV R0,#09H MOV 65H,#7 XSLP1: MOV A,@R0 MOVC A,@A+DPTR MOV SBUF,A JNB TI,$ CLR TI INC R0 DJNZ 65H,XSLP1 SJMP OUT TAB: DB 40H,0F9H,24H,30H,19H,12H,02H,78H,00H,10H,0FFH,0FEH,1EH,0FCH,9DH,0BCH OUT: POP A RET XSXH: ;显示学号 CLR RS1 SETB RS0 MOV A,#10 XSXHLP1: MOV R1,#11 MOV R2,#11 MOV R3,#11 MOV R4,#11 MOV R5,#11 MOV R6,#10 MOV R7,#11 LCALL XS ;SJMP $ JNB 30H,XSXHOUT LCALL DELAY2 MOV R1,#12 MOV R2,#14 MOV R3,#14 MOV R4,#15 MOV R5,#14 MOV R6,#13 MOV R7,#12 LCALL XS JNB 30H,XSXHOUT LCALL DELAY2 MOV R1,#2 MOV R2,#0 MOV R3,#0 MOV R4,#9 MOV R5,#0 MOV R6,#4 MOV R7,#2 LCALL XS JNB 30H,XSXHOUT LCALL DELAY2 LJMP XSXHLP1 XSXHOUT: CLR RS0 CLR RS1 RET LOP: CLR RS1 SETB RS0 MOV R1,#2 MOV R2,#0 MOV R3,#0 MOV R4,#9 MOV R5,#0 MOV R6,#4 MOV R7,#2 LCALL XS LCALL DELAY2 DELAY1: ;MS级延时，输入参数A PUSH PSW SETB RS0 SETB RS1 MOV R2,#10 D1L1: MOV R3,#0FAH D1L2: NOP NOP DJNZ R3,D1L2 DJNZ R2,D1L1 POP PSW RET DELAY2: ;100MS级延时，输入参数A PUSH PSW SETB RS0 SETB RS1 MOV R2,#20 D2L3: MOV R4,#100 D2L1: MOV R3,#0FAH D2L2: NOP NOP DJNZ R3,D2L2 DJNZ R4,D2L1 DJNZ R2,D2L3 POP PSW RET END 0000H 802E SJMP 0030H 0002H FF MOV R7, A 0003H 0200A0 LJMP 00A0H 0006H FF MOV R7, A 0007H FF MOV R7, A 0008H FF MOV R7, A 0009H FF MOV R7, A 000AH FF MOV R7, A 000BH 0200D3 LJMP 00D3H 000EH FF MOV R7, A 000FH FF MOV R7, A 0010H FF MOV R7, A 0011H FF MOV R7, A 0012H FF MOV R7, A 0013H 0200F9 LJMP 00F9H 0016H FF MOV R7, A 0017H FF MOV R7, A 0018H FF MOV R7, A 0019H FF MOV R7, A 001AH FF MOV R7, A 001BH 0201BD LJMP 01BDH 001EH FF MOV R7, A 001FH FF MOV R7, A 0020H FF MOV R7, A 0021H FF MOV R7, A 0022H FF MOV R7, A 0023H FF MOV R7, A 0024H FF MOV R7, A 0025H FF MOV R7, A 0026H FF MOV R7, A 0027H FF MOV R7, A 0028H FF MOV R7, A 0029H FF MOV R7, A 002AH FF MOV R7, A 002BH FF MOV R7, A 002CH FF MOV R7, A 002DH FF MOV R7, A 002EH FF MOV R7, A 002FH FF MOV R7, A 0030H 758130 MOV SP, #30H 0033H 120064 LCALL 0064H 0036H 1201EE LCALL 01EEH 0039H B80208 CJNE R0, #02H, 0044H 003CH C220 CLR 20H 003EH 908C00 MOV DPTR, #8C00H 0041H F0 MOVX @DPTR, A 0042H D2A8 SETB EX0 0044H B80304 CJNE R0, #03H, 004BH 0047H C220 CLR 20H 0049H D28E SETB TR1 004BH 3020FD JNB 20H, 004BH 004EH B800E8 CJNE R0, #00H, 0039H 0051H C220 CLR 20H 0053H D230 SETB 30H 0055H 120241 LCALL 0241H 0058H 741E MOV A, #1EH 005AH 120259 LCALL 0259H 005DH 7401 MOV A, #01H 005FH 12026C LCALL 026CH 0062H 80FE SJMP 0062H 0064H D2AF SETB EA 0066H D2AA SETB EX1 0068H D2A9 SETB ET0 006AH D2AB SETB ET1 006CH D28A SETB IT1 006EH D288 SETB IT0 0070H D230 SETB 30H 0072H 758921 MOV TMOD, #21H 0075H 758C3C MOV TH0, #3CH 0078H 758AB0 MOV TL0, #B0H 007BH 758D9C MOV TH1, #9CH 007EH 758B9C MOV TL1, #9CH 0081H D28C SETB TR0 0083H 759800 MOV SCON, #00H 0086H C290 CLR P1.0 0088H C292 CLR P1.2 008AH D294 SETB P1.4 008CH D295 SETB P1.5 008EH C293 CLR P1.3 0090H C291 CLR P1.1 0092H C296 CLR P1.6 0094H D2BA SETB PX1 0096H 759800 MOV SCON, #00H 0099H D297 SETB P1.7 009BH 7A28 MOV R2, #28H 009DH C220 CLR 20H 009FH 22 RET 00A0H C0D0 PUSH PSW 00A2H C0E0 PUSH ACC 00A4H C2D4 CLR RS1 00A6H D2D3 SETB RS0 00A8H 908C00 MOV DPTR, #8C00H 00ABH E0 MOVX A, @DPTR 00ACH 75F064 MOV B, #64H 00AFH 84 DIV AB 00B0H FB MOV R3, A 00B1H E5F0 MOV A, B 00B3H 75F00A MOV B, #0AH 00B6H 84 DIV AB 00B7H FA MOV R2, A 00B8H A9F0 MOV R1, B 00BAH 750C0A MOV 0CH, #0AH 00BDH 750D0A MOV 0DH, #0AH 00C0H 750E0A MOV 0EH, #0AH 00C3H 750F0A MOV 0FH, #0AH 00C6H 1201BE LCALL 01BEH 00C9H 908C00 MOV DPTR, #8C00H 00CCH F0 MOVX @DPTR, A 00CDH 00 NOP 00CEH D0E0 POP ACC 00D0H D0D0 POP PSW 00D2H 32 RETI 00D3H C0E0 PUSH ACC 00D5H C0D0 PUSH PSW 00D7H C2D3 CLR RS0 00D9H C2D4 CLR RS1 00DBH 758C3C MOV TH0, #3CH 00DEH 758AB0 MOV TL0, #B0H 00E1H 30B304 JNB P3.3, 00E8H 00E4H 7A28 MOV R2, #28H 00E6H 800C SJMP 00F4H 00E8H DA0A DJNZ R2, 00F4H 00EAH 7A28 MOV R2, #28H 00ECH D220 SETB 20H 00EEH C2A8 CLR EX0 00F0H C28E CLR TR1 00F2H C230 CLR 30H 00F4H D0D0 POP PSW 00F6H D0E0 POP ACC 00F8H 32 RETI 00F9H C0E0 PUSH ACC 00FBH C0D0 PUSH PSW 00FDH C2D3 CLR RS0 00FFH C2D4 CLR RS1 0101H 740A MOV A, #0AH 0103H C230 CLR 30H 0105H 120259 LCALL 0259H 0108H 309703 JNB P1.7, 010EH 010BH 0201B8 LJMP 01B8H 010EH C290 CLR P1.0 0110H C292 CLR P1.2 0112H D295 SETB P1.5 0114H D294 SETB P1.4 0116H 8590F0 MOV B, P1 0119H C295 CLR P1.5 011BH C294 CLR P1.4 011DH D290 SETB P1.0 011FH D292 SETB P1.2 0121H E590 MOV A, P1 0123H 45F0 ORL A, B 0125H C290 CLR P1.0 0127H C292 CLR P1.2 0129H D295 SETB P1.5 012BH D294 SETB P1.4 012DH B4121A CJNE A, #12H, 014AH 0130H 7800 MOV R0, #00H 0132H D2D3 SETB RS0 0134H C2D4 CLR RS1 0136H 7900 MOV R1, #00H 0138H 7A00 MOV R2, #00H 013AH 7B00 MOV R3, #00H 013CH 7C00 MOV R4, #00H 013EH 7D00 MOV R5, #00H 0140H 7E00 MOV R6, #00H 0142H 7F00 MOV R7, #00H 0144H 1201BE LCALL 01BEH 0147H 0201B8 LJMP 01B8H 014AH B4221A CJNE A, #22H, 0167H 014DH 7801 MOV R0, #01H 014FH D2D3 SETB RS0 0151H C2D4 CLR RS1 0153H 7901 MOV R1, #01H 0155H 7A01 MOV R2, #01H 0157H 7B01 MOV R3, #01H 0159H 7C01 MOV R4, #01H 015BH 7D01 MOV R5, #01H 015DH 7E01 MOV R6, #01H 015FH 7F01 MOV R7, #01H 0161H 1201BE LCALL 01BEH 0164H 0201B8 LJMP 01B8H 0167H B4111A CJNE A, #11H, 0184H 016AH 7802 MOV R0, #02H 016CH D2D3 SETB RS0 016EH C2D4 CLR RS1 0170H 7902 MOV R1, #02H 0172H 7A02 MOV R2, #02H 0174H 7B02 MOV R3, #02H 0176H 7C02 MOV R4, #02H 0178H 7D02 MOV R5, #02H 017AH 7E02 MOV R6, #02H 017CH 7F02 MOV R7, #02H 017EH 1201BE LCALL 01BEH 0181H 0201B8 LJMP 01B8H 0184H B4211A CJNE A, #21H, 01A1H 0187H 7803 MOV R0, #03H 0189H D2D3 SETB RS0 018BH C2D4 CLR RS1 018DH 7903 MOV R1, #03H 018FH 7A03 MOV R2, #03H 0191H 7B03 MOV R3, #03H 0193H 7C03 MOV R4, #03H 0195H 7D03 MOV R5, #03H 0197H 7E03 MOV R6, #03H 0199H 7F03 MOV R7, #03H 019BH 1201BE LCALL 01BEH 019EH 0201B8 LJMP 01B8H 01A1H 7808 MOV R0, #08H 01A3H D2D3 SETB RS0 01A5H C2D4 CLR RS1 01A7H 7908 MOV R1, #08H 01A9H 7A08 MOV R2, #08H 01ABH 7B08 MOV R3, #08H 01ADH 7C08 MOV R4, #08H 01AFH 7D08 MOV R5, #08H 01B1H 7E08 MOV R6, #08H 01B3H 7F08 MOV R7, #08H 01B5H 1201BE LCALL 01BEH 01B8H D0D0 POP PSW 01BAH D0E0 POP ACC 01BCH 32 RETI 01BDH 32 RETI 01BEH D2D3 SETB RS0 01C0H C2D4 CLR RS1 01C2H C0E0 PUSH ACC 01C4H 9001DB MOV DPTR, #01DBH 01C7H 7809 MOV R0, #09H 01C9H 756507 MOV 65H, #07H 01CCH E6 MOV A, @R0 01CDH 93 MOVC A, @A+DPTR 01CEH F599 MOV SBUF, A 01D0H 3099FD JNB TI, 01D0H 01D3H C299 CLR TI 01D5H 08 INC R0 01D6H D565F3 DJNZ 65H, 01CCH 01D9H 8010 SJMP 01EBH 01DBH 40F9 JC 01D6H 01DDH 2430 ADD A, #30H 01DFH 19 DEC R1 01E0H 120278 LCALL 0278H 01E3H 00 NOP 01E4H 10FFFE JBC F8H.7, 01E5H 01E7H 1E DEC R6 01E8H FC MOV R4, A 01E9H 9D SUBB A, R5 01EAH BCD0E0 CJNE R4, #D0H, 01CDH 01EDH 22 RET 01EEH C2D4 CLR RS1 01F0H D2D3 SETB RS0 01F2H 740A MOV A, #0AH 01F4H 790B MOV R1, #0BH 01F6H 7A0B MOV R2, #0BH 01F8H 7B0B MOV R3, #0BH 01FAH 7C0B MOV R4, #0BH 01FCH 7D0B MOV R5, #0BH 01FEH 7E0A MOV R6, #0AH 0200H 7F0B MOV R7, #0BH 0202H 1201BE LCALL 01BEH 0205H 303034 JNB 30H, 023CH 0208H 12026C LCALL 026CH 020BH 790C MOV R1, #0CH 020DH 7A0E MOV R2, #0EH 020FH 7B0E MOV R3, #0EH 0211H 7C0F MOV R4, #0FH 0213H 7D0E MOV R5, #0EH 0215H 7E0D MOV R6, #0DH 0217H 7F0C MOV R7, #0CH 0219H 1201BE LCALL 01BEH 021CH 30301D JNB 30H, 023CH 021FH 12026C LCALL 026CH 0222H 7902 MOV R1, #02H 0224H 7A00 MOV R2, #00H 0226H 7B00 MOV R3, #00H 0228H 7C09 MOV R4, #09H 022AH 7D00 MOV R5, #00H 022CH 7E04 MOV R6, #04H 022EH 7F02 MOV R7, #02H 0230H 1201BE LCALL 01BEH 0233H 303006 JNB 30H, 023CH 0236H 12026C LCALL 026CH 0239H 0201F4 LJMP 01F4H 023CH C2D3 CLR RS0 023EH C2D4 CLR RS1 0240H 22 RET 0241H C2D4 CLR RS1 0243H D2D3 SETB RS0 0245H 7902 MOV R1, #02H 0247H 7A00 MOV R2, #00H 0249H 7B00 MOV R3, #00H 024BH 7C09 MOV R4, #09H 024DH 7D00 MOV R5, #00H 024FH 7E04 MOV R6, #04H 0251H 7F02 MOV R7, #02H 0253H 1201BE LCALL 01BEH 0256H 12026C LCALL 026CH 0259H C0D0 PUSH PSW 025BH D2D3 SETB RS0 025DH D2D4 SETB RS1 025FH 7A0A MOV R2, #0AH 0261H 7BFA MOV R3, #FAH 0263H 00 NOP 0264H 00 NOP 0265H DBFC DJNZ R3, 0263H 0267H DAF8 DJNZ R2, 0261H 0269H D0D0 POP PSW 026BH 22 RET 026CH C0D0 PUSH PSW 026EH D2D3 SETB RS0 0270H D2D4 SETB RS1 0272H 7A14 MOV R2, #14H 0274H 7C64 MOV R4, #64H 0276H 7BFA MOV R3, #FAH 0278H 00 NOP 0279H 00 NOP 027AH DBFC DJNZ R3, 0278H 027CH DCF8 DJNZ R4, 0276H 027EH DAF4 DJNZ R2, 0274H 0280H D0D0 POP PSW 0282H 22 RET