home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / HORIZ-SCROLL-RTN.PAL (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.6 KB  |  134 lines
  1. 100 REM OPEN2,8,2,"0:SCROLLER.OBJ,P,W"
  2. 105 :
  3. 110 :
  4. 115 REM WRITTEN BY KEVIN J ZIESE 7/3/87
  5. 120 :
  6. 125 REM EMAIL ME AT DESTINATION UNKNOWN
  7. 130 REM             808-262-0545 24 HRS
  8. 135 :
  9. 140 :
  10. 145 SYS 700
  11. 150 .OPT P,OO
  12. 155 ;
  13. 160 ;      .OPT P,O2  (FOR DISK I/O)
  14. 165 ;
  15. 170 ;
  16. 175 ;
  17. 180 *=$CB00
  18. 185 ;
  19. 190 IRQLO  = $0314
  20. 195 IRQHI  = $0315
  21. 200 :
  22. 205 HIDDEN = $07E7
  23. 210 START  = $07C1
  24. 215 FINISH = $07C0
  25. 220 :
  26. 225 RASTHI = $D011
  27. 230 RASCTR = $D012
  28. 235 SCROLL = $D016
  29. 240 TYPCHR = $D018
  30. 245 IRQREG = $D019
  31. 250 ENLIRQ = $D01A
  32. 255 :
  33. 260 BORDER = $D020
  34. 265 BCKRND = $D021
  35. 270 CIACLK = $DC0D
  36. 275 EXIT   = $FEBC
  37. 280 CHROUT = $FFD2
  38. 285 NRMIRQ = $EA31
  39. 290 :
  40. 295 ;
  41. 300 BEGIN   LDA #$16
  42. 305 :       STA TYPCHR
  43. 310 :       LDA #$00
  44. 315 :       STA BORDER
  45. 320 :       STA BCKRND
  46. 325 :       LDA #$11
  47. 330 :       LDY #$18
  48. 335 LFOUT   JSR CHROUT
  49. 340 :       DEY
  50. 345 :       BNE LFOUT
  51. 350 :       LDY #$27
  52. 355 :       LDA #$20
  53. 360 SPCOUT  JSR CHROUT
  54. 365 :       DEY
  55. 370 :       BNE SPCOUT
  56. 375 :       LDA #$13
  57. 380 :       JSR CHROUT
  58. 385 ENABLE  SEI
  59. 390 :       LDA #<NEWIRQ
  60. 395 :       STA IRQLO
  61. 400 :       LDA #>NEWIRQ
  62. 405 :       STA IRQHI
  63. 410 :       LDA RASTHI
  64. 415 :     
  65. 420 :       STA RASTHI
  66. 425 :       LDA #$BA
  67. 430 :       STA RASCTR
  68. 435 :       LDA #$81
  69. 440 :       STA ENLIRQ
  70. 445 :       LDX #$00
  71. 450 :       STX $FB
  72. 455 :       CLI
  73. 460 :       RTS
  74. 465 NEWIRQ  LDA IRQREG
  75. 470 :       STA IRQREG
  76. 475 :       BMI OURIRQ
  77. 480 :       LDA CIACLK
  78. 485 :       CLI
  79. 490 :       JMP NRMIRQ
  80. 495 OURIRQ  LDA $02
  81. 500 :       CMP #$01
  82. 505 :       BEQ HSKEEP
  83. 510 :       LDA #$01
  84. 515 :       STA $02
  85. 520 :       STA RASCTR
  86. 525 :       JSR CHRMOV
  87. 530 :       JMP EXIT
  88. 535 HSKEEP  LDA #$    
  89. 540 :       STA $02
  90. 545 :       LDA #$E7
  91. 550 :       STA RASCTR
  92. 555 :       LDA #$C8
  93. 560 :       STA SCROLL
  94. 565 :       JMP EXIT
  95. 570 CHRMOV  LDX $FC
  96. 575 :       DEX
  97. 580 :       STX $FC
  98. 585 :       STX SCROLL
  99. 590 :       CPX #$FF
  100. 595 :       BEQ RESETR
  101. 600 :       RTS
  102. 605 RESETR  LDX #$07
  103. 610 :       STX $FC
  104. 615 :       STX SCROLL
  105. 620 :       LDX #$00
  106. 625 MOVER   LDA START,X
  107. 630 :       STA FINISH,X
  108. 635 :       INX
  109. 640 :       CPX #$27
  110. 645 :       BNE MOVER
  111. 650 :       LDX $FB
  112. 655 :       INX
  113. 660 :       ST    
  114. 665 GETTXT  LDA TEXT,X
  115. 670 :       CMP #$00
  116. 675 :       BNE CONT
  117. 680 :       LDX #$00
  118. 685 :       STX $FB
  119. 690 :       BEQ GETTXT
  120. 695 CONT    STA HIDDEN
  121. 700 :       RTS
  122. 705 :
  123. 710 :
  124. 715 TEXT    .ASC " THIS IS ONLY A TEST"
  125. 720 :       .ASC " OF ZARF'S SCROLLER!"
  126. 725 :       .ASC "  AND IT'S COMPLETEL"
  127. 730 :       .ASC "Y RELOCATABLE TOO!!!"
  128. 735 :       .BYTE $20,$20,$20,$20,$20
  129. 740 :       .BYTE $20,$20,$20,$20,$20
  130. 745 :       .BYTE $00
  131. 750 :
  132. 755 .END
  133. 6682     
  134.