4051zd.asm

16个LED旋转时钟

ORG 0000H
AJMP MAIN
ORG 0003H
AJMP TZ
ORG 000BH
AJMP JS
ORG 0013H
AJMP XZ
ORG 0030H


MAIN:LCALL YY
	  CLR  P1.2

	  	              CLR A
                      MOV R0,#20H
                   DD:MOV @R0,A
                      INC R0
                      CJNE R0,#5FH,DD
					   


	  MOV P3,#0FFH
	  MOV TMOD,#01H
	  MOV TH0,#2FH
	  MOV TL0,#0AAH
      SETB EA
	  SETB ET0
	  SETB EX0
	  SETB EX1
	  SETB TR0
     


 MA:JB 2BH.1,TX
	MOV A,20H
	CJNE A,#60,TW	  ;60
	SETB 2BH.1
	CLR P1.2
	MOV 20H,#00H
	AJMP MA
 TX:MOV A,20H
	CJNE A,#60,TW  ;60
	INC 23H
	MOV 20H,#00H
	MOV A,23H
	CJNE A,#59,TW	 ;59
	CLR 2BH.1
	SETB P1.2
	MOV 20H,#00H
	MOV 23H,#00H
 TW:AJMP MA

	  JS:MOV TH0,#2FH
	     MOV TL0,#0AAH
		 INC 2AH
		 MOV A,2AH
		 CJNE A,#25,RET_X
		 INC 20H
		 MOV 2AH,#00H
   RET_X:RETI


    TZ:
		 CLR P1.2
		  LCALL YY
		 RETI


	 XZ:
		 SETB P1.2
		 LCALL DSY
		 CLR P1.2

		 RETI

				 DSY:MOV R6,#80H
				  NX:MOV R5,#0FFH
				  WY:MOV R4,#0FFH
					 DJNZ R4,$
					 DJNZ R5,WY
					 DJNZ R6,NX
					 RET
			  
				  YY:MOV R6,#0FFH
				 NX1:MOV R5,#0FFH
					 DJNZ R5,$
					 DJNZ R6,NX1
					 RET

END