滚动显示16汉字源程序.docVIP

SI EQU P3.7 SCK EQU P3.6 RCK EQU P3.5 ORG 0000H JMP MAIN ORG 0030H MAIN: CALL INIT CALL INIT595 MOV DPTR ,#DATA0 YIZHEN: MOV A,DPH ADD A,R1 MOV DPH, A MOV A,R0 MOVC A,@A+DPTR MOV P0,A MOV A,R0 ADD A,#01H MOV R0,A CJNE R0,#00H,NEXT1 MOV A,R1 ADD A,#01H MOV R1,A NEXT1: MOV A,DPH ADD A,R1 MOV DPH,A MOV A,R0 MOVC A,@A+DPTR MOV P2,A MOV A,R0 ADD A,#01H MOV R0,A CJNE R0,#00H,NEXT2 MOV A,R1 ADD A,#01H MOV R1,A NEXT2: CALL LIGHT DJNZ R3,YIZHEN DJNZ R6,GONSHOW JMP NEWZHEN GONSHOW: MOV R1,#00H MOV R0,#00H MOV R3,#00H JMP YIZHEN NEWZHEN: MOV A,DPL ADD A,#01H MOV DPL,A MOV A,DPH ADDC A,#00H MOV DPH,A MOV A,R4 ADD A,#01H MOV R4,A CJNE R4,#00H,YIZHEN MOV A,R5 ADD A,#01H MOV R5,A CJNE R5,#04H,YIZHEN JMP NEXTSHOW NEXTSHOW: LJMP MAIN INIT: MOV SP,#30H MOV R0,#00H MOV R1,#00H MOV R3,#00H MOV P0,#0FFH MOV P2,#0FFH MOV R4,#00H MOV R5,#00H MOV R6,#30H MOV R7,#0FFH RET INIT595: MOV R2,#0FFH SETB C MOV SI,C CALL YIZHEN DJNZ R2,INIT595 CLR C MOV SI,C CALL YIWEI RET YIWEI: CLR RCK SETB RCK RET SUOCUN: CLR SCK SETB SCK RET LIGHT: CALL SUOCUN SETB C MOV SI,C CALL YIWEI DJNZ R7,GON CALL INIT595 GON: RET DATA0: DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH D