INCLUDE HT48R05A-1.INC
DATA .SECTION 'DATA'
D1 DB ?
D2 DB ?
D3 DB ?
CODE .SECTION 'CODE'
	ORG 0
START:
	CLR INTC
	CLR PAC
LOOP:
	CLR PA0
	call delay1
	set pa0
	call delay2
	jmp loop
;------------------------------------
delay1:
	MOV A,1
	MOV D3,A
	mov a,D3
	mov D1,A
S1:
	SDZ D1
	JMP S1
RET
;------------------------------------
DELAY2:
	MOV A,255
	SUBM A,D3
	MOV D2,A
S2:
	SDZ D2
	JMP S2
	
RET
;----------------------------------
	INC D3
END

