home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_13_1986_Transactor_Publishing.d64 / speed (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  999b  |  72 lines
  1. 0 rem speed (guido strben 11/85)      :
  2. 1 :
  3. 2 rem  1 statement, 0 functions
  4. 3 :
  5. 4 rem keyword characters:  5
  6. 5 :
  7. 6 rem keyword   routine   line   ser #
  8. 7 rem s/speed   spd      12448    171
  9. 8 :
  10. 9 rem =================================
  11. 10 :
  12. 153 .asc "spee[196]"
  13. 1153 .word spd-1
  14. 2125 jsr morvec
  15. 2555 jsr kilvec
  16. 9162 morvec =*
  17. 9165 jsr spdon
  18. 9178 rts
  19. 9180 ;
  20. 9182 kilvec =*
  21. 9185 jsr spdoff
  22. 9198 rts
  23. 9200 ;
  24. 12448 spd jsr $b79e
  25. 12450 stx xbyte
  26. 12452 cpx #0
  27. 12454 beq spdoff
  28. 12456 lda $0326
  29. 12458 cmp prvec
  30. 12460 beq sp1
  31. 12462 lda $0327
  32. 12464 cmp prvec+1
  33. 12466 bne sp3
  34. 12468 sp1 lda #<dly
  35. 12470 ldy #>dly
  36. 12472 sp2 sta $0326
  37. 12474 sty $0327
  38. 12476 sp3 rts
  39. 12478 ;
  40. 12480 dly pha
  41. 12482 txa
  42. 12484 pha
  43. 12486 tya
  44. 12488 pha
  45. 12490 ldx xbyte
  46. 12492 dl1 ldy #$c8
  47. 12494 dl2 dey
  48. 12496 bne dl2
  49. 12498 dex
  50. 12500 bne dl1
  51. 12502 pla
  52. 12504 tay
  53. 12506 pla
  54. 12508 tax
  55. 12510 pla
  56. 12512 jmp (prvec)
  57. 12514 ;
  58. 12516 spdon lda $0326
  59. 12518 ldy $0327
  60. 12520 sta prvec
  61. 12522 sty prvec+1
  62. 12524 rts
  63. 12526 ;
  64. 12528 spdoff lda prvec
  65. 12530 ldy prvec+1
  66. 12532 bne sp2
  67. 12534 ;
  68. 12536 .if >(*&255)+1: *=*+(*&1)
  69. 12538 prvec .word 0
  70. 12540 xbyte .byte 0
  71. 12542 ;
  72.