home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / c64 / utils / tbasic.arc / TB / DELAY (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  636 b   |  32 lines
  1. 0 REM DELAY  (AUG 25/84)       :
  2. 1 :
  3. 2 REM 1 STATEMENTS, 0 FUNCTIONS
  4. 3 :
  5. 4 REM KEYWORD CHARACTERS: 5
  6. 5 :
  7. 6 REM KEYWORD     ROUTINE  LINE  SER #
  8. 7 REM DELAY       DELA     3180   026
  9. 8 :
  10. 9 REM ===============================
  11. 10 :
  12. 106 .ASC"DELA[217]"
  13. 1106 .WORD DELA-1
  14. 3180 DELA JSR $AD8A ;EVAL NUM EXPR
  15. 3182 JSR $B7F7      ;CONV TO INT AT $14
  16. 3184 DE1 LDY #$0E   ;COUNT 1/100 SEC
  17. 3186 DE2 LDX #$85
  18. 3188 DE3 DEX
  19. 3190 BNE DE3
  20. 3192 DEY
  21. 3194 BNE DE2
  22. 3196 JAR $A82C      ;CHECK STOP KEY
  23. 3198 LDX $14        ;DECREMENT COUNTER
  24. 3200 BNE DE4
  25. 3202 LDY $15
  26. 3204 BEQ DE5       ;COUNTDOWN COMPLETE
  27. 3206 DEC $15
  28. 3208 DE4 DEC $14
  29. 3210 JMP DE1      ;NOT DONE YET
  30. 3212 DE5 RTS
  31. 3214 :
  32.