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