picbaisc pro compiler routines "question!"

[mister_e]

pause 5
pause 10
pause 20
pause 50
pause 100
pause 500

60 words

a var word

a=5:gosub DelayMs
a=10:gosub DelayMs
a=20:gosub DelayMs
a=50:gosub DelayMs
a=100:gosub DelayMs
a=500:gosub DelayMs


DelayMs:
pause a
return

83 words

a var word
asm
DelayMs macro Delay
        MOVE?CW Delay,_a
        L?CALL _DoDelay
        endm
endasm


@ DelayMs 5
@ DelayMs 10
@ DelayMs 20
@ DelayMs 50
@ DelayMs 100
@ DelayMs 500

DoDelay:
        pause a
        return

83 words

@ Ifndef PAUSE?C
  pause 0
@  endif 

asm
DelayMs macro Delay
        PAUSE?C Delay
        endm
endasm


@ DelayMs 5
@ DelayMs 10
@ DelayMs 20
@ DelayMs 50
@ DelayMs 100
@ DelayMs 500

60 words