mirror of
https://github.com/dwsJason/xrick2gs.git
synced 2025-01-08 00:29:22 +00:00
1 line
575 B
Plaintext
1 line
575 B
Plaintext
MACRO
|
|
&lab _pushpage
|
|
&lab lcla &addr
|
|
&addr seta 254
|
|
lcla &loop
|
|
&loop seta 128
|
|
.ploop
|
|
pei &addr
|
|
&addr seta &addr-2
|
|
&loop seta &loop-1
|
|
aif &loop,^ploop
|
|
MEND
|
|
macro
|
|
&lab asl4
|
|
&lab lcla &ct
|
|
&ct seta 4
|
|
.top
|
|
asl a
|
|
&ct seta &ct-1
|
|
aif &ct>0,^top
|
|
mend
|
|
macro
|
|
&lab _auxON
|
|
&lab lda >$00C068
|
|
ora #$0030
|
|
sta >$00C068
|
|
mend
|
|
macro
|
|
&lab _auxOFF
|
|
&lab lda >$00C068
|
|
and #$FFCF
|
|
sta >$00C068
|
|
mend
|
|
macro
|
|
&lab _shadowON
|
|
&lab lda >$00C035
|
|
and #$FFF7
|
|
sta >$00C035
|
|
mend
|
|
macro
|
|
&lab _shadowOFF
|
|
&lab lda >$00C035
|
|
ora #$0008
|
|
sta >$00C035
|
|
mend
|
|
|
|
|