home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_20_1987_Transactor_Publishing.d64 / memlane1 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  434b  |  17 lines
  1. 140 sei          ;no interrupions please
  2. 141 lda #7e
  3. 143 sta ff00     ;ram 1 with i/o visible
  4. 146 lda #f1
  5. 148 sta d508     ;bit 0 at $d508 is the key to this trick
  6. 151 lda #20
  7. 153 sta d507     ;swap pages $00 and $20
  8. 156 ldx #2       ;$00 and $01 don't swap
  9. 158 sta 2000,x   ;store blanks at "original" zero page loop
  10. 161 inx
  11. 162 bne 0158
  12. 164 lda #0       ;restore the registers
  13. 166 sta d508
  14. 169 sta d507
  15. 172 sta ff00
  16. 175 brk          ;return to monitor
  17.