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 ;======================================================================= |