63 lines
708 B
NASM
63 lines
708 B
NASM
case on
|
|
mcopy asmglue.macros
|
|
|
|
ROMIN gequ $E0C081
|
|
LCBANK1 gequ $E0C08B
|
|
LCBANK2 gequ $E0C083
|
|
STATEREG gequ $E0C068
|
|
|
|
ForceLCBank1 start
|
|
short i,m
|
|
lda >STATEREG ;get original state reg.
|
|
tax
|
|
php
|
|
sei
|
|
lda >LCBANK1 ;force LC bank 1
|
|
lda >LCBANK1
|
|
plp
|
|
long i,m
|
|
txa
|
|
rtl
|
|
end
|
|
|
|
ForceLCBank2 start
|
|
short i,m
|
|
lda >STATEREG ;get original state reg.
|
|
tax
|
|
php
|
|
sei
|
|
lda >LCBANK2 ;force LC bank 2
|
|
lda >LCBANK2
|
|
plp
|
|
long i,m
|
|
txa
|
|
rtl
|
|
end
|
|
|
|
ForceRomIn start
|
|
short i,m
|
|
lda >STATEREG ;get original state reg.
|
|
tax
|
|
php
|
|
sei
|
|
lda >ROMIN ;force ROM in to Language Card space
|
|
lda >ROMIN
|
|
plp
|
|
long i,m
|
|
txa
|
|
rtl
|
|
end
|
|
|
|
RestoreStateReg start
|
|
short m
|
|
plx
|
|
pla
|
|
ply
|
|
pha
|
|
phx
|
|
tya
|
|
sta >STATEREG
|
|
long m
|
|
rtl
|
|
end
|