; 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