*
DELAYMS
*
MSCNT    EQU   $0CA
:DELAY
         CPY   #0
         BEQ   :EXIT
         NOP
         CPY   #1
         BNE   :DELAYA
         JMP   :LAST1
:DELAYA
         DEY
:DELAY0
         LDX   #MSCNT
:DELAY1
         DEX
         BNE   :DELAY1
         NOP
         NOP
         DEY
         BNE   :DELAY0
:LAST1
         LDX   #MSCNT-3
:DELAY2
         DEX
         BNE   :DELAY2
:EXIT
         RTS