60.asm

汇编语言开发的各种实用程序

           ORG 0000H
		   LJMP MAIN
		   ORG 0300H
MAIN:	   
SECOND     EQU 30H
START:     MOV SECOND, #00H
NEXT:      MOV  A,SECOND
           MOV  B,#10
		   DIV  AB
		   MOV  DPTR,#TABLE
		   MOVC A,@A+DPTR
		   MOV  P0,A
		   MOV  A,B
		   MOV  DPTR,#TABLE
		   MOVC A,@A+DPTR
		   MOV  P2,A
		   LCALL DELAY1S
		   INC  SECOND
		   MOV  A,SECOND
		   CJNE A,#60,NEXT
		   LJMP START
DELAY1S:   MOV R5, #100
D1:        MOV R6, #20
D2:        MOV R7,#248 
           DJNZ R7,$
		   DJNZ R6,D2
		   DJNZ R5,D1
		   RET
TABLE:     DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH 

           END