设为首页收藏本站
切换到宽版

 找回密码
 立即注册
搜索
EMU618社区»论坛 › 游戏周边 › 游戏修改交流区 › [FC][魂斗罗旋风终板END暂停显菜单]
返回列表 发新帖
查看: 695|回复: 13

[原创FC/FDS-HACK] [FC][魂斗罗旋风终板END暂停显菜单]

[复制链接]
yandagui

签到天数: 39 天

[LV.5]常住居民I
发表于 2016-11-19 22:19:45 | 显示全部楼层 |阅读模式
本帖最后由 yandagui 于 2016-11-19 23:11 编辑 ! m' w* ?% O% ?- o+ H
* s; ?) o& o% j! s# b
     [FC][魂斗罗旋风终板END暂停显菜单]

* \" j6 `4 F1 l$ e$ g作者:FlameCyclone(flamecyclone.ys168.com)! r5 b, K/ [6 n, y9 O4 W
时间:2016/11/19 21:46:00
$ @9 T% _/ z# o0 `: j) ~更新日志:: D! D, x+ C' K6 p
2016.11.19:加入暂停显菜单(共5页).
9 i2 G. \6 i8 p5 _5 J* h$ C7 k2016.11.12:加入无限跳跃.# o' t$ V& r9 I  U
2016.11.12:加入速度调节.
3 J) }# v$ Q! K' p! t& W2016.11.11:加入敌我子弹对消功能.8 e; V7 }) N2 z
2016.11.11:加入全屏闪灭功能.
, f6 X5 }' n# r! [- o2016.06.08:加入全屏瞄准功能.
8 u- j. }2 S; p! s2016.05.31:加入弹速调节功能.
! g5 z) n1 t3 {# s1 n2016.01.01:加入高难度模式.) d  Y& O/ ?- b& |: O" r. T, }2 A
2015.12.12:修复消除威胁不足,使得移动BOSS关卡(第2,4,5,6)正常通过.
6 z5 f) f) ]4 v" l4 ]1 u' f2014.07.05:由于对打功能不完善,直接去除,更改为生命锁定.5 V, C: W, i4 Z
2014.07.05:双人切换功能优化.: D5 u7 w! `  `- }2 p  x+ s, ?
2014.06.01:修复第三关浮空到BOSS前必须关闭浮空后跳跃才能见BOSS的麻烦.
# _0 Q2 e; D" a( d# G" R2014.06.01:取消生命锁定,改为生命锁定模式下剩余生命不会少于一条.
, ?, n' }" C$ R2014.01.18:修复GAME OVER字样只有G和O的错误，原来想拉大字母间距离，看来行不通.
  F3 Q* s6 @8 D) a  F9 x2014.01.18:浮空模式下，P2飞行高度未限制导致死亡，原来是指令本该用绝对X变址的被用成了绝对寻址.+ }/ u' y6 _7 x( r3 K0 n/ t1 x
2014.02.08:拿手机无聊时又发现一些错误，所以修正生命剩余勋章显示的错误(某天用读卡器插在DVD上测试发现机器读不了卡，原因是目录级数超过三级，只有刻录成光盘来测试，结果发现生命勋章的显示竟然无压力!)
0 K9 U* I0 w; ^8 q- k8 Q2014.02.13:加入自动演示通关.: P4 V: N6 b+ }! j4 ?- k
内容：
3 U( A% P3 {- l" u' t  i23.暂停菜单:        暂停后，自动显示菜单,选择键翻页,方向键和BA键进行各种功能的开关操作.
3 O! a% ?0 f9 L0 T* p4 q22.无限跳跃:        暂停后，选择键4次，按下开启,开启后游戏时无限跳跃.
( t, D6 D6 H- E8 M3 n! D0 J/ ]21.速度调节:        暂停后，选择键4次，按左右调节行走速度(0-3级).
& j5 B6 T: X8 l8 `20.子弹对消:        暂停后，选择键4次，再按A键切换,此时敌人子弹可以打掉.
# a# L, D+ N) D* }3 T' N( j$ W19.全屏闪灭:        暂停后，选择键4次，再按B键切换,开启后游戏时按选择键屏幕内敌人闪灭.8 M1 @1 R/ |0 v! b2 t/ f$ r8 v) ~
18.全屏瞄准:        暂停后，选择键2次，再按B开启/关闭,子弹对消开启时无效.7 y: g) b. K3 O: ], V+ I1 F, F: r: |
17.弹速调节:        暂停后，选择键3次，下开启，非暂停时按选择键调节,默认为1级,共5级.
% n2 f9 y6 U6 F/ E1 v16.困难模式:        暂停后，选择键3次，右键切换,我不相信你能够无伤通关.
( Y5 M. `7 }# `/ ~01.子弹切换:        暂停后，选择键0次，上=快S，下=快L，左=快M，右=快F，B=快普通，A=取消当前子弹加速状态.
  G) `! R" t6 C/ @+ S) M02.无敌锁定:        暂停后，选择键1次，上开启/关闭，不用讲了，金身无敌.
) G" R& @3 G- S03.生命锁定:        暂停后，选择键1次，下开启/关闭，生命锁定为16条.2 [1 C3 O' K. ~5 [3 r2 m8 s
04.角色双控:        暂停后，选择键1次，左开启/关闭，无非就是主机控制副机.
# Y- ^5 i4 N  N' J* S' s' d05.生命底限:        暂停后，选择键1次，右开启/关闭，锁定剩余生命数不少于1条./ }. V  A. A# |  R4 l
06.一击必杀:        暂停后，选择键1次，再按B开启/关闭，即使是第8关BOSS，一发花生米依然要其老命.) _  e( z- T) B- g" v" e# q
07.角色浮空:        暂停后，选择键1次，再按A开启/关闭，第三关浮空时按选择键向上卷画面轴.- U8 N4 p' U3 q, ?. C
08.弹数加强:        暂停后，选择键2次，上开启/关闭，此时所有子弹发射数为15发.+ U1 M% [& |3 i' t/ z
09.皮肤更换:        暂停后，选择键2次，下开启/关闭，主机开启时橙黄色，副机开启时为蓝色.
6 |- B. K5 S% I, O10.混合子弹:        暂停后，选择键2次，左开启/关闭，此时连射时所有子弹混合.& F, t; V' ]1 A' r! k) E: Q) i' E0 @
11.敌人锁定:        暂停后，选择键2次，右开启/关闭，此时敌人原位跑不动.
! k* D2 b2 v  T% N& E12.跳过一关:        暂停后，选择键3次，再按B使用，使用后可以直接到下一关., O5 E9 [; C" j3 C' W( i
13.单双切换:        暂停后，选择键3次，再按A键切换单双人游戏模式.
/ `, d) b' r: ^14.子弹方向:        暂停后，选择键3次，上开启/关闭，开启后发射的子弹攻击方向会随着操作的方向按键变化,第二关和第四关的小关建议关闭(开启的话打中敌人太难了哦).
: v* z0 C% ~1 U9 r1 E5 a1 |' L  ?15.消除威胁:        暂停后，选择键3次，左开启/关闭，此时游戏时按B键使得移动物体被消除。
" Y- j1 J- B) \3 gA.做了一些汉化(小字体),剧情,关卡名及通关后的文字未汉化.
  r2 C2 k% F* b9 B( ^) v9 O7 zB.自动演示通关,双人合体打通关,演示时有背景音乐,通关后一样会有结尾及恐怖台词,之后游戏进入选关(相当于游戏自动开始了).注:通关后P1及P2会获得16条生命!也就是说看完演示自动开始后第一版有16条生命!
( K" b8 h$ z0 T6 K" N. Q; EC.生命显示加强:最大显示15个剩余生命勋章!电脑端请开启精灵超过8个(这样勋章不会闪烁)，手机端认命了，不过不影响正常操作.7 \- _! k2 H6 C+ m

% B  q5 g: y, H  T3 n    如果有什么好的修改建议，恳请通过QQ（1490868135）联系我(也许我不在线，可以留言在QQ里)) Q2 v; s3 E  v; s$ j+ g, _2 O- @) t
欢迎大家转载，转载时必须注明出处.8 Y4 c0 y' g1 g$ w
9 h; P9 v, u: N: T3 X, H  Y: N
游客，如果您要查看本帖隐藏内容请回复
0 @6 [; r% G. N$ I  u

  I5 \+ w* q, {7 [2 ]+ C忙了一个星期,觉都没睡好,眼睛也疲惫不堪啊.终于找到解决方法了,目前VIRTUANES运行不了,请使用其他模拟器玩.1 b6 n1 _- P$ D
这几天的劳动成果如下:
  1. .ORG $B400$ t* }" A; w# T/ u  v/ _
  2. ) u7 N, O8 Z7 Z" V

  3. ) L" M% l, j# e5 l* J
  4. PROREG:3 V6 {4 i* A$ m: R0 ]
  5. PHA
    ) m9 p, f2 p! f+ ]9 h, O
  6. TXA! d) I7 z. [6 h4 {0 P/ _  t
  7. PHA" p9 K# d% c" H; t
  8. TYA
    7 v1 w- T/ S2 _, z5 H
  9. PHA5 J0 R! }. A+ E/ ]. D
  10. LDA $25
    7 e, O9 d$ c" S' F  e# b0 J8 E
  11. CMP #$01) B1 a* A& D, {1 O0 A
  12. BNE RE/ i9 l& I; G4 l0 \
  13. LDA $010A
    , ^, V  T* a9 W
  14. CMP #$004 A4 t9 p. `% h8 f  J% U/ u
  15. BEQ P1
    - I! [; x4 c2 S5 B5 D

  16. / i6 w9 A4 N& k
  17. RE:2 g7 b: r5 O. {4 ^% L6 U
  18. JMP PPUWRITE, r9 C) r3 V! ]) w4 y* y" T- {8 K. E+ W+ {

  19. . [, k! S* ~, V  U
  20. P1:                ; 条件判断
    * J7 }$ x0 D' {6 f% C) {
  21. LDA $7FFF
    4 Y* m( q8 D, v+ P
  22. CMP #$FF' E# z2 H& |$ s9 u+ j, C. {
  23. BNE P1RP) j8 ?; I  ?  }9 b0 f/ ]; ]; l7 l
  24. LDA $7FA0
    1 w5 J0 }" t; R2 R/ x; U
  25. CMP #$00
    5 P7 k; T; ^6 o+ v  }: L
  26. BNE P1CMP$ S% W  b. L' \6 M- S
  27. LDA $2001' X+ E" I! M3 h* V+ t, X2 B4 u
  28. PHA' d9 E% Z- c2 O, F* o1 ]5 i
  29. LDA #$00! U" b5 W& ]. G; v4 _! v
  30. STA $2001
    4 ~% b% i) B. q7 i% p- V" e+ p
  31. LDA #$FF2 {% @" }% i, H/ ?3 Q
  32. STA $7FA0; z0 _# P, e: r' K( z
  33. JSR CLEANA1 {9 o5 Q, Q& D
  34. PLA* F; l; v( U# l' k1 n7 J8 R" A
  35. STA $2001# v3 z, Y1 G7 r/ f! _- k4 z. I3 [: y
  36. JMP PPUWRITE
    ) J( r7 [+ L4 D- w3 u: |6 ]0 j7 F
  37. P1CMP:
    8 Y$ r( k# Q- S  n
  38. LDA $7FFF
    ( {4 J% l* z! n( H- q
  39. CMP #$00
    3 D9 C7 W- C3 q5 u% H) M
  40. BNE RE1 F+ `5 K! {8 J7 b
  41. P1RP:
    + P: p/ A3 K" Y% r" l, }1 h% l: K
  42. LDA $2002
    / h! H, P$ M, E% ]; ~  y
  43. LDA #$000 Y$ Q' T/ o  w# J& {
  44. STA $2001
    9 |" c) Y. x/ s/ Q) v
  45. LDA #$FF0 f1 a4 n0 B, B) {& b
  46. STA $7FFF
    0 i6 ^, v4 `  P- d! Z
  47. STA $7FA0
    2 G. m0 A+ Q3 j% h8 Z
  48. JSR COPYPPU8 M( R' Z; J- h
  49. PIRP2:
    8 R3 h3 m1 R- R
  50. JSR CLEANA
    9 u( t; h5 ~. x
  51. JMP PPUWRITE
    & i8 ]- o8 ]7 ^: r5 x; k

  52. " I7 ^! i6 F8 K4 r( @* h* ^
  53. COPYPPU:6 V4 S, X9 P/ g0 H6 K) r
  54. L0:
    % X; w$ A% c3 d* K& m
  55. LDA $30
    4 C5 I1 L3 _3 d! F
  56. CMP #$02/ f" l8 ^8 D6 l; P# l$ {
  57. BNE UNPROFC
    " }+ O  L; p& v% ]
  58. LDA $FC3 n8 v7 l7 _- `% s2 t8 u
  59. STA $7EFC3 i. S; j5 N4 Z- f" \
  60. LDA #$00
    + T$ ]/ M9 G; {5 y4 Q
  61. STA $FC
    6 K) Z; p4 v# r& K% z9 z& ]
  62. UNPROFC:
    & J9 L. V9 @/ P! A% S
  63. LDA $FD
    % _) T% G& [; _6 u( k6 ?& v
  64. STA $7EFD8 t6 I" h- x2 r" y" f: Y% z
  65. LDA $FF- u! `/ ]$ i& ], ]7 i' X$ a
  66. STA $7EFF# N9 Y" C" m7 a( `5 q2 S8 d; A% y9 }- O
  67. LDA #$007 E, M' X7 m* ?
  68. STA $FD
    9 _" ]% K4 i7 J- f3 h% C6 z
  69. LDA #$B0; d+ u: F0 k" j5 B
  70. STA $FF
    * c% x* l' i# j, Z; C: T# V
  71. LDA $07C14 `9 P" n/ t- u7 i0 o  p
  72. STA $7FC1# v  a  J7 j9 Z6 T# e9 Y
  73. LDA #$3F0 m: f% E& e9 ~& {1 m
  74. STA $2006, g* a6 ^; O2 K+ C7 d
  75. LDA #$01) W# j6 t% G: u4 _: b5 t$ b
  76. STA $2006. z0 j! c4 G% l- x  U" T. p
  77. LDA #$240 r, Q. w% t( v: n; ^9 a0 r
  78. STA $2007
    & ^' u( F' u7 [2 W5 h% p
  79. LDA $07F6
    * S* ?. g; |; B2 V7 d
  80. STA $7FFE
    8 U. [: i1 o& o* c5 u# q; g' y
  81. LDA $00FE, o2 t  X4 q, F- t/ E
  82. STA $7FFD
    8 j- }) D0 l. b$ L; Z
  83. LDX #$00
      h/ P* t8 r$ U: [& l6 {
  84. LDY #$009 U6 W! ~$ [  I# w; ?  Z4 q
  85. LDA $BD2 v) F4 Y9 P- d. X% d6 G) Z
  86. PHA
    3 w& i& Y0 D1 U8 c. f2 J9 P, i5 O
  87. LDA $BC
    0 e1 Z/ ^" E1 p8 \/ Z
  88. PHA
    & k2 h' N9 Y$ n/ z& m" l
  89. LDA $BB6 _' d+ o; z8 ^8 p
  90. PHA
    ' x5 R2 r! A7 O% ^6 C& d6 g! D
  91. LDA $BA
    . {1 |+ y" `: R' M/ a5 Z
  92. PHA
    " {  d) k: M6 n1 H  ?6 Q
  93. LDA $B9
    $ [6 h* H# L; u1 d9 p; ?
  94. PHA
    4 u# L% d& h& `6 Q9 ^
  95. LDA $B8
    ) p' M/ `: m/ G5 ]
  96. PHA
      I3 K  r, c0 g  I/ W' a8 i
  97. LDA #$00" L1 `( J9 j+ L$ _. T
  98. STA $B8
    4 t1 i% T) B2 t
  99. STA $B98 H* t, ]; z1 Q" [, U2 M3 J# O
  100. STA $BA- M& f0 |; B# W# D- h
  101. STA $BB$ u3 c( R1 \$ f( ]4 v5 S2 S( d
  102. STA $BC
    4 a1 L* p/ X8 F- _- J
  103. STA $BD; _' n& ?) o+ [/ |. q
  104. LDA #$00
    ! V' l  C9 x* X# a1 ?) a$ P
  105. STA $BA
    5 ^$ Q3 @; ]$ _) ^5 `0 P0 K
  106. LDA #$20
    - X* [2 Q5 B7 t* {
  107. STA $BB# S# m4 y8 D4 s  O: O5 o
  108. LDA #$00
    ; j# ]% M" K/ ?# r
  109. STA $BC$ f4 ?1 b& A9 Y% J; z
  110. LDA #$603 `% D, {: X' L# R4 h+ ?, b: g6 ~
  111. STA $BD: r  w$ |/ I! Y# S# A% f
  112. , q$ s1 o( G4 e- D
  113. L1:                ; PPU复制/ V+ W! z. Q" d! F0 `! t
  114. LDA $BB, U. D! k9 Y- p# d: K0 R" `* j
  115. CMP #$304 ?6 ^7 D: [; ]' F# `6 X
  116. BNE L2
    # E1 R0 d4 @, r4 J7 p
  117. LDA $BA
    & a6 n- a8 g, E! }* C, {2 h6 C
  118. CMP #$00
    3 F. G% _$ _: k9 M1 e: C
  119. BEQ PROADPLA, X/ [! E/ h+ A
  120. $ Z# I$ h, k4 w% p! Y! @
  121. L2:' v7 i  W" J" C3 X
  122. LDA $BB
    7 d5 h* P: }3 }; b; f
  123. STA $2006
    : t) ~5 y6 B( s; m7 V, z+ t0 D. G7 S
  124. LDA $BA1 P+ ~. m$ L/ [9 M7 v
  125. STA $20061 g6 \) e. Q9 }$ b; c4 }* {

  126. 2 J# b* i# l& Q1 ~3 m
  127. L3:" W. j+ C, O9 J$ a
  128. LDA $2007
    ( Y, k* F* b5 t
  129. LDA $2007
    ' @# z( a, \" b
  130. STA ($BC),Y7 {3 Z. Y$ W$ i6 Q* h' h9 ^" u9 q

  131. 0 c9 ]/ M# Y% c
  132. L4:
    9 u8 {5 W% {% k: n0 A. r* j; c
  133. LDA #$00
    2 T& O3 [9 |. d0 t9 R5 ]% G
  134. STA $2000
    . z) Q" _$ ^; o. U3 R
  135. INX
      ^" Y5 P; ~/ R+ v  s  e; ?) P3 t
  136. INC $BA
    ) L3 F& Z' v, Y! V1 O# \
  137. INC $BC
    5 Q2 C. Y, Z6 B
  138. CPX #$00
    6 T3 v  |6 |+ a' \' [4 v/ S
  139. BNE L10 i: ?% y2 {, b# ^1 Y
  140. INC $BB/ j- z4 E! G9 G: {: ]5 w
  141. INC $BD2 b$ G: k- y7 [8 h- F
  142. JMP L1
    : b0 t& E4 A1 }. W+ X$ Y* t( x
  143. 0 Y- F- }8 R. e, \0 t. X* i0 i, _
  144. PROADPLA:                ;出栈
    2 e0 [5 d$ w0 ?$ d1 k9 s5 B
  145. PLA
    2 |; c4 o$ u" a" v' R
  146. STA $B8
    ! s' t' ^& J0 H" z
  147. PLA2 U# _: i, D$ H, B% f. U1 J
  148. STA $B9" P" ]# v+ O) \) ]
  149. PLA  C& ?& Z; N& _% T/ H
  150. STA $BA
    6 U$ B# i. o8 r& l: ^
  151. PLA/ p2 y3 D- T* Z. b
  152. STA $BB
    0 w- C; v! |: h% k9 ], G
  153. PLA
    0 m, @9 m/ ~  d& X/ ?5 b
  154. STA $BC# O8 ~/ c3 C) h8 }- I  Z5 X) f
  155. PLA
    2 n6 d- d* M5 `3 w, h4 V
  156. STA $BD- z% K- G* j5 p0 h4 y. p* d7 _3 s
  157. CPRE:& P  U* _, o8 g2 ?8 a1 p
  158. RTS
    + W  y2 S; K1 @3 n& C7 \

  159. : n7 ?( Z# V% F) n/ n
  160. CLEANA:                ; PPU清空! P, U# d) X0 t1 i( ]9 L- ~+ a
  161. LDA $BD
    8 k& j6 g. P# r9 X
  162. PHA
    # G3 R; x" c1 Y$ E# u8 I6 k  e
  163. LDA $BC* x, p; X, F' b0 e2 n# X! X
  164. PHA3 z; e$ t: n4 Q* s9 S2 w" d+ b
  165. LDA $BB4 Z3 q( l5 O- D+ |, n, B# G. x
  166. PHA
    ( M& \4 K& F  E
  167. LDA $BA& l% S& H) C% F; B3 C: E, K
  168. PHA
    4 T9 v7 H$ d( {+ V1 J( X
  169. LDA $B9
    ( q9 w+ g4 A6 H# `7 j1 |, d9 W5 F
  170. PHA& {6 z% X# Z8 X2 N$ }# O
  171. LDA $B8) I) P2 S5 S6 v
  172. PHA, Q  p3 X/ U0 y# W
  173. LDA #$001 `" g% ~3 T: E& Q3 w* j
  174. STA $B8$ `* h# O6 b4 J7 c6 S
  175. STA $B9
      V* x# S9 }! w7 B6 h6 v
  176. STA $BA& N, ~) B  z1 ]
  177. STA $BB8 f4 F) Z8 F% l& V) B4 x2 C  J! ^- h
  178. STA $BC
    5 i; K% ]* j, Z( {9 o: \* j' m
  179. STA $BD
      q2 G3 w4 T  u6 R
  180. LDX #$00
    & h# v6 n2 v, B5 J
  181. LDY #$00
      M! Q' O! C) s8 p) T8 s" E" a
  182. LDA #$00; ?  M) o3 \4 T+ n1 n
  183. STA $BA& E: b$ C  B* ?, p  v9 H
  184. LDA #$20: @3 M  o! t! o# q2 l
  185. STA $BB
    # ~9 q1 K) H( O5 l1 v3 y; w' l

  186. 8 t5 y% {) Z, N1 ?" x0 `/ W
  187. CL1:1 J% b& K' X" G, \8 p0 s6 J
  188. LDA $BB4 n+ F0 q$ D1 B; `6 p4 H( P
  189. CMP #$308 H4 b- |8 q  w8 k- E
  190. BNE CL2, C3 w7 n7 F2 x! D1 L
  191. LDA $BA
    2 k- x4 B5 l& t3 K3 ~: l
  192. CMP #$005 \$ F+ B' A4 [1 \# g6 U* v4 v
  193. BEQ FREEWRIYE
    3 O, |" g' R3 y5 {5 x; o0 [
  194. 9 J  f, g4 d* r! b3 I2 L
  195. CL2:
    ; G9 @5 Q; N! n6 Z  C1 N  M  z4 J
  196. LDA $BB1 r6 o! b2 }5 n& W$ O
  197. STA $2006
    6 Y. g4 O* C6 r2 z
  198. LDA $BA
    6 L0 b% _: m, T: h
  199. STA $2006
    8 _3 v( U& K' L5 f
  200. 6 Q  `& P9 U6 I
  201. CL3:; B+ q* h3 H. G5 y0 y
  202. LDA #$00
    4 X. K% [3 D# R' r$ T9 K  J
  203. STA $2007$ C" N& i+ b/ d# v3 O' d: `. x
  204. " M- h3 O5 e$ U2 |3 L1 n
  205. CL4:
    5 c) g' I% E+ T) i6 V$ V
  206. LDA #$00: `! O2 ]. u# l3 M9 M: ~
  207. STA $20001 w' l4 m) E6 ]8 C! F5 [7 Q
  208. INX
    # t5 T- \+ ?6 e; E
  209. INC $BA7 b! F# c- H) \" Y  o$ d) D
  210. CPX #$00' g6 b8 L+ `- X6 t" h
  211. BNE CL1
    1 a, c8 ?* v* @! b+ }" r
  212. INC $BB
    # |: Q7 X9 T5 X' j5 }) r
  213. JMP CL1
    4 |0 E+ u/ H5 ]& ]
  214. ; s; M; [* P$ W0 M2 V# E7 B
  215. 9 T; j) G' U- W* D$ B% D$ p, F
  216. FREEWRIYE:
    # `. l- B6 U' v1 Z
  217. JSR FREE
    0 ~2 b/ J$ k& }! O: ?

  218. 6 p: K0 Y2 V4 V  Y. L+ T- n  `) P
  219. & E& a2 w5 u% X0 }8 o) I' U

  220. 1 {  M* |5 P0 ?8 m- Z- O# I( @( h

  221. 5 w0 a% n$ R9 u; R- K5 W
  222. % S) z2 T3 B7 z* _- I) R8 d6 L
  223. CLEANF:                ; 恢复现场# o/ D7 T; V8 T3 w8 K
  224. LDA #$08
    * Y+ ?2 `* Y; x1 D& p( g$ G1 ?
  225. STA $FE! c4 H3 ^. Z5 f9 d/ z
  226. LDA #$00
    6 u; t" o) V+ V; I1 x7 c, `% h
  227. STA $07F6
    * {8 T0 D* |$ V4 T
  228. LDA #$24
    2 B# J  m0 M" Z
  229. STA $7FC0& H, L# B2 O2 B  R% h* F' `
  230. PLA' {4 }+ v7 i1 y3 W3 L
  231. STA $B8
      v3 x3 U* t9 c) N
  232. PLA. J4 }% m7 K7 V7 o' n6 w0 X
  233. STA $B9
    , B* C% I' P1 V& a' H* a3 r
  234. PLA7 q9 [' j3 ?7 F5 s( b- _
  235. STA $BA
    2 O" o, z$ ]- D
  236. PLA% m7 l* w# M' v* v$ \2 Q. G% J4 g
  237. STA $BB
    / d/ j6 C7 v& R4 e  Y/ C) I
  238. PLA, N: f( a1 K0 |) \( M8 k' @
  239. STA $BC% {8 i* l1 ~9 O; p
  240. PLA
    6 P4 o( h# z1 E
  241. STA $BD, Z& V! E, c. g8 V& d4 W
  242. CLRF:: p2 n- V# r- X3 r) `
  243. RTS
    ( t' n* q" Y/ Y: u! \0 T0 h

  244. 2 s& u  q: E8 t+ h: A% [% L
  245. W_DATA:
    % T8 |" C( l  Y: n  K9 V
  246. .BYTE $00,$01,$02,$03,$04) v% p0 L$ r4 l1 L* h8 U
  247.   
    * C2 K" K  l4 t6 g3 C  B/ E
  248. W_PPU:
    : b  z3 ?' U+ P- S7 G
  249. .BYTE $98,$97,$90,$9D,$96
    1 w7 o: M$ c# I" c2 O& ?1 U2 i& B) j
  250. 1 C/ m6 t! a" G0 c7 u) w8 a
  251. P1_STRING:8 V# u' {# h, F' U
  252. .BYTE $9A,$82,$00                ;"P1"
    $ y! ?4 V9 [8 N& Q1 }4 X- W
  253. 2 K( I: x# n6 }
  254. P2_STRING:
    8 ^# Z/ H' I/ i
  255. .BYTE $9A,$83,$00                ;"P2"6 w' L: h2 b5 Q
  256. & f3 y5 i& i! d' T2 V+ v1 @
  257. WEAPON_STRING:
    + F. v& \! g: X) m" s8 i
  258. .BYTE $A1,$8F,$8B,$9A,$99,$98,$00  ;"WEAPON"
    5 A$ W. p# V( [1 k7 A, y; p; v( I2 F
  259. 3 J3 J8 E, G9 x/ [4 m0 ^1 Z$ W3 X9 D! s: `
  260. RELIFE_STRING:! b* l+ s5 {; c& x' @2 ?1 v6 U
  261. .BYTE $9C,$8F,$96,$93,$90,$8F,$00  ;"RELIFE"
    5 v0 h: |- b# i# }7 J- K; u

  262. + f: M2 c9 w( Q2 l
  263. P1_PPU:7 c. X! d0 O4 O$ |
  264. LDX #$00' g0 e, C0 g4 t! R7 `$ [% y

  265. 8 L; R+ g  T# K" ]9 Y
  266. P1_PPUW:
    ) x+ M4 z" r% E
  267. JSR PPUADDR_PROCESS$ w7 I- q1 d7 |8 d: A" c
  268. LDA P1_STRING,X
    & j  {+ G) u& I
  269. STA $2007/ m' b6 N# T6 R& w$ G
  270. INX4 r% R4 {$ l- G& }6 ]
  271. INC $BA
    ' ^$ ^: U1 q: }/ i6 l5 Q$ G$ b
  272. CPX #$03
    % U: E9 s# ?( q2 `
  273. BCC P1_PPUW
    ) @! ^8 E3 o3 g2 J: I. e/ t
  274. LDX #$00
    8 O6 [( c5 ?2 }) A3 e- ]
  275. RTS
    5 K" [/ q/ y+ Q4 d: H* ?
  276. / `7 |& D; X  X3 j" Y- U
  277. P2_PPU:6 |7 x) {! r2 H! M  H. T
  278. LDX #$00. Q" q* r3 }, @1 B$ V  Y. e
  279. - q* d- T9 z/ V+ w6 d7 v: f3 R
  280. P2_PPUW:
    2 B7 e% q8 {5 @* w! g" N
  281. JSR PPUADDR_PROCESS) c5 v8 ^( ]9 r) w& j. l$ [, r* ^
  282. LDA P2_STRING,X1 |" }* U- n& }) _0 R
  283. STA $2007% w9 a# {& [" x, R! F* I( P
  284. INX# ]) n8 g$ y7 M- ~& k! A+ G
  285. INC $BA
    % w1 R& j3 \0 `# R- }# ?2 S
  286. CPX #$03
    # A2 _" U& Z/ ?1 Q: C: G
  287. BCC P2_PPUW
    7 G  b; ]+ i6 m8 S3 m. q" Q
  288. LDX #$00$ j8 e5 c; k. z7 r4 |& ~
  289. RTS
    8 v3 o) w1 w" B7 B1 _$ A3 `3 a

  290. 6 l9 Y, R: E! m/ L' U4 D  R& Y3 }( S! L
  291. 4 C7 Q1 q! r9 I0 R4 Q$ `( O8 {
  292. LDA $BB7 Y1 m% B  J0 D: Z9 d& y5 L
  293. STA $2006
    3 n5 ?! {$ b1 c# o5 C6 I0 C
  294. LDA $BA' {) I9 D) U; d! A! _9 H
  295. STA $2006
    / i0 ~. ?1 ~. b% J; [- h
  296. RTS/ V! G5 I. b' G# g: `
  297.   o; A0 o/ M& Q) m9 I* t+ m

  298. & u: c! _* `9 [  v& O
  299. 0 ]( Y; D  D# {! s1 S; N
  300. PLAYERLIFE:
    # n' g0 x" a: J' V: g5 D# q& X4 \
  301. JSR LIFETODEC
    ! S) b# W) F# d: n5 p" q% D+ a8 |
  302. LIFEPPU1:- E" D9 Y* H+ d% f7 G; i+ q! \
  303. LDX #$00
    2 _5 V* e4 k1 t) C0 V
  304. LIFEPPU1RE:
    & I$ I' }  s8 [
  305. JSR PPUADDR_PROCESS$ a" s) ]. a) N
  306. LDA RELIFE_STRING,X
    2 f$ t& O+ M2 O( |
  307. STA $2007
    + r4 T, m  q2 z- g# i8 }
  308. INX
    + K6 E" T1 _5 @5 P" U5 L8 y/ f
  309. INC $BA1 y6 w: M! v- i( T
  310. CPX #$07
    , j' H3 [/ M2 f% s, I  D
  311. BCC LIFEPPU1RE- @# J. V! M/ n, s; I) S

  312. . _, h0 ?, Z8 ~, D
  313. LIFEDEC:                ;生命显示写入' c* {% q9 [! G5 q- E2 Y* K* p
  314. LDX #$00# C: c8 s3 L/ Y% t9 V' w
  315. LIFEDECRE:
    % D8 O4 b( ]$ t5 K- D
  316. LDA $7A03,X; Q/ K& ?* C- ^1 {. t. D/ a* }0 O
  317. CLC; }# W( q' }; R. L! A
  318. ADC #$81
    ' v$ W! e# Q+ Z8 F
  319. STA $2007
    & D  H1 ]0 V( T4 K  C3 I5 G4 h
  320. INX
    1 H( r& \0 Q* m- h8 X% d$ R6 D* L
  321. INC $BA
    * U6 E5 m% Z0 W2 G) V. k  o
  322. CPX #$03
    . S' B% d) w9 F6 L0 L# h5 W2 B2 t
  323. BCC LIFEDECRE7 U5 S1 k# c! \# s+ y  q9 q8 V
  324. LDX #$00; w$ m) u% T; r. ^! V
  325. RTS" H& e. x; a, p* x" Y* c
  326. % B* K5 K: c8 j7 i
  327. LIFETODEC:                ;十进制转换
    : G& G5 i4 ~. V% Q0 r
  328. LIFEL1:        ;initialise7 M* y+ a& H- y9 |, b. l
  329. STA $7A00        ;$7A00=F3' X9 _/ f, q3 T2 u
  330. LDA #$00
    8 O( w- G5 p: W9 }
  331. STA $7A03        ;$7A03=00
    3 i1 Z! q: E3 {
  332. STA $7A04        ;$7A04=00
    # \2 Z- J* ?. ]9 w
  333. STA $7A05        ;$7A05=009 ]8 P3 l; c% E& @
  334. LIFEL2:        ;copy data $7A00 to 6001
    9 |; _- V: H" I( `0 D  Z
  335. LDA $7A00* T7 ]# ]/ r: x, u
  336. STA $7A01/ o4 J6 S+ O- v4 D( d3 X
  337.   T* f; s8 l$ p2 T& k1 l/ d
  338. LIFEL3:         ;hundred1 J6 L& e& Q' @+ o" C3 Z
  339. LDA $7A01
    5 g) I. \4 {/ w
  340. CMP #$64
    6 \9 i- p, S4 q  C
  341. BCC LIFEL6                ;$7A01<100 goto L60 J0 H" i" ?  s2 U: T
  342. LIFEL4:
    * [+ r9 X! s7 f& r' D3 D
  343. LDA $7A010 |; X& Y: T4 `3 o+ q9 N$ F
  344. SEC8 d' W# {0 l# p/ |; d/ {6 o3 u; p
  345. SBC #$64        ;$7A01=$7A01-100
    0 X: N8 g* F4 U: T
  346. STA $7A01- i/ N. V# l0 E
  347. INC $7A03        ;hundred++
    ) w  l' B2 z( l; Y
  348. LIFEL5:
    , I" C; N  u  ~) u" s( X
  349. LDA $7A01
    " b8 Z/ y9 o7 ^0 Z( S; t& b- V
  350. CMP #$64
    # [# G4 J( q6 c  b( x0 s- d* W9 K  |
  351. BCS LIFEL4                ;$7A01>100 goto L4
    . Z, S4 {+ O, k8 d0 C' S0 O
  352. 9 E. n' z# b; p1 A, q! [
  353. LIFEL6:        ;decade; z7 _4 ]& ?  N& z& U
  354. LDA $7A019 Y+ [  a3 P) H! u7 m& J% ]8 C
  355. CMP #$0A' p! U4 M8 n4 O3 ^; E/ b
  356. BCC LIFEL9                ;$7A01<10 goto L9
    8 V* _7 z  G0 v4 K7 D6 u3 E
  357. LIFEL7:       
    8 l! N& s: H+ b) f8 H
  358. LDA $7A01' f7 W8 i# d. w9 o) y" A% Q
  359. SEC9 ?1 _" y" ?2 g" ?6 Z9 f* [" S/ [
  360. SBC #$0A
      z# y4 R6 F0 n2 }& b% @4 o% e
  361. STA $7A01        ;$7A01=$7A01-10
      z8 z6 M# c0 V+ L/ `9 P8 b
  362. INC $7A04        ;decade++
    9 m9 l+ h( o. f% C$ U; }
  363. LIFEL8:
    & e) |  r4 O9 A  U
  364. LDA $7A016 M, h2 G5 v: ]) h' Z- f
  365. CMP #$0A
    5 Z4 \9 s. Z! l8 ~6 U
  366. BCS LIFEL7                ;$7A01>10 goto L7
    ) s! Z, q4 |# h% l2 q
  367. ;unit5 @( Y: Y  t* B5 M4 D
  368. LIFEL9:3 x+ v  \- X- Y. r; C0 ?+ t
  369. LDA $7A01        ;$7A05=$7A01
    ; Q+ j" {3 R8 X
  370. STA $7A05        ;unit  \: J6 J4 j, a( P! s4 T  b" e
  371. RTS        ;return
    & ]! E% [0 F5 }- x- S4 i, \6 I

  372. ; [5 u/ _& V' j

  373. ; @' A' A# e; \* q5 z7 m

  374. # b" g+ O6 u; c7 ]
  375. WEA:                ;武器ppu写入
    . p; j* ?4 ~2 ~% h
  376. LDX #$008 x8 Y% q) m4 S* t$ [: s  N( N
  377. WEARE:, j4 ~7 p* p# M$ N) q$ k
  378. JSR PPUADDR_PROCESS& W1 a! [- X* A* [; i/ j, r
  379. LDA WEAPON_STRING,X  M9 z* j8 U% A3 d  _3 ]* [
  380. STA $2007" u) j9 e1 r6 O" _
  381. LDA #$001 M, w/ _; S: @
  382. STA $2000
    * w$ J! ?" Z" b6 i1 \
  383. INX" D; {1 |" P$ a9 C6 f* p& p
  384. INC $BA
    + a8 V, d3 M+ N+ m' S* {
  385. CPX #$07
    , k3 n4 `/ y( q6 _" D. H( r
  386. BCC WEARE
      _1 f4 u4 g  r% `  _

  387. 4 D* Y. A: V/ C7 i5 C
  388. READ_WEA:- M: u, K) H; J. W  w
  389. LDA $B9
    0 @2 _+ S2 U# U" V5 N( l
  390. AND #$10
    - k6 F0 R! H* O4 r9 \' D6 z
  391. BEQ NWEA
    + S6 K( V& \/ M) R
  392. SWEA:
    * W5 d" ^  \$ ^8 n1 L
  393. # }) X; F- i) L0 f- o+ M6 f/ F
  394. LDA #$9D4 P: T2 i0 D7 P+ c3 B
  395. STA $20079 E( p( o: E; n* r, e! y
  396. LDA #$00
    2 @6 V& R1 k* `
  397. STA $2000
    / ?9 E9 r9 ?. h
  398. INC $BA
    ( d  I0 q, ?/ s. T
  399. LDX #$00
      {6 m" H! _0 h- }/ |9 s, w
  400. JMP WEAREAD
    ' b# v* X! q5 l2 e9 R1 h5 `% f6 L
  401. NWEA:
    2 h& g# \( N1 s, x9 F
  402. 4 E6 M3 m8 G: L+ p# h  v) ~, A
  403. LDA #$8D
    6 {+ |2 G" `* ]* M6 p# q
  404. STA $2007# A9 |& ?/ q' A6 u. J  w
  405. LDA #$00: I+ R. p1 W- n4 F* A' v- i5 q
  406. STA $2000
    1 Y0 r. c: g0 `  X; c% ]
  407. INC $BA
    0 M/ }4 n2 m% m' T: c
  408. LDX #$00
    4 R) h0 @8 |$ n4 N4 ~
  409. WEAREAD:) }8 }0 d: g" P: k+ Y8 f+ `
  410. LDA $B9' K6 @' Y5 i& V" X+ X$ z# i6 ~
  411. AND #$EF7 W5 i# G4 e" o" l/ U) N
  412. CMP W_DATA,X* l: E4 E2 c# m$ d' P+ P
  413. BNE WEACMP7 ^" u: @" d, `- ?, K8 w$ F$ P

  414. 9 h, O+ G2 c* ^0 c# P; O
  415. LDA W_PPU,X6 ~( f+ U. Q" S
  416. STA $2007
    ' H1 l; @8 w% o) k( q! s2 Z! Q
  417. LDA #$00
    . h9 p$ Z% f/ a  y1 |6 s6 c
  418. STA $2000
    5 V2 H. b$ w* U! c6 V
  419. 3 ]! V1 c4 `. Z* r; J
  420. WEACMP:+ I# l8 w5 f- F6 l
  421. INX
    2 ~6 s4 o- @+ k# B) E. W
  422. CPX #$05
    0 v1 Q! `1 [! B8 {5 Y$ i0 @& D" E
  423. BCC WEAREAD
    2 Q  ?# v% m" D" e- F$ e9 c
  424. RTS
    + ^6 j* }. R/ O

  425. : M4 Q6 i! Y& ]; m' D
  426. , n0 p  i5 c+ j/ O: b5 Q, C/ \. V
  427. PPUWRITE:1 p0 ]' P! M+ k  p
  428. PLA
    1 w" U' Q& w9 y' W5 c/ p) E
  429. TAY0 F( I  q: m$ f( a% Y
  430. PLA
    7 N. R; c2 z: L2 k
  431. TAX
    1 C6 s/ X. x& E9 T7 l3 X* n
  432. PLA7 O# e+ U5 K+ B/ ~% o
  433. LDA $25
    $ A" x1 Z# G% _$ q; O' c/ @
  434. CMP #$000 W5 x: g& }! V
  435. BEQ WP1
    1 b  c/ _6 ?/ U' e( D+ e
  436. LDA $25  `; F4 ]5 ~0 g( n2 e: ?- l
  437. CMP #$01
    9 ^. j  s2 O( b/ T' s
  438. BNE WRE
    % E/ g" {! u6 b6 c3 G
  439. LDA $F5,X: }2 E' L& ~) c' L& r
  440. AND #$EF2 v, d: Z+ P+ E6 Z  _3 N/ }
  441. BEQ WRE! V( ~# B0 o( t4 s1 F
  442. LDA #$00
      a- U6 O) [1 n8 G3 d/ k
  443. STA $7FA0  M, E0 P$ X1 @/ P/ X
  444. # o. J7 ^# R. `
  445. WRE:- s. `0 }% R7 v6 T
  446. JMP $A000* K8 C0 S& r/ m6 E: J

  447. 6 L' W$ P( v9 [4 k7 s
  448. WP1:, S" D9 p. R) d% U8 G! @
  449. LDA $7FFF& Y. [2 b. P+ a+ L$ h$ u' j- C
  450. CMP #$FF' w4 n0 L1 e7 H8 v( b( \; I
  451. BNE WRE
    7 L3 J3 l/ x% V# g
  452. LDA #$00: n8 b" ~  f+ D9 ^# b% i: L* E& I
  453. STA $2001- c0 \8 A# ^. a8 J9 X& E& c
  454. LDA $BD) S* i7 p  _( @+ F: J3 Y
  455. PHA
    1 Y# _/ ^8 w9 g: N3 E/ Y
  456. LDA $BC. M6 G" [  t9 H) I8 O2 A  @
  457. PHA. P7 X! Y4 E0 y
  458. LDA $BB
    + V" j" @; {* \. n* O# q
  459. PHA3 j; l6 d" ?$ m5 {; n  d6 s& ^0 Q
  460. LDA $BA
    * f$ {. L. A  V, s# Z- m7 k
  461. PHA. Y4 e4 J2 [/ n# U; R
  462. LDA $B9+ j' A1 ^: X; T; I$ X8 `( z
  463. PHA
    5 u+ s; B% x: P" w" r; I
  464. LDA $B8, ]! A; K$ ~: ~8 T& w1 r
  465. PHA7 _0 Z  M' }- ^% p  ]8 g3 A
  466. LDA #$004 ]4 u+ q9 @; k: I
  467. STA $B88 j- o/ M) a+ W* A3 s! U& P
  468. STA $B9
    2 S4 c' E. |2 v3 w0 `
  469. STA $BA
    5 c/ U! o7 m* \: Y/ M  ~4 }: D
  470. STA $BB
    1 I4 {3 h6 i3 K/ `  m
  471. STA $BC
    1 S. ?3 M* R6 o: a0 K; _
  472. STA $BD
    / Q7 u: }" j! O2 a+ w
  473. LDA #$00
    9 d. D. N; d6 k' L
  474. STA $7FFF, O$ J. @7 A8 o4 J
  475. LDA $30' |2 P( o5 U6 F: C) n
  476. CMP #$02- C1 t2 \! L. d' e
  477. BNE UNPROCPL
    ; X# Z9 B! U7 _4 X1 o
  478. LDA $7EFC
      f; ?& F, K/ [' G$ `5 h3 P( g
  479. STA $FC4 _; y. B. \5 o( I1 U, J/ X! i
  480. LDA #$003 E8 l) Y" d: I  U
  481. STA $A4
    / y2 v' N, f# u2 W0 J; Z
  482. STA $A5
    . o. P/ h  T/ F* f- j& K6 o* I
  483. UNPROCPL:
    - g+ d# h7 q8 ?) R' T
  484. LDA $7EFD
    ' v& u2 w  e7 g# l0 ^6 t
  485. STA $FD2 [5 J& ^7 I: Y9 n, k& A6 w% r" ]
  486. LDA $7EFF
    0 Z; y" w4 g* @- }1 Y1 T7 r
  487. STA $FF
    ) T6 q! K% x1 _$ m, T# t
  488. & t1 p! _' G! O; I  j
  489. WL0:
    5 w/ r' c& N- k* G+ O3 T
  490. LDX #$009 K. ]9 A/ D# `$ {5 b0 K, @
  491. LDY #$00
    ( m! C& W9 _$ v
  492. LDA #$00& Q- Y0 l; G9 J, Y3 P
  493. STA $BA: f  p* J; p1 Y0 X6 [
  494. LDA #$20
    2 i) s1 w$ e" x' @' o  t% l
  495. STA $BB: ~4 |# ^! w( _$ V! c& D
  496. LDA #$00' u" X+ U" d0 j; w% E4 U( ]1 s
  497. STA $BC* j3 n( \8 `2 f
  498. LDA #$60
    : m  f9 `( H; C* l% f% M
  499. STA $BD. [  T7 @; D7 e, g- C$ E) P* L4 M0 r

  500. - j  v  l& n) Y
  501. WL1:
    + B' m( s; I9 C( _
  502. LDA $BD4 v; U$ l! [' J9 j  o( I
  503. CMP #$70
    8 ?5 ?3 s1 Y" A( s1 f+ i
  504. BNE WL2
    * F. m$ Z  t5 U3 @2 u8 A
  505. LDA $BC6 m+ Z$ Y9 h- v
  506. CMP #$00
    0 X6 d5 X) S/ `! W& y  w5 ~4 f' l. R
  507. BEQ WLR
    : B+ j: t2 N0 V! h; ]$ U& k

  508. & @3 u6 H: f- Z9 k$ y0 M! `. ~
  509. WL2:
    2 ?% |- z* `- `8 c* S$ }
  510. LDA $BD# t8 M$ ^( \+ C' q4 a; |$ n
  511. STA $2006+ v9 t+ g6 Q& k$ c" {
  512. LDA $BC+ d9 g6 R5 N3 u7 S
  513. STA $20067 Q' S( A, G% r7 _
  514. ; G9 a3 }# P$ r. }/ R. Q
  515. WL3:3 y, b% P9 ?3 A* ]8 @
  516. LDA ($BC),Y
    - ?9 y3 m- m2 t4 H6 I; R
  517. STA $2007$ v3 B! ]8 c! ?9 H9 C8 ]. r1 d7 S

  518. 1 D% f, u+ Z1 }1 ^4 T9 q. S! V( E
  519. WL4:6 U5 q  m( Y: {! O
  520. LDA #$002 L5 T; c* F9 ?
  521. STA $20003 Z; m$ C) K% I* h
  522. INX
    1 U% @4 Y. M2 ?/ K
  523. INC $BA$ g! u4 _( j0 b+ U' O
  524. INC $BC
    & p* e. W$ A! |
  525. CPX #$005 H) r- f6 ~4 q3 _, ~5 C
  526. BNE WL1: Q  C' J- s! F/ ?$ r* |
  527. INC $BB. s( ^! P" i5 |2 I2 c. ^& d
  528. INC $BD; ~6 b- ?0 m( ~% l: e  o0 s
  529. JMP WL18 O' x8 S& ]& t# n2 _7 l1 t1 H, q

  530. + f5 l, l3 |0 ~; J, y
  531. WLR:
    ! N! Y$ s3 q" d* _# D+ y1 |
  532. LDA $7FFE
    , u- n, M  R0 q( i" u9 I2 ]6 k
  533. STA $07F6
    ' ~, e; F* h+ L
  534. LDA $7FFD$ D/ l& S1 \0 k! \
  535. STA $00FE, N: G1 V: r7 ^; v" R# i9 L
  536. LDA $7FC1
    ! N9 f# C5 Q& Z
  537. STA $07C1+ s4 v/ \; a" N! z  @9 M
  538. LDA #$3F& L2 Q( s. Y: K- ]) b
  539. STA $2006  u$ I) l# I6 J* }% O" |
  540. LDA #$011 x5 Z. j% A/ ~( l9 |2 Z# Z
  541. STA $2006: O$ E) D5 @) v4 ]* G* G. [
  542. LDA $07C1
    ' a  |1 {6 }. o2 q0 |5 O) d9 ~9 D: A
  543. STA $20074 K8 s* {& k1 n! _" I
  544. LDA #$00
    " m9 a0 o; ^0 M9 t9 X1 V. P
  545. STA $2000/ N1 u0 `. W1 U! ^' `( K
  546. PLA
    2 T- D0 @) s: N! g, _) h
  547. STA $B8  c1 i, ]' M* S/ V6 t0 x
  548. PLA. g- E# \3 {6 `8 s% n' e
  549. STA $B98 ]8 P# G! u" R, _' h3 c
  550. PLA
    & @( M! M4 G9 p2 `( }- g  {) V
  551. STA $BA  m& }& e3 D, G$ k/ b) v
  552. PLA; W1 N+ m/ {7 T& W4 G" a2 [
  553. STA $BB$ g9 R0 d6 m  E' E0 `
  554. PLA
    4 u& W2 c1 ?9 _7 Q' _& l. W, ~
  555. STA $BC% H4 j, j2 |) s0 X% u4 o
  556. PLA2 A$ k+ O! W5 p, o" t# ^3 Z' r
  557. STA $BD
    ( i& G3 p+ l- S! v/ y' |% `
  558. JMP $A000, B4 V( e# [) A7 y5 x
  559. # h1 C+ {3 v  t
  560. FREE:                ; 暂存器保护
    , ?9 J8 l0 m* g
  561. LDA $BD
    3 _/ r; K+ b6 `) k9 A2 Z
  562. PHA
    * X; H) g! z5 d! |: M# x; B9 F, a
  563. LDA $BC/ V% @. L1 H& H( m1 i
  564. PHA
    ) s9 s; ]9 ?( }0 ^! `2 ~
  565. LDA $BB- t! ~/ @! e4 U
  566. PHA
    / M6 ^' B6 V+ |3 V4 D
  567. LDA $BA
    $ ?$ M5 X' R% }" `! B2 k+ j1 T
  568. PHA% i9 C3 R0 m1 J7 T& {
  569. LDA $B9/ ]; l! I3 j4 Q7 m, B$ c2 [  o
  570. PHA8 T( S2 C$ @7 A3 v' w. c7 k
  571. LDA $B8/ v" q5 m8 E2 ?6 u: S- b9 G' Q; Q
  572. PHA
    7 t# P1 _7 q1 s, l( ?! `' ~5 j
  573. LDA #$002 U3 W5 s. o# S) {$ a: o
  574. STA $B87 W+ |; F4 N9 m8 |3 q
  575. STA $B9
    0 B, `+ ?; F4 ?# B: w3 w
  576. STA $BA
    ' L% D/ W9 C( J+ A! `
  577. STA $BB
    8 o- I: x2 U3 [+ k/ i" N' ~1 o& x
  578. STA $BC) t4 X) X, Z& M0 Y0 m" u
  579. STA $BD6 X) U# Q' C7 e$ B6 o
  580. ! S: d8 a9 D! a$ d5 z
  581. WEAWRITE:                ;武器ppu写入; U; c6 \$ F- ~
  582. LDX #$00& c& J8 _; L& t
  583. LDA $AA
    1 W- Q) U% @" y) p, d' r
  584. STA $B9
    " |& N, _9 q; L- I
  585. WEAINI:                ;地值初始化
    - d) l: z# y9 Y0 g
  586. LDA #$A4
    8 F3 E3 ?. k" \: h& A9 V
  587. STA $BA0 Q$ g! O4 @$ B# t+ {! Y
  588. LDA #$20# n/ Q! i/ d, a; X5 R) ^
  589. STA $BB
    . B/ V6 `) W# M8 V

  590. # b; ?- ~5 E/ e$ A

  591. : a2 x9 N6 k2 a  Z" F
  592. JSR WEA
    - b7 x) p! {) k, x) ?
  593. LDX #$00                ;武器ppu写入
    1 ^( P4 W& D+ ?; O  m
  594. LDA $AB
    2 D( m: [) W/ v3 f; D) v
  595. STA $B9
    4 U" K7 E  `- f4 y" [5 M* ^
  596. LDA #$B3& h: k7 x" U. ~! {/ b, E1 O. `
  597. STA $BA) b, h3 E* I: `# O$ P2 ~
  598. LDA #$20' P8 i" V+ x, P. a# b1 j
  599. STA $BB
    1 N1 J' v  [( i$ a. Y, l; i; B

  600. ( f1 T' }# p' K4 Q: i+ k

  601. ( L8 |/ i- y" `
  602. JSR WEA1 M1 W4 g' x  p0 W8 D

  603. ; X/ m+ r) ?6 V  ^8 }
  604. LDX #$00
    " _5 e4 Q8 K' R3 `0 a. h0 w
  605. LDA #$E4+ d6 z/ O* a5 C$ S, w9 }
  606. STA $BA; _; g8 v/ A( _* a+ \: Q4 Z
  607. LDA #$20
    ; m! R* m. E& S( y6 |9 _" M
  608. STA $BB& b  w; E/ _( K! Y7 N  l
  609. # }, H9 ]: K6 O. N; ]

  610. 1 T- F( G( z# @
  611. LDA $329 c3 H/ r" f" \% h
  612. JSR PLAYERLIFE
    - M" T- X/ |. k
  613. % \$ d. u: l- ^& d# {
  614. LDX #$00. u9 Z4 d* p2 q9 F2 A; r% L$ Q
  615. LDA #$F3$ d2 F: B  u: L: c, S/ k" D" ]
  616. STA $BA
    4 V+ p2 v* k% R0 O' z; ~
  617. LDA #$20
    / w: t( l5 J0 z3 ?
  618. STA $BB% l* c% j. e& E! o0 Y, s
  619. 2 I* h! n9 o( x; }) c

  620. * G# p* W/ Z( j: b/ G7 c: ?
  621. LDA $33- \; [4 e/ H& }, _' f( z
  622. JSR PLAYERLIFE
    ) E$ M' l: e8 W' y% j. F

  623. / [. `$ t$ I" m$ x. u2 j3 Y: V
  624. 1 e% e9 B! h9 D$ `' K! j
  625. JSR PLAYER_01_PPU3 b4 M& d7 `1 d' ]8 s4 H1 J
  626. JSR PLAYER_02_PPU
    3 L; `; e/ {) }1 U% Z6 v

  627. 9 l  ?" P7 C2 t! j2 I0 M

  628. " A# M7 `) }) {/ `: S# _
  629. JSR PAGE_PPU/ ~% z/ F3 Q% z
  630. JSR PAGESELECT% G  a7 u' ^/ Q8 t4 F' d
  631. : n6 J. r1 @4 q

  632.   ]! P2 a* E8 f% A

  633. * u) o& F3 f( R. q0 I! h; r
  634. % S6 G1 D: V& _- |

  635. 2 f2 Q9 O5 O# A% K3 k: O& e

  636. 3 x5 h6 j7 m% e( E1 a8 l* S7 T
  637. % j1 ~- B; r7 f4 n* ^7 Y

  638. & Z0 k4 D7 ^6 Y3 \( C7 @
  639. - s( o6 j6 }: B: M) P
  640. & l  s/ Q6 }9 i& [* N

  641. " b% H- k: d% w2 I3 a
  642. ; k1 i  @% @# o' i, T4 W
  643. + b, c, G& n, [  T& P5 V9 ]
  644. PLAPRO:                ;恢复现场" ~) g. K4 v/ g. t
  645. PLA
    $ \3 I6 s/ @- @
  646. STA $B8+ P) Y4 Z- H0 T: w
  647. PLA
    - M4 T( A5 v2 Y! |3 l, I8 ^/ ?$ z
  648. STA $B9
    ! H+ x3 E$ W8 ~' P
  649. PLA
    ) Y2 ~5 i0 B+ \9 w0 m2 O7 g
  650. STA $BA
    , n: ?! ^/ _5 T+ H
  651. PLA9 Q  f  f+ ^2 [; ?0 d! N
  652. STA $BB
    ) t. ]6 T( }( A; W1 S
  653. PLA
    , C8 ~( p0 d. k9 ]" Q! ]1 h
  654. STA $BC1 ~1 |. a# n0 }5 v( E
  655. PLA2 ?# L; s2 y+ Y# R8 D$ k
  656. STA $BD' z6 B7 z1 w/ `
  657. FREERTS:
    1 W3 Y0 i3 \2 j; P) W2 m" w; `
  658. RTS
    ( f, r% q. P+ R( M% O& Z3 v3 L& e4 }
  659. ; `2 [9 W' H: P4 r1 T- ~% e, x
  660. INVINC_STRING:                        ;invincible0 ^0 H" Z3 t0 {# d0 f( w& B, R
  661. .BYTE $93,$98,$A0,$93,$98,$8D,$80" I  H* U. G' T- ?- j! r; |; s
  662. * Z+ z4 w" @: ]" O
  663. INVINC_PPU:  v) y( x+ {- B; y8 f3 M
  664. LDX #$00
    + A$ V; i8 f6 d
  665. LDA #$626 H0 b) \) K! A1 }- M7 |0 `1 M; r
  666. STA $BA# x5 t3 F5 e% w4 g
  667. LDA #$21
      U( A' g, V- g, c0 A% d8 |0 K2 F, C
  668. STA $BB
    " r5 v3 ^! f, X
  669. 9 r8 h6 v) V7 R# G  K7 `

  670. - H4 k) g" o6 A" D( S" I9 b
  671. JSR UP_PPU
    5 D6 M4 Z4 ?. o
  672. JSR INVINC_WRITE
    / U( T$ e$ q( B
  673. LDX #$00& H. @; g: {" O/ b8 P
  674. LDA $07A0
    0 a& N. c# \& n4 F: g
  675. AND #$01
    ! X' I5 ?8 w2 f% t+ q
  676. JSR ON_OFF_PPU
    2 J2 E8 ^. s$ c: p9 J! @
  677. LDX #$00* r0 W3 C; u; r4 \. w6 }$ `& J
  678. LDA #$71  h5 J+ g( r+ |- Z, \" z
  679. STA $BA
    + L. U* i" K( E: Q
  680. LDA #$218 Q1 c4 `7 O; G1 E
  681. STA $BB9 Z9 O5 @9 w  Z

  682. 6 D6 w; K' |) d7 s$ i- |7 q; c* z% r
  683. . Q1 |3 Z# i2 |9 j8 q9 O/ w( Z0 X
  684. JSR UP_PPU, l& }9 b. b2 n+ h
  685. JSR INVINC_WRITE3 f, o0 V- i  j! K
  686. LDX #$00
    + R4 \3 D5 q; U- G9 p) d
  687. LDA $07A1( i# Z/ k* `$ j. {# g
  688. AND #$01
    ! B. [; b0 V/ |, e0 s: ^
  689. JSR ON_OFF_PPU
    & M: z0 p$ q3 Z$ I
  690. RTS9 l0 G" i$ b' ?$ v) P

  691. & R0 c1 y+ m% g' p4 a6 s- I* J3 A
  692. INVINC_WRITE:
    / w2 n6 p3 ^, V4 `0 N
  693. LDX #$001 \" {8 t. m! `0 |1 c
  694. INWRITE:
    2 ^! E- n6 w8 V
  695. JSR PPUADDR_PROCESS
    3 t& s7 J% u8 C+ P9 S
  696. LDA INVINC_STRING,X3 l( ?' o- Y8 h  ]
  697. STA $2007! ?$ R4 F' |- b6 M
  698. LDA #$00
    , `( h. ^3 p# l( i$ T; I- l+ T
  699. STA $2000% [" ?% [9 t+ E, o3 p+ }
  700. INC $BA
    . b+ ~6 q) ^: [' R
  701. INX
    7 u- Z7 f) e) V* z- s
  702. CPX #$07
    - ^) v5 e! `" [9 x
  703. BCC INWRITE
    ; I" e, R8 c$ ?
  704. RTS) E. j/ K/ x6 T0 e: A7 C+ w
  705. * V. c: k8 Q8 l" R* q. ?1 M: f
  706. ON_STRING:2 d1 J6 |' U% d% T7 {& m
  707. .BYTE $99,$98,$80
    # p3 T( G9 U- [5 o1 }

  708. 2 @8 O6 J* D6 T( u$ ?
  709. OFF_STRING:
    1 N+ U3 ]0 @( q  E2 i; Y
  710. .BYTE $99,$90,$909 q2 `4 @" [4 o, n, D6 K

  711. ! P0 x$ i# y7 }# U, W6 u1 G1 @
  712. ON_OFF_PPU:
    # g. G6 s# j, h- m/ Z
  713. BEQ OFFWR) H# ], C2 i: p( i
  714. ONWR:
    & [: K8 c6 y5 G' I# a
  715. JSR PPUADDR_PROCESS
    / e' g' o+ E6 A2 e7 i7 s" q
  716. LDA ON_STRING,X
    , d# l3 }% x2 Z* e8 U
  717. STA $2007
    3 c, Y2 j3 E8 Z# M: v; c' v
  718. INC $BA. B# U9 P) Y; K9 a" s
  719. INX2 R4 s/ C: s4 Y2 I! h
  720. CPX #$03  y7 L) p3 s& X0 Y
  721. BCC ONWR; ~. U$ i' _% G- L3 m# u
  722. RTS8 |$ \9 s$ F+ U. N+ P
  723. OFFWR:) S# h' z1 S3 ^0 v, S6 ]
  724. JSR PPUADDR_PROCESS1 [3 s7 B  \2 I6 l$ X( P( p
  725. LDA OFF_STRING,X, @8 P+ H+ E+ C3 R: C5 a  g/ T! p
  726. STA $2007
    * @* O8 i" ~. {6 `
  727. INC $BA
    . Y9 V( H. C7 G) N. p
  728. INX$ ~+ F; U0 D& I$ f# z; ]
  729. CPX #$03) y% v2 m% K. {- j) r
  730. BCC OFFWR
    3 J. v* N& i4 D$ j
  731. RTS
    : |. b2 A1 w- E5 x1 B

  732. 8 T4 x8 p. E2 C
  733. LIFELC15_STRING:
    % M( L8 U: q. k
  734. .BYTE $96,$93,$90,$8F,$82,$86,$80% R& \# i2 r* A% ^- V

  735. . r& s+ d( m6 U; ]( @) X
  736. LIFELC15_WRITE:3 ]" ]1 k! U) s* n- p4 C) A
  737. LDX #$00  R6 B/ T' Y4 n- ^
  738. LIFELC15:
    2 q/ H) u5 l$ b$ R/ t9 s# I
  739. JSR PPUADDR_PROCESS
    & W- M# C# g; S& u9 z4 O8 N6 a
  740. LDA LIFELC15_STRING,X
    4 \; R5 v* ?. e9 \' x
  741. STA $2007
    3 E) k4 u# T( h$ b" o3 O& I/ E2 X
  742. LDA #$00
    2 X; ^) h; k& |
  743. STA $2000
    # C2 O# E9 k' U! u0 y$ ]
  744. INC $BA, G5 W' n1 Z' j
  745. INX
    / h& O0 h- J: q& k* U
  746. CPX #$07
    7 B# G- H$ X  V' l4 `' g; q+ B
  747. BCC LIFELC15) W( F5 m( V0 k8 |- J0 [
  748. RTS
    % y  q) H: m% Z0 j9 g, ]; V

  749. ! R  I7 E; k1 k$ e
  750. LIFELC15_PPU:
    : p7 d5 \- J5 G0 N' R7 o
  751. LDX #$00
    7 q3 z3 g1 y1 J: a. F
  752. LDA #$A2
    1 k  i  e4 \# i. l: E/ Y; ~7 p; n
  753. STA $BA0 t% q! x; k9 o* i: C
  754. LDA #$211 q1 ^4 L( F1 m% x" n" z& Q+ l
  755. STA $BB- B9 J0 {( K" a0 I( M+ q
  756. JSR DN_PPU
    " N, N. I/ E/ o- e( G, B3 z/ K
  757. JSR LIFELC15_WRITE
    $ Y0 D& U- D: _( i7 H& {" n0 ~
  758. LDX #$00
    2 K$ D9 p- G7 m& v
  759. LDA $07A0) r) {" _) C( J6 g
  760. AND #$026 {  x- R. ?1 @2 U3 A. x
  761. JSR ON_OFF_PPU
    ! ]1 R, S7 m4 n6 ~" e7 j
  762. LDX #$00: ^8 h$ X9 h0 a' ~0 |
  763. LDA #$B13 V* f* {1 q; K6 |
  764. STA $BA
    - Y6 n. M3 x8 A' [! {' p
  765. LDA #$219 T1 M& T8 o) W" {' F
  766. STA $BB
    3 T/ U; b$ G4 \& ?
  767. JSR DN_PPU: f# L4 J4 f9 t
  768. JSR LIFELC15_WRITE
    / D. b' Z# Q; p0 z
  769. LDX #$00- O+ y$ J0 K& m/ S$ {
  770. LDA $07A1! o9 o5 J8 h/ Z/ m6 v7 \6 f
  771. AND #$020 |% m  C2 o! H* K: X, V; x
  772. JSR ON_OFF_PPU
    / ?6 b2 e* K  L9 D( a
  773. RTS
    ! m7 i7 R  b. Z3 v; w
  774.   V, C% U7 E4 j: ~
  775. DOUCON_STRING:
    . h( A4 e# x+ |- S# A
  776. .BYTE $8E,$99,$9F,$8D,$99,$98,$801 r4 }$ O$ c" W' Q; F: k
  777. 4 }* y4 ]9 z9 `4 K8 u" A5 }
  778. DOUCON_WRITE:) H& I+ O  Q3 G9 ~% M
  779. LDX #$00- o- T9 g- n5 M
  780. DOUCON:# E& w8 H1 s& {7 M; m
  781. JSR PPUADDR_PROCESS
    0 y8 y" @; T: ]$ f/ v& U
  782. LDA DOUCON_STRING,X
    # ]5 e# Y0 ]# ~5 ^- h- U; y" g# O
  783. STA $2007
    # L" m* ?) ^9 [4 L+ l; \9 @4 p5 z
  784. LDA #$00$ D4 u5 t  z' E
  785. STA $20000 V* v: D3 F6 i
  786. INC $BA" _6 a+ K5 ]9 G3 d0 h! S
  787. INX
    $ D, {* ^' @1 l! e! a+ N
  788. CPX #$07
    $ G$ `6 p- \2 Z5 e& C) E6 s, L. j" A+ r
  789. BCC DOUCON2 x9 q- Z8 H  h: r3 _; ^
  790. RTS
    ' Y7 a* ]7 w4 U. P7 {
  791. & E8 g, ~3 U7 K6 N5 e  A( M
  792. DOUCON_PPU:
    4 N  y2 Q# D% {# |6 o3 j. i
  793. LDX #$00
    % |: |- x/ H: B0 ^# j
  794. LDA #$E26 c0 w# H# Q7 S  U& v
  795. STA $BA) ]  ^$ O  J* w
  796. LDA #$21
    * W! z$ w4 Q( `) m
  797. STA $BB
    , T. t, l: ~5 t9 f4 P, E+ ?% K
  798. JSR LF_PPU
    / `' X- ^, X* U1 Q' x
  799. JSR DOUCON_WRITE  A4 a8 q# I2 o* b; y+ ^7 s. O
  800. LDX #$00
    : X# P: _- D0 ^( ~, a4 n
  801. LDA $07A0
    % H0 D$ s$ Y- D3 i
  802. AND #$04
    5 ~+ i' Q: y4 m! |
  803. JSR ON_OFF_PPU1 ~; y. o# l3 U1 e3 u% o
  804. LDX #$00
    , V9 S! w4 T! x* u% g
  805. LDA #$F1. h, z/ m6 N  Q2 k& @+ T; S/ D
  806. STA $BA; y5 i6 F0 s& D, d
  807. LDA #$21; \1 \. x2 j3 ]  q
  808. STA $BB
    $ h  b+ N9 Q; t$ M3 |
  809. JSR LF_PPU# e: x- l* P4 a( I2 C/ G. t5 Q  q
  810. JSR DOUCON_WRITE2 q# i# A; n3 a' v4 Z# d
  811. LDX #$00
    8 }. v6 `# F  o0 t! E
  812. LDA $07A1+ [, p! c) |! J0 b! S* D
  813. AND #$04
    3 g. M) V- g6 Y% H
  814. JSR ON_OFF_PPU; t+ _4 V4 _! _! m1 R
  815. RTS1 |3 M0 T- k! y3 v( |; r: ]
  816. $ Q- N7 ]4 O: m7 x5 h
  817. LIFELOW_STRING:
      X# `! L9 f' L" T5 c: N! J, P! Y
  818. .BYTE $96,$93,$90,$96,$99,$A1,$803 a6 k+ ~* e) F% M
  819. 9 W1 f2 E1 M  P5 L1 W4 P) {
  820. LIFELOW_WRITE:
    ( j5 O" K# J7 X6 h( k2 v
  821. LDX #$00
    5 K: J; `! q6 \8 H( G" ~
  822. LIFELOW:! t' H9 U) ^$ F# F. m9 U% P- M+ t
  823. JSR PPUADDR_PROCESS$ K  w! @7 w: J  W
  824. LDA LIFELOW_STRING,X# N$ H+ N/ Z* K9 T" g& Y+ z
  825. STA $20074 C9 s$ R, b: X* l: X3 u; k
  826. LDA #$00
    ) ?% ~8 m9 o* D! q2 `
  827. STA $2000
    , j2 F* h/ x. }! {2 ]5 W
  828. INC $BA9 W8 F! k  _" g) J
  829. INX
    3 {/ i6 v, N; o3 P6 B
  830. CPX #$07
    4 j& b/ ^: z+ d/ f. P
  831. BCC LIFELOW! b: K& n3 W0 O, i7 g6 a" j( Z4 T* E
  832. RTS
    0 U5 T$ b( g1 m& Y8 Q
  833. + q# V& r, R1 h! E$ q! o
  834. LIFELOW_PPU:
    4 S0 `# @7 n+ l
  835. LDX #$00) p. |; O$ t+ {. M# l, W
  836. LDA #$22
    " h- h8 W- d6 ?8 s
  837. STA $BA
    & }- T" t4 l- L/ E3 \8 d
  838. LDA #$22
    , U) `' [0 W+ v5 X7 ~5 Z5 t1 {
  839. STA $BB' ^4 Z  Q& B* u* ^
  840. ' W, N( l; R0 U5 c% W* C

  841. 9 x, A* u- x' f+ m9 B4 X
  842. JSR RG_PPU! E) Y, T" q( i8 ~) N% R/ U" A
  843. JSR LIFELOW_WRITE
    7 k2 X  J7 @( U9 P1 r+ ]
  844. LDX #$008 h  `1 p4 g7 z7 p. R' c
  845. LDA $07A0
    , U5 V: I! ~' X- I
  846. AND #$080 ?4 R" X2 C; L, r; C: a
  847. JSR ON_OFF_PPU
    ! U4 ^+ [* p8 Z& g+ u- L# z- T6 g
  848. LDX #$00
    * N/ o2 |, @5 ^) y. y5 {' w, X
  849. LDA #$31
    . r6 q. }8 S0 u4 ~
  850. STA $BA2 Z+ h. j: S& e
  851. LDA #$22
    + g+ {7 Q* p; y3 C* g  _; G
  852. STA $BB, ~! A' h; L7 B1 n3 V0 n8 q

  853. : b8 L0 r: B+ B" j+ J
  854. ! R7 J$ Q& o4 l9 f( h" L
  855. JSR RG_PPU
    : J  U; [% K- y6 ?8 T' ^
  856. JSR LIFELOW_WRITE
    % Z+ q& \# L: G2 x9 z
  857. LDX #$00& {; e- k. c7 ^6 u
  858. LDA $07A19 z6 A" M- I, Z
  859. AND #$085 `6 W6 d7 D* z4 m) O* `
  860. JSR ON_OFF_PPU0 K  M9 s7 c' f0 e7 i  w- E$ q# N5 W% {
  861. RTS
    2 C/ l" {+ F' F9 b4 d4 T
  862. + L0 Y4 j5 k7 `% ?# v
  863. KILLON_STRING:  R' [7 R+ R, v, f! w$ t: v
  864. .BYTE $95,$93,$96,$96,$99,$98,$80
    1 ]. b( j2 ^, u+ ]% Q4 x

  865. 6 t/ e( ]# U+ m4 D9 s
  866. KILLON_WRITE:
    & v8 A# b/ L1 Q8 J: ~* p% Z4 ^
  867. LDX #$00
    - G# e7 t% Y# |6 G/ c
  868. KILLON:
    ' H; Z& a6 @* w" c. L% y$ A# f; \
  869. JSR PPUADDR_PROCESS2 B# G+ g6 U2 u+ _8 ^
  870. LDA KILLON_STRING,X1 Q+ Y# N8 t7 R1 g2 }
  871. STA $2007& [6 W) U: m# Z
  872. LDA #$00, o0 C' P0 I: A2 Y' k" M% W9 h
  873. STA $2000
    - V% A3 e  b. o% R( k0 i
  874. INC $BA, z3 R' U1 ?& c1 {5 k7 d
  875. INX
    * X# l" W& v. r3 ^' f! b
  876. CPX #$07
    : ~$ P* p2 w$ c& j" D2 Y/ @, h2 l
  877. BCC KILLON
    5 F0 S% t3 ]! U# j- c
  878. RTS! [+ K6 C0 N1 ]7 c3 ]% F

  879. ( E' Z0 r; E! f/ W5 d* T
  880. KILLON_PPU:. ^9 Y9 P  J3 x6 W% h0 a$ P' k- i
  881. LDX #$007 n7 Z5 ]8 x% Z% b
  882. LDA #$624 q/ l! D: t" ^
  883. STA $BA6 u. r7 F5 y, x, x3 d2 S' [
  884. LDA #$22
    / f* G$ Y. D! u0 l1 X# F. m
  885. STA $BB1 h8 {+ N: R0 U2 C1 u4 M  d0 ^

  886. % P' Q+ P5 ?3 Q( \, M
  887. 4 J6 V3 D/ X- W4 k) _. |
  888. JSR B_PPU
    ' m6 ~) T" ^) _: t8 P
  889. JSR KILLON_WRITE
    & x) C+ E7 |/ B  R; y# y
  890. LDX #$00
    7 r  w5 v' h$ p7 g
  891. LDA $07A0
    ! @7 Y8 P& n6 E! m
  892. AND #$108 B  L) {2 F2 Y: q: J7 L
  893. JSR ON_OFF_PPU
    9 Q3 f% J* }; L
  894. LDX #$00# H6 i7 g! c( Q2 }; k) Z: P5 P
  895. LDA #$71
    - v" X8 j( l" m1 `4 ^0 b: y4 y
  896. STA $BA/ R, [( ]. p2 |% |( U; ]
  897. LDA #$226 _  D, K8 T2 _8 F; [
  898. STA $BB  H  v  M' m$ H

  899. - N! a' n* {9 o( _7 t! C& S

  900. 4 A7 Z6 \; m5 z& }& U  S# n6 h
  901. JSR B_PPU4 C/ E. o4 `/ j# v( o
  902. JSR KILLON_WRITE
    " X0 c8 Y8 @6 T
  903. LDX #$00, O3 x& \& i! r5 q+ u: [8 Z3 |2 J
  904. LDA $07A1
    , G8 r. R9 T# p* L* d0 h* ?7 \; D9 n  _
  905. AND #$10, i# _" L- k& m5 \
  906. JSR ON_OFF_PPU
    / e  p  X/ Q9 w
  907. RTS
    6 @! X. V% y/ Q8 \2 l0 I# J

  908. ! K2 y0 p6 j5 W4 t
  909. SKYFLY_STRING:
    ( k2 b2 {8 L" R5 u3 C9 \; b1 d
  910. .BYTE $9D,$95,$A3,$90,$96,$A3,$80
    3 G6 q+ [3 Q9 C2 A5 z! i
  911. . G. r# G  c  v% T1 ?$ e, x
  912. SKYFLY_WRITE:
    / P& W, r/ i, V# |
  913. LDX #$00
    6 p1 `+ \/ L9 @4 c; h+ r
  914. SKYFLY:4 ?& M' ~3 W3 C; z
  915. JSR PPUADDR_PROCESS
    / ~" F% s9 c2 B) ~5 V
  916. LDA SKYFLY_STRING,X" W% z: C/ [; s+ w0 ^) K
  917. STA $20072 E/ A$ a. K/ B0 Y7 X8 ^, A
  918. LDA #$00
    5 Y# H& x8 T( L
  919. STA $2000
    2 T! m0 P$ u, u3 O6 ~- n0 m; T
  920. INC $BA
    2 A2 \' v9 S; T# S1 p5 f9 V" v
  921. INX2 O) C/ i6 T2 s8 R) W+ H$ c
  922. CPX #$07* q- R, |" ]/ b& ~) o6 S+ `, X
  923. BCC SKYFLY
    + S3 x* m  ~% L# r3 e& q  @
  924. RTS
    " K$ M5 @2 z2 s: M8 s

  925. ' j* |* }1 c) n" k  l
  926. SKYFLY_PPU:
      j& J. N- G# D5 x% z( m+ Y2 q- d$ q
  927. LDX #$000 h2 N2 f& a& ^
  928. LDA #$A22 ~- {& a. W: i3 p& w2 E
  929. STA $BA( @1 i. H* O" l! i8 A/ r
  930. LDA #$22
    / @; F8 W! G4 k( V" z3 J( _
  931. STA $BB) v8 a8 c' C. i2 H

  932. ' j; `. `# q9 d$ N

  933. ) F' ~6 o% X0 e2 \9 a
  934. JSR A_PPU' @8 Y3 B4 G4 s- n% M) d# C2 M( ^4 a
  935. JSR SKYFLY_WRITE
    7 i+ a. C9 C) i) \/ C
  936. LDX #$00
    3 `" E8 x- H$ Z' d6 D0 |
  937. LDA $07A0
    # M1 n( V3 M) h' k; q
  938. AND #$20
    , V, ]6 c* c8 y' ]
  939. JSR ON_OFF_PPU
      B6 O3 F* h$ Z$ x, i0 t3 m
  940. LDX #$00
    ) @; }6 T3 _* H( Z0 H
  941. LDA #$B1
    % ]* m! ^$ U8 R7 U1 g% J( C$ _
  942. STA $BA
    4 s  K" ?& Z9 Y
  943. LDA #$22
    7 G+ t' k( q, ]2 }7 K% |; O( U
  944. STA $BB& f) n, N$ E- H; k
  945. 1 T5 O% F) E% m- A* J6 u) W; _2 b3 D

  946. 9 p  F& l1 Z/ H/ I/ V7 l4 f' x
  947. JSR A_PPU  H7 O" P7 k4 p9 W: w: P( N. L9 l
  948. JSR SKYFLY_WRITE
    / ~: a8 {) T" v% P! q) Y3 d. m
  949. LDX #$00
    ( ^6 a! {, O! o- r7 G6 d9 x
  950. LDA $07A1% I- B! F: z1 u/ d  H
  951. AND #$205 g! W) L) h0 x2 A# t
  952. JSR ON_OFF_PPU
    5 q2 d  F4 A1 x( n
  953. RTS
    ; g" y/ b- c# n" F9 S
  954. & y. c  d9 \5 ]2 Z$ G7 H
  955. BULADD_STRING:
    0 ~5 Q- y* ~# P
  956. .BYTE $8C,$9F,$96,$8B,$8E,$8E,$80" c+ Y' t  Q8 [  S0 F

  957. 7 q( s+ ]4 S8 ]- q+ @
  958. BULADD_WRITE:  X7 w& y3 H. ~8 W7 y5 G% k! {* ]
  959. LDX #$00
    ( s! f1 |' s* m, a  ~
  960. BULADD:
    ' c+ G; }7 I0 g; j
  961. JSR PPUADDR_PROCESS
    3 ~6 n( r" d0 |5 K. ?+ u( l; v
  962. LDA BULADD_STRING,X0 _# c( {6 l7 _, E4 `0 n
  963. STA $2007  `* Y5 c1 k: |+ @1 u( n
  964. LDA #$00! g2 Z3 c4 C* l. `
  965. STA $2000
    1 R+ |/ x5 k2 s% w* b
  966. INC $BA( ~- v6 @7 u& e1 \: [4 F
  967. INX- i' y4 i1 J7 E5 S
  968. CPX #$07
    # N3 p1 ?% E, H
  969. BCC BULADD: ^% E9 |6 J0 i# R, r
  970. RTS# U0 ~3 a  o" b% N2 m# S

  971.   H0 m4 a3 l% C, U" y4 f. M
  972. BULADD_PPU:( Y7 V# M. _6 m% }) q
  973. LDX #$00
    & K/ l0 Q" @# D
  974. LDA #$627 c# n" c6 y! D( K( E$ G& i
  975. STA $BA6 j- x- ?# z/ t7 x/ ?6 w
  976. LDA #$21' X' Z9 Q5 J' p4 l; {+ v. R) u8 z
  977. STA $BB" D5 u3 C3 ?- w

  978. : N2 \9 @# Z, S, y# u

  979. : M  Y$ `3 t( _; `# q
  980. JSR UP_PPU0 N4 V- p. K8 x6 t9 Z8 K
  981. JSR BULADD_WRITE0 \4 Q% e0 c& H
  982. LDX #$00  ^/ T- z- r: B5 j
  983. LDA $07A2
    $ v9 k$ G+ j1 l  S2 A
  984. AND #$01" E; ^/ n5 n( A+ q
  985. JSR ON_OFF_PPU; R/ a! p3 G" Y
  986. LDX #$00: h( o) J9 k3 L! d
  987. LDA #$71
    4 M/ ?! Q, v6 r6 A$ ]2 ?
  988. STA $BA
    - y1 N& v2 Q) J8 w( J. L( \
  989. LDA #$21
    0 A/ J. D( ]- V
  990. STA $BB
    0 r) P5 E2 C2 u6 s5 A

  991. $ I" ^- `! c2 j) v" j

  992. ' T0 g4 _5 E0 S5 D
  993. JSR UP_PPU: v" l# v1 D; R
  994. JSR BULADD_WRITE. V# m5 \# {0 q$ o
  995. LDX #$00
    6 B/ p& q+ C: y7 C) \' g/ _
  996. LDA $07A3. [/ v6 U$ T% ?6 ~/ E% @; p
  997. AND #$018 F' p. f/ ~  a% z3 N
  998. JSR ON_OFF_PPU- m5 Y8 u( @; T7 V  q
  999. RTS3 M( |* u0 y! D. d' w5 l
  1000. 0 Q/ S" H- _# |) p# C4 N
  1001. MENU_PAGE_STRING:: u$ M6 c0 E7 s8 ?1 T. m/ D
  1002. .BYTE $97,$8F,$98,$9F,$80,$9A,$8B,$91,$8F,$80,$81+ Z4 g4 g/ K, P+ W( l8 g

  1003. ! u8 [7 ^/ t& r. z- i' R, N& I
  1004. PAGE_PPU:. I' d3 L6 T  z& E: p
  1005. LDX #$00) B. q- F: r1 g8 ^
  1006. LDA #$0A
    ( x" V! {. V+ Q' I8 N& l: ?: @
  1007. STA $BA
    , f% Q/ J2 ~; g: S* Z& L+ Q" y: q; W& `
  1008. LDA #$230 D+ J1 g) ]' j& u; o2 s: o
  1009. STA $BB4 v9 n/ c; U6 L" T, `3 b2 Y

  1010. . v  {" {3 w* [+ A4 X3 d: o/ n
  1011. ( ?6 Z6 ~1 x5 K2 G" f) X
  1012. MENU_PAGE:
    ; C; [8 F- Z4 O; t: J" w
  1013. JSR PPUADDR_PROCESS
    6 l, D' B& x3 E) \
  1014. LDA MENU_PAGE_STRING,X
    ) i" K( k. Z- I% Q. s( [
  1015. STA $2007! J0 p1 M( o( T
  1016. LDA #$00
    * }, D. q8 E. y2 x
  1017. STA $2000
    $ _6 M2 Y& [! ?$ X
  1018. INC $BA+ Q4 }; W, f- R3 T; J( {9 s# F
  1019. INX4 v, e" ^; |8 [
  1020. CPX #$0B3 ^) H% w, {, V" n( a  `2 p
  1021. BCC MENU_PAGE+ C6 c; o% w# K$ F
  1022. LDA $07AA4 ], P; u) |, C/ a- P* G
  1023. CLC
    , \3 `) |- v+ J2 R
  1024. ADC #$824 A" |6 w. s  x+ ]
  1025. STA $2007: H; Y) G8 c0 k' E4 C) [' a
  1026. LDA #$00; t4 y1 B& N) ?# M/ @) F
  1027. STA $2000
      z3 G8 C8 U, V! I
  1028. RTS. u$ C  h7 d' p. w
  1029. ' I4 ~: a+ M% c; F

  1030.   ?3 v- {$ T  G6 s+ }
  1031. SKINGE_STRING:
    # S" h. K2 P# D" b
  1032. .BYTE $9D,$95,$93,$98,$91,$8F,$80
    5 h2 p4 }9 M8 T* D8 S

  1033. 4 A6 W, L/ A- T" p7 A
  1034. SKINGE_WRITE:
    # m! N! F$ X+ P1 v4 O$ q: E
  1035. LDX #$00
    4 J9 y5 j; y+ d: x+ z
  1036. SKINGE:
    7 J! D2 I  }5 N/ A. n
  1037. JSR PPUADDR_PROCESS
    % ?9 N7 R4 D+ K6 b/ r+ f0 p  ^
  1038. LDA SKINGE_STRING,X
    ( i% r$ h' |# W" L
  1039. STA $2007
    3 O/ I! E& d0 n$ ?5 f( u# C
  1040. LDA #$00+ t  R/ C" B  {( L" s( v
  1041. STA $2000
    8 g  |% x" a, ]0 c0 A; J
  1042. INC $BA
    7 _% S8 t! Y4 [5 F# I+ ]
  1043. INX8 H9 m6 Z4 R8 ^  g
  1044. CPX #$075 V4 c, q8 p, s0 E4 |6 j2 M
  1045. BCC SKINGE6 q$ ^" C3 E- Y
  1046. RTS
    5 _* N. x& \4 C

  1047. 5 p  d5 p1 X2 j2 b/ ~
  1048. SKINGE_PPU:( i( U' D/ r* y/ G3 ^: n9 s
  1049. LDX #$009 [! `* s) \& \* x# [- j
  1050. LDA #$A2  ?( _6 A  c; ~- b  A+ g( F7 i
  1051. STA $BA
    ) o2 m, t: w. x% y( d
  1052. LDA #$21
    & P* W/ i0 J- [( j- K$ L
  1053. STA $BB
    % f5 k: @  f1 O* L' z6 x: f2 M

  1054. 0 n& l5 X' l  ?$ C3 @

  1055. 8 \) O2 c. f7 _
  1056. JSR DN_PPU! u# W8 B0 d. }5 |  p9 n, q1 r
  1057. JSR SKINGE_WRITE
    . R5 t* E5 M) d. W9 L  `3 F! v( Z& @
  1058. LDX #$00; U9 `4 x; }$ |% ~* f
  1059. LDA $07A2
    ' p' _1 D* d, z5 }- t! {2 R* r" }& a
  1060. AND #$023 G0 I% T7 U# B) b6 G
  1061. JSR ON_OFF_PPU
    . l: i! `. w/ O
  1062. LDX #$00
    # e5 Z7 [) P; D+ o% {0 d
  1063. LDA #$B1
    7 a6 m, u; v: j, y+ B2 K6 k0 p: X
  1064. STA $BA. i$ T% U2 m3 S+ P7 H
  1065. LDA #$21
    4 n. Y; w; y7 [2 N  L6 D# _) G
  1066. STA $BB, P# V2 ^9 E" i6 K3 u% c) w) l: K$ d
  1067.   t0 ~4 u; U4 K- k  W
  1068. ! G  c6 ?$ t/ g7 T( I, e9 m
  1069. JSR DN_PPU4 B% p& S. s9 _' @9 |, h
  1070. JSR SKINGE_WRITE3 H5 y7 ]; s, a+ G" x3 b- q
  1071. LDX #$00
    # F, P- T. E* H: e! Y0 k
  1072. LDA $07A3
    % k2 V' |; B7 M! A8 x) M0 D
  1073. AND #$02
    & \9 |6 I2 P3 f3 @! f9 R
  1074. JSR ON_OFF_PPU" i$ A9 [- k8 B+ p$ |5 z" J
  1075. RTS
    . `  v2 V' t' |! }8 `1 Y
  1076. 1 h9 J" ^  N8 I* M: D
  1077. BULMIX_STRING:
    ; h* x$ ?& `" l. r, z
  1078. .BYTE $8C,$9F,$96,$97,$93,$A2,$80
    * m6 E# Y, @  h3 K# b
  1079.   z# j! c9 k9 t9 Z: L' h5 K
  1080. BULMIX_WRITE:
    # H; O1 C4 G2 x& N/ B; U
  1081. LDX #$009 D! ]  J7 Z+ k- G: R
  1082. BULMIX:
    2 L; u$ |" }$ j& O" h
  1083. JSR PPUADDR_PROCESS
      g7 I( I( n: f$ y# _. r
  1084. LDA BULMIX_STRING,X1 s  ?6 V8 Z) {: r' e
  1085. STA $2007
    * a6 F. R# G) g1 h0 M% v3 E
  1086. LDA #$000 f  F6 Y1 t* a( U3 ]" A& C
  1087. STA $2000
    : g8 i( C7 j3 _! [' T
  1088. INC $BA" X5 M; v8 W4 N4 _8 U% I9 x/ A9 _
  1089. INX- |% P& ]% t7 ?! `- ?
  1090. CPX #$07
    7 t' E/ `# a1 {$ u
  1091. BCC BULMIX. F" }0 |# T  f4 \' R
  1092. RTS
    : S( G6 v. N- q  b

  1093. . e: p& }0 A# v: r+ H. u; @2 {
  1094. BULMIX_PPU:  x& y( x% H8 O9 K
  1095. LDX #$00: A, X2 f8 ~; X" U2 W, u7 i+ F' L
  1096. LDA #$E2! |9 e0 Y( z1 A9 k1 t
  1097. STA $BA6 g) N. |, O1 {9 B
  1098. LDA #$21! D( e- J, R6 v# C# q- O3 K
  1099. STA $BB
    ' s1 s" }* ~1 C: j" W

  1100. " k6 A  v& t* @6 @# ^& i' ~  n. v

  1101.   i- u: p7 u* K( v" z
  1102. JSR LF_PPU
    - m2 x6 j5 p+ f: J& V1 z1 L
  1103. JSR BULMIX_WRITE
    ; q! s3 e5 g8 z  i& i
  1104. LDX #$00$ f* p7 L- e2 J9 v7 L
  1105. LDA $07A2( m( O, O+ a, k
  1106. AND #$04
    ( A( b% j* J3 p( I( z
  1107. JSR ON_OFF_PPU
    8 d% L  h7 F2 x+ m/ g
  1108. LDX #$005 @# m" \3 `1 R; `
  1109. LDA #$F1
    3 _# r' }1 g/ z3 O
  1110. STA $BA9 q& T3 f( c  N9 s- v: f5 ^' ^1 S
  1111. LDA #$21! g! N) K  D$ G; t. z  c
  1112. STA $BB. Q  S; T+ J1 B

  1113. 8 R1 V- ?  x2 b0 R3 s4 ~/ H. o

  1114. 8 x, l$ \' i: v3 U0 P# b1 V
  1115. JSR LF_PPU
    + a4 K- P- z# u
  1116. JSR BULMIX_WRITE
    , V  Z' K, ?! |" e+ F5 s+ N
  1117. LDX #$00/ o# x- ~3 P& Y- P9 r% T+ D
  1118. LDA $07A3
    4 R. w9 \% _  y2 t+ u
  1119. AND #$04) A" C& p5 y" ]  Z- M1 P
  1120. JSR ON_OFF_PPU) W" A& w' t8 j9 s
  1121. RTS
    : u3 n  O. i3 W6 V5 o+ @

  1122. , D& @. X1 @; g; ?& F  x* }
  1123. ENELOC_STRING:" d# B4 U! a1 r- r0 D
  1124. .BYTE $8F,$98,$8F,$96,$99,$8D,$80
    + b' c$ [; k$ Q2 R5 s
  1125. ! f& Q% ^6 \( r0 l2 Y, O
  1126. ENELOC_WRITE:/ H$ J; J' F/ s/ K. Z
  1127. LDX #$002 z6 q1 a0 s- j; H
  1128. ENELOC:
    7 u# w! Y. i& [- O7 W' t! G, P% x
  1129. JSR PPUADDR_PROCESS! V( q2 |0 J- W9 U6 ^
  1130. LDA ENELOC_STRING,X; f( ^3 O( ]" x# ?- c3 s
  1131. STA $20077 `) ]  F9 R7 j1 c; v8 t, s
  1132. LDA #$00
    4 \* H' `+ t1 j! `! L4 e( j* k( c; |
  1133. STA $20004 n7 i1 l9 U# h" G7 G" E. U
  1134. INC $BA
    6 V; _! [: d# O$ L
  1135. INX
    & E* x% k; M; n3 G! _
  1136. CPX #$07* F& S( H9 @& m; B- u' r
  1137. BCC ENELOC! \! W1 \9 T, g5 L& e
  1138. RTS
    6 w- T. G$ U( k+ \" q& |9 w- D

  1139. 2 m6 i1 f* v/ x# a+ V
  1140. ENELOC_PPU:! n- F5 T+ ?/ o8 D, k) {
  1141. LDX #$008 ]2 X) _2 G- P
  1142. LDA #$225 P# a* w# L3 Y, Q7 p  P
  1143. STA $BA+ p. U3 A8 v0 W2 q0 L0 v1 R
  1144. LDA #$223 |) D7 G) u+ w1 u$ D
  1145. STA $BB
    ' _/ s7 z( c1 K5 R& z- P

  1146. 7 w; s- v! c1 N9 n  i

  1147. ( Z8 Z; x* a+ C# P  v( B
  1148. JSR RG_PPU6 t6 L  l  k! b! z; v
  1149. JSR ENELOC_WRITE* e/ i' g( _% {( f! z
  1150. LDX #$00. \! Y& M5 K5 Y/ s
  1151. LDA $07A27 _" c/ C2 g: n
  1152. AND #$08
    9 j0 @5 T+ |( {8 b0 z7 ^( }
  1153. JSR ON_OFF_PPU& n- a9 J6 v+ F$ N9 T4 ~; B- o
  1154. LDX #$00
    * a3 Z+ _  F& R. d; I( P
  1155. LDA #$31) c. s8 z# U; J$ l. X( d+ a% ^
  1156. STA $BA" b6 B" c6 ?' F3 O) B) ]
  1157. LDA #$228 O, H% z9 W; l- E; A
  1158. STA $BB/ o0 y( A! }  p  L+ J
  1159. 9 C" a8 b# b; m; C, {

  1160. + Z' d! l6 s( A! G. A/ Q1 i4 }
  1161. JSR RG_PPU$ O, B6 ^% K2 c6 T7 T" K
  1162. JSR ENELOC_WRITE: a8 F8 F$ \- f' n
  1163. LDX #$00( l$ W( g: Z8 [8 t; m  j) ?
  1164. LDA $07A3# c1 O- o2 U. c: c9 ^$ C
  1165. AND #$08
    0 @5 M: [: j9 L- j: c
  1166. JSR ON_OFF_PPU
    + x& v# f# N" h$ ^$ w
  1167. RTS6 [! s  }$ z& G" n4 F" V6 U

  1168. $ z! s- j+ b5 P# N( f. ?% G; m
  1169. FOCFUL_STRING:. }& e- V/ G0 i$ b/ z" b
  1170. .BYTE $90,$99,$8D,$90,$9F,$96,$80" s& Y* u( c4 l$ g! q8 B
  1171.   W/ c; [" a2 {; d, b& @8 T! w

  1172. ) n$ I4 ?0 G7 k2 F- F$ h! ]% X( {- t
  1173. FOCFUL_WRITE:% h8 t2 s, S  Q0 t  o) \
  1174. LDX #$00
    # X# k: Q4 S: s' x% o# s
  1175. FOCFUL:
    6 N9 i# D) I; X
  1176. JSR PPUADDR_PROCESS% C: r6 e8 c6 P' D0 U6 H
  1177. LDA FOCFUL_STRING,X/ w3 i' N- ]7 \$ y
  1178. STA $2007
    ) v# K" x" P& P' F1 T6 _
  1179. LDA #$00
    + K& u1 I  V* C( H0 d: m
  1180. STA $2000
    # l( d* z5 u+ ]# k6 p9 ?8 r; f
  1181. INC $BA
    % V& U# O1 C. {+ a& J
  1182. INX
    * V! m- B9 |4 Z
  1183. CPX #$075 ?; v' e/ [1 I) T& b
  1184. BCC FOCFUL. ?# M5 b2 T2 V9 x- ?
  1185. RTS
    : [- r7 Y) |4 u) Y5 Y$ N

  1186. # G! L0 y* L: `! c
  1187. FOCFUL_PPU:" i% i9 L8 K! j: U& K
  1188. LDX #$003 `7 P4 W. R! y, |9 l: q
  1189. LDA #$62
    / h' o! F6 O7 ~
  1190. STA $BA/ |6 S  F5 }; ^
  1191. LDA #$22
    , i" [, c. N' ?
  1192. STA $BB0 @& O4 D$ z1 d# ~' S1 }) E
  1193. 5 ?* o6 I* W1 M7 P% Z: y

  1194. % K; `3 Y0 |- B7 i9 ?
  1195. JSR B_PPU% z- j) |. T& Y. g* e
  1196. JSR FOCFUL_WRITE
    1 j0 c# ?/ }- t5 z7 z, Z3 g
  1197. LDX #$00! @$ L5 z* A  C8 d' r/ @8 p+ G
  1198. LDA $07A26 ]9 A/ K; @- n9 J1 s) N3 I
  1199. AND #$10
    ( f8 P% l3 t& ^7 W
  1200. JSR ON_OFF_PPU  S7 K8 n. D9 Z" P. a. [
  1201. LDX #$005 \3 {$ a7 p# b0 T9 l
  1202. LDA #$712 C5 B6 W7 K7 t% C0 o8 S8 z% j6 O
  1203. STA $BA- D- \# W6 Y2 q8 ~9 |# \; ~4 O% [
  1204. LDA #$22
    7 Z7 |0 D3 y) ~0 I( f" s0 J
  1205. STA $BB
    # e& b/ o& j3 u

  1206.   _2 @8 x' h# i" \0 O

  1207. ( H' R# T* i1 |9 J+ Z
  1208. JSR B_PPU
    ' I% c& D+ D; Q5 y
  1209. JSR FOCFUL_WRITE+ Q" `# P, w4 N2 O& E+ ?
  1210. LDX #$00( k+ p6 m& V9 \+ r% `  y1 J5 L
  1211. LDA $07A3
    ! a2 S% d# s! `* J* q
  1212. AND #$10/ ]' ~4 T& {' Y9 Q' V3 R$ i9 A
  1213. JSR ON_OFF_PPU
    3 a6 k. T& O" J; H
  1214. RTS
    & M  Z: L3 W2 ], u( D' F4 b

  1215. , t8 i* F2 q+ f  M1 R- x
  1216. BULCON_STRING:
    2 d% l+ K0 c) x" h( M/ I0 t
  1217. .BYTE $8C,$9F,$96,$8D,$99,$98,$80: w; ?! b8 n5 s) Z" l

  1218. ; m! f7 H8 ~3 ~
  1219.   Z0 T$ {8 q7 a0 l8 S
  1220. BULCON_WRITE:( Z/ W! h8 e' |' ~, c* w; `9 X
  1221. LDX #$00+ |  ^  z2 Q* }8 s6 ^
  1222. BULCON:; |1 j- i" r+ \9 u
  1223. JSR PPUADDR_PROCESS
    , a: y- Q4 D) i1 u5 ]* T8 ?! K
  1224. LDA BULCON_STRING,X& F- F6 t6 t& i- R% f) L7 H  U
  1225. STA $2007
    2 [# k+ x; ^! s( ?
  1226. LDA #$004 D  \5 _6 O" f! p/ S7 S/ ?
  1227. STA $2000$ |/ k9 C6 X' X& A
  1228. INC $BA
    ; s1 ~4 s/ a* L1 P
  1229. INX. v2 I4 c( Q# L" D0 g6 R" z
  1230. CPX #$07
    $ n8 g3 @$ o- B% |0 }! }( }
  1231. BCC BULCON
    1 \+ @$ f8 ]$ U
  1232. RTS
    7 m) u! V) d  y7 d& P4 g9 B

  1233. / `+ a' m9 h& r5 [
  1234. BULCON_PPU:9 U4 C$ U3 @9 o
  1235. LDX #$00
    # C* V8 N8 _: Y$ U; J4 V. H6 U
  1236. LDA #$62
    ! h4 Q9 H" p: ^( J1 y5 w0 w
  1237. STA $BA. n, H. e! m' F4 a
  1238. LDA #$21# Z* D- L; O% h
  1239. STA $BB; V1 W/ o9 }2 z2 Q7 ]! _
  1240. 8 S( m  H+ L! f: v3 d; ^

  1241. + }$ ^- B2 n3 \$ n  Z5 Q) W2 N9 u
  1242. JSR UP_PPU
    " }: G! R5 p( l# _! R% M
  1243. JSR BULCON_WRITE9 X; `0 X8 }+ Z. N) a
  1244. LDX #$00. W. s. M, f) G" Z$ |& q+ {
  1245. LDA $07A4) l7 ?% i; `9 `( |4 u9 p! ~
  1246. AND #$08
    - X& |7 J' P6 C* V5 k
  1247. JSR ON_OFF_PPU
    . _& z1 d6 Z& n; U2 H6 u
  1248. LDX #$00
    % i& q0 [  h, F/ V! h2 i+ J
  1249. LDA #$71
    ; f% b" X0 F2 W$ y% l. w7 R4 e, W
  1250. STA $BA
    7 X! V: m0 T/ z6 C+ a; e2 Q
  1251. LDA #$21: C# W6 ]1 u2 F* a, D* D0 I
  1252. STA $BB2 ~9 ]4 s, q% s2 G5 e! f* B6 T5 ^
  1253. 3 y9 G; B! S- [. @) i) O- H6 `4 g

  1254. : F7 z7 W  O' W0 |
  1255. JSR UP_PPU+ G" K& P* O2 A) L; Z$ J! E
  1256. JSR BULCON_WRITE
    / `  K- j& J$ Z8 F$ Q' _9 b) R
  1257. LDX #$00
    4 y, @; S2 c. r& ~$ T2 z) p; W
  1258. LDA $07A5& k9 ]$ A0 b. U" _* m& o
  1259. AND #$084 b8 K# s! a4 u* ?8 J- ]- S
  1260. JSR ON_OFF_PPU
    ; y4 R$ V' P9 c3 O5 I1 W2 {1 g
  1261. RTS$ |; }/ }8 G( `- K+ i: x( O( C4 ?
  1262. + ~4 J' }6 z# {" r# V
  1263. SPEBUL_STRING:
    - v' Q% K% \  X3 p7 r* N7 R
  1264. .BYTE $9D,$9A,$8F,$8C,$9F,$96,$80
    / g5 Z- s: J' F5 R; h& V* T
  1265. $ Z$ v. i$ H) R6 \' b' H
  1266. # A2 l& t7 F# K8 X2 P+ q
  1267. SPEBUL_WRITE:7 x" k, {7 a$ \' T' H
  1268. LDX #$006 W  J! t' y  g) d% d6 M) U' l& n; w' U
  1269. SPEBUL:
    6 n9 T, Y3 [! v( V1 B6 d
  1270. JSR PPUADDR_PROCESS* }& \- B" `6 S( X" t) h. b+ G
  1271. LDA SPEBUL_STRING,X- O6 f6 A, g) ^8 E5 i
  1272. STA $2007
    1 o3 t1 a* H% L5 D: O
  1273. LDA #$00
    9 ~) J# f  X# i( O6 @
  1274. STA $20002 }& [% m% D2 Q4 z  j
  1275. INC $BA
      q% h# J7 G& p* X3 k
  1276. INX! w* _/ h2 a! V0 h. O, f) Y( y4 ]
  1277. CPX #$07
    : _5 F2 k" B3 r  l
  1278. BCC SPEBUL
    4 w- n3 j! y. ?, F, @( V
  1279. RTS5 g- h" p( U7 O; W1 ~. Z9 ?
  1280. 2 c) e4 w* K( ^' j% y
  1281. SPEBUL_PPU:
    0 O" c* Y3 r  Q0 k/ i7 l
  1282. LDX #$006 f. S+ Z/ _) l6 v0 Q
  1283. LDA #$A2
    % Q1 X- N; `3 P
  1284. STA $BA
    ( w* B& s2 G( b- r0 [% {
  1285. LDA #$21
    ! K$ h* P( Y/ \$ i- W) f* x- E
  1286. STA $BB( l+ I; ~7 r+ y5 I6 [, u
  1287. / \9 O  ~6 t4 }& B: \( s6 O

  1288. 7 A( x+ N+ @9 d  `4 {: D
  1289. JSR DN_PPU
    4 Y3 |2 [1 g  l. `* l, V
  1290. JSR SPEBUL_WRITE
    5 Y% E# @/ ]2 l. w
  1291. LDX #$004 f7 {5 M9 s6 |! V( I
  1292. LDA $07A4
    , `; `# P6 H2 B. `0 q  n8 j
  1293. AND #$02
    8 {8 B/ l! b2 a% S. D% c; x
  1294. JSR ON_OFF_PPU. y+ U$ Y- k+ _: X# l
  1295. LDX #$00
    $ f! `4 j8 C- B! v" q: }% C4 Y
  1296. LDA #$B1
    " J7 d1 |$ w, V! ]
  1297. STA $BA" v$ D( W9 k) O5 P
  1298. LDA #$21! B8 k( M6 Y' q% Y: D: N
  1299. STA $BB& a' S9 o: c! j, `: K$ V* T

  1300. * i5 E* Q; ?: V8 H, v" b
  1301. & P1 }5 a! X: n6 a" A
  1302. JSR DN_PPU
    - T2 Y. f. j+ e. X
  1303. JSR SPEBUL_WRITE
    , J/ o7 `. W+ C  x
  1304. LDX #$00  d- ?( F& }) O2 z
  1305. LDA $07A5. O- _- `5 f6 V( c' W
  1306. AND #$02' m5 i9 g. f" B7 @( ?
  1307. JSR ON_OFF_PPU4 l, r5 v1 _- U7 q% ]% `) V& I7 z
  1308. RTS2 e" k. m+ N: e8 ~

  1309. 0 N3 _3 b% t. J2 S: F; K
  1310. .ORG $A500) d: Q0 j6 B/ m% c9 t9 T
  1311. CLEALL_STRING:2 y9 r8 G0 L1 j) x) }. H
  1312. .BYTE $8D,$96,$8F,$8B,$96,$96,$80& b; @6 i  E2 R' G

  1313. $ X( W) G$ v2 N5 T9 o2 m* y8 @+ i) K

  1314. 9 ^% X9 B7 Q; @
  1315. CLEALL_WRITE:
    , n9 H; b; W$ z  X4 G& b' P$ s
  1316. LDX #$004 i) H) Y) f1 j. U8 n
  1317. CLEALL:  ^, G  b& V9 `, q
  1318. JSR PPUADDR_PROCESS, Z+ Z8 H6 I; V7 @! ^/ Z
  1319. LDA CLEALL_STRING,X
    # I3 g0 I$ h( J' B4 y' A9 D( \
  1320. STA $2007
    8 m# j1 u5 g1 ]
  1321. LDA #$00
    6 Q& X6 ?! N3 p0 H) c( l6 w
  1322. STA $20009 ^% j( j+ W; l7 ~- S
  1323. INC $BA
    3 B9 f+ B0 L0 R! ]
  1324. INX$ K0 a) R# e* q7 u: H3 b! d
  1325. CPX #$07
    8 ]; o" f! S  U/ B+ A. P" P& P
  1326. BCC CLEALL! a! h( [% g5 ~
  1327. RTS
    % B# i7 K6 }9 u0 A4 o8 ?. m! {
  1328. 9 j. ?( i2 n; Z
  1329. CLEALL_PPU:
    ' M, f; _& C0 c. d8 {- V5 J
  1330. LDX #$00  C. h* a3 H3 w1 U$ B( S
  1331. LDA #$E2
    8 h# {% X* E" b
  1332. STA $BA
    ; `+ \5 u2 s" h& W9 J
  1333. LDA #$21
    7 A( d5 y4 d% {2 l' A' f0 V
  1334. STA $BB
    : P' q. _6 q. e5 |6 t

  1335. & O* L+ `& k* t+ l/ S8 p4 {
  1336. 9 K1 I; R' ?6 q8 q9 P+ a9 g% W
  1337. JSR LF_PPU0 w3 y: V1 P2 B. |  E
  1338. JSR CLEALL_WRITE$ J( r, P. |4 q/ a8 q: j
  1339. LDX #$00
    : }  C( I. m. B- n& ^5 v
  1340. LDA $07A4
    * O2 j: a  X4 U- ?8 U: j0 y( G
  1341. AND #$04( r! ~: ?  V+ y5 ?) n$ r
  1342. JSR ON_OFF_PPU" A* V! r1 N3 w# b6 E, |6 Y
  1343. LDX #$00
    6 ~! P: w: C* ]+ ~$ T3 M
  1344. LDA #$F1
    , w% N% a. i8 K7 u
  1345. STA $BA0 h& @8 Q9 C/ b3 X, n% J5 ~
  1346. LDA #$21
    ' C8 H8 b7 D8 y% E& G% L
  1347. STA $BB
    0 j' x* G! A: _! Y0 V" e; A

  1348. 9 F, }1 H5 Z$ h
  1349. # w( F) j& Z" I9 W
  1350. JSR LF_PPU/ s2 E" P3 W+ u$ a9 H  M# Z# L
  1351. JSR CLEALL_WRITE/ i! Q0 Z+ X* _- S, u! X9 y
  1352. LDX #$00. s3 s( X: s* {
  1353. LDA $07A5
    4 G2 ]/ E- Y+ Q4 P7 z3 s# W1 A
  1354. AND #$048 d/ m& {5 U( U6 s! k7 ^" U
  1355. JSR ON_OFF_PPU
    6 u! w  m4 \; U6 L8 e
  1356. RTS7 M! Q2 {, t$ o# S& F% T
  1357. % ?$ C( I* w! I+ Z/ V" J( j
  1358. HARDMODE_STRING:3 B+ [9 P4 m4 h0 P
  1359. .BYTE $92,$8B,$8E,$97,$99,$8E,$80
    : S! h" N  _; n) p
  1360. : R% e5 u6 d- ?3 Q8 i
  1361. " @- H) {$ M- @( x! U& H
  1362. HARDMODE_WRITE:) C( J, J, e7 [1 F8 p9 m% R
  1363. LDX #$00
    / w7 i: H! ~0 q% h; S$ p
  1364. HARDMODE:9 y9 Q6 ^" F: X- M  B9 c8 H* ]
  1365. JSR PPUADDR_PROCESS- A  g  o$ A$ C7 z& s- _
  1366. LDA HARDMODE_STRING,X
    : m  D+ c* H- {- z
  1367. STA $20079 G. h. E' i( l
  1368. LDA #$00
    1 j- A/ M1 H# `- W' j. B- X' P
  1369. STA $20003 D4 O2 N6 Z2 r2 d5 C/ `
  1370. INC $BA
      g, W: J- \6 H
  1371. INX
    6 l; ^  T- Z4 t% ]5 i0 O1 \. n
  1372. CPX #$07
    ! b* l; \$ ?  a4 L8 Q
  1373. BCC HARDMODE! N- ^! J3 J' h9 x
  1374. RTS2 ?3 ]0 E( S1 [5 w9 @# D
  1375. 1 `5 c( i/ \: t# U8 O
  1376. HARDMODE_PPU:( I4 \9 V8 D2 s6 {: X6 f6 r3 ]
  1377. LDX #$00
    - {; q% I; K2 Q# I1 }1 Y
  1378. LDA #$22, |3 ^0 e% j4 f8 v" L) t
  1379. STA $BA+ q& G! w0 O- ~& ~- z: M1 Q9 X1 ?
  1380. LDA #$22, L# M3 ~! v! w7 }: m3 J+ c2 K! Y
  1381. STA $BB& z6 t# B3 r3 p: [& |5 i
  1382. JSR RG_PPU0 n" m& w# u# e; ~+ p
  1383. JSR HARDMODE_WRITE# V/ y9 ^  h0 W$ x
  1384. LDX #$00
    $ T) q2 v9 Z" E& g. ~' q+ R
  1385. LDA $07A4) _; g& P( ?  G* e8 h1 V* K9 c% X
  1386. AND #$01
    : ~: k1 ~9 m1 K9 P8 _0 s$ ]
  1387. JSR ON_OFF_PPU+ O2 Q( g1 o; V; X+ R% J0 \, t; {
  1388. LDX #$00
    9 B# o/ U$ `7 O! _5 i- r
  1389. LDA #$31& t9 A+ k2 p1 \2 e  g
  1390. STA $BA' w  k/ B7 \: S$ r0 f5 I: e7 p6 \
  1391. LDA #$22
    / B+ k* Q1 q' S9 u. n
  1392. STA $BB
    1 b8 }& W: u" l6 u. D9 ]

  1393. $ V1 a3 v% [8 R* X. m2 I9 t

  1394. & O$ b( Y; M/ K* R' s' e  U# l( e
  1395. JSR RG_PPU
    ! [8 x1 w& p* h- i
  1396. JSR HARDMODE_WRITE$ q( @2 f5 j) d
  1397. LDX #$00$ n/ E0 q+ c$ p7 T/ W
  1398. LDA $07A5
    6 |0 j8 z! |. N4 `. r6 P+ p
  1399. AND #$01
    7 p, J  Q3 q/ j8 z3 |1 a. H
  1400. JSR ON_OFF_PPU3 H+ g+ ], c9 c
  1401. RTS
    * B& r; o" [' |8 X' A
  1402. 2 x7 L2 d3 v& w
  1403. B_TO_JMPSTG_STRING:
    8 t* A4 g. h; ?+ R% f% o& S+ X
  1404. .BYTE $80,$8C,$80,$9E,$99,$80,$94,$97,$9A,$9D,$9E,$91,$80( K/ ?7 I* i8 P/ N2 }
  1405. + C- s/ ^, t9 X( ]( o; }" U8 V/ E

  1406. . T/ ~+ D" t& K9 A9 j
  1407. B_TO_JMPSTG_WRITE:8 H3 N6 d9 }- Q) F
  1408. LDX #$00
    2 y* b: G8 M' g! p2 h% M+ y
  1409. B_TO_JMPSTG:
    5 g) x! L$ J; K/ ]
  1410. JSR PPUADDR_PROCESS
    4 r8 j5 Y, Z& d4 E# \; D
  1411. LDA B_TO_JMPSTG_STRING,X# G1 J8 q8 t4 @
  1412. STA $2007
    5 o- G( r( @3 I" E: K
  1413. LDA #$004 U, _" j. ^5 a  u
  1414. STA $20007 {1 b) f, h# y
  1415. INC $BA
    / C  W6 Z4 m2 C: N2 Y; h9 Z
  1416. INX
    3 n5 w, _- B( c
  1417. CPX #$0D" n7 X. ?. L$ h, {
  1418. BCC B_TO_JMPSTG0 B5 K# X. b: A% X6 p( e# a. I' u
  1419. LDX #$00
    ( R2 `+ c& _* [' x+ M
  1420. LDA $7FE09 H" ]4 k# s0 B3 b
  1421. JSR ON_OFF_PPU
    6 Y, G( V8 x% y  w2 ~3 L
  1422. RTS
    1 T- l9 ]/ b7 J% W

  1423.   J" F! i5 v2 e7 d9 {) F
  1424. B_TO_JMPSTG_PPU:, @8 Y7 r/ Y% ?
  1425. LDX #$003 B5 a3 F' {4 O  p. h* a5 g7 j, v
  1426. LDA #$68
      n/ n7 [/ w9 A* j' N9 x
  1427. STA $BA
    8 e: e$ k* G5 C# H5 i/ k2 I2 p
  1428. LDA #$225 f6 E5 {  d/ z2 B% }& J
  1429. STA $BB7 [( v1 |0 G5 i8 m, h
  1430. JSR B_TO_JMPSTG_WRITE
    3 V( f/ T$ b( b1 B2 r" ^
  1431. RTS& l; n: j/ O, f0 f3 @9 N

  1432. ; m* o: J9 o% y8 |; b

  1433. ) M: O3 U' b0 c' s3 E  \  _
  1434. A_TO_PLAMOD_STRING:& z2 y& w; ~6 l6 k5 ~, _( [- K
  1435. .BYTE $80,$8B,$80,$9E,$99,$80,$9A,$96,$8B,$97,$99,$8E,$80: z: Z1 C* M4 x

  1436. ! A3 b/ V* u( Z, F; \5 A5 G: \

  1437. 2 o2 X# H; Z- k7 b0 J
  1438. A_TO_PLAMOD_WRITE:
    5 d; U2 u) \; D0 L. p
  1439. LDX #$00
    3 ]' o% q3 @' K: u- J1 ^# ]
  1440. A_TO_PLAMOD:, s5 P0 A" }, B. x' V
  1441. JSR PPUADDR_PROCESS7 ?5 W+ Z% h# S3 B+ u
  1442. LDA A_TO_PLAMOD_STRING,X( d$ G6 P2 I( f6 A' q! B
  1443. STA $20072 \$ X3 y" y$ M0 a8 W& y# _3 [
  1444. LDA #$00" `0 k7 Z' d- K& s2 w0 F/ k
  1445. STA $20001 x: I9 _, A* w. J$ Z
  1446. INC $BA
    : F# B2 a/ ~0 ]
  1447. INX
    8 Q% u: O/ K3 m
  1448. CPX #$0D
    9 n6 m- M9 `) |. ?* y) V
  1449. BCC A_TO_PLAMOD) o$ u. r% F) B# g: g3 }
  1450. LDX #$001 O( z  V4 j# M( u
  1451. LDA $39
    - \0 M" L( t, @% c. u! `5 T: d
  1452. JSR ONE_TWO_PPU
    # S8 n) g$ v& t/ i# s, j
  1453. RTS4 c- D3 d5 ^4 x, K

  1454. , I. Q( J9 u1 f4 w* f
  1455. A_TO_PLAMOD_PPU:
    7 r1 e9 V9 z2 \7 ~  D
  1456. LDX #$001 C! L3 E5 l: I2 d" U
  1457. LDA #$A83 J# S7 g' M1 k; k& |, \; B
  1458. STA $BA1 O) J' j  c  u4 w# D$ K+ F* E
  1459. LDA #$227 `7 y3 G, D! D# r" _# c: J# a
  1460. STA $BB
    % r0 V* P2 j; w# D" y2 R
  1461. JSR A_TO_PLAMOD_WRITE
    1 U" N/ V8 R, X- M9 R
  1462. RTS+ u4 `2 q) O) S; e3 z
  1463. 4 |9 Y+ Y! e) B
  1464. MOVSPE_STRING:4 x- ^6 s. H2 H+ P
  1465. .BYTE $97,$99,$A0,$9D,$9A,$8F,$808 E. b* f2 o" A( [# Q* B7 f5 U5 ~4 j# L

  1466. 7 s# N$ K" h& w/ A5 ?; |4 X
  1467. * P7 l8 W! `3 u7 F4 h
  1468. MOVSPE_WRITE:
    8 Z' _- ~. l; \0 @1 V1 o! s
  1469. LDX #$00+ k: x, m. p3 u( o% V
  1470. MOVSPE:+ n* I" t, E1 s! ^9 H2 t3 w1 q9 S
  1471. JSR PPUADDR_PROCESS6 @7 f+ A6 b6 E4 G4 P
  1472. LDA MOVSPE_STRING,X: r% O! L" Y) E5 Q
  1473. STA $2007' X" |- l$ B" ^5 t! ?( n+ K
  1474. LDA #$003 H' f3 K# O2 F2 h9 r" j
  1475. STA $2000( k) ^. W. {3 K' G
  1476. INC $BA
    8 M5 f9 B+ L1 R0 u8 }
  1477. INX
    % X. B( {: L  M: w$ G8 ?' H
  1478. CPX #$07/ P% b, d* ^0 T+ Q& K
  1479. BCC MOVSPE3 M, _, m% y. H) r
  1480. RTS, a. h1 X$ ?8 H
  1481. & X+ T! t: d% I% T% r4 @) s: l
  1482. MOVSPE_PPU:4 Z; w  i6 S; _  V5 }
  1483. LDX #$00: o$ P6 k. [4 S. X/ X" g0 |
  1484. LDA #$69& J% M- F" K0 F; I  x
  1485. STA $BA
    7 H% _6 u4 ^7 Q
  1486. LDA #$217 J/ P3 O2 T; b. N9 @
  1487. STA $BB% ]# y/ \) b* @5 H
  1488. + `, T" l  S# w4 ]( ~8 L
  1489. / C# @- @  D5 P4 m  T
  1490. JSR UP_PPU
    7 L* p( F0 R& F6 j4 n( U# K2 o0 u
  1491. JSR MOVSPE_WRITE, Z% n  x+ y- W! N( X
  1492. LDX #$003 r" T6 k1 T# G1 N5 n0 U- F
  1493. LDA $079F5 H( i) v; H# [# l' f; X& G* _, q
  1494. AND #$08$ B/ L) o& t  z8 [; _1 }
  1495. JSR ON_OFF_PPU
    % c. Q) K7 r, E# w' t) ~$ A
  1496. LDA #$802 B4 T: V( y- Z! i
  1497. STA $2007) _+ }" P4 C0 V0 r5 W% x! H
  1498. RTS
    ! {% ^' E2 t! W0 d; ?
  1499. ; }& K0 ~4 v$ z) w- I+ ]
  1500.     Z& O& l! n$ B5 I2 w8 n
  1501. UNLJMP_STRING:
    , M7 [& r( I9 @1 z! ], R2 f6 Y
  1502. .BYTE $9F,$98,$96,$94,$97,$9A,$80- g2 [/ @7 a, K/ s; }+ K# d9 V3 m4 W/ X
  1503. 5 \2 o' Q( L) H, Z, d
  1504. 3 H" Y$ q, N; J% w
  1505. UNLJMP_WRITE:9 F, b, f+ I9 O1 E4 r% C
  1506. LDX #$00! ^# t1 t% T, k0 _. k
  1507. UNLJMP:
    # b  Z( k( R! r" x6 X& A
  1508. JSR PPUADDR_PROCESS& z: j6 ~8 _) P: y
  1509. LDA UNLJMP_STRING,X6 d; W" x8 u( u! P$ P! V
  1510. STA $2007
    9 H, G5 C: M+ i. h; ]% H9 i( ?0 r
  1511. LDA #$00  S5 O7 A6 b% ^/ R6 W
  1512. STA $2000
    , j# P$ Q+ q- D8 F
  1513. INC $BA4 a0 K* W9 C% I9 Y2 g
  1514. INX0 Q/ j) t2 r! U" x
  1515. CPX #$07! B; q0 Q9 z8 r9 p; M* x
  1516. BCC UNLJMP
    8 j" n" E. ~% ^1 I0 \5 @6 _4 ]8 M
  1517. RTS. V5 g. l0 X3 t* o) m
  1518. & p, G6 m) `0 H6 z1 Z
  1519. UNLJMP_PPU:
    * @; R. s4 o. s
  1520. LDX #$00" Z0 p: D8 ~/ D
  1521. LDA #$A97 \2 P( y% R( W) ~+ N; p
  1522. STA $BA+ O& k. c  F: }8 n& i0 f% s) ?6 ^
  1523. LDA #$215 n* Z* \! ~1 j. F! b5 Y; ~8 U7 d
  1524. STA $BB
    : Q1 G9 T" |0 E4 b% t2 a: P' ?$ ]

  1525. " a; d2 ]( y6 ~1 c

  1526. % s( `" I/ E  S' o
  1527. JSR DN_PPU
    ; M% f4 s# L6 R9 A8 I
  1528. JSR UNLJMP_WRITE
    3 {9 T. Z+ C  @/ x/ l
  1529. LDX #$00
    ) m+ H9 z( G6 _6 e
  1530. LDA $079F0 r3 x  F5 F; `4 V0 Q. x. h
  1531. AND #$040 m6 X+ d/ K  D8 a6 Q0 _
  1532. JSR ON_OFF_PPU
    4 P' H% T- _) @1 e9 y( v
  1533. RTS
    $ l2 }9 ?% ^" y) p

  1534. + ]( E3 h2 [( M2 F
  1535. % Y* Z& V8 F- h( H+ Q
  1536. DESTRO_STRING:+ K, O; T. e( J+ L+ [2 f5 C! @8 [
  1537. .BYTE $8E,$8F,$9D,$9E,$9C,$99,$803 F$ `* R" V# V2 v$ @4 _, D* @

  1538. / c# x; Z& [( z9 q

  1539. + Z: K3 `  o' |" ~: @
  1540. DESTRO_WRITE:
    & V/ g. M$ {4 y
  1541. LDX #$00
    : p/ D3 \3 E7 w( P( I
  1542. DESTRO:
    # @- I0 Y& K9 ^6 P# T, y- V6 S7 ]
  1543. JSR PPUADDR_PROCESS- N8 c  f' h8 C- g: u
  1544. LDA DESTRO_STRING,X% @0 j% |$ X, ]' Z& n2 B
  1545. STA $2007$ T* u# g  @% L# @
  1546. LDA #$009 N% f% `* ]% \9 Y7 n
  1547. STA $2000
      e) P3 u6 M8 O6 }6 |3 b: {" ~
  1548. INC $BA& x( }/ D$ a+ _7 d# P5 o
  1549. INX0 [" K8 v' I3 R7 y' v5 x
  1550. CPX #$07
    + \$ j( A' d5 U
  1551. BCC DESTRO1 P2 g- W6 X  b& X' }4 S: j
  1552. RTS5 o* {% g  g+ X! ?2 G% B
  1553. " D) g' G  H; w* `
  1554. DESTRO_PPU:4 d/ B# m0 ]' X3 b
  1555. LDX #$00! M6 s; D6 h/ @/ d3 o- O
  1556. LDA #$E9, y  f* w: ]* T& ]( x& D
  1557. STA $BA* n! V( g2 }+ r0 e; c" m
  1558. LDA #$21
    ; n" _8 k# X+ ?" y% q0 ~, ]# w
  1559. STA $BB
    / e7 t6 w2 @, L  w6 c/ [3 H

  1560. ( J4 a* y" \0 J# @" M' J
  1561. , h3 |+ s2 n- Q. s# e
  1562. JSR B_PPU
    2 ^' }; R/ e- ~! ]7 F
  1563. JSR DESTRO_WRITE
    9 }  ^: P& p0 t+ F$ e
  1564. LDX #$00, f. O& _8 l* S! T
  1565. LDA $079F
    + m! _  r3 S1 q$ \
  1566. AND #$40& e0 F2 ?+ m2 r' n0 }
  1567. JSR ON_OFF_PPU
    1 A! V2 p- R" U0 R1 m
  1568. RTS- O; e) z3 A" [9 w9 R8 I$ w! |

  1569. 0 Y& B$ l/ _) E* I: U9 i  I

  1570. ( \# f5 L& `. V" V
  1571. EQUBUL_STRING:
    / B! b7 f6 N5 H& x6 T% a7 }
  1572. .BYTE $8F,$9B,$9F,$8C,$9F,$96,$80+ d, I* t$ u# S% G9 D4 M
  1573. : K! c' v) P2 E2 ^6 j
  1574. + }. T; U. e$ Q! E$ k
  1575. EQUBUL_WRITE:$ a" O. e8 k$ v, n# L0 i5 `
  1576. LDX #$00
    & O0 a6 L' x7 K# ~3 v5 B
  1577. EQUBUL:( [/ }7 Z0 z% f
  1578. JSR PPUADDR_PROCESS
    2 k! q- q( Y! ]- T$ U/ h1 j
  1579. LDA EQUBUL_STRING,X
    / v. ]0 n& {$ C) u* `: X2 u' D- B
  1580. STA $2007  u3 R+ L, V* B2 j, O- \6 g
  1581. LDA #$009 B: u3 L! ]7 m/ s& y
  1582. STA $20000 h! Q- \5 I& ~" c
  1583. INC $BA
    3 t  d, Z! z3 f3 r! }+ u2 Q& T
  1584. INX
    1 X% Z' a, V2 D1 K# m5 @
  1585. CPX #$075 k) @% h6 Q) h  o$ Q
  1586. BCC EQUBUL: `1 x2 Y: k6 t
  1587. RTS  h7 m. D' O# i

  1588. ( w; f+ j8 R2 z" o
  1589. EQUBUL_PPU:
    ; D  k1 [. L! U/ h" x- i( f8 S. q
  1590. LDX #$00
    : B$ _! K, b- d1 s7 |) o; R
  1591. LDA #$29
    ' l. y2 ?& m  w
  1592. STA $BA
    2 J6 l6 z, y& B! t3 q* A: ?
  1593. LDA #$226 Y0 z* M4 v' M; m+ ]- {+ N
  1594. STA $BB
    + M) Y0 R% F4 l3 N' c
  1595. + N4 x) m- P5 y+ \6 g8 O( {6 M" i

  1596. 1 ^* o4 T5 q* @. F
  1597. JSR A_PPU
    1 L& A: x0 z9 W, ~7 q# a
  1598. JSR EQUBUL_WRITE; W! n; X5 s( M' e4 ]
  1599. LDX #$00
    # M" G" ?; y2 @- i5 b
  1600. LDA $079F
    ! E8 R0 s3 M( n/ B
  1601. AND #$803 b2 b# @, t7 }, |
  1602. JSR ON_OFF_PPU+ |* V; M! Y1 w
  1603. RTS4 p1 Y1 P4 x  {2 t4 c2 ^; J
  1604. " i& f) c6 f- j' t) }) [

  1605. 1 Z0 F4 P2 G" B: G

  1606. 6 M. Q5 `. \0 n  Z% Y
  1607. BULSEL_UP_STRING:
    4 t( ^* I3 B3 \- t3 K
  1608. .BYTE $9F,$9A,$80,$9E,$99,$80,$9D,$9D,$80
    * E% O* V# W6 {1 z, H
  1609. 3 _  ]: g' _& E- ~3 {, M5 r5 M
  1610. BULSEL_DN_STRING:
    ! C& ^9 z, M, ^) u4 L
  1611. .BYTE $8E,$98,$80,$9E,$99,$80,$9D,$96,$80
    2 e) T1 }- B) o% ]8 |/ r

  1612. 3 k/ b% Z' ]. J- d9 K6 _/ V% W  _
  1613. BULSEL_LF_STRING:/ ]* ?# r4 U/ a  t$ q% k5 \
  1614. .BYTE $96,$90,$80,$9E,$99,$80,$9D,$97,$80; A8 s" h3 |6 v( ^7 h7 N

  1615. 0 a- u& J" I2 U' ^/ H+ r9 T
  1616. BULSEL_RG_STRING:
    ' ?3 G/ f+ M7 y! O
  1617. .BYTE $9C,$91,$80,$9E,$99,$80,$9D,$90,$80
    . g. V0 W. }4 o- _; o. F

  1618. / p& u8 C( i# E$ w) b3 p5 H- ]+ W
  1619. BULSEL_B_STRING:$ s) k' `8 q, g6 _) k' D* k
  1620. .BYTE $80,$8C,$80,$9E,$99,$80,$9D,$98,$805 a- M4 z* g( i

  1621. 3 ^$ a5 M5 t4 o
  1622. BULSEL_A_STRING:3 k+ H2 _6 j4 U0 b3 n' m
  1623. .BYTE $80,$8B,$80,$9E,$99,$80,$8D,$99,$97,$97,$99,$98,$80,$9D,$9A,$8F,$8F,$8E7 ?; U* n( v6 v6 Z
  1624. , B- j) e5 }, G, ~
  1625. " c5 v! p6 R+ ?6 G, z5 V1 e% d
  1626. BULSEL_UP_WRITE:1 p. {' j/ k/ E# }# w
  1627. LDX #$00
    ! {0 {' R* a  y& a* Q/ Z( V
  1628. BULSEL_UP:1 R# {+ Y7 N. ]: J
  1629. JSR PPUADDR_PROCESS; M" C# P3 [* q
  1630. LDA BULSEL_UP_STRING,X
    * W/ N9 u% b# s4 y) f2 W2 Q9 t
  1631. STA $2007) S; d- M1 `" {5 Q% p
  1632. LDA #$00
    * E& H6 ~! g8 r% L7 e* D
  1633. STA $2000
    5 I3 J5 d) o$ ]+ Z) L) c9 U1 w
  1634. INC $BA2 R! {# t, x5 |. R' g
  1635. INX
    , N$ F* k# N+ W: L0 Y) H$ ]& h# D+ q
  1636. CPX #$09# N1 }; S' S; u% P
  1637. BCC BULSEL_UP
    % K* X  ~; s# k+ D9 T! G+ H
  1638. RTS( o1 y1 C/ y" ~6 N- [
  1639. BULSEL_DN_WRITE:
      }% M  g3 ~) i9 k
  1640. LDX #$00
    7 v. K& u; E% c1 {1 `
  1641. BULSEL_DN:0 W& |6 Z2 c6 l( `
  1642. JSR PPUADDR_PROCESS/ ~0 f! z- S) S; A. X
  1643. LDA BULSEL_DN_STRING,X& i0 J3 L, Q' H1 ~5 L' E
  1644. STA $2007
    ( E# {: A7 Y7 T3 \% m
  1645. LDA #$00
    ' E% e* i$ b8 m+ Q0 x8 s0 [
  1646. STA $2000$ @/ R  s4 Z* F  \# W5 O( Z
  1647. INC $BA
    / Q: v" B$ L% ~
  1648. INX4 p0 B- ^; h. `8 z
  1649. CPX #$09, N* ~4 T$ t- n1 ?" b$ K
  1650. BCC BULSEL_DN; ~) d! n+ \0 S5 R& i' ?
  1651. RTS
    - M5 B4 |: c/ L
  1652. BULSEL_LF_WRITE:
    0 E( @4 i" Q. g' w' q( Q
  1653. LDX #$00
    # [- E$ @% w# p1 c! o0 B2 i9 M
  1654. BULSEL_LF:
    2 ~3 j7 n5 q3 g. b! {
  1655. JSR PPUADDR_PROCESS0 x7 f, j. h9 {5 I* T: m; D
  1656. LDA BULSEL_LF_STRING,X
    . q! D9 n5 c  o8 Y) Y, B, r5 \
  1657. STA $2007
    - N! K9 x, Q: ~! P6 U: P
  1658. LDA #$00
    ' g8 E: M8 q' P, k' {. S
  1659. STA $2000
    7 q( X" ^- L5 M6 z. o4 G% y+ _% {
  1660. INC $BA
    + ~( z" n% S- V7 n
  1661. INX
    4 I6 _/ {. i" Y; \3 Q: n1 T
  1662. CPX #$09, n; i0 t; S% l6 P9 o. s* e1 v
  1663. BCC BULSEL_LF
      l9 h; \( X- _  R" z
  1664. RTS5 p# ?3 ], g& X2 c3 t. O
  1665. BULSEL_RG_WRITE:- a' T& y# i, {  L, S' a4 X
  1666. LDX #$00
    & V% g4 }8 G3 r, ~: C* t7 g6 @! @% Q
  1667. BULSEL_RG:( ~3 t0 e5 b5 |( K7 g  E
  1668. JSR PPUADDR_PROCESS
    " q4 V! x( X( J. o
  1669. LDA BULSEL_RG_STRING,X0 ^+ Q) ]' K2 K* f
  1670. STA $2007
    : K+ n% }6 ~2 R6 p
  1671. LDA #$00
    ! z1 R3 x. h2 V7 g3 `0 b0 P, A5 `, S
  1672. STA $2000- W2 m, d  n/ y; ], \
  1673. INC $BA0 s  L9 t- i, t2 ^3 Z. `* A9 z5 e
  1674. INX
    # @2 t# |, w, f, u
  1675. CPX #$09
    - ?( ~- A! F# d+ ~2 @% t
  1676. BCC BULSEL_RG
    . J: j7 d. n8 e0 G. q: K
  1677. RTS
    ( D7 }, r1 F* r; h% s, D
  1678. BULSEL_B_WRITE:
    - ?+ t, F# u  A% c1 K3 E
  1679. LDX #$00
    ; U' U0 F, c! B8 B" i' e
  1680. BULSEL_B:
    # d- U: J% H/ z/ h
  1681. JSR PPUADDR_PROCESS: K. G- z% q/ q3 B/ \; D
  1682. LDA BULSEL_B_STRING,X5 i/ ^% E7 s6 O: m% a
  1683. STA $2007
    # q* ~: J& W) l* b
  1684. LDA #$00/ a0 f& `$ S0 O& b
  1685. STA $2000
    , ?1 `9 W0 P2 l; _
  1686. INC $BA6 u0 f7 G) t& H; K
  1687. INX) w/ \% f0 P9 u1 }
  1688. CPX #$09) j% G; Q8 A' H, _$ r# A
  1689. BCC BULSEL_B
    , l0 \- {. o( A1 j) q( Z/ l
  1690. RTS, C( F# a* H2 Z* Q" ^% w
  1691. BULSEL_A_WRITE:; t$ a6 o6 u7 J) [
  1692. LDX #$00# u8 c" Y# B5 d5 s
  1693. BULSEL_A:2 g4 H6 d& P+ u5 ]
  1694. JSR PPUADDR_PROCESS
    $ Q: O: c  U! P! N
  1695. LDA BULSEL_A_STRING,X5 N* K9 ^+ r0 @
  1696. STA $2007
    1 c/ g5 H& n! e6 }' `$ p( _# ?
  1697. LDA #$00: B9 N) z3 M! v, R( W. q
  1698. STA $2000
    1 t: n& n  y, O' p  P; a
  1699. INC $BA' e# w8 l* h! R* J- q9 v
  1700. INX) A9 Z9 [% o) H6 }& x
  1701. CPX #$12
    6 H7 z; r6 \* E7 t$ j
  1702. BCC BULSEL_A1 c0 e' ^7 G; I7 H
  1703. RTS. S; y2 G3 ]2 v: U5 Y/ p9 M: X- G
  1704. 0 |: M6 p3 t# Q# w3 C6 d. L: h& {
  1705. $ d' o- h' x$ q  Y' K4 s; f1 M4 V
  1706. 6 b% l* A6 C% m8 Q# l6 n
  1707. BULSEL_PPU:
    + I& ?( ~  r; K
  1708. LDA #$6C+ ^4 l- E) D3 a
  1709. STA $BA
    " [( W4 U' {- j4 C
  1710. LDA #$210 r- @# D. O, }
  1711. STA $BB/ n7 `$ d2 `7 S, h. g% P& p& ]
  1712. JSR BULSEL_UP_WRITE  `! ~/ `; U% r1 ^% T' l* P2 J
  1713. # J3 b6 I- [; E3 _
  1714. LDA #$AC
    , D5 o3 ~) d$ V* U' Z( b7 t
  1715. STA $BA0 H) O$ |! \9 }. d; i
  1716. LDA #$217 `% A7 p% }  U# f  c: l
  1717. STA $BB# C6 N$ L7 h6 h$ Z/ W
  1718. JSR BULSEL_DN_WRITE
    ! I/ {* z: H2 ?  T/ j- I7 |

  1719. 4 }+ l1 J8 _# f' L
  1720. LDA #$EC
    6 C7 X" }  j0 m; N( ]: {8 P! r$ C( |
  1721. STA $BA
    5 r1 G$ a! s6 w9 N$ }. R  u; J
  1722. LDA #$218 ?5 H9 `9 N) `# w6 m
  1723. STA $BB
    ' r3 k( `- u) e8 q" A* O, W
  1724. JSR BULSEL_LF_WRITE3 x. e1 ^! x% v. n: a) m! d' T
  1725. 2 p$ i; k# C$ `9 u* T+ f
  1726. LDA #$2C
    ' T5 R7 v) c' O9 t! s2 e0 P; k
  1727. STA $BA: @1 S5 ^3 \! U5 ?- p
  1728. LDA #$22
      N% L* B+ l9 z; A' A1 ^& Q
  1729. STA $BB$ {) {* w  d: t4 \+ q
  1730. JSR BULSEL_RG_WRITE5 l3 [9 O  L1 R# x& J
  1731. % F* Z1 F+ ~* |8 O
  1732. LDA #$6C
    : }4 t; \' {% F" K# |
  1733. STA $BA
    1 j/ I6 {2 E7 U" P8 F" U/ t
  1734. LDA #$22  a: ~5 P, y% Z" i1 M" E
  1735. STA $BB  S. Y# K# t# e) Y5 g" ?
  1736. JSR BULSEL_B_WRITE+ F' f3 g& v% J

  1737. , ~1 h( q+ _! g: f" {
  1738. LDA #$A7
    - `4 o1 c: n% i
  1739. STA $BA% H& h# |$ R+ a1 K  Y' B
  1740. LDA #$22
    ; j2 x2 n/ O- J. {; [
  1741. STA $BB- ?; [2 z1 `  V3 v8 v7 d, ^- c
  1742. JSR BULSEL_A_WRITE
    7 T7 q- j; h/ m5 r1 |$ k
  1743. RTS+ P4 F4 V$ @5 w0 e9 G% K

  1744. / }; f  a5 e3 R" X) w1 A: V2 i
  1745. + X( D% N6 t" Z" ^" D' s1 f

  1746. & y7 h1 C. G& p& O5 d9 e7 }9 [
  1747. UP_STRING:2 s1 t* V+ x; H& e! i
  1748. .BYTE $9F,$9A,$801 a5 c% `, t" q5 |+ |

  1749. 0 P( N8 \: F2 `) l9 a& V" ^- N
  1750. DN_STRING:" A/ P/ ^$ u1 L6 r. V- n. D
  1751. .BYTE $8E,$98,$80" J3 s8 e- K, c6 X' o

  1752. ( o! A/ `( E, U3 J
  1753. LF_STRING:
    0 f2 x2 x3 X! b) q* V# m: f+ V7 o6 P
  1754. .BYTE $96,$90,$801 D% ?% K! G( F& n- E! `6 j9 I
  1755. . \& @; R# e8 M
  1756. RG_STRING:
    # u" _/ r8 G" [7 {% C* _) l9 F
  1757. .BYTE $9C,$91,$805 t# w8 Q' y' i; e& E  @- C

  1758. 3 X, {) _; _) V# d% `
  1759. B_STRING:
    8 N9 Q7 ?2 s. J  \
  1760. .BYTE $80,$8C,$80  Y( S8 R1 F" f1 @/ ~3 @
  1761. " k# p6 H2 ?! Y1 |; C$ @8 D
  1762. A_STRING:- M* K0 I5 K' l% B- o9 x4 W
  1763. .BYTE $80,$8B,$80+ a* w. \9 Z$ ~
  1764. & J- @7 ]; {. z2 B# R
  1765. # z! s9 `# r9 l% j
  1766. UP_WRITE:% j! a) R- U7 F" ^; N# V% N0 }
  1767. LDX #$00- ^* g* G% ^2 M8 d6 g* r
  1768. UP:; o  c/ q2 W% d9 f) s% q6 M2 f1 H- t
  1769. JSR PPUADDR_PROCESS$ @, s6 z: k. o; s9 I
  1770. LDA UP_STRING,X
    6 I: J' n) R2 c( J5 z* d
  1771. STA $2007" @4 ]$ X4 a& Y, R$ l6 U& M
  1772. LDA #$000 A- w+ b4 C  w# I7 D* K) e
  1773. STA $2000$ R( S4 j$ u: K( Q) p6 l
  1774. INC $BA
    0 k: _8 O7 g2 @; ^
  1775. INX2 @! e4 U, O5 H% \
  1776. CPX #$03
    $ {6 f: b. k4 S, _
  1777. BCC UP) U8 L8 ^+ i; S' [6 h
  1778. RTS/ D$ q+ w, I( O  ~1 v. @5 x

  1779. ( q2 i. z! P+ ~! G- [: ^8 Y
  1780. DN_WRITE:: F" J8 h+ z2 A# u2 G
  1781. LDX #$00
    ! H6 K+ t0 Y4 L7 K
  1782. DN:
    ! B/ l9 F- S0 V: D) f6 f$ h$ M
  1783. JSR PPUADDR_PROCESS
    " t8 E9 c, l2 c% \" {# ]3 p
  1784. LDA DN_STRING,X
    7 \+ C( g* M; e3 {* @8 ^+ Y" M0 [
  1785. STA $2007
    7 Q( z7 M9 g! M: D4 e! t: U% Q
  1786. LDA #$00
    3 x* f) W$ J% a2 D0 O3 |
  1787. STA $2000, O" g& q3 v3 s: C$ P7 G
  1788. INC $BA
    " r3 @& t9 }! n/ Y( J
  1789. INX4 s8 z) @" x# T' ]; m, {6 P, T) o* C- b
  1790. CPX #$03
    9 S: F& n% P# ~/ A, Q
  1791. BCC DN
    6 e% x, Y4 A8 L" j9 Z9 d
  1792. RTS
    5 a- F  H( q( P" j
  1793. 8 v: {" Q- z/ K! `# c
  1794. LF_WRITE:
    8 Z' N! U" `: S: O: R% t
  1795. LDX #$00
    % q9 Z8 d0 b: |6 [7 @7 S- Z
  1796. LF:. V1 I- f" g/ g9 i' R. ~. e- U
  1797. JSR PPUADDR_PROCESS* S0 I/ V5 u, K2 ^; M
  1798. LDA LF_STRING,X
    7 ~9 S* y, U  b4 b
  1799. STA $2007
    / ?; M- G& e% X  ~0 E3 n
  1800. LDA #$00
    $ w# `6 U( W1 Z& b( `: \2 _
  1801. STA $2000% }8 }  n- e& i) `8 F
  1802. INC $BA7 S2 C! [% E/ a9 c" ~) \8 f
  1803. INX1 U8 Q# x9 Z5 ^7 S, l6 T9 ~
  1804. CPX #$03: I1 ?- b5 q  R& ]
  1805. BCC LF
    + ^/ o! _% l+ ^2 Y; z7 u; Z
  1806. RTS
      E% f8 o7 J9 ~+ x; S& T

  1807. ! @! c( o% \8 f! t$ F+ M
  1808. RG_WRITE:% H( [7 p8 H7 o0 S( \6 s6 ], h
  1809. LDX #$00+ G4 d1 Z7 h8 L
  1810. RG:
    ; Q: f- k: v& W. U
  1811. JSR PPUADDR_PROCESS
    8 [3 J9 q4 z+ F# [. F2 l4 F+ n8 ?" w0 k
  1812. LDA RG_STRING,X! e' U) Y7 o4 l
  1813. STA $20078 M; R$ E4 V. y5 O- U
  1814. LDA #$00  G/ ~* w6 Y. S4 z+ X8 p7 C3 \: E" b
  1815. STA $2000
    2 f! \$ K% A. h- U3 i0 Z' s: C/ X
  1816. INC $BA( a. }, B: u/ N/ ?" @
  1817. INX
    / ^' ]: U4 h: f8 ?, e
  1818. CPX #$03
    ; `8 @" e6 r" s/ a7 C
  1819. BCC RG8 P* e8 j& o. C, v& g# G
  1820. RTS
    4 A* A9 {. h. V& T3 `
  1821. 6 N" _# d5 y5 J; l# r, A: x: `
  1822. B_WRITE:
    2 a: E0 W7 O+ r% g+ m
  1823. LDX #$00, n9 ]" ?5 g1 `. b$ j+ p1 ]& s
  1824. B:$ g7 I# H; E2 U0 S% o7 r$ l  S
  1825. JSR PPUADDR_PROCESS
      s2 |  S5 x! U0 x
  1826. LDA B_STRING,X
    4 V+ W2 l0 ]9 c# D0 m
  1827. STA $2007
    % ]- O6 [* M( M
  1828. LDA #$00  w$ b: k$ P* a3 U/ ?
  1829. STA $20004 G( ~5 p2 a/ ^# A2 a# }9 i
  1830. INC $BA: ]1 j2 H# A/ n6 j. @  v
  1831. INX
    ' m1 s4 a' k! t: G7 u- a; v
  1832. CPX #$03- H% n- E* N; O7 Z0 j+ |9 [! X
  1833. BCC B% x# c/ T1 W) @9 A
  1834. RTS: U$ F" |, S$ O! r! A, @+ c

  1835. & u0 W" i1 W# X* Z8 ?7 C! ^
  1836. A_WRITE:
    ' K- O4 w- `  A; H
  1837. LDX #$00
    " i8 T7 [! P7 _$ t! G3 \3 p
  1838. A:$ ?6 G1 v5 \0 u$ R, ^
  1839. JSR PPUADDR_PROCESS. U& M3 [; b4 `2 p0 e0 q5 n9 W0 [
  1840. LDA A_STRING,X
    % `  U( P/ i* a0 v, X  ~
  1841. STA $2007+ d' u; L/ ?4 e, U# C& `  d4 \
  1842. LDA #$00
    ' C3 ~* w( y7 S
  1843. STA $2000) }  I) a  Q$ g9 E4 I
  1844. INC $BA
    ; _+ |$ y4 t! ?
  1845. INX
    * l5 Q3 P) D+ i( K) r! z. _/ k4 w
  1846. CPX #$03
    ; q% F% {+ l& ?
  1847. BCC A- `7 {6 z, n. P
  1848. RTS
    2 e* p% r  n- y' s& ?* m3 v' y- G0 e

  1849. % j; D! P1 W# w; F8 p' f; S

  1850. # ^' b5 l* I7 F4 ?' a4 w0 j
  1851. UP_PPU:$ p  x* Q% {# j- ?' B0 S& R9 w
  1852. JSR UP_WRITE
    5 U" f6 l" i6 j. k  `  C) m* A
  1853. RTS
    / o4 B; }# C5 a. j) c
  1854. - m( }; U0 p, V! e
  1855. DN_PPU:+ U3 O1 c# D) R8 j; ~9 {
  1856. JSR DN_WRITE- a  ^6 D( s' k1 p& B7 d
  1857. RTS- B) Q( m+ q) k2 s: W( a

  1858. ! A8 u! v0 Y7 Y( ~: ~$ v( d' Q
  1859. LF_PPU:
    % {& n5 g( p- [6 F  k. _) s& e6 K
  1860. JSR LF_WRITE* L1 D/ R% Z) u) r$ S
  1861. RTS
    $ ^; I6 [& z0 T* z

  1862. 1 O! d! w8 V& P  w+ y. Y
  1863. RG_PPU:) w# F3 M' V4 N4 I
  1864. JSR RG_WRITE9 g4 }5 h  X; I2 g, {& k4 ^# u/ {
  1865. RTS9 L( P8 X* H; ^8 a0 v

  1866. $ C# Y# o6 A8 z5 e" O; c
  1867. B_PPU:
      C# J* l+ p8 s9 E0 |: k0 T! m
  1868. JSR B_WRITE
    9 ~5 D# i* q5 H
  1869. RTS- X/ N% D! e! Z5 k3 g& H
  1870. 7 t0 @: |" `; G- f4 @3 B) ^
  1871. A_PPU:
    8 M* M. w# [7 u
  1872. JSR A_WRITE
    3 S" h' v9 d1 D" l% g- Z; _
  1873. RTS0 h; F6 D1 y; t

  1874. 5 M9 f# R% L& M, k1 j7 @. l" Y; y
  1875. ( }4 T& W7 r/ q% |: t( A
  1876. PAGESELECT:
      n- W# F  O4 Z# t( ], R
  1877. PAGE0:+ o, T% p# o/ }; w1 Q6 R8 y; q& |7 W
  1878. LDA $07AA$ d* X) Y5 k0 G& Z; n
  1879. CMP #$00; K6 d1 V- L( C. t# l+ p
  1880. BNE PAGE1
    0 o% l5 P, G( m% O  @

  1881. $ w' B$ K  x9 ?& A
  1882. PAGE_00:
    1 V. a: c7 p  H0 Y" M0 C* r2 [
  1883. JSR BULSEL_PPU
    0 J5 a  O  t! J0 q, ]
  1884. RTS
    5 ?3 ]' y8 {1 s4 I

  1885. / ^8 j' s) {& B
  1886. PAGE1:4 l; g7 k& J0 h' F
  1887. LDA $07AA$ s- O- J* t/ b
  1888. CMP #$01
    - K2 p5 g0 Z8 Z1 E8 \9 O8 ?
  1889. BNE PAGE2
    $ P- L+ T. |- y

  1890.   B$ G; ~2 b* t7 |& S
  1891. PAGE_01:
    % @- ?% \/ `5 f2 E# x" `( v
  1892. JSR INVINC_PPU
      y' C% ^) |8 @, I# ^+ o
  1893. JSR LIFELC15_PPU
    * e( {6 P* R% ^& [7 S
  1894. JSR DOUCON_PPU
      ^" |2 N; Y8 o- ?( |
  1895. JSR KILLON_PPU3 W5 e! {: b; L: u
  1896. JSR SKYFLY_PPU) O3 R+ u1 Q# L+ ?% ]' M  ]! J
  1897. JSR LIFELOW_PPU$ s" I) L1 r% `+ a* n6 }! O
  1898. RTS
    : P3 T9 p2 l; r
  1899. 9 a' U. I6 ?$ K9 d: Q4 Y
  1900. PAGE2: 4 @: i0 \. [' B" f
  1901. LDA $07AA* O3 A0 K0 B# X$ o; E3 _
  1902. CMP #$02
    3 V4 `) L+ V. Q, h+ G
  1903. BNE PAGE3
    7 v$ z, C4 w9 g+ U
  1904. 0 E2 ]9 U* |9 Y- N. m+ I' P
  1905. PAGE_02:/ i8 Y2 E+ x& h
  1906. JSR BULADD_PPU/ t$ k5 E. y4 y2 F
  1907. JSR SKINGE_PPU
    % K& k! D- V. e1 Z. O; |
  1908. JSR BULMIX_PPU2 V/ m9 Q" a' |% A) z
  1909. JSR ENELOC_PPU
    $ x8 ^# {6 q/ [2 c% v
  1910. JSR FOCFUL_PPU
    ; j5 u9 s$ S* m4 y$ J
  1911. RTS
    & \* }+ A7 S# R7 d( V' W1 t0 ~
  1912. % B) Y" f. n# _* I$ |6 K
  1913. PAGE3: # Q# h$ m% ^/ I. R9 {
  1914. LDA $07AA
    ; f" H6 N+ L* `( L- G  Z% y3 M
  1915. CMP #$03
    1 x7 x0 L( J; Z2 P9 c5 q
  1916. BNE PAGE4' @* k, Z% i. Y9 B# ?: l) ~1 s( Q

  1917. . D9 }' I) P! j! W- N% C/ c/ S, \. s
  1918. PAGE_03:2 ~  q+ Q  e: T  G  \9 h& K. b
  1919. JSR BULCON_PPU9 r5 K% Y/ {2 G5 Z& v1 ]  ~) `: N
  1920. JSR SPEBUL_PPU
    9 h" o/ ~  p% P: f6 v) m* h7 U/ X
  1921. JSR CLEALL_PPU
    " e- \6 G, v1 n7 N  I
  1922. JSR HARDMODE_PPU
    3 f5 a# C0 z4 p9 h+ l
  1923. JSR B_TO_JMPSTG_PPU+ }1 ?) B& o+ i, S; M
  1924. JSR A_TO_PLAMOD_PPU
    0 t2 ^8 j0 }/ F. j9 f; f9 d
  1925. RTS; K  q$ b: k# Q

  1926. ' X) B; ]$ ~+ u) Y8 G8 p+ L1 i! }
  1927. PAGE4:
    ; f! t6 U0 A* b1 u
  1928. LDA $07AA: C8 h8 s: u2 ^+ X/ ?8 ~
  1929. CMP #$04+ F! l! i# |) o" F: ^5 j
  1930. BNE PAGERTS
    * z; x+ M4 x9 X  t  U/ Z

  1931. ) x) Q. A* w" [* S( F, k! M9 i" U- c
  1932. PAGE_04:9 y% G, T  G4 n5 c
  1933. JSR MOVSPE_PPU8 f* D$ Q/ q" _% ~
  1934. JSR UNLJMP_PPU! s7 ~5 X6 o: u3 O' ?( J2 E
  1935. JSR DESTRO_PPU
    3 O) [# J" D% I) J1 x
  1936. JSR EQUBUL_PPU5 J. A! z* F5 s0 U2 b
  1937. JSR MOVESPEED_PPU3 d$ V! m, p0 X% a
  1938. PAGERTS:( A9 Y% x) x8 M# T/ T; H. A, o
  1939. RTS$ ?3 |$ |3 |  I6 e$ _- c
  1940. ; ~" O1 E! i2 H$ v0 H. S7 f) e
  1941. - u, C6 ~, h7 j- T# y
  1942. PLAYER_01_STRING:
    4 @. S- p5 n- G. r8 q: J. p
  1943. .BYTE $9A,$96,$8B,$A3,$8F,$9C,$80,$81,$82,$80
    7 i/ }0 W2 y2 h4 w

  1944. 1 G; \  o1 Y" f
  1945. 4 f9 J7 u$ x4 A$ f. e- s& T% [
  1946. PLAYER_01_WRITE:( z  K0 `% ?7 F' I: g& l1 e
  1947. LDX #$00
    6 T+ P/ T% n3 m" Y/ X# p2 J
  1948. PLAYER_01:
    9 N- U. {% G) W+ v" @
  1949. JSR PPUADDR_PROCESS
    - F* ?9 V' s' R: ?
  1950. LDA PLAYER_01_STRING,X. e/ d  o6 {9 T
  1951. STA $2007( X! j1 G1 \9 C7 d3 b
  1952. LDA #$00- g: A1 P/ m( b4 K
  1953. STA $2000
    ( k/ o" i; F% o5 x% O0 h
  1954. INC $BA# F1 F) C; {, ]& b+ q
  1955. INX
      A! x5 K, I# W5 a- l$ E( R) B3 z
  1956. CPX #$0A: M0 d! d5 `# T8 \
  1957. BCC PLAYER_01
    9 {* j4 H$ j/ Q2 @4 h( Z# o
  1958. RTS4 N% X. [  w3 ~- X" O

  1959. ( [! g" e2 B& h4 D4 W
  1960. PLAYER_01_PPU:
    8 }4 q+ ~0 ?6 p+ \
  1961. LDX #$00
    4 ^) a  B7 D0 U! ]4 s
  1962. LDA #$64) v0 {2 F( x6 _
  1963. STA $BA
    & k. K6 I9 F8 W. C+ z1 e( l5 M9 z
  1964. LDA #$203 Z: q  R% }; @$ a
  1965. STA $BB6 I7 m  O) R& b1 Z3 f' j
  1966. JSR PLAYER_01_WRITE
    ; c  n; W; ?+ z2 o" ~2 v0 e' K9 O
  1967. RTS- b& c3 a- a+ h

  1968. 8 q! ~* j  ^0 h) Z
  1969. PLAYER_02_STRING:
    , ?# Y0 n4 M+ ?7 Y$ ]! K
  1970. .BYTE $9A,$96,$8B,$A3,$8F,$9C,$80,$81,$83,$80% C( n# x- k+ U  Y
  1971. ( Q! m, c& h6 x5 ~+ M9 U; ]
  1972. 1 u, R  Y" \& f- ?
  1973. PLAYER_02_WRITE:
    % o: c: g9 s8 t7 u2 P: ^0 K9 e
  1974. LDX #$00) g) }: `  \4 _! L% t/ u
  1975. PLAYER_02:
    - t$ ^! [% V: p2 O" t4 k) ^; n
  1976. JSR PPUADDR_PROCESS
    ! H: o* y" K; o& H4 J, o& R4 r
  1977. LDA PLAYER_02_STRING,X. D; |6 |2 s1 A) J
  1978. STA $2007, j) n7 q& m: ?' p0 w# Y
  1979. LDA #$00
    5 i6 [( O5 G9 V' Q
  1980. STA $2000- L4 Q% e2 Y! A3 ^; G! P
  1981. INC $BA) [  ?1 x% O6 D$ v$ c6 N4 p
  1982. INX- a  k# `1 T$ D: H" B! I
  1983. CPX #$0A. N4 n- _8 g" N! r+ T
  1984. BCC PLAYER_02
    / ]+ G; U8 }( ]8 N2 B& O8 }
  1985. RTS
    0 V, J6 u6 ]4 ^+ |; {) g  |% V! Z
  1986. $ R' V9 @% @; v* f0 M8 H( l7 O' |
  1987. PLAYER_02_PPU:
    $ D4 y2 D& @6 q1 }0 h: e4 a, x
  1988. LDX #$00# _! U2 d4 \9 p5 ?' V" \
  1989. LDA #$73* O* c3 N4 F" l- d& C4 L
  1990. STA $BA% {* s1 @, Y3 @! @( w0 a, ]
  1991. LDA #$20
    ' H+ I3 D( e% b0 L" h
  1992. STA $BB
      N1 J7 y# [0 O: n% l7 Y/ P  K( b
  1993. JSR PLAYER_02_WRITE# A/ c  H0 m& A0 J3 t* k& Y' }
  1994. RTS- @/ z' F4 ~0 T; R

  1995. 1 |5 O) z6 D( |6 k: [; |0 A
  1996. PPUADDR_PROCESS:
    4 z& [* w$ y' t, f9 u
  1997. LDA $BB& y. h2 {) l7 x! Y7 d6 \# ]2 K
  1998. STA $2006* C1 b/ N+ L& e% N# z$ c
  1999. LDA $BA
    1 s) F! I8 ^' h% a& P# F: Y" j
  2000. STA $2006
    ) O! x. ~6 e& ?8 D7 A: ^0 b' f
  2001. RTS9 G$ O( @# p# W3 ]
  2002. ' B2 {" d0 R6 X; G+ W+ f4 v, k
  2003. " ]$ f5 k1 D5 w; X) B/ A4 y$ V

  2004. " r9 d2 i$ G! Z' O; G) v: p1 @4 f
  2005. ONE_STRING:
    1 {& i; `" h6 _" U! F' p! W
  2006. .BYTE $99,$98,$8F
    , Q! J1 x6 R0 R5 A) \' {% E4 z% I
  2007. * Q$ @. |. U- p" k
  2008. TWO_STRING:
    6 g. e2 m" h0 l. T
  2009. .BYTE $9E,$A1,$99/ u; c, `2 i1 I! U

  2010. 7 f, D0 S+ U+ U+ _* d
  2011. ONE_TWO_PPU:& v, w. ^# Q/ a
  2012. BNE ONEWR) c& P  R1 J, Y5 F2 r" y6 Z
  2013. TWOWR:( Z" y9 c4 C/ S3 J6 P
  2014. JSR PPUADDR_PROCESS3 _0 [8 C1 A7 @" w: Q
  2015. LDA TWO_STRING,X
    & z1 P* _: k3 O3 q( ~
  2016. STA $2007
    ; v. U7 k. J8 v2 I+ k$ A
  2017. INC $BA
    ; O& K# a  T5 ~7 j+ J) \9 S) p
  2018. INX
    6 s. N- P1 Y8 q, ^! Y4 n
  2019. CPX #$03
    ! U6 E/ L: ^, p% @$ j3 S
  2020. BCC TWOWR
    # Y+ U9 I4 ?8 _* C& j
  2021. RTS6 G% n5 k7 I: [' [/ R
  2022. ONEWR:; h$ d; [& e% ~3 A5 y
  2023. JSR PPUADDR_PROCESS8 K" n6 F0 `  k
  2024. LDA ONE_STRING,X- ?8 O1 g) t3 l; H1 x4 L, v
  2025. STA $20070 {# e2 A& l0 u! |0 x' x/ P! Q
  2026. INC $BA) e# J0 Q( m( q, `9 b% g* j
  2027. INX: f5 Z: v: R9 O( ^& x& p
  2028. CPX #$03
    , v7 n$ V) z! d/ y% Q9 b
  2029. BCC ONEWR
    7 \" N$ Y5 K& s: Y1 U
  2030. RTS% F& W% R; P3 X- u6 [$ q

  2031. : K4 K2 {( T: P4 |- }
  2032. MOVESPEED_STRING:
      P$ D4 X( b. `7 h# b
  2033. .BYTE $97,$99,$A0,$8F,$80,$9D,$9A,$8F,$8F,$8F,$80
    / ^6 m: g' Y4 u: s5 f5 A

  2034. $ C  i. _9 ?9 \5 P6 o! c% S/ `

  2035. 2 `. Z' B/ s9 Q9 b
  2036. MOVESPEED_WRITE:
    7 F0 G; }3 b' x7 \) _4 u9 ^% a
  2037. LDX #$001 S% o; W: j9 }& \1 o$ b+ r4 ]8 o. \
  2038. MOVESPEED:
    ' d# Y* \: C' r/ U+ H
  2039. JSR PPUADDR_PROCESS" T6 I4 J* Z, [" B" L% r( Q) R
  2040. LDA MOVESPEED_STRING,X9 H( Y0 K  c/ H) Q, t" J7 a
  2041. STA $2007. b6 d8 i# I4 h: @# o* F& F$ _
  2042. LDA #$00
    ' K: [9 h* e( p4 x+ R
  2043. STA $2000
    1 w8 b* R( ]( x* X/ U& u
  2044. INC $BA; M0 m; n, g, V; J) G
  2045. INX( H/ l* Y! d( q
  2046. CPX #$0B
    0 w! L: j3 G$ C. A6 C! @' e0 ^
  2047. BCC MOVESPEED
    % J' f3 g" z% M, l9 `
  2048. RTS4 C, v5 G8 S. P6 M

  2049. ' @6 O2 Y7 Q* `* A7 I
  2050. MOVESPEED_PPU:
    0 B0 q) ^) A: k2 N
  2051. LDX #$006 \, O. H8 D9 N4 j( F  u
  2052. LDA #$AA
    ) l: D* B$ Z9 b% |& @. t3 r3 A
  2053. STA $BA$ ~7 F* y+ v, k7 k
  2054. LDA #$22( Z0 D$ M: U0 g. I6 g
  2055. STA $BB
    - B& m' F3 m8 p$ Y
  2056. JSR MOVESPEED_WRITE8 J  E) t8 L0 z1 i& O8 O
  2057. LDA $7003
    9 F7 R$ R2 p3 ~- S: x4 ]
  2058. CLC
    / x0 B# m3 v( F
  2059. ADC #$82& Q8 |3 a- o- e/ N9 R! @4 I
  2060. STA $20077 @: H- [- \: l9 R9 @, v' y
  2061. RTS
    $ q4 {  ]( r0 o
复制代码

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？立即注册

×

评分

1

查看全部评分

[发帖际遇]: yandagui辛苦发帖，赚了 6 个 柠檬. 幸运榜 / 衰神榜
回复

使用道具 举报

hanjungex

签到天数: 549 天

[LV.9]以坛为家II
发表于 2016-11-20 00:59:08 | 显示全部楼层
真是太強了,感覺樓主可以直接當D商了.
[发帖际遇]: hanjungex 发帖时在路边捡到 3 个 柠檬，偷偷放进了口袋. 幸运榜 / 衰神榜
回复

使用道具 举报

huanhuan05

签到天数: 7 天

[LV.3]偶尔看看II
发表于 2016-11-20 01:30:16 | 显示全部楼层
不错谢谢分享！
[发帖际遇]: huanhuan05花4 个 柠檬买彩票，血本无归T_T. 幸运榜 / 衰神榜
回复

使用道具 举报

liujunbtx

签到天数: 2060 天

[LV.Master]伴坛终老
发表于 2016-11-20 03:01:53 | 显示全部楼层
这个修改好厉害、、、、
[发帖际遇]: liujunbtx为灾区捐款 3 个 柠檬. 幸运榜 / 衰神榜
回复

使用道具 举报

afti

签到天数: 3089 天

[LV.Master]伴坛终老
发表于 2016-11-20 08:57:10 | 显示全部楼层
非常强大的修改！
[发帖际遇]: afti花16 个 柠檬买彩票，血本无归T_T. 幸运榜 / 衰神榜
回复

使用道具 举报

kexiao1223

签到天数: 852 天

[LV.10]以坛为家III
发表于 2016-11-20 11:17:32 | 显示全部楼层
好东西，收下了
[发帖际遇]: kexiao1223扶老大爷过马路，警察叔叔奖励kexiao1223 1 个 柠檬. 幸运榜 / 衰神榜
回复

使用道具 举报

ckc7213

签到天数: 1279 天

[LV.10]以坛为家III
发表于 2016-11-20 12:03:09 | 显示全部楼层
太强了！佩服佩服！
回复

使用道具 举报

nmclib1

签到天数: 2139 天

[LV.Master]伴坛终老
发表于 2016-11-20 21:28:21 | 显示全部楼层
这修改太全面了 ，
[发帖际遇]: 一个袋子砸在了 nmclib1 头上，nmclib1 赚了 2 个 柠檬. 幸运榜 / 衰神榜
回复

使用道具 举报

wjb19780515

签到天数: 135 天

[LV.7]常住居民III
发表于 2016-11-21 09:59:17 | 显示全部楼层
这东西找了好久勒,谢谢!!/ e) D1 B( M$ ^
[发帖际遇]: wjb19780515 发帖时在路边捡到 5 个 柠檬，偷偷放进了口袋. 幸运榜 / 衰神榜
回复

使用道具 举报

tariq017

签到天数: 2366 天

[LV.Master]伴坛终老
发表于 2016-11-21 12:40:20 | 显示全部楼层
感谢楼主分享
[发帖际遇]: 一个袋子砸在了 tariq017 头上，tariq017 赚了 4 个 柠檬. 幸运榜 / 衰神榜
回复

使用道具 举报

datone

签到天数: 2218 天

[LV.Master]伴坛终老
发表于 2016-11-21 19:36:29 | 显示全部楼层
感谢楼主分享
[发帖际遇]: datone辛苦发帖，赚了 1 个 柠檬. 幸运榜 / 衰神榜
回复

使用道具 举报

迎风飘扬
头像被屏蔽

该用户从未签到
发表于 2016-12-2 15:48:07 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
回复

使用道具 举报

qinxitong

签到天数: 347 天

[LV.8]以坛为家I
发表于 2016-12-7 15:53:12 | 显示全部楼层
谢谢分享
回复

使用道具 举报

yoyo2720

该用户从未签到
发表于 2023-7-28 22:49:06 | 显示全部楼层
看上去好复杂
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|国治模拟精品屋 ( 沪ICP备15012945号-1 )

GMT+8, 2026-6-5 22:33

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表