home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8907a.d64 / screens.src (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  44 lines
  1. 10 OPEN1,8,2,"SCREENS.PAC,P,W"
  2. 20 SYS9*4096:.OPT O1:*=$8000
  3. 30 .ASC "PRO[195] MODE,PRO[195] CLEAR,PRO[195] PEN,PRO[195] LORES:PRO[199]:"
  4. 40 COL0 = 53281:COL1 = 53282:COL2 = 53283:COL3 = 53284:ZP1 = 254
  5. 50 JMP MOD:JMP CLR:JMP PN:JMP LRS
  6. 100 ; ********************
  7. 101 ; *** MODE COMMAND ***
  8. 105 MOD JSR $B79E:CPX #2:BCS ERROR:TXA:PHA:JSR $E200:CPX #2:BCS ERROR
  9. 110 PLA:STA 56576:TXA:EOR #1:ORA #40:STA 53272
  10. 115 TXA:ASL A:ASL A:ASL A:ASL A:ORA #8:STA 53270:LDA #59:STA 53265:RTS
  11. 130 ; *******************
  12. 131 ; *** (null) COMMAND ***
  13. 135 PN JSR $B79E:CPX #4:BCS ERROR:TXA:PHA:JSR $E200:PLA:TAY:TXA:STA 53281,Y:RTS
  14. 140 ; *** ILLEGAL QUANTITY ***
  15. 145 ERROR LDX #14:JMP $A43A
  16. 150 ; *********************
  17. 151 ; *** CLEAR COMMAND ***
  18. 160 CLR LDA 56576:AND #3:CMP #2:BCS ERROR
  19. 161 LDA 53270:AND #16:BEQ L162:JSR MCCLR
  20. 162 L162 JSR COLCLR
  21. 200 ; *** BITMAP CLEAR ***
  22. 205 ; ********************
  23. 210 LDA 56576:EOR #3:AND #3:SEC:ROR:ROR:ROR:STA L240+2:LDA #0:LDX #32
  24. 220 ; ** X PAGES -> A **
  25. 230 FILL LDY #0
  26. 240 L240 STA $0000,Y:INY:BNE L240:INC L240+2:DEX:BNE L240:RTS
  27. 300 ; *** FARBRAM CLEAR ***
  28. 310 ; *********************
  29. 330 COLCLR LDA 56576:AND #3:EOR #3:CLC:ROR:ROR:ROR
  30. 340 ORA #8:STA L240+2:LDX #4:LDA 53270:AND #16:BNE L344
  31. 342 LDA COL0:JMP L348
  32. 344 L344 LDA COL2:AND #15
  33. 348 L348 AND #15:STA VAR:LDA COL1:ASL A:ASL A:ASL A:ASL A:ORA VAR:JMP FILL
  34. 355 ; *** FARBRAM CLEAR $D8 ***
  35. 356 ; *************************
  36. 358 MCCLR LDA COL0:STA 53281:LDA #$D8:STA L240+2:LDA COL3:LDX #4:BNE FILL
  37. 790 ; *********************
  38. 791 ; *** LORES COMMAND ***
  39. 820 LRS LDA #$FF:STA 56576
  40. 830 LDA #4:STA 648:LDA #21:STA 53272
  41. 840 LDA 53265:AND #223:STA 53265:RTS
  42. 1000 VAR .BYTE 0
  43. 1020 .END:CLOSE1
  44.