home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_12_1986_Transactor_Publishing.d64 / slide (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  117 lines
  1. 0 rem slide (aug 25/84)               :
  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/slide     slid     3830    043
  9. 8 :
  10. 9 rem  u/chkspr (3664/037)
  11. 10 rem u/raschk (3676/038)
  12. 11 rem u/direct (3930/044)
  13. 12 rem d/powers (3694/039)
  14. 13 :
  15. 14 rem  this module also contains one
  16. 15 rem  line from set sprites -- 3624
  17. 16 :
  18. 17 rem ================================
  19. 18 :
  20. 110 .asc "slid[197]"
  21. 1110 .word slid-1
  22. 3624 xs3 jmp $b248
  23. 3664 chkspr jsr $73
  24. 3666 chs1 jsr $b79e
  25. 3668 cpx #8
  26. 3670 bcs xs3
  27. 3672 rts
  28. 3674 ;
  29. 3676 raschk pha
  30. 3678 ras1 lda $d012
  31. 3680 sbc $d001,x
  32. 3682 bcc ras2
  33. 3684 cmp #$2b
  34. 3686 bcc ras1
  35. 3688 ras2 pla
  36. 3690 rts
  37. 3692 ;
  38. 3694 powers .byte 1,2,4,8,16,32,64,128
  39. 3696 ;
  40. 3830 slid jsr chs1
  41. 3832 stx $14
  42. 3834 jsr $aefd
  43. 3836 jsr direct
  44. 3838 pha
  45. 3840 lda $14
  46. 3842 pha
  47. 3844 lda #1
  48. 3846 sta t3
  49. 3848 jsr $79
  50. 3850 cmp #","
  51. 3852 bne sl1
  52. 3854 jsr $b79b
  53. 3856 stx t3
  54. 3858 sl1 pla
  55. 3860 tay
  56. 3862 asl
  57. 3864 tax
  58. 3866 pla
  59. 3868 jsr raschk
  60. 3870 bne sl2
  61. 3872 lda $d001,x
  62. 3874 sbc t3
  63. 3876 sta $d001,x
  64. 3878 rts
  65. 3880 sl2 cmp #2
  66. 3882 bne sl3
  67. 3884 clc
  68. 3886 lda $d001,x
  69. 3888 adc t3
  70. 3890 sta $d001,x
  71. 3892 rts
  72. 3894 sl3 cmp #1
  73. 3896 bne sl5
  74. 3898 lda $d000,x
  75. 3900 clc
  76. 3902 adc t3
  77. 3904 sta $d000,x
  78. 3906 bcc sl6
  79. 3908 sl4 lda $d010
  80. 3910 eor powers,y
  81. 3912 sta $d010
  82. 3914 rts
  83. 3916 sl5 lda $d000,x;subtract disp
  84. 3918 sec
  85. 3920 sbc t3
  86. 3922 sta $d000,x
  87. 3924 bcc sl4
  88. 3926 sl6 rts
  89. 3928 ;
  90. 3930 direct jsr $ad9e;eval direction
  91. 3932 bit $0d
  92. 3934 bmi di1
  93. 3936 jsr $b7a1
  94. 3938 cpx #4
  95. 3940 bcs di5
  96. 3942 txa
  97. 3944 rts
  98. 3946 di1 jsr $b6a6
  99. 3948 tay
  100. 3950 beq di3
  101. 3952 ldy #0
  102. 3954 lda ($22),y
  103. 3956 ldy #$0f
  104. 3958 di2 cmp dirs,y
  105. 3960 beq di4
  106. 3962 dey
  107. 3964 bpl di2
  108. 3966 di3 jmp $af08
  109. 3968 di4 tya
  110. 3970 lsr
  111. 3972 lsr
  112. 3974 rts
  113. 3976 di5 jmp $b248
  114. 3978 ;
  115. 3980 dirs .asc "[213]u[206]n[210]r[197]e[196]d[211]s[204]l[215]w"
  116. 3982 ;
  117.