EXTRN 	CODE(OUT)
EXTRN	DATA(STATE)
VAR	SEGMENT DATA
STEP	SEGMENT CODE
STACK	SEGMENT	IDATA
RSEG	STACK
	DS 	10H

RSEG	VAR
PHASE:	DS 	1

RSEG	STEP
        ORG     0000H
        LJMP    START
START:	MOV	PHASE,#0
	MOV	SP,#STACK-1
LOOP:	MOV	STATE,PHASE
	LCALL	OUT
	INC	PHASE
	MOV	A,PHASE
	ANL	A,#03H
	MOV	PHASE,A
	SJMP	LOOP
	END