LDA #6
MOV C,A
:loop
NOP
NOP
NOP
NOP
NOP
PORT #0x0F
WAIT 200ms
PORT #0x00
WAIT 200ms
NOP
PAGE :?
CALL :loop3
NOP
NOP
NOP
PAGE :?
LOOPC :loop
NOP
NOP
:loop2
PORT #0x0F
:loop3
PORT #0x00
NOP
NOP
NOP
PAGE :?
LOOPD :loop2
NOP