显示子程序.docVIP

显示子程序： ORG　055CH MOV R0,#79H MOV @R0,#01H INC R0 MOV @R0,#01H INC R0 MOV R0,#05H INC R0 MOV @R0,#16H INC R0 MOV @R0,#1BH INC R0 MOV @R0,#1EH MOV DPTR,#4F00H MOV A,#0C3H MOVX @DPTR,A AJMP DISUP ORG 0772H MOV R0,#79H MOV R3,#01H MOV A,R3 MOV DPTR,#4F01H MOVX @DPTR,A INC DPTR MOV A,@R0 ADD A,#12H MOVC A,@A+PC JNB F0,DISUP2 SETB a,7 MOVX @DPTR,A ACALL D2MS INC R0 MOV A,R3 JB A,5,DISUP3 RL A MOV R3,A AJMP DISUP1 ORG 0792H TABLE:DB 3FH DB 06H DB 5BH DB 4FH DB 66H DB 6DH DB 7DH DB 07H DB 7FH DB 6FH DB 77H DB 7CH DB 39H DB 5EH DB 79H DB 71H DB 73H DB 3EH DB 3EH DB 31H DB 48H DB 1CH DB 23H DB 40H DB 03H DB 18H DB 80H DB 00H DB 3DH DB 76H DB 38H DB 1EH ORG 07B1H D2MS :MOV R7,#02H D2MS1:MOV R6,#0FFH DJNZ 程序清单： ORG LJMP IINT0 ORG 0080H MAIN:MOV SP,#60H MOV PSW,#00H MOV 71H,#14H MOV 72H,# MOV 73H,#00H MOV 74H,#00H MOV 75H,#00H MOV 76H,#00H MOV TMOD,#01H MOV TL0,#0B0H MOV TH0,#3CH SETB TR0 ；，开中断 SETB EA SETB ET0 JMCGS:JMB P1.2,KK NOP NOP JB P1.2,KK NOP MOV 70H,#01H KK:LJMP JMCGS ；等待中断 ORG 0100H ；中断服务子程序 IINT0:PUSH A ；入栈保护 PUSH PSW CLR EA ；关中断 CLR TR0 DJNZ 71H,ZDFH ；不到2秒直接中断返回 MOV A,70H MOV B,72H MVL AB MOV R6,B MOV R5,A MOV R2,#02H LCALL CHUFA MOV 73H,R5 LCALL KZCX MOV 74H,73H ZDFH:SETB EA ；开中断 SETB ET0 MOV TMOD,#01H 0重新赋初值 MOV TL0,#0B0H MOV TH0,#3CH SETB TR0 POP PSW ；出栈 POP A RETI ；中断返回 CHUFA:MOV R7,#08H CHU1:CLR C MOV A,R5 RLC A MOV R5,A MOV A,R6 RLC A MOV 07H,C CLR C SUBB A,R2 JB 07H,CHU2 JNC CHU2 ADD A,R2 AJMP CHU3 CHU2:INC R5 CHU3:MOV R6,A JNE R7,CHU1 RET KZCX:MAIN A,73H ；控制子程序 CJNE A,74H,KZ2 ZJFH:RET ；直接返回 KZ2:JC PFKZ