home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 81
/
081.d81
/
screencontrol.s
< prev
next >
Wrap
Text File
|
2022-08-26
|
615b
|
68 lines
.org 828
.obj "@0:screencontrol.o"
lda $314
cmp #<routine
bne enable
lda $315
cmp #>routine
bne enable
disable'interrupt sei
lda storage
sta $314
lda storage+1
sta $315
cli
rts
enable lda $314
sta storage
lda $315
sta storage+1
sei
lda #<routine
sta $314
lda #>routine
sta $315
cli
rts
routine ldy #39
lda 646 ;get current color
- sta (243),y
dey
bpl -
lda 197
cmp #17 ;r
beq reverse
cmp #30 ;u
bne exit
unreverse ldy #39
- lda (209),y
bpl +
and #127
sta (209),y
+ dey
bpl -
jmp exit
reverse ldy #39
- lda (209),y
bmi +
ora #128
sta (209),y
+ dey
bpl -
exit jmp (storage)
storage .buf 2