|
|
本帖最后由 yandagui 于 2016-11-19 23:11 编辑 & | d" \0 Q3 [$ m, P
5 H6 a0 l8 Z& n: \
[FC][魂斗罗旋风终板END暂停显菜单] D" E! v& T* p* k8 @
作者:FlameCyclone(flamecyclone.ys168.com)
. ?4 Q6 c' z3 O% m时间:2016/11/19 21:46:003 i6 D; ], k7 a) T" ~! u6 f
更新日志:
1 \+ i5 U2 b& r% ]$ H+ L7 T2016.11.19:加入暂停显菜单(共5页).! ~# C+ M( K0 U( |# H, Y
2016.11.12:加入无限跳跃.' ?8 |; A& d Q
2016.11.12:加入速度调节.
2 B- j: Y" E( i3 y; G1 g( A2016.11.11:加入敌我子弹对消功能.6 r0 m: H2 Q2 X$ ?# b' _7 e
2016.11.11:加入全屏闪灭功能.
1 f6 |" M; K0 c1 x/ u2016.06.08:加入全屏瞄准功能.
. P& ]) J& V+ v3 X" T! O2016.05.31:加入弹速调节功能.
! T' ^& z7 Y9 ?' k2016.01.01:加入高难度模式.
& m3 w' {5 G. i2015.12.12:修复消除威胁不足,使得移动BOSS关卡(第2,4,5,6)正常通过.& s/ s/ o8 P8 k( R; {: o C
2014.07.05:由于对打功能不完善,直接去除,更改为生命锁定.0 F- c z* |) W, w0 C7 `
2014.07.05:双人切换功能优化.& \) s* f [$ l
2014.06.01:修复第三关浮空到BOSS前必须关闭浮空后跳跃才能见BOSS的麻烦.
" d: h9 o+ ]2 E j, M2014.06.01:取消生命锁定,改为生命锁定模式下剩余生命不会少于一条.
3 S/ P4 j, m4 Z M2014.01.18:修复GAME OVER字样只有G和O的错误,原来想拉大字母间距离,看来行不通.$ j% l! C4 g' b( M( C- n9 c& Z
2014.01.18:浮空模式下,P2飞行高度未限制导致死亡,原来是指令本该用绝对X变址的被用成了绝对寻址.
. W- ]" p6 t* d o' x6 i6 e* \5 l6 L; \2014.02.08:拿手机无聊时又发现一些错误,所以修正生命剩余勋章显示的错误(某天用读卡器插在DVD上测试发现机器读不了卡,原因是目录级数超过三级,只有刻录成光盘来测试,结果发现生命勋章的显示竟然无压力!)
$ s& w" e5 R V8 p: n Q2014.02.13:加入自动演示通关.7 h9 p% Q% s% b( X# a3 N( A |5 W
内容:& A' M7 F2 q @( o
23.暂停菜单: 暂停后,自动显示菜单,选择键翻页,方向键和BA键进行各种功能的开关操作.
0 A0 A6 t, g( T5 I8 h' c, Z K22.无限跳跃: 暂停后,选择键4次,按下开启,开启后游戏时无限跳跃.
+ z, ?" |' \ I# p9 I8 v" N21.速度调节: 暂停后,选择键4次,按左右调节行走速度(0-3级).
: |& s: {' _- h# m9 i r, E20.子弹对消: 暂停后,选择键4次,再按A键切换,此时敌人子弹可以打掉.5 {$ S+ `$ L$ W" G4 V
19.全屏闪灭: 暂停后,选择键4次,再按B键切换,开启后游戏时按选择键屏幕内敌人闪灭.$ x1 X5 b, R$ N1 m. N( G
18.全屏瞄准: 暂停后,选择键2次,再按B开启/关闭,子弹对消开启时无效.6 d$ [& `$ E, h6 x
17.弹速调节: 暂停后,选择键3次,下开启,非暂停时按选择键调节,默认为1级,共5级.
. \. P/ i C. J( L4 q16.困难模式: 暂停后,选择键3次,右键切换,我不相信你能够无伤通关.; @0 {: j& ?1 T/ K( w' e' j9 B3 ]
01.子弹切换: 暂停后,选择键0次,上=快S,下=快L,左=快M,右=快F,B=快普通,A=取消当前子弹加速状态.
5 H; g7 g1 h1 E5 R02.无敌锁定: 暂停后,选择键1次,上开启/关闭,不用讲了,金身无敌./ M% X7 \: f% Z% _. E% l" s
03.生命锁定: 暂停后,选择键1次,下开启/关闭,生命锁定为16条.
; _) I6 s1 y! A( u8 L! }" _, p04.角色双控: 暂停后,选择键1次,左开启/关闭,无非就是主机控制副机.
- q0 Q- ]5 w! i8 L* L% S/ u1 D% F05.生命底限: 暂停后,选择键1次,右开启/关闭,锁定剩余生命数不少于1条.
9 y ^8 o8 X9 [3 u4 @4 e' C% s06.一击必杀: 暂停后,选择键1次,再按B开启/关闭,即使是第8关BOSS,一发花生米依然要其老命.
& i8 y6 M/ S! T( L; a# K07.角色浮空: 暂停后,选择键1次,再按A开启/关闭,第三关浮空时按选择键向上卷画面轴.
^, n, K, \# x3 _0 O08.弹数加强: 暂停后,选择键2次,上开启/关闭,此时所有子弹发射数为15发.
& I: @# ?8 Y- F. N( h2 B09.皮肤更换: 暂停后,选择键2次,下开启/关闭,主机开启时橙黄色,副机开启时为蓝色.
! S& D( B, E; h/ u# Y% ]( h10.混合子弹: 暂停后,选择键2次,左开启/关闭,此时连射时所有子弹混合.6 ~! Z" ?8 ]' ^# O5 r' \1 b
11.敌人锁定: 暂停后,选择键2次,右开启/关闭,此时敌人原位跑不动., l ]5 u2 R; A/ ]1 \1 e: k
12.跳过一关: 暂停后,选择键3次,再按B使用,使用后可以直接到下一关.
& M" x& v. U2 o' ]13.单双切换: 暂停后,选择键3次,再按A键切换单双人游戏模式. y$ J1 H/ R4 k0 v$ B) }& A6 q
14.子弹方向: 暂停后,选择键3次,上开启/关闭,开启后发射的子弹攻击方向会随着操作的方向按键变化,第二关和第四关的小关建议关闭(开启的话打中敌人太难了哦).5 F& C" A! e! c Y$ s+ P
15.消除威胁: 暂停后,选择键3次,左开启/关闭,此时游戏时按B键使得移动物体被消除。
2 I- r ~: s( u1 h( gA.做了一些汉化(小字体),剧情,关卡名及通关后的文字未汉化.
- M0 V0 p4 J7 y4 @* {* zB.自动演示通关,双人合体打通关,演示时有背景音乐,通关后一样会有结尾及恐怖台词,之后游戏进入选关(相当于游戏自动开始了).注:通关后P1及P2会获得16条生命!也就是说看完演示自动开始后第一版有16条生命!! _ n7 l# ~! L+ [4 n4 \
C.生命显示加强:最大显示15个剩余生命勋章!电脑端请开启精灵超过8个(这样勋章不会闪烁),手机端认命了,不过不影响正常操作.1 r+ Z5 t% o2 V3 G: i; \
( {' T7 t0 b x# E$ O
如果有什么好的修改建议,恳请通过QQ(1490868135)联系我(也许我不在线,可以留言在QQ里)
' S. n! t/ t/ u3 o5 y y4 I4 A& u6 P欢迎大家转载,转载时必须注明出处.2 ]4 E( ?+ r1 B9 n, a1 Y! w7 U
l2 y' Q5 A: m6 E# K: K# F; J
- T4 M% ~7 B' g6 }) s( W1 g: p; i- @5 q* R$ M/ m
忙了一个星期,觉都没睡好,眼睛也疲惫不堪啊.终于找到解决方法了,目前VIRTUANES运行不了,请使用其他模拟器玩." O: L G0 O# b6 i+ C
这几天的劳动成果如下:- .ORG $B400/ g8 ]" B$ g6 ]& ]) }
- 6 D' ?8 j( q7 |; I; h* |6 P9 }! O0 q- x
- ' P! ?8 [7 x" m& N; w( B) R: h5 _
- PROREG:! G( U0 F" r5 K7 N3 [& N `
- PHA
" o' k7 y+ }$ F+ V6 [ - TXA
; m) r+ x2 j8 K1 C6 f - PHA+ o# \9 ^8 L+ Z8 G$ [, Y+ {6 |! T
- TYA9 e7 N* L G) j* m5 B" q4 S# [
- PHA& G7 A4 ?% c ?
- LDA $25
8 n% k) i9 X& @' v- i - CMP #$01) A5 F* d" U! `9 ? v1 Y3 L1 z- C
- BNE RE
3 {% ]- s! A ~* x$ S* A; J - LDA $010A; |/ r/ h* H$ b( u5 n. H
- CMP #$00
2 U4 ]3 k! y9 R+ h - BEQ P1
. M- K% Q/ j: P5 L" J -
. U; p- o& `- L6 g) { - RE:" M3 P1 N2 R0 m" o$ h6 I9 v
- JMP PPUWRITE* V) E; Z8 p3 Z9 d# [: F
-
4 l- r. L3 h8 y: D M2 U3 @% n - P1: ; 条件判断
& l6 W5 D3 N* |4 _2 K - LDA $7FFF
8 w6 ~1 W! B u6 _$ E! T - CMP #$FF0 h8 x9 `* D9 a1 {. T3 `; Z
- BNE P1RP
3 ~8 b4 [3 u2 ]4 t - LDA $7FA0# `; `- \# H4 J1 P4 N& I$ b: Z
- CMP #$00
& _5 V9 J* c- [ - BNE P1CMP8 t9 t( J$ ]; n2 x8 N
- LDA $2001
( q* v/ C; ~' B& [! q" r# M - PHA1 y0 L% D! f1 Y/ K. E8 b
- LDA #$00$ R2 s. q& ]# \0 a2 m" L: {0 |
- STA $2001
$ d3 z$ n7 f) I* N9 P - LDA #$FF0 V, \9 R) V6 B. m8 a
- STA $7FA0
5 n5 r6 F% \; J4 L% F3 v - JSR CLEANA) j |. {5 z% v( i# T! g. V+ C
- PLA0 m' ~' Q+ V5 H! M2 o+ X3 I6 k P/ h
- STA $2001: z' m. E' F2 n& p% \ D8 z) V+ E1 Y4 S
- JMP PPUWRITE
4 }7 h7 q6 `7 S) Q - P1CMP:5 _# H4 ]# |, h
- LDA $7FFF6 T) }: t$ v8 w
- CMP #$00
0 z2 }3 |" A# G7 l - BNE RE
! a, B1 X' m G0 x' i, d - P1RP:7 U6 O1 L% u. N
- LDA $20029 ]# A" ]( F0 ^0 G2 Q) g* C& y1 R
- LDA #$00
9 |' ^: {" O4 a) P9 D" o+ G; z - STA $20017 E% ~- A2 O9 _4 k; R# |3 b
- LDA #$FF
. w) K" Z* _; ^& c; E0 } - STA $7FFF
9 k" @ v# [* C7 ^. b - STA $7FA0
' y! n7 b, ]8 K6 }- I - JSR COPYPPU1 N9 _- M+ m6 M) ^# }
- PIRP2:, X7 f1 ~- B- r6 ^- b/ t- a5 F
- JSR CLEANA
2 Y0 P0 z) Y4 f0 s# N0 e J - JMP PPUWRITE
* }" D$ q Q4 y1 W( F% n
+ p+ n+ Z0 i4 H* O+ C, _- COPYPPU:3 R% C, V9 b% v! b
- L0:
9 Q& U3 A1 V4 j- C1 t/ x: E - LDA $30
: v) I5 V! x1 ?. {6 A1 o8 C - CMP #$02
9 N- k- M# j2 y8 L: ] - BNE UNPROFC
8 R% J/ j! @$ b S; k - LDA $FC
4 R3 R, W& F9 I3 T! G* { - STA $7EFC
2 Q7 s1 G# l; M( Y3 M/ ^ - LDA #$00
H, ~ E, n' j5 B- k9 N - STA $FC% J- J! o4 R9 R6 }5 a
- UNPROFC:
8 Y) A# N! z4 e; R1 ~6 w/ u& T - LDA $FD; S1 ?0 ~7 D5 U3 a! R
- STA $7EFD
) w7 v7 x6 E! K$ \4 `$ T5 }3 | - LDA $FF; v5 U' G+ `. w8 ^# _6 z* @
- STA $7EFF7 P. H9 x8 S8 I. V. q, ~
- LDA #$00
S9 {/ _$ v; z! @0 e8 F* f - STA $FD
0 i/ G$ h$ O4 ]) m. f4 l - LDA #$B0- K- h7 D1 q$ b6 k: @5 X* t
- STA $FF
, T: a7 N* c" l. y - LDA $07C1
' X% F7 Z7 y% ]5 R: e, I! [ - STA $7FC1
1 V; ~3 C: u* f* |2 r: V4 M# } - LDA #$3F
! X8 o0 e1 V6 e; c% V5 F" ? - STA $20064 h& v/ G6 O, r( A5 m7 T
- LDA #$011 e- s9 f$ `7 N7 F: ]
- STA $20065 n7 b! {) c" k! f$ E
- LDA #$24
) n' V: w% ]6 N, Y - STA $2007 f) @2 }9 P5 N* k3 p1 D r: x0 m5 [
- LDA $07F6 u# z/ M; N) @7 h
- STA $7FFE/ t& r1 \' @: k0 l( O
- LDA $00FE4 ?' P' A4 e# N+ i: M, S% \
- STA $7FFD
6 u1 | Z- w+ F: v- Y% E9 ~+ e - LDX #$00
3 _/ s. r7 L B$ q5 M7 L" v' B - LDY #$00
5 n( s: O& D; W: S/ n$ X' C - LDA $BD+ E: {; A- i' P p$ C
- PHA; c5 V/ w/ d$ D0 j9 k2 x
- LDA $BC1 e$ ~! B4 {' s& }
- PHA
, @2 k# [% n. k0 ]4 T' f - LDA $BB3 J- O5 b1 N& |8 r
- PHA# d/ i, G/ f! B, F! f7 n
- LDA $BA
6 a) n! c3 l! W' J* r C! \0 n7 f4 b' Q - PHA
6 B8 R; s4 O* _0 v9 V3 q - LDA $B93 e* X1 @" j: n2 o7 A
- PHA
: ~6 e+ s5 S+ ^2 D1 l" a - LDA $B8
! N0 }, w: V# F) K& a D& S - PHA
( [" t1 q9 D' {! d a/ O4 c/ W - LDA #$00
! ~% p$ ~ X+ x - STA $B8; _6 E Q2 k- V$ k
- STA $B9
3 {* ?) N x& P. {' Z8 |2 J" _* M6 A - STA $BA
( _' S0 z: q: y* g5 O4 c - STA $BB, O/ P; X( H2 x, r d8 q6 n
- STA $BC
' l! g, Y2 b* p# J7 {1 c - STA $BD
4 [3 Y) q, H/ {2 g+ x( t0 d* e7 I - LDA #$007 F2 \2 ^3 X5 b) l
- STA $BA
- w8 P$ R: |2 c1 @; C1 `/ a - LDA #$207 H/ C P" ?& C. f, U# V4 L
- STA $BB% \) t& D. Q- S- K3 ], S/ c
- LDA #$003 V! G ~) M3 t
- STA $BC* D1 q0 T3 v! o* ~" x
- LDA #$60$ o1 M7 P, s" K2 d0 e; l
- STA $BD
3 h1 d7 s' S; k2 ~- R6 I) M -
' x& U. }1 ^7 A - L1: ; PPU复制
1 n: \$ l9 |. `( y - LDA $BB
- B- a8 V* A, h9 F: Q0 | - CMP #$30
& N7 d# ]' `# V; l4 L( n - BNE L20 G& q% J: N7 [: B- O9 X6 m/ y" e
- LDA $BA
, i1 C( d" U b p: a - CMP #$00. H$ m( B7 w9 F8 F% u+ b* P
- BEQ PROADPLA
3 `& M! u/ J! {6 A- L1 ^6 f - 3 Z6 P+ z' J. A6 A0 {( z: f
- L2:7 c4 O# x3 d7 N c
- LDA $BB
' ]" n9 C; @. ?1 c - STA $2006
) n9 X* z5 b% C: p) Y1 i; T - LDA $BA1 b- E: g% b F i8 I$ C4 C( B7 d
- STA $20061 F0 ?( r8 {4 b' J, ~, F4 m2 E" x
- " k- C& h" M/ Y' d# ~, ^
- L3:6 R+ K# P+ _# o6 P
- LDA $20070 V# \4 V# a4 P
- LDA $2007
- @; @) {: k7 i. ~7 T - STA ($BC),Y
8 H7 f+ p) ]2 U6 p
) U% S5 d) q. s+ a8 D2 B6 a. J- L4:
6 J' J* u. r6 L& p( L - LDA #$00
P* u% s4 v! m- O - STA $20002 p" N. ?# U$ P' [8 [# ?
- INX
1 V$ D& |# k" C9 p% [' y8 g3 ~ - INC $BA5 ?6 @* P3 U% V% n
- INC $BC* T5 m* J& `2 g9 r" R% r( S; I
- CPX #$00
6 p% \7 O" ~5 e- g- N. S* w - BNE L1
* x9 e: O6 ^$ z) J9 f L9 A' Q5 \ - INC $BB v$ s: m( T) Q( o! a
- INC $BD
" ?+ G5 `7 z' O1 v3 |. T - JMP L1# K* x8 k3 v9 r1 {. o+ z$ H
9 e$ b- F: w$ A8 n7 l8 q8 q/ A- PROADPLA: ;出栈8 K% a; b( b+ Y6 u* H0 o
- PLA
2 j' C" R( G" ~) u5 ^ - STA $B83 O) Q0 K2 `7 M* U/ m, ~* l6 F
- PLA; ~- x! r l' K
- STA $B9- m! l( M4 N. H; H" M+ g5 P1 D
- PLA! j5 f+ ^8 @$ J& ^. R5 V6 u6 L' ]
- STA $BA7 n6 d& @7 A& _3 t( n
- PLA7 O: R& |/ F8 n; W- D
- STA $BB
1 F0 Y d" S8 U5 u9 j - PLA' w9 t% Q' b0 u% Q6 h
- STA $BC q+ Y7 L; ^* z. F: N. F3 x
- PLA
; Q. n7 A+ P C5 L - STA $BD
5 s9 Y0 p& K& L Y - CPRE:8 N% v1 g; B- b3 L2 c
- RTS" g3 T: u8 j- E+ i2 c( z5 r
* J( C# v, k+ K r4 `; K' Z, [- R- CLEANA: ; PPU清空
6 h! \# \5 \" e5 C! @ - LDA $BD) J9 ]2 d( g, Z/ W4 `% b4 Y- j, D9 c
- PHA
6 n8 K( j$ x: E6 Y$ Z6 T7 ~& Q" B - LDA $BC( P3 z9 c7 n1 ~+ ~) I5 s
- PHA1 ^2 \' z5 K, V
- LDA $BB" w+ D' B( e4 R
- PHA
; X5 t7 v, j& p& x - LDA $BA/ ]# ?1 @& N; }0 O- S) Q2 U, J
- PHA3 t, a8 a, |6 ~9 p
- LDA $B98 j I7 z, x0 M( J3 y$ u! o
- PHA. F h! C; O' P9 H H0 e
- LDA $B8
' B% u9 l5 t- b( y8 f- I - PHA. ?5 \/ {6 O: O0 ?& y
- LDA #$00
7 L) W; h: h( H" Q! g/ i9 b3 B8 j - STA $B8 b, p% K4 R9 f# w$ { `/ q2 ~
- STA $B9
$ ?- I* M( Q: v; H' Y - STA $BA
. F' d# _6 G0 B% ? - STA $BB; t; [% ^6 q% [- c2 T9 y3 x9 o# c
- STA $BC7 H# q% l7 G: n# z4 |$ s
- STA $BD& G4 E; `# a! N W/ W% k# ^
- LDX #$00% {! u+ q0 r6 s& L- N$ N
- LDY #$00) b+ h( p5 ^! i! I7 k
- LDA #$00
5 i+ D7 y7 ^, z) n1 _4 n! J. O - STA $BA$ b$ i4 k g4 D1 `
- LDA #$20
' g" J5 K0 i+ | - STA $BB
, r7 o" v4 [$ _ U- f! s -
2 t' K. ?; C# l E0 H4 a; V - CL1:- n0 a* f6 O) K! f: z. G3 w
- LDA $BB! L! l3 M, x9 _; q' @
- CMP #$30& A. n$ Z0 v5 n" p
- BNE CL27 k& B+ a/ I( o( G
- LDA $BA" I8 S O& d+ H
- CMP #$00
0 d Z6 `- B9 m6 h# @ - BEQ FREEWRIYE: i' _& G8 Y" t8 d& g% j/ r( d; ~5 w
-
' ` s' D' t0 z9 V8 T3 ^ - CL2:
. m$ Z! l: t b) @, W3 j - LDA $BB# B: s$ \8 s8 N
- STA $2006
$ V! ], D+ F& p - LDA $BA
. u. L( n8 U8 `. A2 d+ B* \ - STA $2006
$ C+ v' J* m+ Q - [/ [' \6 f7 M5 _
- CL3:
$ R1 g3 }6 @* q c( t) l - LDA #$00
* Q' L w, d/ g/ d7 _) ]* f7 Y+ t - STA $2007
6 V# Q' `( ^; J, d1 T3 i# r4 t - % v9 l; q7 C' n9 Q
- CL4:
5 [( ~$ {7 K' ~% q2 j - LDA #$00# Q* l! D" F5 _' D' Q7 N$ F
- STA $2000* O; K/ C# ^- \( U$ E& @
- INX
- ^5 i) }: Q* e0 f3 y - INC $BA( L8 |5 g4 J2 c! p! o c9 w4 u
- CPX #$00
! Y6 l4 n8 o P1 X- E - BNE CL1! Q, T7 O9 e/ Q! T
- INC $BB
- G) @9 d% f% z9 R) A4 F! n. B% A - JMP CL1 , w! r' S3 j H4 z0 d
-
8 v) Y) L, g$ Y
. V( C: {9 z& O# @9 L" Z- FREEWRIYE:
5 h( q! M. F. R9 H7 h - JSR FREE
1 o! l S0 Y8 ~2 W
0 u" u" K4 ]' ]$ F, o( N7 E- * C `5 b: X& L! P8 v( T5 O
) O/ M" Q4 Q7 H. p. u9 n- " a. a, U, v7 {) p$ Q9 {
' U* w+ V& q6 O( d& o) Y* a- CLEANF: ; 恢复现场
- e/ N/ g T$ R2 l7 l1 C; ]# u# c - LDA #$08
7 g1 x/ _/ n! |0 u - STA $FE3 N9 B5 v" W' H
- LDA #$007 _# f0 y9 N Q. r9 s- p) A
- STA $07F6
- ?$ N* ~" A" ^6 {! k; [ - LDA #$24. s+ G) P% G4 ?, q" C' u/ d
- STA $7FC0
, c( K- E/ }; d" P1 v* ?2 y - PLA
5 |0 g( h* @% d) `) G4 k - STA $B84 L* X7 Z1 c: {& `
- PLA( J T1 @- Z/ ~6 J; c
- STA $B9
) O0 W/ W3 H& f7 c$ | - PLA
8 F% Q- }0 h8 z+ W) | - STA $BA
: C5 [, q: H% |/ g - PLA
; l+ d! Q. t. e7 } - STA $BB0 F+ s" h8 ?6 m0 {! G& S
- PLA0 k( Y) f$ U7 _5 K9 u
- STA $BC
" U% J, T/ Y$ x& e4 D+ O - PLA( Q7 p2 {5 C0 P) ^
- STA $BD
1 h+ \- \, G: }0 ]* O4 b: q - CLRF:
! u5 @7 x4 n) D/ s& v( p% ^5 q - RTS5 I6 L; g* [2 e! X2 y) G
- " D4 i$ M9 {! s4 H3 Y& i
- W_DATA: G) M# Q) `5 F+ N$ ]6 U, {
- .BYTE $00,$01,$02,$03,$04& ^/ V1 r$ m M3 m O+ |& }
- ) v5 d3 y6 h# m5 Q# u( [
- W_PPU:; O/ P9 \3 j: O
- .BYTE $98,$97,$90,$9D,$96
: A" V1 {& H" U( q* B, U
0 g' u3 K8 M/ Y I- P1_STRING:
( q) L5 `) U3 F: s# R6 a - .BYTE $9A,$82,$00 ;"P1" X+ t/ e) x( [6 ?, y4 Y
6 {; c& i. D N# l5 M4 D) L9 V- P2_STRING:) ?7 q( Q3 e0 t9 Y* b* W f- v
- .BYTE $9A,$83,$00 ;"P2"
* g: E0 M: |2 _) X
; ?. L2 U7 G% `4 K- WEAPON_STRING:) S+ k; @+ r5 K( ]. E `
- .BYTE $A1,$8F,$8B,$9A,$99,$98,$00 ;"WEAPON": R1 C! `. U! [% U) F3 ~
- 3 k/ I& k$ K$ {
- RELIFE_STRING:
& U; q' {# N9 c o- ?4 F - .BYTE $9C,$8F,$96,$93,$90,$8F,$00 ;"RELIFE"7 M$ z: R' {: N4 P7 ~8 l+ k
- ) `# g# _* U$ O
- P1_PPU:. U- k4 R0 e3 P" W
- LDX #$00
+ ^! m* g5 L% e3 i4 W - / j) c* ? p" Y
- P1_PPUW:
8 i& f* j' n8 d$ G - JSR PPUADDR_PROCESS
t) f ^1 ~. E# ?, \6 E - LDA P1_STRING,X
4 {, R: ]! b p2 d/ ?6 B - STA $2007
4 S/ r5 y+ }+ \9 V& i/ d7 ?4 E - INX. ~( y1 A+ p2 p, s* ~
- INC $BA
- v* Q( c8 t* n+ \ - CPX #$035 N* Y5 @( c; J# t( R1 c3 L5 Z
- BCC P1_PPUW+ |, O; u3 n& r4 p7 L8 B# t
- LDX #$00
, c" X5 t \ O( D - RTS
X& o* l/ _* B- p1 I- C - # W' z. B' I+ O3 O
- P2_PPU:
! r% R; r! B! g% V+ l+ H6 }! W% `+ J { - LDX #$00; ~7 I3 A, u3 f
- ( D$ \3 x/ I, ~* N% Y/ A
- P2_PPUW:% O: k1 T4 {# W( A- I2 A8 E
- JSR PPUADDR_PROCESS
% U# A! y) _/ _3 d5 } - LDA P2_STRING,X
. K* Y9 X" N, h! Z* Z - STA $20071 }# f5 A$ s5 t# x1 F
- INX& i9 e5 o% K) {; Q% M
- INC $BA2 @) O# r* o B' \; r
- CPX #$03
' R$ B$ C& h$ I" V3 y+ l3 J; j; o - BCC P2_PPUW
N% h9 v2 F/ [% s4 |8 b" U - LDX #$00
1 i, I E1 V& ^. X% d - RTS9 k N3 u0 e4 n3 g
- L$ S; u* E X$ B7 z0 h- + `& t+ b! q! h8 h# T5 O
- LDA $BB5 @# H" ?3 k# k* e
- STA $20063 o% m y. ]6 M8 a9 Y7 E
- LDA $BA+ ~4 B; ~6 c+ J6 A; }: s" X
- STA $2006
: A& ]/ t* _6 v/ B$ } - RTS/ B5 d; d0 j" S/ [
! q& T1 {- r/ ?2 N1 p8 R-
" I+ N7 [2 H: T1 C -
2 g* L% Y! B. ^5 y4 v; R5 D- U - PLAYERLIFE:: y5 w7 L) g* P2 G5 o* {7 ^
- JSR LIFETODEC7 Q( _4 j( y4 k+ z7 l9 ~. q
- LIFEPPU1:2 I9 H2 w- l4 Y5 m; E6 P5 D, k) Y- T
- LDX #$004 W n% h. D& g. q" j2 S: }6 l
- LIFEPPU1RE:
4 a( U# j6 q' e* ?9 ~5 J - JSR PPUADDR_PROCESS
: l: ~9 v+ \1 F+ r; t) `4 S: ~) K - LDA RELIFE_STRING,X" L5 S. E) }# _ `# t( @' ^
- STA $2007
3 O* o6 }/ M" C - INX# E( C+ v( [( g; l( {' f) h
- INC $BA
, U- I9 f, L% T6 [7 i3 \2 s - CPX #$07
4 [( O& {$ ~5 j& u - BCC LIFEPPU1RE
5 j3 U# p- b }! o# _2 K
" T, D6 X- u% p; u8 x1 m( d- LIFEDEC: ;生命显示写入
8 m7 B: h0 v' q$ ~+ F - LDX #$00
1 ~: U6 `0 n6 q; v; @ H: ]" e - LIFEDECRE:
: T- X5 r) ^! W( D. l - LDA $7A03,X( E# \: I/ ?" _; h
- CLC4 U/ Q% Q* k8 C H1 u) I; t& ~1 M: C+ a
- ADC #$81
3 U# A R$ S7 _( p! `/ H - STA $2007
9 [, G8 o- j2 W - INX; q: x2 K3 ^4 U( f
- INC $BA
. b( W, r; ]; x - CPX #$03
, f7 \ p" @' `8 H - BCC LIFEDECRE- q6 \ S3 x1 p! K
- LDX #$007 y2 ?2 }- E6 b! b( w% D1 f0 J
- RTS' x. z0 O& E& F& C6 } E: e
- # _6 ^5 ~/ z3 H i# E
- LIFETODEC: ;十进制转换
* l/ P5 s/ v1 u; K/ R5 g* M" Z+ r0 ` - LIFEL1: ;initialise
* N) J3 F4 q, }1 H2 o- N" p @ - STA $7A00 ;$7A00=F3
! {+ _1 f% m; ], s$ F7 Q8 Z1 A - LDA #$00
) P/ I! i5 c6 p - STA $7A03 ;$7A03=00
) E$ {: z/ H: T - STA $7A04 ;$7A04=00+ d# ]; |9 S h! d; ~+ k- r/ j
- STA $7A05 ;$7A05=00
& L3 t Y0 @( Y. [, n3 \. u* k# c - LIFEL2: ;copy data $7A00 to 60011 O/ b" E% V' a3 p9 a! V# c/ z
- LDA $7A00; U. `. o! K6 n% i8 d7 r
- STA $7A01
; P [. F- [, z1 r$ I3 Q
9 h: [! B+ E" x7 K L- LIFEL3: ;hundred
/ G7 P, n& c) v3 _ - LDA $7A01
3 {4 b2 [$ s4 _+ l; l5 X3 V4 y* H - CMP #$64
% T) s- P0 S8 l$ G" A1 A& {- B - BCC LIFEL6 ;$7A01<100 goto L6
9 l) O' s4 D- T" ^ H6 C! ^ - LIFEL4:
4 f; a! T0 g! {- F0 ]5 D. M - LDA $7A01
! L; M9 A3 v1 r+ ?! b) Z: R - SEC( O8 O+ B9 c2 `& d( ^, M
- SBC #$64 ;$7A01=$7A01-100/ E% l/ V& d$ Z' t1 M2 H
- STA $7A01
. b' J6 K& K# x- I6 F( S+ { - INC $7A03 ;hundred++6 h; e. f" x# b) K
- LIFEL5:
; W, r7 p o) w - LDA $7A015 Q+ Z3 P) }& Y
- CMP #$64, @! v3 f8 }, {) e* O/ V! ^! m
- BCS LIFEL4 ;$7A01>100 goto L4
# A" f% s& @ K$ V) |$ F) h - / f+ f) F- Z9 x; R' [$ g/ L
- LIFEL6: ;decade
. \' R! U' C- P3 w* j - LDA $7A01$ K2 S6 C3 n; R" S% _/ D5 R
- CMP #$0A
2 S- U+ f/ u" T7 _ - BCC LIFEL9 ;$7A01<10 goto L94 P1 |* a% S2 [ R+ p
- LIFEL7: 5 z/ m9 O' @2 k( J7 j+ E+ R
- LDA $7A01
0 |2 s1 Q# a& I4 z# T a3 s5 { - SEC
; x3 N7 ]0 P& `; |( d - SBC #$0A
# I( a( ]( X$ u+ V- z - STA $7A01 ;$7A01=$7A01-10
# j& I _: I% T/ k5 [ - INC $7A04 ;decade++7 [( a6 f6 S0 ?% _0 O! H
- LIFEL8:
& L: B" Y6 s( T4 X M - LDA $7A01. [" ?& T4 k, |7 M5 y
- CMP #$0A
$ C x/ k8 h! l% W( t - BCS LIFEL7 ;$7A01>10 goto L7
; d6 L8 ~" v/ K - ;unit
% V1 _5 Z' z, O6 l4 x; j - LIFEL9:4 E! F: l- @- c4 G
- LDA $7A01 ;$7A05=$7A01
9 N9 c9 `7 R- T/ O - STA $7A05 ;unit
% Y3 u# D: ^0 K7 Q - RTS ;return# ]" n b, ]* O( s
- 4 ^; O7 }5 o: R5 h
" j0 b2 [$ g C8 A5 b+ m
$ v# |5 {9 U" H x4 `, K- WEA: ;武器ppu写入! V0 N; k" Y* c1 b5 ]3 J
- LDX #$00
, O% d7 [9 T6 \* }( A - WEARE:
& J% H; ]2 ]0 ]4 B - JSR PPUADDR_PROCESS
7 [ L" ?4 G8 n5 p; W - LDA WEAPON_STRING,X, a+ U ~ o- z" {
- STA $2007
8 |# [ ?/ O: I# b, _2 b% k - LDA #$00
) B; F) i( T `; |9 ~ - STA $2000
1 p; v- E. |+ \: g - INX% L2 R( t$ k6 K3 d' Z
- INC $BA# g; ]; Y4 C* ~+ M" o, C8 L
- CPX #$07( A: N" }- a3 r+ H* I4 H3 X
- BCC WEARE
5 i' R' Z: p3 H+ b, d [' | - ) K9 o5 e S7 c7 j
- READ_WEA:" Y( _" C0 A0 G7 u& C5 ]
- LDA $B9" g; d& c x _3 N2 u% S
- AND #$10' W2 ^6 q% R v+ [ _5 b! E
- BEQ NWEA
( k* r! o f* ~# r: S - SWEA:
F$ i: h$ R7 B9 Z, T3 t0 X4 d - 2 @/ R2 V8 p# `. V7 ?
- LDA #$9D( v; Q1 z' E% r% a9 V
- STA $2007 p( i" ~7 _ ^8 ?, e+ o- X
- LDA #$00' m- R R) i/ j& ~. p) x4 r
- STA $2000
/ W2 R0 m- v) ` - INC $BA
; y+ u& B* u: B5 z5 L - LDX #$00
5 [0 V- t/ ^# }- L6 V. P - JMP WEAREAD
: w# x0 P0 O/ v& b2 j - NWEA:; E( v' g* ]( @" B
$ c) `$ J8 Y7 t7 |. X- LDA #$8D& I! z, Z3 P+ V+ Z4 Z
- STA $2007* n7 ~( `/ X# A) L3 b
- LDA #$008 Y6 P9 B9 Q- ^; ~! A: [
- STA $2000
n y, e* k7 X6 U! C - INC $BA
1 q. i/ e$ G3 g/ S+ ~ - LDX #$00
5 F% H9 o4 y2 k R. \ O - WEAREAD:, S! E+ r1 \: O: b% z2 A2 I: x, @4 H
- LDA $B9
/ _4 j4 Y0 E' h: R - AND #$EF& v% Z8 L0 p9 Q' ?2 J8 D
- CMP W_DATA,X
0 ?( W9 q3 w0 Y9 m& |3 s; q - BNE WEACMP
; n/ ]8 s: q% q [7 J2 f2 x8 u
* Z* t. H# | r; T# c( m: n- LDA W_PPU,X& Z+ s A. j- F" o4 n, v: V" {
- STA $2007) g) Q8 I# s, E' ?1 P: [
- LDA #$00
6 X; k' a/ w+ i' F; |2 g- V/ j - STA $20002 ?5 z# z+ K+ H' Q& ]$ t# I
-
- L y0 O' j7 p4 L. _ - WEACMP:
; L) @% B/ B, m. H' h+ { - INX
6 \5 h4 i. i& C$ Z( N - CPX #$05
, C- v2 h) F* U) S. D9 v- x8 N' j. j - BCC WEAREAD
4 v8 o# P" x) ?6 x& ]# t - RTS
( Z7 K1 z6 y9 H" H, ?, B' ? - - h p/ v$ x- l' E
- $ \' t+ B+ x4 r( ~: S9 j
- PPUWRITE:4 ]! S I! S- X3 I& H8 @8 [& t
- PLA4 X( i9 |5 _; ~# Y3 p4 l
- TAY
# ^) G. ^8 o' \# T% P - PLA. s, Z! G. w/ H. T. Z+ y- r* M+ g
- TAX
; c" |; F* m, |2 g$ m! h7 e3 T - PLA, Z' h4 K& F; s* K$ A' E7 Z- _
- LDA $259 x6 c! \+ |1 ?7 v. @
- CMP #$00
@( m2 A V. [6 C2 w E - BEQ WP1' }. t5 O2 \5 k
- LDA $25' Y6 r B7 X0 c3 m! m$ S$ p$ k1 _
- CMP #$01
( N" _' E6 o$ v9 s+ }/ D* W - BNE WRE9 Z) H, m. x' v6 u1 T! b
- LDA $F5,X
3 w& t, f1 x( G - AND #$EF
! b0 d( q- h2 B- o3 L; n3 m1 B - BEQ WRE/ o" L$ [( s: Q5 M( S y
- LDA #$00
, y+ W( _" ~* \" [' d+ B; h - STA $7FA0) R$ M# c& N `1 S6 `( x0 D
- # z: [, c0 Z2 b& h! h3 v
- WRE:& n6 G/ _0 a% U. w) `5 [) ?
- JMP $A000
' M, ?6 r: a- m1 K - 3 P5 @# \/ l( z* k
- WP1:0 V2 B! ]4 E0 S" |1 `. l/ P
- LDA $7FFF
5 J4 S$ i( G0 B - CMP #$FF
0 g$ q9 W. X$ o { - BNE WRE9 ? u9 U- c1 N2 Z# `; T( z9 w/ ?& R
- LDA #$00* e7 Z: J" W! V2 S2 N# N8 x5 j
- STA $2001
2 D5 C, Z1 j" z - LDA $BD
+ d j$ C7 O s/ A. v8 U" s0 i - PHA
& |' C( {9 L$ |6 j0 _) P - LDA $BC# Z4 i) y- l1 E) g+ l* k
- PHA
, ?# h& L# N, O ` - LDA $BB6 }0 N2 ^* q Y. d r: x
- PHA
% c3 H8 q2 B- b% R: d& M; l - LDA $BA: d7 q0 z' W8 h# W6 M2 t
- PHA
& d9 L: V% p0 X, t - LDA $B9
9 H# u3 T, v" n# [5 o/ s - PHA3 K4 q9 F6 S" B
- LDA $B8; K4 w5 b5 |6 o# |% M6 a9 F
- PHA
5 D1 F0 f) }7 L& v* o; j - LDA #$00
3 X5 ~% y! v6 a' i3 B$ G8 Q, L3 I - STA $B8
( X0 P1 J3 N; x5 Y - STA $B9
9 Q8 Q U$ _4 F% O" ] - STA $BA [: N( M/ n* J' u e: C; P. N# `
- STA $BB
3 @! j4 G7 V$ B' b6 O! l4 ~ - STA $BC
" R. Q, T7 e* X4 X& D% B- t - STA $BD: f" u5 j/ r% N1 Z
- LDA #$00
: \5 }# W" |& p1 k8 b/ k. b - STA $7FFF
o5 d8 {$ `' \1 V - LDA $30- ^! q, ?. W* ^: @2 S
- CMP #$02
) |/ D; \* C1 ]* b: \9 T3 g - BNE UNPROCPL0 V/ Z4 y* R4 m/ l2 t
- LDA $7EFC7 ~+ x) U6 }/ c4 ^2 i- f
- STA $FC* }$ R$ M6 j+ z; d: _% ]4 W8 ?
- LDA #$00# _3 ]+ m! L# a
- STA $A4
5 _' L3 |6 l c& U1 f' s - STA $A5 O& C0 x/ Y9 n+ i! f
- UNPROCPL:
3 {6 J D/ p) C5 _- V - LDA $7EFD$ @# I) b8 h% v
- STA $FD$ k @& e2 d$ A$ |3 }
- LDA $7EFF
# X$ s' o- q5 z: v - STA $FF3 j2 T& P0 \( w% P+ Z% c
- # @; m- }4 z% g/ K7 v3 Q7 X G
- WL0:- }1 _7 K: Z" J7 e8 C3 F2 g# C
- LDX #$00
( q! S2 A I2 x: u9 m$ _- F. C" S - LDY #$00
7 c& j0 J9 f% V, M1 G Z( u - LDA #$00$ q3 g2 Z0 ~# d& ?# A& ?: Q
- STA $BA; E# ]- J2 U9 u2 \) a; x
- LDA #$20
, T: f) @4 L4 M: a5 p: R - STA $BB
) S; g1 X L" X6 d8 u, k3 F - LDA #$00
0 L% }7 b" _5 m - STA $BC
9 C, ?0 x! }. r, [ S3 a. @* ? - LDA #$60' L6 q. `3 n8 g- x" I
- STA $BD) t" d, r0 P( u' {2 E6 s
- 6 o* M7 R4 q, Y. Z7 i1 P
- WL1:/ t8 ?6 W" w9 L
- LDA $BD8 F$ p0 x6 u, [* p4 K
- CMP #$70
# z3 s7 Y' V3 {% ]( V4 G+ {& B - BNE WL2
0 O; D- \8 p7 B( M& { - LDA $BC& ]5 Y b6 Y0 @, P
- CMP #$00
2 \) {0 f! i+ T1 |* D) _ - BEQ WLR
, f8 p: ^* x" q ~, g2 e - 7 n1 z# x+ l0 w7 {9 A
- WL2:% ?9 l% _3 R' g
- LDA $BD9 U) k( b0 `' o2 a5 ~# @, s
- STA $2006! u( D- B4 B3 }2 V* f$ Q
- LDA $BC
% g5 O6 h! l* Z% v - STA $2006
! F# o$ t' |) H* a- ~ -
/ I8 q' k+ ^& \ - WL3:! p( }! O( h' W; O( B; v: _6 A8 S
- LDA ($BC),Y
/ Y8 b& ]( t8 T& j c4 S - STA $2007$ S f' M( F+ K
+ K4 T2 _' m+ H: ?" g- WL4:
5 b$ e7 E! `1 j/ \' h1 ?4 [ - LDA #$00. _- L/ d0 Q! F# _; ~3 u
- STA $2000/ c# u% ?1 a. z3 I- F5 `$ z/ ?
- INX7 {( n: M: A% f* H+ Y# M7 y9 ^
- INC $BA
f6 b$ F2 h) f5 @6 E9 C - INC $BC
, v9 k+ b' n9 {: o3 a$ e% A, ~ - CPX #$00# S" Q( W, x/ O. r. M- A U& x1 l$ Z
- BNE WL1
$ |3 \. O* s9 h - INC $BB$ H D( A/ P" |" p" ]
- INC $BD
) m- Q, k2 }% N( |2 K; G - JMP WL1) Z* V3 v+ |9 F* @
- 2 a1 ~2 l4 n; E. |# A0 T
- WLR:4 {1 Y* ~7 B/ I/ S' {* F4 D( X
- LDA $7FFE" Q" c \! K0 y) ~& g- J
- STA $07F6
5 w1 _" r8 ^1 N( ?+ A# y - LDA $7FFD, W' e& @6 i& V: a
- STA $00FE6 a0 z+ T6 U3 I- a+ S
- LDA $7FC10 }7 h+ j/ n- h, L$ ^. [$ U( M
- STA $07C18 r' T: I1 E+ I0 T; g
- LDA #$3F; J- L$ w! g% F- z+ _0 m& _4 b
- STA $2006$ G: A8 \# }" u1 a
- LDA #$01) F! S; l1 u0 s1 a7 F! W5 M
- STA $2006
' ?2 _& c; Z' x: U - LDA $07C1
* N( z0 ]6 H9 s6 [+ | - STA $2007
5 b# H p5 T5 D - LDA #$00
4 u1 V" K; l3 z/ z# _0 }/ Y) ` - STA $2000
8 o0 n. W0 N0 [5 x% c u - PLA5 k9 d4 F1 c0 F/ N
- STA $B83 K& E; t: p! z& L }5 `. d
- PLA: Q% {" {8 r( o
- STA $B9/ Y" B" R: X! N( L
- PLA
/ y2 X A0 c9 ^ - STA $BA# {$ K/ x) D1 ]: v7 |
- PLA& |- {5 a0 `, x; Q- j
- STA $BB3 }/ \* Z0 N' q
- PLA
( r) V& Z1 s; _( {& \ - STA $BC7 J2 P$ M. \% g) h
- PLA
1 V- i G( x- V - STA $BD0 e) d- z. m. G$ B* u8 O
- JMP $A000 e$ Y$ ~: j0 U9 ?8 O
- ; B4 W/ {; q3 S0 p6 X! z
- FREE: ; 暂存器保护
8 W$ J: G1 D& F. K2 n+ Z+ a - LDA $BD3 E) K8 s9 S% a/ z! Q9 r+ ]+ D
- PHA
- q, v; C* C+ C; j3 i - LDA $BC: p. Z1 m8 Z$ B1 M
- PHA
1 P& Z3 G5 P! ^0 N - LDA $BB# ~/ x" S: q' n1 C8 X* k& R$ s
- PHA
5 y0 Z" C( z% Q$ \ - LDA $BA
' n* _+ ~* H7 g& v. E- b- `: c - PHA
8 z5 Z8 u9 T, p R - LDA $B9
5 C; }( Z, o) O% n% U9 Q8 e - PHA! g: H' ?& l0 z0 L% o( V
- LDA $B8$ v0 I% L) R1 K, R
- PHA
, Q; U% @: i: \" h8 Z# w; P: | - LDA #$00
4 M: `" E" l) f( O: _ - STA $B8
/ j9 v0 h3 [0 r8 R2 J) k - STA $B98 E5 ]& k m, K; V9 u+ v. `
- STA $BA5 h4 i- `. R) e* T; k7 N
- STA $BB
* q8 F5 Z* b5 y3 a! m7 s" G! F - STA $BC
: N' m7 R- W6 V& Z& k8 {+ s - STA $BD
! L; w9 o4 L# A. M& X% u - % ]0 r9 C. t3 S' ?
- WEAWRITE: ;武器ppu写入
/ n: w% K/ X* n6 c, S" {: ?. w - LDX #$008 d8 m+ {% Y' {' `+ A! w/ @. L
- LDA $AA0 \/ p3 s- R# v' Q: ~, G" z# z
- STA $B9+ f( O; X( T& |
- WEAINI: ;地值初始化
# B H* m! f1 @ - LDA #$A4
" X& R n2 h9 i% B0 Q. o - STA $BA
" I5 c; U2 U& q - LDA #$20
[ S8 O& J: P' | - STA $BB& z, U w0 g- ]" M9 K
1 [3 G. g3 e/ T8 a" V. b7 N- 7 z6 C& m: [& b! M
- JSR WEA
6 F+ E& c8 M) Y0 I* f; m# j$ V - LDX #$00 ;武器ppu写入4 B4 R0 J4 P; i D& N( A
- LDA $AB
6 H `8 T) R" b5 [& r: d' t - STA $B9
; J' c P2 V; ~2 R+ T - LDA #$B35 R6 e& y. S$ O
- STA $BA
9 T- }) [$ l: f* d B9 c. E - LDA #$20
7 j0 s) d( w# i2 I1 F; l/ j - STA $BB- @* ^$ v( K, C' O; ^1 L" F: F( T1 L
- ! r6 m9 [$ k6 q! I0 V8 }
- ; _0 L) @' m+ s" }# ?3 }2 F
- JSR WEA' r) _# I8 l3 `/ e0 m4 ?. |& g
-
, D: x! A7 e' S - LDX #$00
) I+ H$ ~0 W6 H& I2 d4 G8 r3 M - LDA #$E4
& _- o3 o7 r8 K# g0 n - STA $BA
' Z1 a8 t0 G( h, G+ A - LDA #$20
0 N8 n( H y2 v" I/ E+ ]/ _4 \3 t" V - STA $BB7 _0 E. w& ?! K" w" z( Z+ m1 t$ Y
- " @/ D$ C. `9 u& `0 t f
- % d1 o+ r! {; C y
- LDA $32
6 l. {' B! W; B# t- d: x - JSR PLAYERLIFE
. O9 c/ u! D1 ?3 q/ i* t - / f V+ b _6 x2 ^" p4 O3 ?
- LDX #$00
3 D% f4 d3 c5 ]6 V9 g3 ^# m$ I - LDA #$F3! _+ f: e! O6 p6 z
- STA $BA/ w W2 m1 A8 }: \
- LDA #$20
: t# y+ p1 G9 v% T' d9 K - STA $BB I8 R% [* o( j5 f$ n5 L
- - W3 z% \) K. \1 E) F
8 y5 P. H* y. q, \& Y( L$ S- LDA $33. H2 Z( Y( p" g( C' w( v
- JSR PLAYERLIFE. [6 a6 c! X( i9 m' T6 E# N
-
0 `5 P R; r6 V - 5 c" o7 B( j6 ^$ g
- JSR PLAYER_01_PPU
5 ?! j+ w" I4 @6 w - JSR PLAYER_02_PPU7 ^. i; E5 c* P) N* g- m% v
-
1 m; |1 J4 |8 A R% \* d -
% m: w1 I0 E+ w, U( o/ v - JSR PAGE_PPU
/ ^' Z: `" T- m+ e9 N& G5 N2 h! J9 ] - JSR PAGESELECT
' e2 W8 E' m* u - 8 U6 E' I7 g4 v; _; I. f$ c
- 4 f4 W: U! d6 d+ K" T
- 3 T8 ^" E5 K6 }& p* U' o$ I
-
. W: L4 k0 Y/ [" ^6 A1 \* B - + r/ F8 I9 w& Z& y5 |6 e, O
-
/ j+ ?* j7 {! n1 J: p/ o - " R; W2 Q. W: C7 ?9 H
-
, f" V0 O7 I$ }7 l3 N - % ]% G7 r$ {. |( G7 ]' a
- / ?. l l8 X; E
-
) A9 b) n1 ~5 |' {0 ~4 [* V -
$ v' W( Q# x0 f/ [. [0 g -
0 J; D7 P% c9 O5 A - PLAPRO: ;恢复现场" d. J% \$ g2 @
- PLA7 q7 N3 O2 N' `: y; {$ B
- STA $B8
^# }$ |; f6 y. y2 E - PLA, l+ }* N& E q t* _
- STA $B93 r/ g/ Q% A/ r1 h% o
- PLA
. K+ L; y" R2 G& t- t - STA $BA
: X) {+ Z8 M0 B- a7 Q) E - PLA2 A4 h# E; ], u l, a% Z
- STA $BB
2 R; M( ^; ]! |" W2 x3 F H1 N - PLA
! e+ t7 z) }: u% T& H# f. S( \ - STA $BC
( H5 m/ t# t( o, _2 u - PLA' O, K+ @' T; _
- STA $BD
/ s) t' g( F1 W/ [, m" P- p3 A - FREERTS:
! r7 C) W- O# Y( [/ } - RTS
( X' \* \% p& \& M+ p0 k - : O( m/ b6 f1 ~7 `1 N# H
- INVINC_STRING: ;invincible. O E/ w5 c& \4 C/ l4 L# X/ h2 \5 E
- .BYTE $93,$98,$A0,$93,$98,$8D,$804 U% V; o M1 ^. m, G: s
- 7 r- e( \: Y- s" w
- INVINC_PPU:
) e& M2 J" C( i$ t* X& u - LDX #$00
' u. g* ^6 W; J" g1 n$ Q - LDA #$62% B- a/ s% {" ?
- STA $BA/ B1 `( I7 ?! e V
- LDA #$212 B/ ?. H; b% L7 O/ P8 I
- STA $BB0 L& M; J/ Z1 _1 }0 R
- & H( M3 Q2 W; u* }
- s7 e; f# B. Z7 k! E/ |8 y. |
- JSR UP_PPU3 c5 J6 l3 Y* G
- JSR INVINC_WRITE
$ g' Z2 S8 k' o3 z7 }0 D# M/ d - LDX #$008 l1 m5 x( d* e1 c- F: V
- LDA $07A03 x0 R/ H, Q$ ]* P: S/ j# s6 @
- AND #$01
4 f& Z4 a. D+ n* }7 u0 O9 A, X% I - JSR ON_OFF_PPU
% q$ \" B4 ] |. o- e) J - LDX #$00
+ I( `+ g+ R, k. |* w% o - LDA #$71
, ~/ @ b( u, M9 N3 s+ r# a/ T - STA $BA" _! ~# Z. ~. T6 c' c/ ^
- LDA #$215 Z2 i& |# s; a/ X
- STA $BB) s" V% R) P! z& X
# I K. ~5 k3 u) ^& C( {
8 _, m+ A& @5 O' \# [4 k5 x- JSR UP_PPU
- r: d p/ M" H% Z6 [- r# }7 _0 g - JSR INVINC_WRITE
: E5 [! P% V. j- ^ - LDX #$00( Y. ^1 ~8 f, x& ]# {. `5 }
- LDA $07A1- p- Y) i8 q" Q2 F& x
- AND #$01
4 z4 C8 E8 i0 V( O: }7 ~$ ?& C$ b - JSR ON_OFF_PPU
* O, h, h7 {: P+ V6 I - RTS3 j. j4 r: R) T- Q, u/ {
- % ^* G8 V5 }; F4 ~/ L
- INVINC_WRITE:
+ R c: [4 {0 W% n- w. ] - LDX #$00
0 r% {2 e% `3 Z1 F4 {; e. J1 r - INWRITE:
/ r% \! R w+ f f - JSR PPUADDR_PROCESS
9 H Q- [4 h* p- i1 K- S - LDA INVINC_STRING,X
2 p" l* c; y; X% [$ r$ w - STA $2007
; ]0 J+ X8 {4 l5 N7 G- G - LDA #$00
3 K8 f2 m/ r W( A* y( C - STA $2000
- z+ I( t! H: Q( F) R8 q - INC $BA/ B9 b( r& w5 [, C( x: a
- INX* z7 j c9 n" k! A
- CPX #$076 s7 x' |8 |1 w
- BCC INWRITE
$ v' N6 F' f4 Y8 {& g) y& c5 K - RTS( P) O+ v w4 Z) L+ v" Y( Z5 |
- 0 e* c! T P' U8 t* C
- ON_STRING:
3 R4 B Y$ V6 v3 R - .BYTE $99,$98,$80
" d+ M; w& W$ l. t( s - $ I# H4 ^% U$ @) b s
- OFF_STRING:/ L3 j/ J/ T q4 Y, {' e
- .BYTE $99,$90,$90
* \& i+ {; h& W' b0 ]
0 w$ a- y/ e3 a% \% B- ON_OFF_PPU:" x2 j; N3 X% \3 q% ^8 j0 |
- BEQ OFFWR
+ Z1 F; H+ g1 O" V4 V R - ONWR:
% R( K3 E9 @2 r - JSR PPUADDR_PROCESS
5 @ m8 h( e. `8 e - LDA ON_STRING,X% A2 q- x4 y- ?+ [ I
- STA $20070 q0 y# x! l0 U F) D+ z
- INC $BA3 C+ o! }4 D/ Q9 b+ f; X+ Q. x
- INX
' V' G% @* x3 z! x - CPX #$03& F& e1 J" X; H
- BCC ONWR
/ \" m" b) k# r2 V# w1 G- N - RTS" c( F' R" l0 Q& T, F
- OFFWR:
# u, ^: y# w5 v - JSR PPUADDR_PROCESS* B9 R% p8 g N% r
- LDA OFF_STRING,X4 n3 s C9 ?! Q/ Z9 T4 d, H
- STA $2007
$ r3 X; }/ u, `; U/ w - INC $BA4 q- F. f, J. K) H0 C8 g X
- INX
J8 Z9 q! c, R. [/ _$ Y1 X - CPX #$03
6 C: M3 l. Y) L; X - BCC OFFWR R u4 }3 F$ h$ M; Z- J1 `
- RTS
) ~3 P2 d% D, C& P2 h -
6 R( e6 p5 E. U2 l2 @( N2 W - LIFELC15_STRING:
; v3 H! p' E q - .BYTE $96,$93,$90,$8F,$82,$86,$805 z2 |3 R# O0 R3 |. ]- j( ^4 W( ^9 x
-
' O3 d& c. S+ t( U) f8 o) o9 C - LIFELC15_WRITE:
% O5 ~* j3 E) O! ^ - LDX #$00
) M; ^5 T* ^+ y; v - LIFELC15:: Q( M9 Y+ ~" y
- JSR PPUADDR_PROCESS
+ g6 e8 j6 c* J# T - LDA LIFELC15_STRING,X
0 z" [% u7 A# ?* H - STA $2007- d) I7 Y+ h5 Q' b1 C; n5 V1 D
- LDA #$005 r4 n7 D( o2 Z2 |$ I4 o
- STA $2000
" V6 K+ V0 n* i - INC $BA
1 y# f/ F4 d4 e) z* j - INX" T* ~2 n/ X$ q; |2 e
- CPX #$07
' E; D X6 v& P/ ~! O - BCC LIFELC155 s, ^% m5 E8 r- L; G* T: c; R
- RTS( s3 Q5 R0 I9 ?; Z
- : h. w: J8 J) X' t8 g( |% Q; a; S
- LIFELC15_PPU:" G+ Y c' B" I
- LDX #$002 ]$ h( u9 ^( v; s, A! I* I% x
- LDA #$A2
4 l/ P6 g0 k' W" K, H - STA $BA* X; j5 h% k4 i$ k2 W: `0 x& n
- LDA #$21& `4 P* z3 y1 a/ z9 t7 `/ z. t
- STA $BB
6 U9 G/ y i7 Q - JSR DN_PPU% E7 R, j. o1 l8 y9 \" E: V
- JSR LIFELC15_WRITE
8 S" [# y8 g; V$ D - LDX #$00, o4 F2 Y3 p' H$ i; z* V# G
- LDA $07A0( i* [( C9 A9 n
- AND #$02
2 m, t6 r: N n( u3 `* W - JSR ON_OFF_PPU- b, J4 U& V. k- Y, y4 l" K( e
- LDX #$00* ` D9 P7 j9 e% U2 y
- LDA #$B1
* v8 B2 t" x( \0 M# O' M - STA $BA
; z8 M- D/ X9 }& v1 j( R% f' Y - LDA #$21+ R+ Q5 I/ u+ G6 g" H
- STA $BB, P, p& f4 {7 I% }2 _
- JSR DN_PPU
, @& i2 d. J+ `8 I" Z7 C7 H( X* N; x# Z - JSR LIFELC15_WRITE
+ w; ~! O) s' M0 `' X - LDX #$00( @$ o" Z& T& l0 e+ H' v+ B
- LDA $07A1
! y- R6 } R( o - AND #$02
% x9 q3 e( Q- O$ w6 q. K# R - JSR ON_OFF_PPU! ]1 c9 ~) R3 ]4 ?" F' ]# t: \
- RTS4 P0 q0 w1 L# q+ c
-
* u: D4 A9 B6 r1 _" ^2 u# T - DOUCON_STRING:
# g% A! b0 w- a0 Y5 [# ? - .BYTE $8E,$99,$9F,$8D,$99,$98,$80/ w0 T# f$ T! Z; \' [
-
- {8 u4 s8 e h- E5 m2 ?: x9 F' \. t' u - DOUCON_WRITE:
6 p i% ]- O; Q/ F2 n - LDX #$00' Y$ K+ z/ R: _1 O/ G8 m3 B8 b
- DOUCON:$ ]! U6 @& d" ?0 G9 y
- JSR PPUADDR_PROCESS, D6 p6 x/ T/ N- M* c2 I
- LDA DOUCON_STRING,X
/ w) _3 X. A3 M$ b0 N0 K - STA $2007& |. ]: S% L7 g# J; q- o; k9 D: ^
- LDA #$00
$ u, v; Z7 C# Y _7 q - STA $2000
" Z) p/ ~. v6 n - INC $BA% o: B5 ^1 N. Q5 \ s, W
- INX& n2 E. f9 X4 h n& s
- CPX #$076 e2 U; {8 V3 ^ F( D9 o
- BCC DOUCON! L5 ]. [8 C7 `3 F
- RTS
9 a4 l9 o: Z" J$ A9 g. `7 o - , \0 } Q7 H4 H+ B9 K
- DOUCON_PPU:
( H$ z$ t+ G/ N' y% E - LDX #$00
! j: a. y" L [4 }) p& d - LDA #$E2
# ~8 ~: Z/ C% h, t8 W" Q - STA $BA
9 W( g0 J9 m7 F - LDA #$21, V7 K( l* W5 M: i# S) m
- STA $BB
* d1 g3 I$ @1 g0 P( L+ j0 ? - JSR LF_PPU# T6 C/ a2 E' x [* B0 y% J( j
- JSR DOUCON_WRITE& D/ p: j: g: r' a* \2 A
- LDX #$002 `( V' U: N) O4 z
- LDA $07A0
8 y! h/ g/ H7 _5 [! \ - AND #$04
! v1 S |* p& q4 x - JSR ON_OFF_PPU1 K7 W C& Q- d' b
- LDX #$00
5 T/ g, T# T" J) y! \+ @9 b! g - LDA #$F1: J3 k+ `$ V9 m b4 U
- STA $BA$ X s! w, H! I/ O9 G1 ^
- LDA #$21
0 U- w9 K3 f9 m, u) J - STA $BB `/ N5 f2 f' I+ o3 ^
- JSR LF_PPU+ c; U9 i; k0 G0 i( [8 n2 N: }' U
- JSR DOUCON_WRITE
; |0 ]: _/ D/ c; ^0 y+ q3 m! S - LDX #$00
* ]% e4 a) I) {7 W - LDA $07A1; B) ~. R3 R, V7 Q( ]9 Z$ A$ t
- AND #$041 j' t0 U7 {" r& o6 H% ^- i
- JSR ON_OFF_PPU
+ O2 t3 e ]- P& m- h - RTS
. l! K' v# ]3 {" O, l. J -
- O! V X1 A, J- r+ D1 H - LIFELOW_STRING:
. j, G. |! @: ?2 e/ Z* W" D - .BYTE $96,$93,$90,$96,$99,$A1,$80
7 H B% O: e3 N9 B) N; ^2 q -
, z5 D) l. ^! X% v- P( u# z! j* j$ D* K - LIFELOW_WRITE:
2 C l7 x2 j5 U$ }% L9 R) K - LDX #$00& a0 P" ]7 k1 Y/ l$ @# s9 t
- LIFELOW:4 ]% `- @# M1 ~0 x9 Y* m
- JSR PPUADDR_PROCESS
. t. t! L8 b# J j6 u# C - LDA LIFELOW_STRING,X7 c' k+ h- ?& F
- STA $2007& O# X2 N0 o" B9 B
- LDA #$00
& b1 p$ p: v3 ^' X9 V - STA $2000
5 Z% w8 ]* [1 e' `' z7 J - INC $BA8 E; k- T8 ~1 z# h6 V$ U
- INX
9 \# F6 L2 I0 h4 J- I7 ?9 l - CPX #$07
% |% _# D: W$ w0 i! h - BCC LIFELOW+ C5 S/ f' Y z6 D; H1 e' Y! u
- RTS
( A& b+ T. \2 L) z4 t$ K - ! p$ h1 l7 U( X. O" `
- LIFELOW_PPU:
G2 b$ M# \2 D. A - LDX #$00
3 ?6 X( t! _! k! E* b, X - LDA #$223 @; F, l" \5 J( }
- STA $BA
! {2 w( g" q8 j: \1 d6 b" ` - LDA #$22( A! S! T( I) s% f4 D) h8 c
- STA $BB
$ L& Q$ P/ [% r, j G( r: @# Y
- d" f5 w" c- N" N8 n
% m. |! f% b. h5 S4 D6 a- JSR RG_PPU+ T3 Q4 {7 e! s* x2 w, H
- JSR LIFELOW_WRITE# b8 V0 n y1 T/ Z4 m0 T
- LDX #$00
. J5 K: F8 E. B0 g# c& p+ I% A' b0 R - LDA $07A0
5 M- p# ~& u9 Z; ? - AND #$08
u4 g& Z1 _5 s* t- x - JSR ON_OFF_PPU
0 i' v( T `1 Y" n! \9 V - LDX #$00
( P8 f- K5 V- I- Q. j) S) P - LDA #$31
- z" S1 M. `2 S! ^ - STA $BA, w1 i7 O$ p8 ]+ Z5 f/ z& ?9 B
- LDA #$223 ]' a% b& s* V9 C
- STA $BB
6 _( M7 m5 R: u4 x/ k, C - 5 u* n% t; j2 ?
- - b% T, Q# ]7 ]0 k1 c; Z U4 i
- JSR RG_PPU" W$ ~9 J$ E; [- ?( q
- JSR LIFELOW_WRITE/ K+ Y0 B$ d( F1 X8 Y
- LDX #$00
/ r; S) F$ A* o - LDA $07A1
, p& s( i. s. M* J# B - AND #$084 f3 g* f- {+ u& H {
- JSR ON_OFF_PPU! k- r4 u: g, A4 `; I+ Q
- RTS0 ?% a' k( G Z6 K- h
- + J% c& d3 r# {0 r* s
- KILLON_STRING:
3 K0 e+ n% |/ P1 E$ { p - .BYTE $95,$93,$96,$96,$99,$98,$80: f9 x: ]$ i9 b/ w' U- c2 J
- 8 y; |6 \4 W( L5 `: U
- KILLON_WRITE:
9 {, |$ n8 [( y4 _/ Q* A4 Y - LDX #$00) [3 W. a. [+ S( F
- KILLON:
* v8 j7 W' A' ~. ?! [' V - JSR PPUADDR_PROCESS
; M, R( Y3 F+ f9 D, w8 H: T$ } - LDA KILLON_STRING,X
' G7 B3 ]( z5 @+ C2 l0 r8 Y - STA $2007& n4 x4 M/ Y9 l9 S3 r
- LDA #$00
% `5 e$ |6 V' s) ^4 x% W - STA $2000
: P4 g6 b* r9 F9 w! T2 k ~4 e - INC $BA4 w; f5 g) N& n
- INX
) [! u7 J& m7 F - CPX #$075 j2 U5 D6 f- h" o9 I0 L- ?7 G, Z
- BCC KILLON
& ]5 ^! \: \) e+ r- x) z - RTS& e: D/ N& W7 w) _2 v
! C2 z5 p2 X! c0 M5 d* G/ e' r- KILLON_PPU:
8 g" |5 p- H9 u8 C - LDX #$00/ z7 l% V0 u7 I) g1 I5 Y+ I
- LDA #$625 _( z' g. c4 o7 A# Z
- STA $BA
2 E3 B, G+ o9 ]2 ]" y - LDA #$221 ^$ c B: @) E; X" K
- STA $BB/ y( K9 o& z" x$ B8 c9 w9 S' u
- 2 m( }' j9 D$ m% H
- / g/ z* B) S; c2 t" \
- JSR B_PPU) }6 }5 n3 Q: v6 L& S0 n4 o
- JSR KILLON_WRITE( S# `4 J; a8 w' \% R
- LDX #$00; q4 X5 J$ }; l
- LDA $07A0
4 t/ h& v1 p: G9 H& K o& Y - AND #$10
7 }9 R$ @1 C4 \$ G) Y4 E( Q - JSR ON_OFF_PPU6 Y0 N) [7 L% U! |) T
- LDX #$00* h% E- [8 d5 n
- LDA #$71
1 S1 U- p/ O! O& [) _1 g - STA $BA
# r9 j- s7 i9 w - LDA #$228 o5 x0 |+ y1 I8 {7 P; U3 t" l% Y5 Q
- STA $BB
# r: T- h; _& I& b5 M# F
, S9 v7 D) Y4 V* y. w* q, G- ?! I5 z1 O
) {+ Q) H, c% u) Y8 d. B- JSR B_PPU
+ H( l4 b0 {- N. Z7 Y0 g( v - JSR KILLON_WRITE4 F( a, n# m! y3 v4 ~% X; t
- LDX #$00
$ s3 f% n# G! g) w' e4 r* O: T& l - LDA $07A18 Q) X* O: k+ B1 l7 ?7 {: H5 D
- AND #$10
( D9 D- ]9 Y+ h Z9 P - JSR ON_OFF_PPU
% o0 v. Y# h" c9 M+ C - RTS: |* _; P' a5 |: i' \+ B- u b
-
1 l# B" C/ ]) z X: ]- t9 Z - SKYFLY_STRING:2 q2 Z& N8 _$ Y
- .BYTE $9D,$95,$A3,$90,$96,$A3,$80, p" \) R/ y; H c8 e ? v. O8 ?
- 7 p4 h* q, h) I. t0 A! b
- SKYFLY_WRITE:
4 Z" L5 h4 G- t/ z9 H- _3 @ - LDX #$00
4 l$ @8 t! o! V% C Y0 [1 e( S% R' E& d9 Z - SKYFLY:- [% m3 w' _7 d4 e% S
- JSR PPUADDR_PROCESS
* G! C/ s2 o1 m$ j/ l - LDA SKYFLY_STRING,X0 t# w7 R( a' F2 B
- STA $2007
( I% W+ `& o( g( { - LDA #$00
}; X2 ~# ^0 {4 N" C: X1 ^) h/ g - STA $2000
2 D0 l0 z6 \1 Q3 T0 t' j3 b - INC $BA
4 ]; w! P2 M: [1 `" [/ a2 {- F - INX# F' a0 G# }- Y+ H
- CPX #$07
' R3 c o- O# q; @4 C - BCC SKYFLY
+ N* u2 k' k4 D1 J& v - RTS, C$ `9 t# D l. V5 p) L! F+ a
- / {9 D( ~, ?, ?- ` I3 H2 X( y6 _! Y
- SKYFLY_PPU:
# R Z% i, Q5 I# ]! S C; T' t+ H - LDX #$00
1 r9 }% s% j; W3 K: u: L+ K& ^' v - LDA #$A24 [+ X! p: M9 U" I0 R$ n. S; |1 E
- STA $BA% M1 p# H! m+ A$ T" e; {
- LDA #$22
5 B( X K' C" Q - STA $BB
; j8 v' B1 Z- u$ K5 Z9 v9 y
: M8 I: y1 h* J- % [* C' Q! z& K4 A, f* d3 P: X
- JSR A_PPU
& M6 f: @4 O. I4 H: t- @5 L9 F* A8 Q - JSR SKYFLY_WRITE" y& x% I1 a( c
- LDX #$00$ ]2 o/ f. ?3 S' \8 h& t
- LDA $07A0/ O6 y: d3 d. c4 i, v+ d
- AND #$20
( z% x& ^! v2 I3 y5 p - JSR ON_OFF_PPU s3 \! o0 J) g6 }' `6 z. Y
- LDX #$00
/ ~0 x; u, {. Q4 a+ o - LDA #$B1
! X% ~& i3 n% {& U- q - STA $BA7 ~ z2 P( t9 v' u
- LDA #$22, G6 T7 Q- a( V# L X, @
- STA $BB
. r" ]5 W+ _$ `" [ T3 T5 K0 h
9 R$ k9 @( _9 x" W. N
- N/ ^9 H$ U( G* r$ J: D; p- JSR A_PPU* S6 Y: B8 H- g$ c0 i I8 [1 b! \
- JSR SKYFLY_WRITE
6 L8 d4 R* H8 w' r9 b) R8 j& | - LDX #$00) u( y3 \7 r, [3 F$ {
- LDA $07A1 f6 R. {& _7 L4 s" m( l6 p. v
- AND #$20
, y6 A( O7 g3 {" M6 |; D - JSR ON_OFF_PPU4 P" n' O+ s( y( s, k/ ?
- RTS
: J! n! P. {- W -
1 i; z! p! r* N% o% z8 N3 E3 H - BULADD_STRING:
8 G1 Y2 ?# e7 k# @. h - .BYTE $8C,$9F,$96,$8B,$8E,$8E,$80
2 c2 Q3 o/ |2 l% d( F; W2 } - ( B N+ ?4 W5 L- U. \
- BULADD_WRITE:
0 ~$ A9 k. \- Z* L$ g# l - LDX #$00
2 A# j7 e4 W/ @& M8 T( U& ~ - BULADD:3 X/ U/ C! W1 S0 c0 d2 I0 F
- JSR PPUADDR_PROCESS
. U9 ]- Q& E5 w2 y - LDA BULADD_STRING,X
+ X# [8 S, Q1 K3 g g$ y0 u1 J8 V - STA $2007
' i2 @% @4 Z& m5 q' F3 k - LDA #$00
0 c8 Q2 N8 y- s- O: P - STA $20000 t7 u5 C- [/ c$ x; M& m
- INC $BA
8 y5 O8 _5 \" V2 u) {1 U, f! x% l - INX% F. U* s/ t, X+ I2 t; ^
- CPX #$076 f0 d- }, R( E) c4 T( S
- BCC BULADD
5 k" U# ?4 u" y- G - RTS! _+ L8 Y" I! u0 N3 g0 g
! W3 p0 h0 T/ g d% P3 D( k; l- BULADD_PPU:( h3 l2 N- y7 C) Y v
- LDX #$00
( W9 ]7 J s3 z. \/ l* J3 O - LDA #$626 L# r# h, A, E; n5 Y
- STA $BA: y/ h. h# C" {( f0 W$ N- Z7 N! A
- LDA #$21
& |, e b$ [* a" R - STA $BB
7 C$ l4 c7 Y2 J; B S - / E+ H. |: ]8 j
- $ z) J. n( H0 N" h
- JSR UP_PPU* ]7 b7 Y: J; T7 ?" b! I4 q& O
- JSR BULADD_WRITE
1 p& P5 q( y: [0 n - LDX #$00
+ M. h# ]+ y3 Y/ p) \0 z% W3 g - LDA $07A2% l, S( g- V w& N( V- z4 h Q
- AND #$01
6 a( n+ G$ A+ D4 o7 X/ @ - JSR ON_OFF_PPU; S) H$ ^% B$ l9 ` U* @
- LDX #$00
8 w' [+ J2 o6 P* y3 D+ _ - LDA #$71
0 }& b. U% s0 `+ T2 H - STA $BA3 w4 F& m% |% ^, E) @- q( M
- LDA #$21
. R8 [0 e) k. p" C - STA $BB# W" d, o7 w( A; K9 p
8 s3 J/ ]- ^5 E! J
" }9 s- K$ g; ^, S! y) [- JSR UP_PPU8 L3 V( l5 F" W0 P7 N
- JSR BULADD_WRITE
( N& y8 C/ a9 K - LDX #$00
9 ~, i4 `/ ^; \8 x - LDA $07A3
! i- K2 @! t% C0 y - AND #$01
% ~, S2 y# ~ R! ?/ T0 K( A - JSR ON_OFF_PPU
8 m3 B2 W* A3 X6 l2 w# |6 a - RTS g1 F9 K5 K Y; p
- ; {/ T) B0 x4 n: z
- MENU_PAGE_STRING:& a; N# U) Z) Z9 U8 C' \
- .BYTE $97,$8F,$98,$9F,$80,$9A,$8B,$91,$8F,$80,$81' c; a9 A0 R6 H! c3 ?
- 2 O' f8 k6 n% f% `+ \2 E8 u- F+ T/ o3 r
- PAGE_PPU:% x- V# w+ q p" V8 l
- LDX #$00
0 r' K% \" Q' e# a+ V. ? - LDA #$0A7 f/ ]1 }3 w! l4 P M( t
- STA $BA
7 Z9 ]. V' f) g& L: y, r8 b0 z4 U - LDA #$23
: G) c' ^# t, X( } - STA $BB. o) z% I- X( o* r$ p* H
- & Z' ~9 {5 b: R5 b# n
- : G8 Q; I$ ]% ~( n) |
- MENU_PAGE:% F2 C" W1 E0 V
- JSR PPUADDR_PROCESS j* ~( ]3 O% U7 v. x3 |$ e. w
- LDA MENU_PAGE_STRING,X$ @3 p0 K/ Y/ J, `4 B
- STA $2007% e" D; E- R4 i
- LDA #$00
/ C: M* b5 Q/ M' n/ V# m - STA $2000/ f% [7 K- t; Y
- INC $BA _7 ? y1 I. s/ X4 ~
- INX
/ \* t2 @% B; C+ e# `2 r - CPX #$0B
- S7 [6 Z8 f$ K h8 T+ a - BCC MENU_PAGE- F% L8 P1 M4 n* ]& l8 c
- LDA $07AA
6 {' R& {0 |+ C' f" N - CLC$ z- e/ }' ~' }5 O
- ADC #$82* R9 ]8 d: C% r* y' o: W0 w5 v d
- STA $2007
. q+ B7 l c0 A+ W1 t - LDA #$00( o" ]# M7 x" x
- STA $20007 S1 i" J* y3 b/ j. c% q, G! E, |
- RTS, M5 i; Y. {; f4 O$ q
-
T1 r Z3 A) { -
5 e7 n3 y. z5 _( f) X - SKINGE_STRING:2 k! q' {) O" V* X" P
- .BYTE $9D,$95,$93,$98,$91,$8F,$80
* r/ O# z; }+ ]: |. w: N% t& _ -
0 l1 W! H8 o- i1 `2 M e - SKINGE_WRITE:
; B* K* I* R: c1 T) t8 h - LDX #$003 f# X: D+ e# V p+ h, L
- SKINGE:
9 [+ l7 y4 @6 \/ |! [. g. q) z# C - JSR PPUADDR_PROCESS- O% p/ l A% h4 d( I5 W0 u# P: ~
- LDA SKINGE_STRING,X3 L) |1 C: y) B) B! ^& x/ o N2 A
- STA $2007
& Q. E) i0 X4 Q - LDA #$00
* Y- B; V6 a; a - STA $2000
* t3 I/ _8 ~0 t - INC $BA
' {, Y! A: H; H+ H - INX6 A( Z2 d; r6 O' ]/ C P% V+ Y9 Y; d( `3 ?
- CPX #$07
+ m4 E: ?9 i3 c& v+ ?" U, x2 K - BCC SKINGE
2 q e9 d# V. g+ m% w, _7 J - RTS
) \1 \, |1 P A$ W( r
. p! z) Q* T( g$ {, w- SKINGE_PPU:
9 u- s/ V3 O) o5 I - LDX #$00
% O$ A @* E) }: B5 J - LDA #$A2
9 g% v3 a) [8 q4 c - STA $BA
: B# `" N( r1 _8 l - LDA #$21- K( |. e( T0 G4 @+ s
- STA $BB( O/ C% S) o) q& E
- 5 b2 o' c& _6 H
/ \4 @% O& K& A! q- JSR DN_PPU- o8 ~+ y) `8 o7 L
- JSR SKINGE_WRITE
: n) t$ R+ K3 S* g( d' J - LDX #$00( n8 {# T4 l$ q
- LDA $07A2- ^5 m. G M! `0 h0 ]" F* \, }
- AND #$02
3 D6 s- a9 M( B$ q9 O; d+ d - JSR ON_OFF_PPU5 Q1 R! e) F) t9 T3 O1 s6 p
- LDX #$00- N n$ P8 b/ G" ?. l' e* q# V; y
- LDA #$B1
8 |3 [" T6 ]$ a0 A8 T - STA $BA4 r% O x/ u4 A* ~$ n7 [ k
- LDA #$21# l0 E; Z7 `: f, z3 D
- STA $BB1 T3 l0 L; A! C
- & ~8 L7 Y/ T6 `" g9 y- ~
- : m- ]( K* _0 r# }" x+ X
- JSR DN_PPU% n8 R# P4 \5 J. l, Y- T; i& \6 Q
- JSR SKINGE_WRITE
$ E# Z0 h# X" q( S1 I - LDX #$00
) n9 g, B q! a5 a. {/ ] - LDA $07A33 b" O) @7 y. B! o" U/ ]3 i9 U+ _6 [
- AND #$02) s6 Q' N. _6 K9 N) E
- JSR ON_OFF_PPU2 q! ?0 H0 h1 a d; R; ~) U
- RTS8 @2 N1 ?" o! p2 X9 {; h! C6 c
- / C: F. {( H) O j
- BULMIX_STRING:% o6 X2 R$ t( l0 h. | e$ l$ L
- .BYTE $8C,$9F,$96,$97,$93,$A2,$80: e8 \3 D$ @! G* h! V; P: K- K9 Z7 I
-
4 ?$ p# B x& r1 y - BULMIX_WRITE:
2 n- { W. `/ q - LDX #$00
& D ^7 u+ z$ H0 T3 h - BULMIX:
- z# h4 n* h7 Q) H, W - JSR PPUADDR_PROCESS( n2 t, z) H, \" W+ r" E
- LDA BULMIX_STRING,X
: Y* d, @( }/ K7 s2 T$ Z - STA $2007
9 L* n4 y, k N! R0 T# l0 u - LDA #$00
+ F1 F- p, n4 \- F - STA $2000$ x6 ~) q0 z$ P! K' ]/ Y3 p
- INC $BA3 A& _# S( }1 G z( H
- INX( }$ r: G, Y( J) i
- CPX #$07 I7 ?9 a% @% A" U n$ G
- BCC BULMIX
0 L: S7 g; V/ `% M" m - RTS, r% f4 v6 C$ v3 s( S
- 2 s, g. I# C% G' H' a, N# k+ Y8 L
- BULMIX_PPU:
9 w* U( S1 a, y( _9 j- B2 i - LDX #$00 |, q3 [- v) J" h( y+ |
- LDA #$E23 }% d8 a: v; `8 f3 o
- STA $BA
& @# i/ X$ a3 D/ c3 N" M' a* v - LDA #$21& o; B4 V1 D/ Z- [8 A9 T d% C
- STA $BB
& w6 z6 R }5 T7 q; O% S5 G
7 s7 u2 z& e( @/ U- ' [5 _$ ~/ Q# `5 E. y' d. S
- JSR LF_PPU9 {! Y) P% S. f- _# o' q
- JSR BULMIX_WRITE
) v: O0 L8 C: D1 f! ^( M* M - LDX #$003 W- }* A4 [6 l: _/ b6 X, U2 V7 [0 r" v
- LDA $07A24 C: O/ l, ]+ h; W! D- Y
- AND #$04# r+ E5 F. q7 a2 d* Z
- JSR ON_OFF_PPU
$ r; ?" Q- K X- F; W& Y - LDX #$00
) |( `4 z! v2 h, E, f - LDA #$F1
& a+ C" q" F! D2 A) {; q5 d - STA $BA
, z9 o# l0 z6 F - LDA #$21* R7 X* Z- M3 y1 y/ q$ Z
- STA $BB
: Z, {; ?! t' M5 j, w
7 P* t6 B/ |0 x9 G; i- 4 f& j3 |( w7 k+ T8 O; Y. n
- JSR LF_PPU
3 q6 m9 P) y4 s( v8 @! _ - JSR BULMIX_WRITE3 T6 \# q K. \) L7 U
- LDX #$00
! E4 c" j" ~* o% M* O6 X - LDA $07A3
' D! [- K0 I5 t) S$ u n" ? - AND #$04( I6 N- Y$ E U) ^
- JSR ON_OFF_PPU5 ^8 Z9 @1 V! d" v
- RTS$ A# K2 f( k: X$ h
- , H6 F$ E+ l2 }1 o) `. d
- ENELOC_STRING:
6 z. a; S/ V! K/ F8 b. X! ?) A - .BYTE $8F,$98,$8F,$96,$99,$8D,$80. S; ?- J3 @7 R k
-
8 w- ^ ?$ u) h7 B1 L - ENELOC_WRITE:8 r4 k9 f3 ]+ S2 s+ M
- LDX #$00* \. \' ^$ ?; c- C0 c: e
- ENELOC:
, Z+ z3 v: T) F6 q+ ] - JSR PPUADDR_PROCESS
% C# A g- n; r6 P; T6 f4 }6 Z - LDA ENELOC_STRING,X0 N3 e' e6 @) `& }
- STA $2007
: @3 a- |; ?. T( ]0 l4 | @7 u - LDA #$00& o, } f- o |9 d# Q* h3 B
- STA $20009 w& @% u- R( h) K* d+ f
- INC $BA' k' S) C" x: K
- INX" @* m! L2 j( @2 W' G5 B. F
- CPX #$07
7 j" C. C# j: U# H) {9 v& j - BCC ENELOC' S, k5 _/ U+ X2 ~
- RTS# h- m; E- n0 S9 g& H' _
- 2 L( T' L6 ^3 c/ q$ u; t
- ENELOC_PPU:
. M$ R* F+ @5 x& R+ O - LDX #$00: J* j* u; l3 x7 Z* o1 K9 O
- LDA #$222 a0 J7 s: q9 o7 V( a
- STA $BA' q3 N {, o# h+ G4 I
- LDA #$22
. }$ P$ O8 R O: I - STA $BB
/ _ }% K% z% D8 y7 q& ?1 A - 6 m4 u5 F7 Z9 S J8 I N
- " K2 I( J1 o2 s$ k6 b* o
- JSR RG_PPU# S ^) O, q% t5 E
- JSR ENELOC_WRITE- ]% U- v5 u$ Y" ^. r# _0 o$ S# U3 R
- LDX #$00
# Y" a# W7 M9 r! \) `1 X4 d - LDA $07A2; a; ?8 H% I7 a, B9 H2 L# C
- AND #$082 g/ H+ N) X4 h9 p4 c
- JSR ON_OFF_PPU
; u( L `+ A7 Y4 P* J* J - LDX #$00
p8 a( r, w/ @# U$ }) K3 e4 w - LDA #$31 ^! A w7 e/ Y" u
- STA $BA
4 u J. y1 U: B5 s1 s$ Z - LDA #$22) U) F) E. k) \2 o4 B
- STA $BB
7 I) Y5 o8 _4 m9 e0 Y# T4 s: ^0 S
4 P" x5 R0 n0 d# R* s' N- 6 v* s1 x$ L5 A3 n3 L
- JSR RG_PPU$ x9 _/ E" k- D& _- u
- JSR ENELOC_WRITE( G+ P! L& T2 U- {
- LDX #$00
' ^1 a. Y; F. B - LDA $07A3
' X, B0 R* r! @ - AND #$08
) A+ F. T8 ^- w: ~! S3 M9 j Z - JSR ON_OFF_PPU, `1 I/ L! v- w6 `8 S5 E6 M
- RTS$ ]# K; E. A7 U4 z' n% V' R1 z% v
-
0 j1 x1 B4 q3 A) }7 C d - FOCFUL_STRING:
% h( B" @ O1 B. L - .BYTE $90,$99,$8D,$90,$9F,$96,$80
( `8 \8 Y8 Q3 G" v: { -
1 {; N4 z- ]9 }( X" f3 I1 ], f - & Z; m8 n# B! Y" ]+ J. S
- FOCFUL_WRITE:2 }" w6 [; |0 f4 y; o! g1 {3 d
- LDX #$00
& F9 \4 c3 I5 d, t - FOCFUL:
7 a$ N3 A" S' @ H/ C m9 ` - JSR PPUADDR_PROCESS& b$ Q) i8 r8 w0 c4 I* x' h1 K; s
- LDA FOCFUL_STRING,X
- o: T3 U6 T4 q2 P2 A% T, \, e - STA $2007
! D! W9 C# j' M7 }( J2 P - LDA #$001 I5 ?4 @/ I3 [ T
- STA $2000
& y( Q3 J4 r) J- y2 E" a" G% ? - INC $BA
) h' \3 J& m+ f# z - INX+ H6 [$ Z- [; _ e9 m# z5 f
- CPX #$07; e7 w- _1 C% W' Y8 u* A8 Q( t
- BCC FOCFUL
* D6 W7 C4 R2 \8 S$ F1 o* L - RTS6 w% h% L9 w* R
- C6 S0 u0 l" B6 K! c- FOCFUL_PPU:5 Z4 \5 g9 Q5 H$ ]% ]7 K
- LDX #$002 I4 }7 P5 P5 [/ T/ \: K9 k
- LDA #$620 ^$ ^! U/ \2 _+ _
- STA $BA
) k) i0 w+ p2 T/ v$ s$ L - LDA #$22
( v1 H' t) {& H( W9 r - STA $BB" ^9 x9 y- J+ J5 F5 a
* f( Q% `3 b/ r+ S8 o! ]# c; {8 G- 3 K+ U% o9 }9 B% ?1 w4 J7 y
- JSR B_PPU
' |- a, g: ~6 @: K/ [! O1 m - JSR FOCFUL_WRITE: E+ m" e% r2 @; L ^
- LDX #$00
0 c }8 ~% N; @( h2 d - LDA $07A2
0 z, r# N0 D- [$ w8 D5 h - AND #$10
( R6 ^# |7 Y0 o% F9 r! e0 Z - JSR ON_OFF_PPU
% O: E" y; t2 f' ?3 _6 w3 y7 s - LDX #$000 h, Z+ l9 ?7 Q! X. l" V/ Z# q1 f
- LDA #$71 |% e( ]$ x! ]( r% m( ?
- STA $BA
/ Z5 X; {- h# a4 I - LDA #$22, E. M! g1 a6 C: I2 U, u- R/ e
- STA $BB; V8 h5 S7 u9 i) F0 A- G
6 ]5 J+ p# B+ f5 N' M& J
H* ?, a1 x; b7 ]& {( t2 ]0 C- JSR B_PPU8 I6 n8 B* @8 o; U7 b
- JSR FOCFUL_WRITE
" L. s L* T. ^# C" d8 Z3 v* S5 D5 } - LDX #$00
9 u7 P( |. O: P1 f K - LDA $07A3! b, `8 ^8 Y" A7 L8 }* W) A
- AND #$10
* }7 V: V# Q: Y$ w2 M - JSR ON_OFF_PPU
" b% @; S( H$ |( F4 U: p - RTS6 u: ]* R+ y; J: R }% N/ V1 `
- ) Q2 Y& ]$ b: i) \# I
- BULCON_STRING:3 a7 g1 V M. B4 S/ S4 w
- .BYTE $8C,$9F,$96,$8D,$99,$98,$80
, w/ \, j2 H* o; j$ r9 E# C -
% G1 p' P+ M% g9 ?) C- M: [! a -
! p$ v: I5 c( v7 K' k9 `$ W- V# U - BULCON_WRITE:
* N- A7 x. M/ A/ z7 Y7 `6 D - LDX #$00
# u6 H) Z3 D6 B1 B/ ^( \* [' n - BULCON:
9 r D$ l( p. _- d - JSR PPUADDR_PROCESS. _/ G2 d/ A# L. Z! Q
- LDA BULCON_STRING,X3 A1 a D% \$ ~$ G8 H2 L" j' A
- STA $2007- j3 s$ h3 x* C$ F) @2 U" T
- LDA #$00
9 D- L) B! m: d/ D& {8 i - STA $20000 \ k2 \* [* k& C% [
- INC $BA' Y6 r. p2 Q* q2 E4 U
- INX
6 u3 F5 k m& ^! X) A - CPX #$07
) v" }! X# y. J& J. b4 t - BCC BULCON& z' M. K! ^9 M9 t
- RTS/ }7 n& t, {; X0 l" T" m+ A( k
$ x; Y5 W/ p3 Q, {+ H& g. x1 ]; ]- BULCON_PPU:+ U, ^5 J5 s/ f5 B! w( K
- LDX #$00
- Z' z* ] H' S: d - LDA #$62
2 u( q: T5 w. Y( X) B) w - STA $BA" m7 n7 w4 a5 i" e9 i. q5 k, {
- LDA #$212 ^( T0 @- t; }, h2 k7 g9 H! D
- STA $BB2 p: C' f) T/ a+ H9 u3 l
- & ?. [% N2 o5 O$ t
- ) T4 a' X- d' b0 Y7 Y
- JSR UP_PPU
) K8 `5 \" ]+ Q4 b: @: X - JSR BULCON_WRITE
) K/ Y. r9 {& U7 o' Q, s - LDX #$002 R1 z0 [8 I7 z0 {0 j5 G- E
- LDA $07A46 D9 r5 R0 b7 I) x5 l
- AND #$08
! c: w' b7 _; W V2 ?, O$ j/ x: y* e' Q - JSR ON_OFF_PPU
% k0 u/ y/ L( o* n* v/ I# f - LDX #$00
1 k, Q% q; z' h) H. e - LDA #$71
! C5 [, s! s3 J4 N- U9 i6 c - STA $BA
8 e0 e4 \( F3 s4 S% f - LDA #$21" a! p+ _$ J/ A( a/ q& [
- STA $BB9 E: J) a: F: J8 I
) o+ z' j, u6 s% C: c( w. N' `- 5 w& f. v; `6 O/ V0 A6 _
- JSR UP_PPU% l @7 K1 e: l H
- JSR BULCON_WRITE
, t) |0 i7 k' ` i5 A+ f! m - LDX #$004 ?4 c% n$ [. W A, l- @4 ]
- LDA $07A5
( x8 f) o; ?1 ^& i# t - AND #$08/ w1 \' `; z8 O- J" V# F
- JSR ON_OFF_PPU7 e: f" m c, L( i# _, ?/ C
- RTS; |- l, x* P) R. f
- 6 t3 t( H! D+ I2 k
- SPEBUL_STRING:* ^& J/ v& t* t( M) [: O* `/ b
- .BYTE $9D,$9A,$8F,$8C,$9F,$96,$80. K' }& _! f) y* w
-
8 [+ _+ c' z' h" X2 C% I7 t -
9 W6 ?2 M8 s+ d8 `5 U2 K% `- Y8 q+ C - SPEBUL_WRITE:# t: A( H( P! {3 u- R; V# ]5 M( a4 b2 b
- LDX #$00
& ^0 z q6 ]2 P r - SPEBUL:
. N+ k* F9 B( T5 j# J' x - JSR PPUADDR_PROCESS2 w w4 n' o7 B) W3 ^
- LDA SPEBUL_STRING,X# @- |! j1 O) D C, |
- STA $2007: O1 J% E- r! |1 m' D3 J
- LDA #$00
5 ]% ~4 M! U$ J# F$ a# D. @- N - STA $2000
. l% c: x9 y( `1 D0 W, Z - INC $BA) O+ G9 D. u8 {* [; m$ M
- INX1 w3 L5 i2 L7 q/ R9 Q0 {; j
- CPX #$07
+ B% c" [) @3 A( \4 F1 g - BCC SPEBUL
$ \1 m8 Q# m9 ]% I" h+ t- G - RTS$ z9 u- }% P' j! [) y
- / U; L, i) B* [! S: h
- SPEBUL_PPU:
, Z; H) G6 m+ D' z, b4 H6 w - LDX #$001 Y. S( v# L% p
- LDA #$A2! w4 j$ W( f4 R& O9 x& z4 ^1 D9 V6 Y/ K
- STA $BA9 p j2 f" n8 ^$ y3 m6 C3 x
- LDA #$21
# K# ~3 j0 `2 Y - STA $BB
5 l5 P* K1 a3 R: ~
& A, K" P" B. d* l6 |+ j% ^3 W9 q
, }/ D3 K! D' ]1 T& ]( d2 B/ i- JSR DN_PPU
# m( M/ W. I. [ M% ~# a1 D - JSR SPEBUL_WRITE9 q0 y, }! h" H1 j6 Q
- LDX #$00; d1 I4 l0 H6 Q# v) D% k4 o6 r
- LDA $07A4
5 J* l* N" L, Z( i* ` - AND #$02
% |; Q' x# ? |5 |7 A - JSR ON_OFF_PPU
4 f" i1 {% L( l, J - LDX #$00
7 H+ d7 _4 r$ I( X, w1 D - LDA #$B1 T! |8 K9 a! @. n6 e8 X; E8 b
- STA $BA. t- o0 [( m, M6 q6 R
- LDA #$21
4 V3 N+ k C7 g+ Y: g - STA $BB+ y g$ t/ m- {2 G1 G
; }" t ^1 D b3 H& |4 d" L0 T \
' a( r; ^0 e) o+ G- JSR DN_PPU( j' s% X: t6 Y
- JSR SPEBUL_WRITE
* d' C' a: ~4 n4 |, U - LDX #$005 O6 V" P& J+ j' ^9 v+ a
- LDA $07A57 ] `# D3 o# S/ j' r6 ?! e
- AND #$025 d/ U! ~1 E8 h$ \8 |# @, U* F8 a# v
- JSR ON_OFF_PPU# E! d i7 P6 U7 u* M
- RTS( ?* o: s: S2 [/ p) J" |* Y
- 6 g: w3 N' w) r* {( y, Z% m6 F% O0 [
- .ORG $A500
8 u0 s4 B) B" ]; [+ U* K - CLEALL_STRING:
9 G% s# e' ^- @) M/ L7 [% U" | - .BYTE $8D,$96,$8F,$8B,$96,$96,$807 ^- ?8 C( f0 E
-
. I' ^: i. f) V/ L1 C9 f5 L% b -
3 u1 O: J* d* m& |% [ - CLEALL_WRITE:# F1 p, n3 O* n* V; m. m
- LDX #$00
f6 [& A; t9 r$ m( e2 J- H - CLEALL:
2 m$ V( _ u+ l1 C- p; ?4 q3 T. l5 N - JSR PPUADDR_PROCESS
, g: {/ R5 @; W1 `1 V! D4 M - LDA CLEALL_STRING,X
$ `, M/ U3 F1 `4 ^ - STA $2007
! Z: R; a/ h* X8 q1 g0 e7 m - LDA #$00
4 W. k0 D8 z4 X4 O' M - STA $2000 y6 F8 [, T$ x8 z" h. f; f
- INC $BA
# B9 y2 A6 l! ^6 O: \; ~ - INX1 V4 R2 G0 N' j+ Z0 f1 H \
- CPX #$07+ q" J+ d( _9 }; F9 V/ _" L P; t9 F
- BCC CLEALL! K+ O% z. ] n% c" B
- RTS3 N: P: c3 k. K3 h
- ' [; Z0 X% r \& }- X
- CLEALL_PPU:
7 k4 P4 Y) O( M, T5 O: a8 \4 n$ c4 T - LDX #$00
) V ~# l* O8 d% ~9 N. A* E7 r1 x - LDA #$E2/ {) U" x5 F/ W1 }! d6 l
- STA $BA6 {7 c( E2 F0 `% o8 T0 G; p
- LDA #$212 W& r- J# w; d% f
- STA $BB$ C- ?+ w2 R! j* a# O' r4 V% e
9 ~, [* T% v( Q+ V
$ q' q, I0 q# f+ F* e6 \5 W$ x/ d- JSR LF_PPU; N! O& e9 r9 R- o
- JSR CLEALL_WRITE: R! B, _& v% M7 j' q* b
- LDX #$00' A% h& M0 @) w/ n) A8 Y
- LDA $07A44 Y3 z! ]) r$ W6 P S; c
- AND #$043 i$ ?- Y1 W7 o9 y: c/ ~+ J. d. N/ L
- JSR ON_OFF_PPU
( \& Q6 B4 h- o0 m' x( | - LDX #$00
2 s, I2 w- C, \1 L2 P - LDA #$F15 ^: j$ F+ J9 |9 ?6 w- D' S- L
- STA $BA* ^6 E4 C' J. I2 k
- LDA #$21: ~2 S9 U- b, ?- H5 N$ i! n
- STA $BB
0 S5 W C$ u( l, X: }! ]" [
7 W- u. P; _, q0 y2 _- 0 @' ~( x/ Y R
- JSR LF_PPU
8 g- N) n% n0 p6 s* S6 S; p: x - JSR CLEALL_WRITE d$ X/ Y& E0 m- x& A: ]+ D' n0 k
- LDX #$00# ~1 F, J* O1 r R% D8 R J
- LDA $07A5
2 U( I4 ~4 V: L3 a5 ^9 k# s: E - AND #$04* G- ^3 C8 F% ^" L) r3 f) R0 P
- JSR ON_OFF_PPU' D1 q+ b0 d+ H1 b$ `$ E5 @
- RTS" |2 k6 N% k" ?% h3 M0 g$ s
-
3 w; A& Q7 M% u' _ - HARDMODE_STRING:
]+ d+ U& ?% W2 ]6 H - .BYTE $92,$8B,$8E,$97,$99,$8E,$80$ N) W' b) D8 [% Y- ~" a
-
* K! X. F* N% k8 \' Y7 ^4 X - # p1 g+ ^% K, x
- HARDMODE_WRITE:
/ d2 G+ y5 B1 u% l - LDX #$008 k9 T4 g3 m: n# |6 s
- HARDMODE:) l' e* C) O5 Q' e0 b
- JSR PPUADDR_PROCESS
7 M9 E3 c U0 ^ Y6 ~ h) M$ x% G - LDA HARDMODE_STRING,X
/ |( G9 O! d% u4 Q - STA $2007" L9 E3 i( i h$ Q1 e
- LDA #$000 r! E, I) Y8 y9 N$ I" }9 `3 H5 k
- STA $2000
$ y: c3 n/ J5 ~% n" o1 | - INC $BA8 k: \: v7 X( j$ H1 i
- INX3 Q& n: S/ D( E- r# B
- CPX #$07
- m0 R. h! Z4 @" i - BCC HARDMODE
% m4 p2 ^6 Y2 [# j9 { - RTS: f* T) p" u$ j- }8 x" F1 K4 p
- `2 d" o$ w) t* T
- HARDMODE_PPU:
. v" `" O& E: Z: a O - LDX #$00
1 V) r- t _8 ^; ~0 v# W3 z' j - LDA #$222 I$ s5 _& S" s/ Z1 i# Q4 D3 d. \, }/ |
- STA $BA: x+ ^. C. _. b4 I. s, J7 A2 b2 [
- LDA #$22+ B9 \( A5 f% Z: h" X1 M
- STA $BB( F" Z" {$ R7 I, [5 b" c1 i$ K8 `
- JSR RG_PPU
* R* G7 {, a+ w - JSR HARDMODE_WRITE
5 J# L0 _' a+ n' h' F7 O% G - LDX #$00
) \, A. K" Q8 N, b1 I0 B; U, K - LDA $07A4
/ Q6 X/ C G0 p* k, N( [ - AND #$01
) Z2 U0 h" F6 H6 C! u2 Z5 l Z - JSR ON_OFF_PPU
- W. x( T, q0 u( o4 z - LDX #$00
- C( w' O5 T2 I& i3 k. N# h, W0 N - LDA #$310 S3 K. ?' {5 n4 F
- STA $BA
1 g! K# P% f, t3 w( ^ - LDA #$22
: ], h/ P$ s6 N - STA $BB9 b4 P' I8 M1 F L# ^
3 X. k$ e( Q! q; x2 n; n
5 h: z' {$ B) O ~- JSR RG_PPU
$ Y7 R, [' Z, _3 d6 a/ m - JSR HARDMODE_WRITE5 t1 ?7 E/ G& C
- LDX #$007 j, y! y9 U* K! o7 n1 z
- LDA $07A57 K3 E# ]4 c n4 r6 X5 \+ D
- AND #$01 i3 z4 P, c' U1 U
- JSR ON_OFF_PPU
, m2 s) Y) Q* V" | - RTS8 m% Y4 E4 U+ Q8 a5 x3 u
; p( z1 w3 M* ?: x H' e, P. u- B_TO_JMPSTG_STRING:
! z' o$ R3 ~, q - .BYTE $80,$8C,$80,$9E,$99,$80,$94,$97,$9A,$9D,$9E,$91,$80
0 a- t- a) O& w9 Q -
* I' }# u) }) @* E3 b1 ~- I0 n - % z# u. h3 b* t r- {# S( s: E& k
- B_TO_JMPSTG_WRITE:
. m" z6 _8 X" W; I - LDX #$00
: b" Z% X; \" t3 W2 n6 O6 } - B_TO_JMPSTG:
% P6 o: l/ X- |8 y6 `2 T4 |9 ~, _ - JSR PPUADDR_PROCESS
# ], K4 A ~% m- k3 J/ H- Y {8 L - LDA B_TO_JMPSTG_STRING,X0 M; ~' z& `0 K- ]" J0 h+ Y
- STA $2007
3 W! X" L& H4 I1 e% W) N - LDA #$00
1 N) g4 W5 A2 o - STA $20001 Z+ H% U& d. @: c5 }! s% B, f
- INC $BA
; N0 M1 @* @. o0 f9 Q4 B7 ~ - INX
x- v. ?0 U! d) G; ? - CPX #$0D
0 p" ~" q+ }* B# J% j& I- { - BCC B_TO_JMPSTG
4 `, n! a+ e& K6 D - LDX #$00& A3 z' }- H8 u, U% v
- LDA $7FE0" t7 n8 H2 } {5 i7 q: r: o5 q
- JSR ON_OFF_PPU T0 k0 Y/ L, ~: [, l
- RTS
7 @3 y( n( l$ H7 _
/ h0 H2 u0 A2 a# U( N- B_TO_JMPSTG_PPU:
8 Y* f3 n3 S+ q8 b7 e2 S( o+ f8 ^ - LDX #$001 A* q4 ]2 g* p4 F4 a, I* {0 y
- LDA #$68
' N, _# G& a( f9 T" }9 U& T5 [# M - STA $BA
9 q# A, P* h( e. I$ \' ^ - LDA #$22
, |$ s2 h) X' |$ @ - STA $BB
% h/ |" N0 o7 Y+ z3 B% f& A' Q. P' ] - JSR B_TO_JMPSTG_WRITE8 m3 U& D; I% ^2 U( Q+ H( f
- RTS
* }% t- [# Z2 H2 O5 [ -
8 n# l7 [3 @+ Z! ? - 8 c4 j" g; }! M- p- M& j
- A_TO_PLAMOD_STRING:
$ |) q8 q! A% C# [ - .BYTE $80,$8B,$80,$9E,$99,$80,$9A,$96,$8B,$97,$99,$8E,$80* S, `5 S* C4 D+ Y/ T
-
. ?' x' Z8 L1 H+ \ -
8 u' v; M1 U+ }, {' g! s- O - A_TO_PLAMOD_WRITE:9 S) u, M: J, a9 n! k
- LDX #$005 C8 D* ~& I! i p8 z( t1 u; i
- A_TO_PLAMOD:; i% K; v; E8 a
- JSR PPUADDR_PROCESS/ O2 T; a1 u+ ]. C+ T
- LDA A_TO_PLAMOD_STRING,X
/ Y ~) q$ h6 t* I0 L - STA $2007
7 z3 d+ I* }( J& \1 u" g* A1 A; { - LDA #$00 e% V) f# u& P* j3 f+ g! H
- STA $20004 D0 p6 u6 E! m4 S! d6 ?( }
- INC $BA
$ I F9 l4 Z7 w: c/ T7 |4 [ - INX3 |4 f: E; n) T) ]8 N* }
- CPX #$0D2 M1 J: q4 V* m9 s' `5 T6 [% |
- BCC A_TO_PLAMOD
4 X, R7 ~. i. h; p$ q | - LDX #$00
' w! v4 H5 a x$ z0 a - LDA $39
* m- D' M. L8 Y5 ]/ {3 M - JSR ONE_TWO_PPU
# m" }6 B6 [* p y - RTS
0 ]5 ]( {/ k t3 V" O - ' p* d$ H. L+ n W
- A_TO_PLAMOD_PPU:7 A# M( \4 B( ~
- LDX #$00
* l: h: b* v; U" r# y - LDA #$A8
7 a% a7 U* p4 d1 U* u/ w0 w - STA $BA7 u* H, V, d. }& B- g% x
- LDA #$22
1 m0 U5 G5 S1 Z4 E( {9 j$ `5 L+ l - STA $BB
# k' `8 [. x' Z4 J' ?! h/ u - JSR A_TO_PLAMOD_WRITE+ s7 l) B- E$ ^# }! r7 S- l# `2 H
- RTS
* S; K: H, m1 O1 ?. N& d
* T& [- U0 q7 C+ U- MOVSPE_STRING:3 _& @- N- z" U0 ~; f
- .BYTE $97,$99,$A0,$9D,$9A,$8F,$80
+ |8 f1 z$ W2 {* |$ s' R - 1 A: b6 J9 ^6 }9 G
-
: }2 E* i! K/ P- Z% ^# x - MOVSPE_WRITE:3 E S$ O. \2 k
- LDX #$00
- P% p3 `/ K' }8 Y1 A, x. e - MOVSPE:
( `+ M* ^& A% l- e& ^$ Q - JSR PPUADDR_PROCESS
/ y* r+ l. M/ x' F1 \9 y4 U - LDA MOVSPE_STRING,X
& {- g7 L! n( L8 I l3 a0 i4 L - STA $2007
( M& U; T1 G7 K% Z7 B+ M - LDA #$00# S1 [8 F) ?- |6 [7 T" k
- STA $2000
7 B# g8 A [: \: V) \ - INC $BA+ D) Y4 Q; @! V. I% P1 V
- INX0 K/ \( V4 m Q7 [
- CPX #$07
; ]; [7 x( q9 p, N2 A - BCC MOVSPE7 D8 u1 M$ c- A [1 Q1 c% |
- RTS0 k+ [0 n2 J+ o: Z) C7 G$ b
- ; {/ K( E6 m. o+ D
- MOVSPE_PPU:
/ j. S) m& n$ h# ~" h/ v - LDX #$002 U: O7 K( I& X9 y
- LDA #$698 K4 ?' x7 F6 X# J; _) B
- STA $BA
D: z& i/ V- p& T& ?( M - LDA #$21
0 t9 E0 |7 n, x$ r8 G- f% `" F. Z - STA $BB G- m* N) Z7 b# ^+ z# l) D/ w3 _
- + B: q7 l9 _; ? m" X! |
/ I3 \$ k h6 U! W6 v- JSR UP_PPU
5 T3 `# Y9 t D8 r$ g; S; C( ?9 X - JSR MOVSPE_WRITE) H1 b6 i) n2 P% h B5 G
- LDX #$009 A4 m6 \3 |4 o0 s! e w
- LDA $079F
& X+ J5 x9 Y& `, @$ L0 Y - AND #$085 q: F. E0 ^ j5 a' ?
- JSR ON_OFF_PPU
" b" X4 \3 f2 b: h1 v( F; @3 Y- H - LDA #$80
( y& x; m6 k6 A" A& N$ q+ J: l - STA $2007
3 [" _5 ^' j ?" d - RTS
- G+ j- ~! Z, n9 b- J( } -
9 E! t: u0 f% } -
* Y/ d, ^8 ?5 A - UNLJMP_STRING:# q: V' X/ E$ U7 I6 N3 N
- .BYTE $9F,$98,$96,$94,$97,$9A,$80* u8 ?$ { _# [- t, w
- " Q: k( I4 x9 x7 _% i
-
6 l; i0 B+ D) N - UNLJMP_WRITE:
2 T/ [) e6 w1 i) f* h$ h - LDX #$00
4 ~) Y8 s) o1 }2 U - UNLJMP:
0 y8 O7 M5 p. g6 u# D" E" C - JSR PPUADDR_PROCESS5 u4 K/ T# B3 g; P* e) e/ K
- LDA UNLJMP_STRING,X
~5 u. E' k- R! f" e - STA $2007 t3 @( O6 e0 ^2 i' ~/ D6 n* m: T' C% O' J
- LDA #$00
2 h+ j+ i- d( C: b$ m1 J9 k - STA $2000
1 a7 r; H( s" P - INC $BA+ H. ^. ]" X4 E& \" _ m
- INX
" d) M6 b/ F; q$ `+ ] - CPX #$074 h% I" J7 m; I- O9 ^4 F
- BCC UNLJMP' L5 ?: B- k4 v1 P8 q
- RTS
- f4 ^5 j/ Y u& p - ( P3 V# ~8 @1 t1 S+ U$ c8 e% J" ^9 p1 }
- UNLJMP_PPU:8 y' i* B: z) X6 ^
- LDX #$00* W) \% t: _7 R! W
- LDA #$A9+ x- ]; Q+ {; J
- STA $BA
) m& r" K! m& p7 @4 Q8 w+ r+ p - LDA #$21
+ D6 @, y5 I. L8 T+ Z - STA $BB
3 z! ?; h# C0 M, Z s( a
& [8 w7 S7 @# [( D- & R0 j( m1 A4 |6 I9 X/ H
- JSR DN_PPU4 R2 I* q# j/ {4 P+ _
- JSR UNLJMP_WRITE
$ ~4 b) c* B# p6 J1 D$ r ^; s* ] - LDX #$00
# A# O* v' y$ Y* j2 j - LDA $079F
9 ~5 N2 |' X6 P1 v1 V) v2 g9 R) P - AND #$04, v& G) ^: U8 N. S w
- JSR ON_OFF_PPU C& Q: f5 w" D
- RTS4 G( s' c8 E* }. K. z& @& l
-
1 q T& f+ Q; M6 w& Y# x - $ [ {7 k2 M( h8 b5 ~. ^2 @
- DESTRO_STRING:
, n5 G" Y7 g9 f* J - .BYTE $8E,$8F,$9D,$9E,$9C,$99,$80# |0 ?- {; [1 p# u# T
-
. o' m; ]! o- W) T. O9 h -
; J/ T' u7 N( |. l2 k - DESTRO_WRITE:
. ]- R7 ?$ L8 @3 o3 U/ r2 x5 \' B2 E - LDX #$00/ e9 b5 u0 i! a4 m7 N
- DESTRO:
' f" A) G# P( |* Z* s - JSR PPUADDR_PROCESS9 I; }- ^, a3 m0 w
- LDA DESTRO_STRING,X
, Q" S3 s6 O4 x7 q - STA $2007
4 P; R) U5 _4 s- l- y( ^ - LDA #$00
# ]0 c* ~% Z+ W9 g: p# U' O# g0 @ - STA $2000
' P( v- \; V) b3 ^1 c - INC $BA z) d1 {! L. y. Y6 }9 G; N
- INX7 }; ~& k7 s+ K1 F/ h: Y
- CPX #$07
) a7 p! V% _" |. R6 g; z - BCC DESTRO4 B* ?- p" |9 l$ }& z
- RTS
; v! f, n7 [4 Q
" U+ N4 c5 k, V; X/ i1 ?- DESTRO_PPU:8 v+ P# |2 h$ i$ W
- LDX #$00
: T! a8 t( @ {7 M' a" w' x$ K - LDA #$E9# H. v) K6 |. ]1 j) b
- STA $BA
2 I7 ?& |9 I. f0 U0 V& o - LDA #$21
) m, C; o: `8 i$ G - STA $BB
' g. `. u0 L: Z1 p$ m: F; ]+ j) ~ - " ?' F2 _# u. t' x. V
5 V! T. B6 t/ f j! Q$ }* H- JSR B_PPU
; e4 K9 V- K. w& y! W' O% d' A1 d! Q - JSR DESTRO_WRITE8 n* n2 ~0 |! o- ?7 [- V! ~5 A
- LDX #$00
/ `" i$ ^- ]9 s F/ m0 ?9 l - LDA $079F3 T/ I9 V1 w/ p- W
- AND #$40
8 u Z, p7 r$ L) C( }2 I - JSR ON_OFF_PPU
# G9 g/ O) C; F+ Q0 e6 g - RTS
! L/ A! k/ D4 o) H - 8 E: n& _- i9 h7 W. G- {! V( B: l
-
3 k S* |+ ~6 j- P4 B" g3 m5 W! b - EQUBUL_STRING:
8 z& \2 B4 `' N$ u& u - .BYTE $8F,$9B,$9F,$8C,$9F,$96,$80
3 i( L8 _/ g: H/ b3 p5 ` -
% Q L8 R% n: x& Y" ]1 i Q$ x7 {5 u4 b5 G( @ - : H2 h7 y% C: |" e2 V: }4 e
- EQUBUL_WRITE:& N: H! |/ U6 l% Q6 p- y
- LDX #$00+ H( _, g' S" _5 H+ u4 r
- EQUBUL:
! H1 `8 x. F, ^" S+ H - JSR PPUADDR_PROCESS' S6 o2 }" Y2 K. l9 n
- LDA EQUBUL_STRING,X- S( c, n4 P9 k" a
- STA $2007( H7 c. p! ~6 F3 l
- LDA #$00' O3 a( B# B- d. p2 p! g
- STA $20003 B' _- C5 x' h% S& ?8 [6 b
- INC $BA
* b8 L: Y3 m1 y, p0 J, L& l. h - INX
1 M* a \7 V7 Q, Z+ G5 T, g+ A - CPX #$071 ]" P" o1 P% C
- BCC EQUBUL+ Z2 S5 f8 D$ V8 D0 U5 s& r
- RTS
. |$ }4 x' h7 R. B. x - ) z5 I; k- G! L/ t1 B
- EQUBUL_PPU:
8 ]4 B6 [6 p! n. F - LDX #$00
7 \# V9 u( J7 l0 W: _ - LDA #$29
k) W, H* X! J$ l! U0 E - STA $BA: z7 m8 a& W8 N9 U
- LDA #$22 n* ]+ m6 [! l( l5 K, ~7 w5 K
- STA $BB
0 ]( k( |3 z- L" D
' M, w' o/ \% }6 O4 B( A9 |- % |- K P0 f' v
- JSR A_PPU) K& u+ U8 R! `7 \# r
- JSR EQUBUL_WRITE7 z2 q, m; \1 A4 i5 p4 P) M
- LDX #$00" h6 g2 c- ]& H0 L4 f
- LDA $079F7 ]: H/ [% n& Y! J: M& o
- AND #$80
, d& u( J' M; K( K; O - JSR ON_OFF_PPU4 x5 j1 \0 d, Z! w% u0 [4 V' n5 c
- RTS. h2 t0 R) X _+ |) t( B# b& Z
-
' ? c$ m# j, R4 U8 W6 d -
3 g; \$ F) g8 d) |4 `8 @ - - ~$ @" `) v* h3 X
- BULSEL_UP_STRING:5 l4 {! j5 u1 F H. S
- .BYTE $9F,$9A,$80,$9E,$99,$80,$9D,$9D,$80; n/ I* y2 @7 i9 ?4 s j
- 0 I/ h' n9 D" G1 m# d
- BULSEL_DN_STRING:8 n4 H1 Y" }7 V; @4 x
- .BYTE $8E,$98,$80,$9E,$99,$80,$9D,$96,$80! |& {, ~- v/ G. h2 p/ d
- 7 |6 P. @. \' s- `* s9 Z
- BULSEL_LF_STRING:
6 M/ Y1 l) j z* J - .BYTE $96,$90,$80,$9E,$99,$80,$9D,$97,$80% E- S4 f- T; _6 W0 ]8 C
- 3 r% C8 |0 f0 a9 O( U9 D
- BULSEL_RG_STRING:
* v$ d/ X1 d8 A6 c& g ^- Y - .BYTE $9C,$91,$80,$9E,$99,$80,$9D,$90,$805 g6 ]) g- [" U6 p: p- s ?* N
- 5 I9 e3 p/ K) o1 g& F
- BULSEL_B_STRING:4 ]" Q4 d0 [2 j2 m& {: i
- .BYTE $80,$8C,$80,$9E,$99,$80,$9D,$98,$80 W/ M! d* H7 f7 j6 q3 I) Z* l7 K
- 5 m' c# o2 L9 Q2 B/ `
- BULSEL_A_STRING:# U' {1 y K9 K; i
- .BYTE $80,$8B,$80,$9E,$99,$80,$8D,$99,$97,$97,$99,$98,$80,$9D,$9A,$8F,$8F,$8E- [+ p1 t( Z3 {" z" e9 d# Y7 e v3 d
- ; Y9 G( J. ?& `0 I2 a& D
-
2 r0 i4 `$ s2 P4 q/ a/ R7 b$ V - BULSEL_UP_WRITE:, R8 i2 \& ?9 q4 \2 u9 Z
- LDX #$00
" R D2 ?4 F7 Y* z - BULSEL_UP:
3 P7 \7 `& x$ E3 ^& e - JSR PPUADDR_PROCESS
3 u" e: Z0 }" ?5 h - LDA BULSEL_UP_STRING,X: n! e2 G, F9 D
- STA $2007
9 ]! B" Y5 q& }& j h8 e - LDA #$00
. D0 y5 Q4 ~( X. w! F' ~/ i) H; [ - STA $2000% q3 f0 z+ h) f @. |* G4 s
- INC $BA5 Q+ V4 g+ C. p/ r# Y; S$ t
- INX
8 {% e# Y0 Q% O: L$ K4 F - CPX #$09, i0 o: p$ E5 Q" V7 ~8 T
- BCC BULSEL_UP% F9 h) q' k# v. v
- RTS
4 S! h( U/ H p% X! ]- s& { - BULSEL_DN_WRITE:4 I( W- h1 q6 `
- LDX #$008 d, o9 s" H5 @ x0 c* p. M# ~' {
- BULSEL_DN:; w5 W9 j& l( u, X- E
- JSR PPUADDR_PROCESS
. @. a% G( b2 q A. k: ? - LDA BULSEL_DN_STRING,X: n; t; A8 M/ ~' E) L' N: W! D
- STA $2007) w' |! a# w& [6 ^
- LDA #$00
2 m# j+ q+ } m' Y" L: S1 | - STA $2000
% `: c3 I9 Q, C6 I$ d2 m - INC $BA
3 M8 m) ]0 ^' ^" q* f' X3 \ - INX* ]1 J6 ]$ j* S# j" I3 X6 w4 `
- CPX #$09
$ l, _* ?% F7 ~+ A y- S& V. F - BCC BULSEL_DN
) Y l3 p! M8 ~. L1 F8 H" a4 Q - RTS
) G) S2 S# n$ Q# H! y3 A' D - BULSEL_LF_WRITE:
$ e, _' r( r7 W" ?) ? - LDX #$00
2 Z- n( Z9 D, m3 o* O2 ]3 I - BULSEL_LF:
5 t, U5 ~ [/ h6 a2 o0 q/ m. O - JSR PPUADDR_PROCESS
- ^) J! [$ X' J* E - LDA BULSEL_LF_STRING,X% }2 ?9 x1 q* M1 l; u: ?5 z1 e
- STA $2007, O& P( J1 H; U1 z" K# y8 {
- LDA #$001 Y Q& L, `+ S8 D" ~8 \( C. Y" J
- STA $2000
7 w& Q' O: n# e. H* V' s [ - INC $BA
; C6 B4 r: t6 v" D/ @! k4 E! A1 | - INX* c6 a8 L, R( ]1 z# y! g
- CPX #$09
0 S3 g; j V5 Y' ^6 x$ y - BCC BULSEL_LF
* u1 x1 Y/ M9 ] - RTS
+ }( [0 U- o6 S6 }7 p- c/ p7 x - BULSEL_RG_WRITE:) C7 M9 i' q# E y" d* s1 Z
- LDX #$00
# s; W5 Y2 a' V# X* K - BULSEL_RG:+ [8 `0 ^. @7 U
- JSR PPUADDR_PROCESS. _9 [4 k3 a" \4 T# I/ T! s0 y
- LDA BULSEL_RG_STRING,X# c6 I% x$ E* D# N5 H
- STA $2007! [* i1 W" T ~; a) K# e
- LDA #$002 `( S4 R, Q! ? @5 a+ Z
- STA $20008 l' ?$ O# M A M7 V
- INC $BA
. T. W( \7 }3 Z2 U2 ^1 F - INX/ f. s3 {* J2 |. R7 }
- CPX #$094 @- p' B' w/ \. T5 L: t$ |
- BCC BULSEL_RG
" h4 ?2 r0 l8 e( `8 i2 M - RTS
6 r- l8 b* s; d' M9 X- x5 B - BULSEL_B_WRITE:/ S5 Q' y4 n* r$ F# C
- LDX #$00
7 O- S, F: h6 j. T* [) J9 ` - BULSEL_B:3 r4 C9 O3 R, Y
- JSR PPUADDR_PROCESS& K& r @" R/ Y5 f. I
- LDA BULSEL_B_STRING,X
1 H/ Z2 R! C# F) ?$ J- c { - STA $2007
$ c4 p5 d+ H2 W0 |8 ~ - LDA #$00
5 R& i. h! z1 R% I% n+ E' L4 v - STA $2000' f7 A/ Y$ K3 K' m4 u* Y
- INC $BA
1 i+ E; X: e( q& |6 p - INX8 g6 f- Z) ^. I( U
- CPX #$09
$ I0 Q' [) Y8 D* n9 {4 {0 { - BCC BULSEL_B
9 W0 Q6 X" K' c, ?) m% K - RTS
1 O4 V; Y6 d& g7 M( t$ e3 u - BULSEL_A_WRITE:
4 N% W, m- r4 g% X) a4 J+ J - LDX #$00
8 R+ s8 ]% c- q. a4 O6 _ - BULSEL_A:
" G: B& ~6 X* l' a) B9 ~ - JSR PPUADDR_PROCESS
" c4 v; l m& N2 z/ w, H - LDA BULSEL_A_STRING,X
: n$ m" W$ ~5 N7 z1 b' v' Q( T - STA $2007$ z* L' s. f- S/ X! R o9 J7 p
- LDA #$008 {6 N% Q5 T) m% u1 S/ _$ X
- STA $2000
& b% c' I( X G1 l, C/ f - INC $BA
! Q3 A$ N- p! \! c, O J0 e - INX
9 |9 F. }6 }1 a r( K; I- I1 J, o8 _ - CPX #$12% N" w% w4 D, Y, \% _2 M, _1 V. l
- BCC BULSEL_A
, d3 Y1 g% i$ m$ p: v, @- {* O - RTS+ H5 W6 f3 ]' W+ Q) s3 i% Q
- 1 B/ x5 j9 P9 A
- 7 `% q6 X' Z8 a6 `0 c
- 1 c" k% O3 |( @
- BULSEL_PPU:/ W0 T7 V+ y6 o# u* B7 X
- LDA #$6C9 P! j8 _" T3 Y) n: s8 n
- STA $BA! [8 r5 F1 w# W3 A
- LDA #$212 J( V: i- |- g: S1 z+ Q
- STA $BB
. @0 a3 f. w, N8 N7 a5 { - JSR BULSEL_UP_WRITE! O) k# n0 \+ S5 H. j+ j3 B
- % y7 a2 I$ b6 U+ ]+ H& \* ^
- LDA #$AC' l# a/ m. j4 v0 y
- STA $BA
0 f+ B, a5 q; r# s* @ - LDA #$21! K! v: V" s# [ @0 N" Y
- STA $BB
) b- Q, ] k* r: c7 l: H - JSR BULSEL_DN_WRITE
4 Y) _7 ` A/ [( g - ) @/ ?; \$ [5 G3 k: p( O8 [
- LDA #$EC) @; o4 [- E" N/ S" p* N3 i( D3 @
- STA $BA
4 W q* p" S1 w# E: {, k/ E' o - LDA #$21) x$ h" E3 \5 h* Q/ ^
- STA $BB
5 b: s, k2 S7 Z; z4 Y+ y1 S$ m - JSR BULSEL_LF_WRITE
5 u1 Y3 C% s2 e - / E2 n+ D) K6 s- ^& n
- LDA #$2C
5 h2 \3 C1 W- c5 |' T5 F - STA $BA. D- ~. S7 ?, _ _, y: n1 r6 \
- LDA #$22
8 }6 A& q/ C/ r2 ~* k; i - STA $BB
( v5 r! _4 `6 g/ f* d" X. x - JSR BULSEL_RG_WRITE
5 W7 q0 W9 f& d' m -
0 K8 F' `7 y5 b3 K - LDA #$6C5 p7 d0 ?% i; b
- STA $BA E5 f% Z: C7 u# p
- LDA #$22! i# P6 L! ]% C2 b
- STA $BB: ?7 k; L; ?- E
- JSR BULSEL_B_WRITE
' K' M( p9 t- n _ - / e- o% P& R& S3 a" {" ]
- LDA #$A7* r9 ^% q2 |1 o1 w; X
- STA $BA; J: P2 Q$ e7 Q- `5 T
- LDA #$221 C- X+ j% |8 Y7 Q
- STA $BB
5 _% ^/ n. c7 k8 ^ - JSR BULSEL_A_WRITE; Z: P" p0 |+ p( c- _* o
- RTS
& W, Z% c( N: ]6 A5 n# L ] - 4 w4 ~. F9 ~* L; g
-
7 L! s( Z+ }5 q6 r& L -
$ {( @* i* N6 k3 G9 e - UP_STRING: U: U$ r1 z1 _
- .BYTE $9F,$9A,$80 @! i% @5 e1 f% }5 N2 W
-
" D" y$ v2 [, ] M - DN_STRING:
" u. Q' ^7 t; y( E+ `( D - .BYTE $8E,$98,$80
$ I' g4 v5 i x- Y* O( z ~ -
& ]- R4 {2 M2 u5 t9 M& L - LF_STRING:4 q+ H! y3 J) z2 Y+ {" d7 b4 A/ R
- .BYTE $96,$90,$80
% O! X* a5 t0 L0 N" v6 Y7 x - 1 g. x" J% u* y6 L8 D) p
- RG_STRING:! c* d: H* D6 U+ i5 V P: N
- .BYTE $9C,$91,$809 R' A4 e6 d8 i. n( E7 A* d
-
n! Y5 ?. v) a( \( L! z1 b - B_STRING:
" u2 |8 y# ^/ E4 D8 J - .BYTE $80,$8C,$80) F3 [; B6 j, A3 t3 o* G* Y
- ) c9 ~- i3 Y8 s' {
- A_STRING:
" V2 \4 y! y5 Y; o9 ^ - .BYTE $80,$8B,$80- s I6 u) s9 X; ]# I3 a9 H8 h6 K
-
* I# ^6 D# u, U -
6 @8 K; ~" P) d, e- Y6 y/ W; R - UP_WRITE:* h% h9 H# d! v+ [8 R* M% y% y, @
- LDX #$00 Y/ V2 I, x1 I9 G/ G
- UP:; P3 ], ~/ _, Q* ]
- JSR PPUADDR_PROCESS/ o, D- p1 T& W+ N$ V
- LDA UP_STRING,X
) i( z& w5 z& e1 J2 h3 a - STA $20074 D4 X. p* f. O
- LDA #$007 E3 f% p6 \, }3 c
- STA $2000. w4 V# Q2 w2 |3 _# C" h; A
- INC $BA
) s) l. d. M: ~' r+ C) y - INX" ~5 E1 ]. _6 }8 G+ y0 n& ^' M0 Y7 F
- CPX #$03
6 P. X5 e3 X4 I* u- R - BCC UP
! _2 x- P/ P9 {, E - RTS
6 M& ^% V* Y: C& A - * n r0 p2 A. e. z* h# u
- DN_WRITE:
) ^9 i2 K' k, e: f( g& n - LDX #$008 R7 y _ U ^# e- @
- DN:
9 ?7 @& c/ _, Y: C- { - JSR PPUADDR_PROCESS! e, E1 Z& k' V2 l4 a( w& s
- LDA DN_STRING,X: ]# i# ]$ Z# N( g1 x
- STA $20075 O1 w$ \, C9 P! e; F2 b+ N. \
- LDA #$00
7 W, K8 j3 J+ a - STA $20003 L6 n/ x0 u& f9 ?, c2 d; [5 C3 [. K
- INC $BA+ {# d$ K( C1 o9 y7 ]# Q
- INX3 a' r- F$ B8 O1 i* Q
- CPX #$03
; n3 _/ N& I5 H: p# K1 R- r4 p - BCC DN
* [& ?+ k6 W* e! S5 W - RTS
' x6 _' q: K0 p -
3 O) j; V) `# x6 D# g6 { - LF_WRITE:& f: I) ]$ }4 P/ `2 [; V
- LDX #$00! G! |/ Y8 h1 N( ? u
- LF:9 B: X+ M% a2 Z! I
- JSR PPUADDR_PROCESS* |+ v& x4 B/ b! }" q. r
- LDA LF_STRING,X
- d w1 y8 I' P# }5 J - STA $2007
# i2 z! s' v3 a# }+ h) k8 _- A1 \ - LDA #$00! R" r, J" A" S# b/ U. t
- STA $2000
; F. N$ i9 I- i4 B# x; l - INC $BA
5 y2 F5 w, p: m7 ?% m- V; H0 ]7 t8 }( @ - INX7 x' f4 W8 L" C' I4 d2 q
- CPX #$03" |. F1 [4 i% u( O( b* b; U
- BCC LF0 ^1 Q' i4 G% g/ p% Q
- RTS/ X6 x6 O( K0 h& X% [) n* }
- 6 n- Z/ `/ d' E# v$ r
- RG_WRITE:
: c% \7 S; {0 [' p% l - LDX #$00
}0 g0 g; U! s8 ]9 F5 e - RG:& u$ ~. U _6 O) | P/ w! u; F
- JSR PPUADDR_PROCESS" _) ~) ~4 }" i' ]4 ]" K+ C
- LDA RG_STRING,X. J6 R% G; u2 n% c* v
- STA $20077 Y0 |4 m7 O7 w- |' W, s
- LDA #$00( L2 o1 W( A# W
- STA $20007 W. L+ A' @" ?4 [: G+ ]! }; M5 U
- INC $BA
2 r0 H( ?$ f2 O8 X T# { - INX
+ c; B. x# U! [ - CPX #$03" l7 z, C+ q) o0 M& T. F
- BCC RG* h' a0 h7 U9 Z. b" n) L: K+ Z
- RTS
3 q' ^( _3 a1 _& a - # s& U8 t0 O7 M8 C# p7 t! x
- B_WRITE:
6 [+ ]7 v( V, x7 b' O8 r - LDX #$00. A8 \ ^ v J' n
- B:( x( M6 e- I7 s2 b- U7 l
- JSR PPUADDR_PROCESS6 J7 f! ]- C+ m
- LDA B_STRING,X
9 w1 w9 S/ z: o9 z! ` - STA $2007
, T2 o# x7 R: `- s* Y - LDA #$00
5 Y6 l% x5 y b, A6 M' z* s1 j) _, ` - STA $2000
7 q4 m0 G5 h! N0 S - INC $BA
6 I: r' y7 e/ e. M( h' w - INX
% ~( }) x% Q+ v7 ^ - CPX #$039 ]* B% g+ T2 h- {. o
- BCC B
' j" q. u8 S k5 U, c, p4 `* l - RTS
$ t2 j0 F0 _1 g6 F - ; h' L- @+ K- |! h+ l3 b
- A_WRITE:6 z. o5 E( T+ O! [* ^
- LDX #$00
! [; G4 I3 t% c - A:
" y/ ~1 @3 m+ G$ m# J# ] - JSR PPUADDR_PROCESS! R' n" s* u. h4 w8 K4 V
- LDA A_STRING,X6 M: W% l2 k; |: W
- STA $20075 n& x: [3 y6 V) s J8 a
- LDA #$00
# Z) \6 }0 r- }' l A2 @ - STA $2000
% M% e( e: g' [ - INC $BA; _, o. H0 @1 P
- INX
0 n1 Y# H6 I0 m9 _ j8 y9 d( l - CPX #$03. V% N$ j& F* ^' z3 f
- BCC A o' i* W7 ^- R5 w9 ^
- RTS
% d/ b# `& X+ Y/ X - " b4 q. O3 A3 a% B" P
- 3 U+ C# [8 C' b- U- F. L; a
- UP_PPU:
" U/ x) C! d) z' z. J - JSR UP_WRITE7 d T0 U d. B4 f' d6 j
- RTS8 n: {) a: E+ }/ p2 Q+ Y9 q- h% D* d
-
8 T1 Q2 f: i: q) h# L - DN_PPU:
2 f1 D5 Q2 V: Y! c5 M4 H - JSR DN_WRITE# n* d3 g& K. k4 W( h) \0 [
- RTS I0 D) G+ o/ |) i+ p' g
-
# V/ b. @' v+ O8 Q8 H/ e' q6 | - LF_PPU:) i' d* u6 F7 M$ B2 t! I% E& {
- JSR LF_WRITE
# l( U W/ i) ?2 [% M; j - RTS# F6 ]+ Q+ u y q+ }
-
8 _, w9 b8 M/ P! H; T - RG_PPU:
! R% x4 j' ^7 s+ Z# ]+ h' K* z - JSR RG_WRITE4 ^; z7 f6 ?: R: G
- RTS
8 i+ t2 p4 P0 {1 b8 | -
B" n$ E- M" R2 n. H6 A$ k. [) | - B_PPU:
& N& }; g- H: i% ?1 o% { - JSR B_WRITE
4 @# E' Q6 }3 f4 l5 u" ^$ U, Q - RTS# Z( I* I0 t/ R" s1 x0 P
- + s" z& H. {( T
- A_PPU:
, ^, Q! ~* n( ^4 e# y" g/ \- l6 F - JSR A_WRITE
! _% f/ } c9 @6 Y/ O: h/ u, y - RTS
$ g$ s# y! G- L6 k& l/ Q. | -
# d& q2 `9 p+ J$ j( i5 P - 0 [% g% P* }4 }' h. c! n6 G+ B3 C
- PAGESELECT:* R/ ?4 W) G. D# ~. m/ \
- PAGE0:; B! z# ^( P' r. U2 O
- LDA $07AA8 e/ h7 C) U7 l) X" C Q! n( k
- CMP #$00
0 W$ E4 R' n8 D, Y3 W$ { - BNE PAGE1
0 I; e. p. ^1 E6 V; W: k: Y - 4 |3 ?, }, X" Z3 M0 V: O `, W) O
- PAGE_00:
/ z/ y, S0 V( C! L" {4 ? - JSR BULSEL_PPU* }7 v8 s& _ f) v" B/ }/ \
- RTS
* j! P! b3 e$ C6 o -
: s, N3 W% K( Y( U2 R- h9 A! Y; o, K - PAGE1:, _' P1 h7 @& ~' s; Y1 y% C; Q# O
- LDA $07AA
n w. _( `- l; O7 E - CMP #$019 v7 o s4 c3 e: ~' j+ Y7 D
- BNE PAGE2" `$ o% U7 U6 Y- t: `1 e
-
$ p: U/ u; ~9 x - PAGE_01:2 H! |4 i) |4 z+ V
- JSR INVINC_PPU
3 ?6 w- M }4 q - JSR LIFELC15_PPU
: c5 ]$ A* A$ } - JSR DOUCON_PPU
# f" E' x! Z/ R8 N$ [/ s - JSR KILLON_PPU
) u& X5 P8 ?/ |4 D# l6 W. _ D - JSR SKYFLY_PPU
* h5 T- S2 z! p! H; V. [, z - JSR LIFELOW_PPU3 T8 Q7 g* u# J8 n' d1 D
- RTS
+ G" @! W Y6 K3 }: X
0 Z2 c9 c1 v- g, o- PAGE2: % @" \4 S" V: S$ p
- LDA $07AA2 h+ }3 V% N% b0 S W
- CMP #$02
0 w) G* [* q# E* }% [* X5 { - BNE PAGE3; @4 t0 k' f* w U( f Q
- - t! r9 |- R3 r
- PAGE_02:9 q7 A b5 N5 o; d
- JSR BULADD_PPU0 O6 T7 j9 M2 J
- JSR SKINGE_PPU
* u+ V m3 Y9 [+ o - JSR BULMIX_PPU1 m' Y1 F7 h- a% n& d. T: L
- JSR ENELOC_PPU* i& ?- ^5 }) e5 x) [: R; t
- JSR FOCFUL_PPU6 r- h$ r2 S% s: B0 _
- RTS `% `6 _7 r3 }2 H6 ?
-
l# p- u; [4 [1 Z6 I/ M m1 I - PAGE3:
6 I/ c: [0 W% f" L6 E" [, P - LDA $07AA5 ?! `2 M+ F; c5 Y
- CMP #$03
' W% O! L9 d. Q o! V* N - BNE PAGE4
6 x8 c% }0 `( s6 Q: { z - ! a* Z0 m/ m* ]$ O" u
- PAGE_03:
- i, j, o q8 P0 T+ u - JSR BULCON_PPU( k( H# n2 W# y7 ~
- JSR SPEBUL_PPU* {0 Z/ M; C2 g- O9 c% [, i
- JSR CLEALL_PPU, l. {- d' n7 X5 N) f
- JSR HARDMODE_PPU
6 R# j N: K, c' s9 G K1 ] - JSR B_TO_JMPSTG_PPU4 k5 @1 i' j) P( E, ^. ]0 u( z0 Q
- JSR A_TO_PLAMOD_PPU0 [9 C8 Z3 @, P7 n2 o
- RTS
& ?" Z6 {& o% X9 } - 1 e; x7 T, S o
- PAGE4: 2 c% v" C C7 M+ b5 y- y1 f
- LDA $07AA* H2 a1 ?4 [, |* }5 A+ B2 U( f
- CMP #$04
0 W- Q X a2 _% a3 X - BNE PAGERTS
7 A4 ~& b% M7 R0 s Y/ }( {! g - / }4 Y, m' n; b, H& T" p
- PAGE_04:
% S4 Q7 [# B0 I/ Y4 {4 D/ k - JSR MOVSPE_PPU& q4 g& R' e) p+ i& r) X) F
- JSR UNLJMP_PPU; x- w" {- b5 h
- JSR DESTRO_PPU; G6 [6 p+ B" W/ _1 _! y4 k
- JSR EQUBUL_PPU1 ?* H3 q2 v5 K
- JSR MOVESPEED_PPU
/ f% ~9 W' V% b6 ^) y2 I3 T$ H' S% O - PAGERTS:( j9 A. R& S4 r3 ?( E7 @
- RTS
* X) q. f: T0 e* B# F. `( I -
- j- t, Q+ V6 n+ ?! t; b! J -
' J& m1 r% w0 ~ - PLAYER_01_STRING:4 u9 j* b- P3 s: r
- .BYTE $9A,$96,$8B,$A3,$8F,$9C,$80,$81,$82,$80. X8 f( v" f+ V5 T" X) @' F5 O4 x' _
-
0 o7 \5 y$ q# o* q0 _ -
( a8 l7 E2 A$ R- E g - PLAYER_01_WRITE:7 I# y3 C% N, F* u; S5 n" R2 i
- LDX #$00
) G' S2 B& x; `1 ? - PLAYER_01:3 p7 D: |4 ?/ ~" [" I0 Q3 X
- JSR PPUADDR_PROCESS
2 x' f3 x7 `: z, q8 w - LDA PLAYER_01_STRING,X- f# b) w% d1 X( U, R& w
- STA $2007
7 t4 L# z8 }8 H; Q8 c - LDA #$008 a# } y4 U: g% S, S" L
- STA $2000
; [2 o0 g2 _# x) X1 b4 z/ Q' D - INC $BA
' W* A& {, y: c7 M - INX
' U1 e( D- M$ ^6 t8 ]: h - CPX #$0A
' r+ y2 R! T+ z. t$ x- |5 h - BCC PLAYER_01
3 j" D: c$ A4 p8 D& v# O - RTS6 q; U- ]1 q1 n' g0 g
& |+ n, C! C$ y) `8 l- PLAYER_01_PPU:
, H8 N* |7 i, y: s2 p* N! h - LDX #$00, t/ |6 N" e( y
- LDA #$64
7 D" ]! K# w" b - STA $BA
$ r3 y1 T P7 |& C - LDA #$20
+ t0 b; m# |9 r; A1 R, D( Y! p3 {9 Y# E - STA $BB
2 k# [, V* s9 j" u" o - JSR PLAYER_01_WRITE9 {- \8 ~) Q% [
- RTS+ J/ ~$ s1 d" C2 @0 M5 Z
-
! y1 F2 y1 _. j; ~# G - PLAYER_02_STRING:
( _) _$ A+ r Z! N8 Z - .BYTE $9A,$96,$8B,$A3,$8F,$9C,$80,$81,$83,$80' x# _; ^* s. N( t& ]0 K
-
! Z7 g* r" I5 O. e - . W4 L+ h/ q: e: A" H9 ~/ N' i" u% D8 S
- PLAYER_02_WRITE:$ f p6 i2 F8 I
- LDX #$00
' P8 `9 F1 F# E) J - PLAYER_02:: \5 i, i. F1 S2 g j$ ]2 i
- JSR PPUADDR_PROCESS
6 p a- V& }% A0 P - LDA PLAYER_02_STRING,X3 R* Y2 o- ]: L9 n
- STA $2007
* C. {$ U9 g" z0 R - LDA #$00
5 G& } {7 g7 A6 ~ z - STA $2000& i+ ?, C* G& q& N% ^ F$ N
- INC $BA
. c) y% U8 m6 N* x7 k2 K - INX1 m% W" p6 L+ E+ v1 r
- CPX #$0A, Z8 n2 x$ u/ q! h: ^+ N, A) a
- BCC PLAYER_02
/ q1 T8 u3 Q& L2 A - RTS
7 w' |8 @, E4 S, {1 w, A6 \ - 9 [' G N# N8 ^- i
- PLAYER_02_PPU:; O( m* n( z$ p+ l3 ?) b+ n
- LDX #$00
" n r: ^! g E - LDA #$73
6 s* n2 C2 O* R" F, ] - STA $BA3 m9 x' D Y) r* I, ~7 t6 u9 c
- LDA #$20
: [# A7 N4 ? |+ m1 @, B& W - STA $BB% R% F0 ^' r' e: n4 B: v H7 `
- JSR PLAYER_02_WRITE
0 Y& m6 @8 [* A& F) b - RTS5 r/ X( C5 }" b p3 y9 O
- 9 w4 H6 y9 P7 o/ r# o" v8 l" W
- PPUADDR_PROCESS:% j$ U5 e4 D/ C! f: E% [( ~$ C c( W
- LDA $BB1 f6 k$ x: j) }3 |/ \
- STA $2006
9 z. C8 r' k, i4 e- N( Q - LDA $BA
0 j8 P+ u- N5 d0 K - STA $2006
; C& ?/ _* T* }" Y5 b - RTS3 Y3 r7 ` ~, [1 u* J
-
. z' Y% R7 t# ~! v -
$ w2 y& `8 ?7 B" z# S7 y -
2 ?. x! S6 M A9 f - ONE_STRING:
- ]* d- O6 T) `" a" j - .BYTE $99,$98,$8F7 z5 D( p! b7 I9 g: X
-
9 g( q8 `) Z7 S4 g3 S - TWO_STRING:* E0 _& N/ x7 A8 ^* V
- .BYTE $9E,$A1,$99
' U9 d- b! n# M" g - 7 y% ?- u# d. ]
- ONE_TWO_PPU:
4 J; F% s; E+ ^8 h1 x. J% R( | - BNE ONEWR
% ^4 P2 Q. a5 g' t) r# Q E: A/ \ - TWOWR:
8 a# B4 J7 M$ m4 N+ [7 J/ y - JSR PPUADDR_PROCESS: X) {5 _0 N5 F6 k$ ]$ C
- LDA TWO_STRING,X
3 _$ I- E- N" l U6 |. E i* [ - STA $20073 {9 e: x Y0 P+ N
- INC $BA
, k& s, }8 }$ r - INX
) R1 F0 W/ F) c+ j4 @ - CPX #$032 ?) ~5 l5 _& [7 s% U7 }" _
- BCC TWOWR1 B4 U( r% S {: @
- RTS( P( w0 u; e6 T3 J
- ONEWR:
d9 c9 c V& _3 y - JSR PPUADDR_PROCESS
) u. \. h k5 h( x* f M: z/ P6 | - LDA ONE_STRING,X
0 X; _# @: A' B - STA $2007
; w- I3 N" L! F2 Y1 Y - INC $BA6 z* x: s V6 l2 t& Q. R
- INX
# W( z! c) ~% E+ {1 s3 L - CPX #$03, c, P) r) T N" U& v0 c
- BCC ONEWR
& G+ O# n: C7 D. X: N: { Z' Q - RTS
5 v' R* u6 ]* t* t8 H3 U - 0 r1 m1 ~0 K1 Z
- MOVESPEED_STRING:4 \! ]6 e, k/ X& a0 h3 w \6 r
- .BYTE $97,$99,$A0,$8F,$80,$9D,$9A,$8F,$8F,$8F,$803 N7 c% n* w- r# o
-
6 I" c8 w( E- s - 3 v- X+ H% X1 A5 x$ Q& l6 ~/ Z
- MOVESPEED_WRITE:& W' b) J$ v! p5 F
- LDX #$006 D# }% a9 q% D/ w7 O) d" x0 a
- MOVESPEED:
, _: x7 }1 }. {! }2 ` - JSR PPUADDR_PROCESS
' }! J) a9 T0 T; J; t - LDA MOVESPEED_STRING,X
5 s- S3 N' K, |# k0 v g$ [1 A. D - STA $20078 L7 k! @/ ]* C ?8 [
- LDA #$000 ?, D @% R5 Q* p0 P, L- P
- STA $2000; g$ H# z1 F* t5 T2 e t( Y7 B" g
- INC $BA8 }* n, L' H e5 y
- INX
; p) V4 h% G) O7 G3 }' j - CPX #$0B; k) T0 D/ {; `, W
- BCC MOVESPEED
! l: |5 m8 T1 ?4 O: l3 U/ g - RTS+ ^4 \. A# e2 _; B6 t0 B, d
- ' W3 \$ v2 {, K! E
- MOVESPEED_PPU:
% s0 u6 G$ t x8 c( l - LDX #$00/ T. a [! i( }* Z. x) X
- LDA #$AA
- x5 c; O; C; V8 ~: G - STA $BA
9 a8 N+ {% @% J, h' i - LDA #$22 S$ ^6 b, A- x8 q
- STA $BB
( r6 u9 l. d; ?# z - JSR MOVESPEED_WRITE
! z, R1 z4 z8 T( N8 G3 w b - LDA $70038 W3 y1 z* E4 F% E$ ^5 `
- CLC
8 y$ v) N7 H, H0 H9 `+ r - ADC #$82
) N8 D4 N1 r+ T( @ - STA $20073 U* p! N, A0 a
- RTS
i. ?; o n1 H8 ], }8 O3 s -
复制代码 |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?立即注册
×
评分
-
1
查看全部评分
-
|