| 1234567891011121314151617181920212223 |
- ; export symbols
- XDEF OneMSDelay,FourMSDelay
- XREF __SEG_END_SSTACK
- DelayLoop: ;loop execution
- DEY ;decrement our delay value by 1
- BNE DelayLoop ;if we have not decreased our delay value to zero, continue
- ;decrementing our array value
- BEQ Return
-
- OneMSDelay: ;implement a 1 ms delay
- PSHY ;preserve register
- LDY #1000
- BRA DelayLoop
- FourMSDelay
- PSHY ;preserve register
- LDY #4000 ;implement a 4 ms delay
- BRA DelayLoop
- Return:
- PULY
- RTS
|
