;******************************
;***********TEST
;*********************

NAME SAMPLE

PROGRAM SEGMENT CODE
STACK SEGMENT IDATA

RSEG STACK
DS 10H

CSEG AT 00H
JMP START


RSEG PROGRAM


START:
CLR EA
MOV IP,#00H
MOV R1,#0FFH
MOV R5,#0FFH
CALL DELAY
JMP LOOP


LOOP:
MOV P1,#10101010B
MOV P2,#10101010B
MOV P0,#10101010B
JMP LOOP

DELAY:
DJNZ R4,$
MOV R4,#0FFH
DJNZ R5,DELAY
RET


END