s12-2.asm

51单片机程序教程

	ORG 0000H
	LJMP MAIN
	ORG 030H
MAIN:	MOV TMOD,#60H
	MOV TH1,#0F6H
	MOV TL1,#0F6H
	MOV IE,#00H
	SETB TR1
	MOV P1,#00H
	ACALL DEL
LOOP:	JBC TF1,LOOP1
      	AJMP LOOP
LOOP1:	INC A
	MOV P1,A
	ACALL DEL
	AJMP LOOP
DEL: 	MOV R7,#014H
DEL1:	MOV R6,#0FFH
DEL2:   MOV R5,#01FH
DEL3:	DJNZ R5,DEL3
	DJNZ R6,DEL2
	DJNZ R7,DEL1
	RET
	END