Code: ;=======================================================================
.CR 8048
.TF SVETOFOR.BIN,BIN
.LI on
;-----------------------------------------------------------------------
DIS TCNTI
LOOP1
MOV R1,#PATTERN
LOOP
MOV A,R1
MOVP A,@A
OUTL P1,A
INC R1
MOV A,R1
MOVP A,@A
JZ LOOP1
CALL DELX
INC R1
JMP LOOP
;-----------------------------------------------------------------------
DELX
MOV R2,A
DELXLOOP
CALL DEL05
DJNZ R2,DELXLOOP
RET
;-----------------------------------------------------------------------
DEL05
MOV R0,#60
DEL05LOOP
CALL DELAY
DJNZ R0,DEL05LOOP
RET
;-----------------------------------------------------------------------
DELAY
CLR A
MOV T,A
STRT T
DELOOP
JTF DELOK
JMP DELOOP
DELOK
STOP TCNT
RET
;=======================================================================
PATTERN .DB $FB,8
.DB $F9,4
.DB $FE,4
.DB $FF,1
.DB $FE,1
.DB $FF,1
.DB $FE,1
.DB $FD,4
.DB $FF,0
;=======================================================================
| 
