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

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

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

[复制链接]
yandagui

签到天数: 39 天

[LV.5]常住居民I
发表于 2016-11-19 22:19:45 | 显示全部楼层 |阅读模式
本帖最后由 yandagui 于 2016-11-19 23:11 编辑 1 k3 N: i4 U9 z* w
6 V! w+ t( I; w( j1 q, z1 z/ F% B
     [FC][魂斗罗旋风终板END暂停显菜单]
# r; v( I7 A4 ]" D# l- I6 m" v
作者:FlameCyclone(flamecyclone.ys168.com)1 C8 j: S% t' I) V1 [
时间:2016/11/19 21:46:00
2 b9 ?) \: }  Q3 L' |* E更新日志:
" l$ T$ E4 x+ V5 N$ B1 y% O5 I2016.11.19:加入暂停显菜单(共5页).
5 J$ D7 c- E3 b, n7 l! @( H, p2016.11.12:加入无限跳跃." t2 y1 \& v% O, M9 ^
2016.11.12:加入速度调节.( P& C8 K" o7 R  e4 q  c' k
2016.11.11:加入敌我子弹对消功能.7 `/ s/ S, @. j" v+ H* B$ P
2016.11.11:加入全屏闪灭功能.
& d" f& ^6 g# K& u& K8 q$ |" q2016.06.08:加入全屏瞄准功能.
3 A3 t% S. n" I: x+ X: g$ |2016.05.31:加入弹速调节功能.2 s  }" S- T6 _( X7 r7 V; J
2016.01.01:加入高难度模式.4 R6 S$ l; L8 v4 @2 v
2015.12.12:修复消除威胁不足,使得移动BOSS关卡(第2,4,5,6)正常通过.
9 v+ Q2 {. I3 R7 I3 s! U2014.07.05:由于对打功能不完善,直接去除,更改为生命锁定.
" ^! M; ^( c! Y8 X2014.07.05:双人切换功能优化.1 _  V+ x) Z, G" D
2014.06.01:修复第三关浮空到BOSS前必须关闭浮空后跳跃才能见BOSS的麻烦.1 W- s& A% z6 W' M$ j* I) X
2014.06.01:取消生命锁定,改为生命锁定模式下剩余生命不会少于一条.
! V2 O+ N: {& P$ l8 O1 I2014.01.18:修复GAME OVER字样只有G和O的错误，原来想拉大字母间距离，看来行不通.
, a; c7 K3 Z3 ], t; U2014.01.18:浮空模式下，P2飞行高度未限制导致死亡，原来是指令本该用绝对X变址的被用成了绝对寻址.4 `# p8 Z) b" G( g/ g0 _- L7 G
2014.02.08:拿手机无聊时又发现一些错误，所以修正生命剩余勋章显示的错误(某天用读卡器插在DVD上测试发现机器读不了卡，原因是目录级数超过三级，只有刻录成光盘来测试，结果发现生命勋章的显示竟然无压力!)
1 O! b  g; @8 @1 O2014.02.13:加入自动演示通关.
2 `% C' j  @3 E+ _: E: v9 c内容：
! y7 w* |- Q* ?9 |23.暂停菜单:        暂停后，自动显示菜单,选择键翻页,方向键和BA键进行各种功能的开关操作.; p; k% C' k; P2 ^% M
22.无限跳跃:        暂停后，选择键4次，按下开启,开启后游戏时无限跳跃.) K/ `& L% n2 D$ h' g
21.速度调节:        暂停后，选择键4次，按左右调节行走速度(0-3级).
( u( J. a$ d5 `4 A# m. g# V8 }20.子弹对消:        暂停后，选择键4次，再按A键切换,此时敌人子弹可以打掉.  z) o( R9 r. k7 o/ U
19.全屏闪灭:        暂停后，选择键4次，再按B键切换,开启后游戏时按选择键屏幕内敌人闪灭.2 Z. K+ o2 T9 m1 n5 `
18.全屏瞄准:        暂停后，选择键2次，再按B开启/关闭,子弹对消开启时无效.3 x/ B) [1 }. x! |7 w! ~9 ^
17.弹速调节:        暂停后，选择键3次，下开启，非暂停时按选择键调节,默认为1级,共5级.' d" T% k9 X0 N) p5 E
16.困难模式:        暂停后，选择键3次，右键切换,我不相信你能够无伤通关.1 K2 A, u/ u# P
01.子弹切换:        暂停后，选择键0次，上=快S，下=快L，左=快M，右=快F，B=快普通，A=取消当前子弹加速状态.
' m" u8 ?7 m  x* z02.无敌锁定:        暂停后，选择键1次，上开启/关闭，不用讲了，金身无敌.2 ~7 v1 z. }) B! G5 [( A
03.生命锁定:        暂停后，选择键1次，下开启/关闭，生命锁定为16条.
3 T" Q( @- y" }; C) S0 F$ q% e8 o' u* w& h. t04.角色双控:        暂停后，选择键1次，左开启/关闭，无非就是主机控制副机.
' E* S' ~( N) @05.生命底限:        暂停后，选择键1次，右开启/关闭，锁定剩余生命数不少于1条.
( ^0 j8 n8 s9 \, J/ b6 J" x06.一击必杀:        暂停后，选择键1次，再按B开启/关闭，即使是第8关BOSS，一发花生米依然要其老命.1 x; }% f! u/ C# q5 H' ?4 S) l8 Q
07.角色浮空:        暂停后，选择键1次，再按A开启/关闭，第三关浮空时按选择键向上卷画面轴.. @* o; M7 _! v3 E* g% t0 ]9 Q
08.弹数加强:        暂停后，选择键2次，上开启/关闭，此时所有子弹发射数为15发.0 c) r3 |6 ^8 i$ U8 k' r" L+ n
09.皮肤更换:        暂停后，选择键2次，下开启/关闭，主机开启时橙黄色，副机开启时为蓝色.9 S: W& d% v6 S) e$ ^* `& H% ^$ u. H( M
10.混合子弹:        暂停后，选择键2次，左开启/关闭，此时连射时所有子弹混合.
4 r; C! B5 e# a11.敌人锁定:        暂停后，选择键2次，右开启/关闭，此时敌人原位跑不动.& e* O# ^9 [3 e) Q+ `) J
12.跳过一关:        暂停后，选择键3次，再按B使用，使用后可以直接到下一关.
2 b- X, B/ P7 c5 X! Y$ D% X; u/ S8 a13.单双切换:        暂停后，选择键3次，再按A键切换单双人游戏模式.$ @5 ?. [5 E: Q9 C: @
14.子弹方向:        暂停后，选择键3次，上开启/关闭，开启后发射的子弹攻击方向会随着操作的方向按键变化,第二关和第四关的小关建议关闭(开启的话打中敌人太难了哦).
+ C0 o; o+ d; k( p. g* z15.消除威胁:        暂停后，选择键3次，左开启/关闭，此时游戏时按B键使得移动物体被消除。5 _( m+ K# p  ~, R& X+ m" G7 I4 h
A.做了一些汉化(小字体),剧情,关卡名及通关后的文字未汉化.; _: C% P* o5 t# y% ^. c+ F
B.自动演示通关,双人合体打通关,演示时有背景音乐,通关后一样会有结尾及恐怖台词,之后游戏进入选关(相当于游戏自动开始了).注:通关后P1及P2会获得16条生命!也就是说看完演示自动开始后第一版有16条生命!5 b+ G8 J  ?3 {) J! v  f) X4 i9 u, k2 c
C.生命显示加强:最大显示15个剩余生命勋章!电脑端请开启精灵超过8个(这样勋章不会闪烁)，手机端认命了，不过不影响正常操作.
  i) C" q9 M: I; i* |: C$ G  C- }4 j3 T, I( K6 U% v0 [0 v
    如果有什么好的修改建议，恳请通过QQ（1490868135）联系我(也许我不在线，可以留言在QQ里); K1 W/ t7 z( H$ V
欢迎大家转载，转载时必须注明出处.+ V: E& E1 m2 _  z" ?$ w. W, E* v) e2 u! A
+ [1 l0 W' X* p' o/ u
游客，如果您要查看本帖隐藏内容请回复

+ L$ |) C; V6 N6 H. g/ E
+ t4 }* j7 P9 `9 ]9 L忙了一个星期,觉都没睡好,眼睛也疲惫不堪啊.终于找到解决方法了,目前VIRTUANES运行不了,请使用其他模拟器玩.
6 Z8 v& X; H8 S8 ^  v0 }& h" R这几天的劳动成果如下:
  1. .ORG $B400
    + h; w3 c0 G6 {' }: p! W
  2. ; l; j& p! X' J8 M# m

  3. 4 X, p+ `$ J* T+ B; y
  4. PROREG:
    ; Q/ o- ?( ]; }- [9 ^
  5. PHA
    5 q' _; A! J! v
  6. TXA
    9 E$ K# p2 o& U" J( L1 k0 m  j" Z
  7. PHA! U3 U2 o/ U; u
  8. TYA) ]0 o" M+ T& Z3 g2 T
  9. PHA
    5 g7 V$ _5 E) k6 ^
  10. LDA $25% V3 F5 g( Q6 ?0 J, Q' m, `- w$ ?$ b5 h
  11. CMP #$01
    ) {/ T% A# `/ ~- I2 f' D" v
  12. BNE RE
    8 S8 J' o+ m& x2 ^1 a
  13. LDA $010A4 t4 u- s9 `/ e' m1 u
  14. CMP #$00; j. X: }' L# f! q  s
  15. BEQ P1  r8 r! {. h, M: ~

  16.   Q. u6 `% m- b" L! ^  ~
  17. RE:
    5 |. c1 R5 }2 p
  18. JMP PPUWRITE
    ; @7 C7 I# f. y
  19. : P: D9 @  l* o
  20. P1:                ; 条件判断2 `3 [9 `; L# `
  21. LDA $7FFF1 _/ t1 I2 n6 u- V4 O
  22. CMP #$FF
    7 n" C1 u6 u8 ~2 [+ G
  23. BNE P1RP' j* g" v0 l# S/ ?2 u* j( i- B
  24. LDA $7FA0
    . f4 t2 {" L" I3 E
  25. CMP #$002 I& ?, G. |9 b$ g1 b& Q! v8 J
  26. BNE P1CMP9 ]0 s8 N% s0 Z1 e1 L! h6 o
  27. LDA $2001$ T: r9 C3 q+ |+ ~
  28. PHA
    $ t7 f/ P2 r$ T* w; {+ a3 {3 f2 q
  29. LDA #$00
    ; Z) g) v( N9 x' l4 T& I
  30. STA $2001+ i) Y% O6 |8 W/ x, _1 x* h& x
  31. LDA #$FF
    9 p& i, k- a% D$ T! J
  32. STA $7FA0
    8 g7 U: B# n) }$ O4 o
  33. JSR CLEANA
    " T1 g& ]0 B1 O2 D. I( j' l
  34. PLA7 f5 Z+ g, M( _1 j; k+ f) M) I& x
  35. STA $2001
    " X' |1 j% O. \- [( R
  36. JMP PPUWRITE
    ' S; s" P- X' i. H% F* [
  37. P1CMP:+ ]1 ^4 \) _! a
  38. LDA $7FFF
    : ], f% v2 q( m
  39. CMP #$00" b1 c  v- \7 a: d5 ^) i/ h
  40. BNE RE
    , ~5 Q. B: k$ H
  41. P1RP:
    $ j( D( }6 V7 L8 C, P0 N* ^2 o
  42. LDA $2002" x' H, J4 S( s/ S: ]5 T. z% z" O* D6 c
  43. LDA #$00+ d& \# o& Y% O
  44. STA $2001
    3 E" x  \% Y# N2 @' [% v
  45. LDA #$FF
    1 Z1 F) D9 I- ?4 b( N( R$ l  u/ C/ F
  46. STA $7FFF5 K) f6 o# E% K9 D, _
  47. STA $7FA0  }% N+ J1 `4 z: t4 m; @4 G
  48. JSR COPYPPU" X& a* _9 M5 k; C
  49. PIRP2:
    1 l& q0 G7 M" q# b8 {/ o/ U
  50. JSR CLEANA3 E1 L% G" \/ V
  51. JMP PPUWRITE
    8 {9 u( D' f. o! G

  52. 9 K0 e" S- C" y. k
  53. COPYPPU:2 U7 M3 p" |' q
  54. L0:
    3 O/ G1 a( d% ~9 m: }
  55. LDA $301 |+ W  r2 R5 Y8 e+ `
  56. CMP #$02
    2 \" `) q6 ~; |" c  J# u+ ^7 W& r
  57. BNE UNPROFC: j" r3 y- ^# ~4 z
  58. LDA $FC
    2 S. E! z' s! r$ J1 g7 i
  59. STA $7EFC
    7 ]! V9 r8 m/ R9 X
  60. LDA #$00# v5 x. l9 n% ]  K
  61. STA $FC8 m) U0 m" B3 f, Q  f" d( }8 N
  62. UNPROFC:
    & N0 ?) n5 O: i% T
  63. LDA $FD
    . x/ Z0 O8 R& v- R) v
  64. STA $7EFD
    - g* l  x: E5 m( ]" [. h- C# r* i
  65. LDA $FF# a* U* }4 A, F/ v% o; e% l' m
  66. STA $7EFF
    ) Z# i/ T" }; o9 ~) m
  67. LDA #$00
    $ H2 m% Q6 |7 I4 H
  68. STA $FD
    " b5 l. U" j& ^/ k8 S" N( L; V
  69. LDA #$B07 D% u  Y" t4 d3 u3 W* }, S4 _4 x
  70. STA $FF
    # L2 T3 i$ z. B9 C0 I: Q+ f
  71. LDA $07C1
    4 c+ B1 m9 `: H' h( m& n0 K& e
  72. STA $7FC1
    " u6 Z4 I1 o+ R; \) q$ J
  73. LDA #$3F2 e  j4 h2 y9 ^" q% r* Q- B
  74. STA $2006
    * W8 p  K1 L9 g/ z7 K
  75. LDA #$01) a+ M& G! Z, m7 x9 E9 \  O7 `
  76. STA $2006
    ' l( m7 K- l% U  t
  77. LDA #$24
    2 s- c9 Y: G  `! F# b+ Y" `3 S  p
  78. STA $2007
    6 S5 p3 ?1 x  G' q1 T! @
  79. LDA $07F6
    & D/ g, @( g7 y/ R8 c4 f
  80. STA $7FFE
      Y7 y5 [2 V. Z1 H8 ?7 x
  81. LDA $00FE
    8 b# ?1 l+ I( B4 d: J
  82. STA $7FFD
    ! u# E4 u) {4 M* G+ j% P- t
  83. LDX #$00
    8 L* y  D8 e) R  x5 \
  84. LDY #$00
    4 C/ D! j5 a+ X7 Z' Q
  85. LDA $BD- n& H% Y  j! A( S  _0 R+ B
  86. PHA, K& x, k5 j! k6 J! D
  87. LDA $BC' g; Y# u! r9 d- \" X% ]
  88. PHA
    2 H3 }6 z$ g) j, K, S1 ?
  89. LDA $BB
    8 p5 j1 p7 W6 Q, d6 G0 L
  90. PHA* Z1 B% m" h5 N! ^. i
  91. LDA $BA* B. V0 {, [& n! g
  92. PHA
    4 q( u" u: L5 [! y
  93. LDA $B98 r* d' E- X% K' h* L% b
  94. PHA
    . Z. e9 E' O- @' i, V1 r) o
  95. LDA $B8
    3 m4 U$ c0 }) W3 H
  96. PHA1 M. ?* u6 Q" O, b& o& _- P, h3 {( S
  97. LDA #$00
    # ^! Q+ \. K6 I" z* e
  98. STA $B8
    & x3 P) ~/ ^2 ^
  99. STA $B9
    # E, v, {+ q, R1 |
  100. STA $BA
    ( x( N* d* q( B8 v
  101. STA $BB
    5 _3 j" w& @4 z) Q3 X4 U! f
  102. STA $BC$ O8 x, Q: J; _. ~5 J9 M7 b4 P
  103. STA $BD
    6 R; n. J# I0 N/ l2 E' C
  104. LDA #$00
      X, u8 Z7 g7 A% {" g. v% J
  105. STA $BA
    8 H- c9 V$ y9 T4 O  L8 \: |$ v
  106. LDA #$20
    ) n/ o. t! @3 G: H% p
  107. STA $BB
    4 k/ v2 `, k- Q7 }
  108. LDA #$00
    , Z8 _# K& q% z+ d5 W/ L7 d  s# a
  109. STA $BC' t; k6 c) j+ @; P: z
  110. LDA #$60
    5 R8 X% ?: Y3 @) w' _+ x
  111. STA $BD- {# y2 R- o8 N" o% o
  112. ; |2 y$ s8 l$ Z
  113. L1:                ; PPU复制- K( r4 q9 v' A& O
  114. LDA $BB
    + Z- h4 n- s  t( N& v4 L
  115. CMP #$30
    / u! v% K7 U. [/ G: p2 c- l
  116. BNE L2
    ( d" m1 P& P! o* m: O9 n/ R4 r( A
  117. LDA $BA
    - p+ _, A6 z/ }
  118. CMP #$001 n  m7 l) J& H6 U5 ~
  119. BEQ PROADPLA8 V# N! w8 ?% {- K! H+ w0 g1 D
  120. - a# D- N0 b* _8 V
  121. L2:
    ) \' H1 N$ q7 z6 T) `/ r: t
  122. LDA $BB  S, P, U0 v! w5 c
  123. STA $20068 D6 _  F: `' ]- @" g
  124. LDA $BA
    9 t' @; I6 Y6 o: q& {' H( H
  125. STA $2006/ c9 I  s6 z" |8 e" |3 }# F6 k
  126. ! j7 A  l, E: d- \
  127. L3:
    . g/ j0 h& i4 d: |% ~/ P
  128. LDA $2007" V/ }( F* G. ?: b
  129. LDA $2007
    ( A; C! x0 M7 I- _3 U& A5 T/ D
  130. STA ($BC),Y- l1 |, x, W2 a9 S5 K; A, B: W, `
  131. ' [( i+ F8 c" ]4 ~' B$ ]# x! c' o
  132. L4:" L6 F+ r, j( i. G; M" |0 D* U
  133. LDA #$00
    ) a* ^( j, r  T- `# F8 P- n
  134. STA $2000
    $ z* [9 ^) s5 u
  135. INX
    - l. a  M4 u" e2 Z" }( n
  136. INC $BA; y* ?  t. t, f  ]$ R5 t
  137. INC $BC
    $ L! \0 B( }# |8 l
  138. CPX #$008 Y2 t. E3 c' \& f
  139. BNE L1
    : `" J$ _3 x: B4 u, W% g" g& G
  140. INC $BB3 a# N* k1 f* k7 \" P. F+ m
  141. INC $BD
    " x% N/ B) O+ [
  142. JMP L18 d/ O; p$ Z* r$ \0 |7 c: K' O
  143. 5 \' l  |/ m9 A' g6 Z: |
  144. PROADPLA:                ;出栈2 h' F! P9 r: {4 h! X+ c! ~
  145. PLA
      F6 w  ?: `2 n% T1 z, K" A, u- F
  146. STA $B86 y, Y2 {) ~4 F+ E
  147. PLA1 b8 Y# J! {* X0 r  l' g
  148. STA $B96 Q: j6 K1 `' q, u1 q* W& M
  149. PLA8 z  m% Y4 e! M  M+ h: r% T0 ?+ M
  150. STA $BA. t: |* q: R3 r8 E- L
  151. PLA) R; \4 L2 O7 k  W* K
  152. STA $BB
    . e5 o, Q: H1 Z, ], y4 Z
  153. PLA
    . F& S/ F$ ~* ~) a+ |5 T, H) ]
  154. STA $BC& o% O3 O; [/ {
  155. PLA
    7 m' I9 ]& V$ |9 I, G+ x3 L- Y1 f
  156. STA $BD
    5 n/ i5 f1 M, C
  157. CPRE:
    : d% }1 L1 D9 F5 L( A( L1 Q
  158. RTS
      S) @" M* u/ I

  159. # H9 `0 ?5 u7 A1 r) }! V
  160. CLEANA:                ; PPU清空
    . n8 O, r, h! V/ q. s
  161. LDA $BD
    " I5 L- s' m) P& m: B! s
  162. PHA
    , O7 A6 `( L6 t2 O: G
  163. LDA $BC4 e6 O" S' r* ]+ L
  164. PHA$ y! i0 n3 X4 z' E& Q/ ^
  165. LDA $BB0 N1 x+ h# W, f- ~
  166. PHA9 W5 l1 C4 z# m# u- w" o
  167. LDA $BA( z/ Q4 F# i4 w+ Y0 \- L! d
  168. PHA
    ; H( B, L( A- D' {: w. T
  169. LDA $B9
    % W" G  K6 ]# o, }- K% c
  170. PHA0 K& `- q* r2 Q$ k# [. o
  171. LDA $B8# p! K% q0 K- C2 H! Y+ D
  172. PHA$ H! k4 z8 g+ C, L$ e
  173. LDA #$004 z9 J; G+ |$ K" J* U' W! c
  174. STA $B8
    2 K  g1 k/ o- c+ L" o1 e  M4 S0 j/ B
  175. STA $B9
    4 m, ]! e* [" _# x( [
  176. STA $BA
    & d& O  ]. H* R; G1 U
  177. STA $BB
    0 L: t# H9 V; a$ g4 P  Y
  178. STA $BC
    . v  y' j5 s1 i4 @+ L7 }: A
  179. STA $BD: I6 `* J, {" v0 |* e
  180. LDX #$00
    9 i8 ^" Q; u  c( E: I+ {+ p  L
  181. LDY #$00
    . R% B  i8 \. V# S( \
  182. LDA #$00
    ) h+ s0 r6 w2 ?3 C) b4 `, o6 A' C
  183. STA $BA
    0 y6 A/ N1 m, ]! \6 H
  184. LDA #$20
    / o$ Q, d  F7 d  ~( q- m" a
  185. STA $BB
    - g, s, \" x3 h/ ^; G. {
  186. % U- d3 L# V, W0 U1 }- p( f8 [
  187. CL1:8 F2 h& M6 r6 N# U7 x
  188. LDA $BB
    / s* c7 r" b  F' o7 X
  189. CMP #$300 o* F8 W- O6 w3 t
  190. BNE CL22 Y0 G: p  p1 y/ S6 C
  191. LDA $BA. O8 N0 C) v4 b- t2 F, w# i
  192. CMP #$00
    8 L  W# x& u2 Q; g7 l7 A( v# ?
  193. BEQ FREEWRIYE
    * j) L1 {) x+ U" I0 f6 ]9 c+ {( t  o
  194. 5 g  @7 `8 P! |5 s+ T  q7 B+ O
  195. CL2:
    8 c. G7 h  d3 R5 h/ p# g
  196. LDA $BB
    1 c6 T" {% t" P
  197. STA $20067 @; E. R  t( X5 h5 u! a- h8 A4 q$ @
  198. LDA $BA6 D" F" T# u7 l) `8 Y
  199. STA $20069 b! Z7 @: E# b" p( r

  200. % x% a2 t2 \+ U* C7 x1 @, S
  201. CL3:2 O, l" t, k* Q7 n# J+ A
  202. LDA #$00
    8 H! @: F: h. P2 q. o/ x+ \  r: s, k
  203. STA $2007; m2 z* P! t1 g8 o+ Z
  204. 1 F+ ?# F% I( q7 V% R0 k
  205. CL4:
    8 T0 N  v. t; N
  206. LDA #$00# @; V2 }9 q' A% y
  207. STA $2000  z# V/ b; G- ]5 \' H
  208. INX8 r3 s. w- ?3 m2 S) D
  209. INC $BA
    2 J( u8 N" X2 L+ _0 A& D
  210. CPX #$00  c4 `. k% f; P
  211. BNE CL10 b" N  K3 B9 T) ^6 o8 M
  212. INC $BB& S0 s8 G) d0 ~( a" W
  213. JMP CL1 + A3 y! g& e) M# J; `* g$ g5 q
  214. # S# ]$ X( U3 o4 N3 E

  215. ( H) a( s6 d# X
  216. FREEWRIYE:1 T2 i  G" b  S8 x# L
  217. JSR FREE$ A" u; G4 V$ u) B* L, u
  218. : q1 H& p3 q0 H7 W* r( [' Y

  219. " ?+ ~& C# P: a; T' x

  220. ) q( \. A8 u' h

  221. : R. e9 r$ |$ ^. X( F

  222. 2 M) w+ t# t8 B" B7 L3 X
  223. CLEANF:                ; 恢复现场3 V1 E/ @6 b1 G0 _
  224. LDA #$084 S5 D  F" Y; e9 T0 u
  225. STA $FE
    + P( G2 V- N% }
  226. LDA #$006 A( x- C: h  k4 O) H. s
  227. STA $07F6- ^: H( J( Q- k" v( p1 x
  228. LDA #$24
    * G7 p* ^1 G- P* e3 V
  229. STA $7FC0& ]: u6 ^2 ~$ P% i
  230. PLA+ ^2 x, _- f8 u* E0 _; w
  231. STA $B83 v- E2 t8 J5 t* @
  232. PLA
    . c& C& x: |- U1 M9 m
  233. STA $B99 r& |0 O( h/ z% A# y  u9 @
  234. PLA
    " X. q8 @5 h8 E2 V) g/ P3 h
  235. STA $BA
    ) N" x2 Y( O. C  Q8 X3 ]
  236. PLA, F) N9 ?' h; F  |3 l  S  b
  237. STA $BB3 X3 ]3 }( q7 b7 C7 R$ U
  238. PLA/ a6 p# X( z; J% a0 Z6 D6 S/ H
  239. STA $BC, I( a: C4 R# p9 r3 w0 m
  240. PLA6 ]5 W* m$ |3 D9 B
  241. STA $BD  W& o  Y; u: O
  242. CLRF:* s- `# U- K$ c
  243. RTS% n, K6 J$ e* t" b
  244. ; _% Z' V# Y6 R8 {7 k( g1 I
  245. W_DATA:: T6 x- n0 P! j; [  ~6 O, t1 N
  246. .BYTE $00,$01,$02,$03,$04
    5 |" C4 q1 A$ ?
  247.   
    ' A8 ~" J0 B7 F% X6 Q$ k
  248. W_PPU:& C5 d0 L1 e2 P! D# R2 e
  249. .BYTE $98,$97,$90,$9D,$96# N- p; L. _( X# [

  250. . R) t' q- z2 c4 j
  251. P1_STRING:
    / R& R5 W8 P/ P% d6 @
  252. .BYTE $9A,$82,$00                ;"P1"/ t% d. j' r3 t. {. s
  253. & B/ }0 C1 H3 M$ s( i* r1 B# r
  254. P2_STRING:& D  T7 G0 c3 Y
  255. .BYTE $9A,$83,$00                ;"P2"
    ! h. d/ j  E3 r0 V4 R

  256. # X  @# y* _: v  U4 w" E
  257. WEAPON_STRING:2 B: @, c/ S# j" m+ Q
  258. .BYTE $A1,$8F,$8B,$9A,$99,$98,$00  ;"WEAPON"- Y+ {+ F/ L5 _0 i% O8 o' L

  259. ' J' X* J. }3 s. O' F  Y1 T- w
  260. RELIFE_STRING:
    ' _  N, g) I$ K# i- d
  261. .BYTE $9C,$8F,$96,$93,$90,$8F,$00  ;"RELIFE"3 E* m  ]) u0 W3 ^6 _* j9 Q! \
  262. % l! I3 N$ g( n2 [
  263. P1_PPU:
    # x9 v' Y2 n  {+ l: E) S9 J4 V( Q
  264. LDX #$00
    8 ~, t2 X5 `1 W1 p

  265. % u4 |. X9 u4 q, |% _, b+ u  s' r
  266. P1_PPUW:$ K2 V1 ~: Z- Q5 a1 |: G* E/ x
  267. JSR PPUADDR_PROCESS
    6 r  ]* P8 c* `- O- h
  268. LDA P1_STRING,X
    + g3 K3 i; h# O$ v; j* p3 y6 k4 k
  269. STA $2007
    6 \* H% K) J- |# }/ s7 H2 K
  270. INX
    / a; V5 B" l: y/ G+ _" C6 H
  271. INC $BA
    3 Y% G7 y7 N* V
  272. CPX #$03  L; B: J  k" P3 V$ i+ E
  273. BCC P1_PPUW* w0 \8 D# i2 e8 C" P6 ~
  274. LDX #$00+ C4 ?7 s+ h& C3 V* Y& R8 R
  275. RTS' |4 d2 Q/ c# R
  276. 7 T% ^% \  e8 c+ q7 S6 p  O0 R
  277. P2_PPU:
    2 o4 K# B& v0 V" A7 f- Y% u3 I
  278. LDX #$00
    6 J3 N% p$ G- A/ V2 I, G1 N
  279.   d) F6 |5 f8 L; U0 O' L
  280. P2_PPUW:: t. a4 m" k1 N/ p. k0 V; e( I
  281. JSR PPUADDR_PROCESS
    3 W! q2 H; q: f) k( @% i& _( e
  282. LDA P2_STRING,X
    + ]6 }7 _. ]" G6 E
  283. STA $2007# ], s& Y; b) P- j' M# ?
  284. INX6 O8 D5 r. _: f0 c  V, l  f
  285. INC $BA( n5 V( y7 j$ `4 h
  286. CPX #$03, U! K9 c! i" B: b9 U
  287. BCC P2_PPUW
    3 v3 o, D" L+ p" J! g+ n
  288. LDX #$00
    + E0 C6 T5 c! p* q! H& q7 I# [( i% e
  289. RTS/ L; E6 s$ O" y9 w4 T* v

  290. 0 S" a$ h9 E* k& C( [$ K% T

  291. $ d# m" [2 ?5 G& ]/ f( T- q, r
  292. LDA $BB" k; P. T$ S+ _: }' \
  293. STA $2006
    1 r+ F" _6 |  ]4 T0 i' \
  294. LDA $BA
    7 G9 @0 m: N, a) ]
  295. STA $2006/ U+ C; L* r  I
  296. RTS
    2 b/ N3 c& {5 B. M8 U
  297. ; P1 F- f# {/ M* A) |

  298. . ~0 d' R- ~! o  y" U$ d) A
  299. - j2 N4 I, Q$ o& h6 ?3 f
  300. PLAYERLIFE:% t3 _3 x* I- ^9 r4 ?+ R9 G
  301. JSR LIFETODEC
    2 m& {6 s( P0 z2 z" Z, \
  302. LIFEPPU1:5 m# V3 m' @# R; z- Y
  303. LDX #$00
    5 p1 j" B) C6 Y( w
  304. LIFEPPU1RE:  Y7 r% ]$ Y" J9 v! Q2 q
  305. JSR PPUADDR_PROCESS% {: g8 o4 u+ ~9 @
  306. LDA RELIFE_STRING,X
    . s8 `' q* [8 |9 {4 a1 E
  307. STA $2007, P2 k4 K; ^8 ?
  308. INX
    $ S, R0 p$ T. X3 D6 r
  309. INC $BA
    8 w/ W$ g6 W4 {) Z! Z. f* n$ U' ~
  310. CPX #$07
    : m6 X. {# h# q, V" M' R
  311. BCC LIFEPPU1RE
    ' h8 m( o+ b8 s& t' k
  312. 2 {7 ^% n1 ~9 s+ z6 H
  313. LIFEDEC:                ;生命显示写入
    2 F6 A! i! G( y1 ?3 {: A
  314. LDX #$002 S+ J+ s5 D8 x
  315. LIFEDECRE:
    & V, e8 R/ Y2 k) m7 |+ z6 V8 X; d
  316. LDA $7A03,X
      A4 B) [7 B( u$ Z
  317. CLC
    $ }7 \8 |5 e6 C5 U  u7 @! B
  318. ADC #$81$ u3 t2 F4 I* C
  319. STA $2007
    * X' u$ n1 k+ q; g& V
  320. INX2 {- h. u5 S* L  H3 X" U/ }
  321. INC $BA1 G) \3 J+ N/ L$ @
  322. CPX #$03. g  h- I4 S- [' P' P. v
  323. BCC LIFEDECRE/ I$ h7 O8 Q' T* S
  324. LDX #$00
    ; q) p; Z2 e; Y$ z; A% j7 F2 n0 S
  325. RTS, L2 D# k- k6 Y2 w( @
  326. # J7 A: U+ z) X
  327. LIFETODEC:                ;十进制转换2 W& s) h0 W) A2 @
  328. LIFEL1:        ;initialise2 S& {1 r! P0 Y. t% K
  329. STA $7A00        ;$7A00=F33 y- T' V  M. s& ^5 u1 \
  330. LDA #$00
    5 v2 l+ S* Q4 d3 h) ^0 Q( U0 k& t
  331. STA $7A03        ;$7A03=00
    0 X  z# ?! O* F( I7 k2 k
  332. STA $7A04        ;$7A04=00
    & j' _4 e, L: U) ?' f
  333. STA $7A05        ;$7A05=00
    5 t; H9 t# y- P. z. J! S2 G
  334. LIFEL2:        ;copy data $7A00 to 60010 y. X, `6 p" Z6 B" }% j7 b
  335. LDA $7A004 u7 p1 @! N, p  \7 O# B9 i: T0 f  S
  336. STA $7A01; Y9 T2 @! P% i" g' `

  337. 7 o: N( w2 s' F$ B
  338. LIFEL3:         ;hundred
    # e* n0 L3 Z  r' j7 e
  339. LDA $7A01- n6 D9 A# E0 b3 |; r8 f9 k) T
  340. CMP #$645 K! \4 I/ M. i4 O  Z& z5 q# y3 L( V
  341. BCC LIFEL6                ;$7A01<100 goto L6
    * f+ d8 x: Q# R7 U: h
  342. LIFEL4:
    3 x0 F. a3 f0 o4 F  X% n. Y  o9 _9 f
  343. LDA $7A01
    9 [6 z5 e! U6 P9 Z2 Z1 q3 U/ k/ z
  344. SEC
    8 I( }& r$ s  M- a9 l
  345. SBC #$64        ;$7A01=$7A01-100" W. |' O) s2 n+ T& I$ G' E  }' ~8 _' `
  346. STA $7A017 H, f! G6 k* L. o# g  f/ Q6 U
  347. INC $7A03        ;hundred++
    - k9 v# {6 v0 x$ P. |( Z
  348. LIFEL5:/ R9 K; A+ q# Y8 r
  349. LDA $7A01
    5 y& c+ C6 T% J# Y6 H
  350. CMP #$64
    4 I/ b$ V! p: C: z4 I' J* h
  351. BCS LIFEL4                ;$7A01>100 goto L4
    3 o5 m' B5 n9 d* ^8 W. b
  352. ( l" _3 W0 S# Q) O
  353. LIFEL6:        ;decade
    2 a+ S* E( J' u- F. ~: s+ n
  354. LDA $7A01
    # f7 g, h7 P7 _
  355. CMP #$0A$ G% k; V3 h+ Y( j' L; M% x
  356. BCC LIFEL9                ;$7A01<10 goto L9- J+ @8 z. @( P
  357. LIFEL7:       
    - T; `1 T" h7 o
  358. LDA $7A017 ?0 i6 ~8 l8 B" o
  359. SEC
      Z1 V9 c- X  _3 T5 N) q$ L
  360. SBC #$0A) m  u) p8 ]3 G  A
  361. STA $7A01        ;$7A01=$7A01-103 d! F  I- v7 e  W
  362. INC $7A04        ;decade++
    . G2 }4 m# p4 G, P0 i) R9 P
  363. LIFEL8:
    , e$ J% w: C% h, F( L" P. |. i* o
  364. LDA $7A01
    ; w) }' C$ Q, S+ d9 ^+ ~
  365. CMP #$0A, `# \3 ]2 ~) O# D; \
  366. BCS LIFEL7                ;$7A01>10 goto L71 N, L' S: m  _  t- a! ^1 Y
  367. ;unit
    * [7 ]9 g3 k# ~
  368. LIFEL9:
    # M' q) v+ K' C5 p7 |# j
  369. LDA $7A01        ;$7A05=$7A010 C8 C0 h+ n3 A9 w  H
  370. STA $7A05        ;unit
    : N6 q/ |/ n6 ^: A! [
  371. RTS        ;return# C9 H! c1 L4 r5 d0 q$ z

  372. . a0 R; ~4 p) ^3 V, @. j
  373. ) e+ t- X/ K* s: A1 g( \

  374. ' l# i- |$ G& X% M4 J" U
  375. WEA:                ;武器ppu写入
    # j" m" S" ^2 D  M1 i% b
  376. LDX #$00- k* K* s9 p* v% l
  377. WEARE:( ~9 l& _# X/ l4 r% ^* s( D8 L
  378. JSR PPUADDR_PROCESS
    & z( ?4 v9 d/ q# B! c
  379. LDA WEAPON_STRING,X+ `0 _4 E7 ?8 k) ]6 z& k( K7 G7 e
  380. STA $2007
    ) b: z- l% h! I( f8 m
  381. LDA #$009 M% e8 w# ^, P6 M, Z
  382. STA $2000
    . w4 R+ {# W* y: e) ^1 [
  383. INX  Y! S5 U0 ]2 C) q  W
  384. INC $BA5 ]: n9 k9 w& F3 @: W8 L$ j* r+ f
  385. CPX #$07
    $ `( W" D3 B2 m
  386. BCC WEARE: F! N$ \1 Q* e0 Y

  387.   ?  S2 z9 T' p$ g) W, S' d, z
  388. READ_WEA:& a  [8 m: g  L$ K
  389. LDA $B9' p& c& a" j) j, x# O# s
  390. AND #$10  _. n) O% u, I/ h& J" L
  391. BEQ NWEA
    # S5 j6 t! X" F8 r2 [- M
  392. SWEA:+ a$ @7 a$ y" R" Y  x

  393. 9 N6 _2 P9 Z! C) U
  394. LDA #$9D* _, q" I* p( f  |. [  |
  395. STA $2007
      G* {- I3 B- j+ X7 i
  396. LDA #$00
    1 c3 d9 t8 l2 L% J8 n
  397. STA $2000
    , [8 c5 H8 X  k- o' ], ]6 _% G; k( t
  398. INC $BA
    1 s" I8 B, W7 R; d1 P& [
  399. LDX #$00
    7 X$ @( u2 l. ^+ A" O1 A- m: A
  400. JMP WEAREAD
    ! @( \& J* I0 i% U, W/ g9 B+ n% b
  401. NWEA:
    / w& {+ G' R+ y7 V3 o9 f& |/ n
  402. ) B" C! y9 ^+ X8 Y3 b
  403. LDA #$8D
    9 q7 v/ z, D& g* Z& g9 M1 o: J
  404. STA $2007+ O$ H, }" N; ~5 f- S4 z
  405. LDA #$00+ H7 |% ?& B& I" M' C& F* l
  406. STA $2000
    / J" m3 H0 ], a: L& }
  407. INC $BA1 y1 ?5 e2 ^) l' R- U
  408. LDX #$00. e* W: K7 i, {9 [! I# P
  409. WEAREAD:
    : Q3 r2 C* ^0 W0 {% S0 i* _+ k
  410. LDA $B9" i# `0 ~" w6 S9 A* N& G
  411. AND #$EF* J$ H: F% z! x7 ?! d
  412. CMP W_DATA,X5 b- R- F) d7 m- b' N9 D2 l) I
  413. BNE WEACMP
    . s4 q  X4 N/ v

  414. 4 z  J* ]0 q1 {0 M0 \
  415. LDA W_PPU,X. {% O, ~& k8 p
  416. STA $2007, R) `5 j( C3 r, B8 G6 j! {
  417. LDA #$00# m- R; ^2 q, n, F4 x' r
  418. STA $2000
    0 Y& h3 u' E% G1 `

  419. . A% a0 w7 n5 w7 Y
  420. WEACMP:4 n, I, i0 V2 v' r- p! X
  421. INX
    , s+ s: F' J) ^) P3 J$ i
  422. CPX #$05& T3 t  [) }2 M. H- i: M' k
  423. BCC WEAREAD- t8 m0 m# u5 ^1 K( |/ c
  424. RTS
    % c6 B8 c. r3 f

  425. ! O9 A( y$ M8 B& f1 Y. q  n& }
  426. 8 z) c2 f$ ]4 @* S
  427. PPUWRITE:
    0 i* Z1 v& R7 Y* U
  428. PLA# O; }6 K- s5 c4 B
  429. TAY
    7 E" r' C& b( Z9 y# p! q
  430. PLA1 X/ p( O) D  a
  431. TAX0 @  `: f2 H4 {0 ~9 P; g$ v
  432. PLA, s* D( P$ V- r/ E2 d7 O
  433. LDA $25
    : L+ E& h# u3 b% N" u- a
  434. CMP #$00
    * r  G- b, Z5 w5 n6 A0 R' g) f3 {3 b
  435. BEQ WP1! I2 o# t( @8 @4 p4 u7 f
  436. LDA $25
    5 A, [" w# x& c- _; Z$ z' g  ^
  437. CMP #$01, y( y- r2 c+ g8 _+ n
  438. BNE WRE0 b% ?; t$ b. |0 W8 Z/ R
  439. LDA $F5,X" ~  u5 _  I9 o' M5 u" V
  440. AND #$EF9 a, X. c( `( C
  441. BEQ WRE- R# ?3 M( j* q- _+ p4 x) h2 _  c
  442. LDA #$001 n/ G: q! p7 {+ v4 D# k8 ^2 ~5 _3 S$ }
  443. STA $7FA0
    : M* F. I' e* H3 Q# L4 k# t8 c; z0 a
  444. / d; P, S! m2 a# \8 O
  445. WRE:
    - u" o9 P7 e+ X: Y
  446. JMP $A000
    / M- h* f' j8 \# F

  447.   h0 J- O' D% _) a) N  [
  448. WP1:9 y( n+ z( H0 Z4 ]4 Q3 J( p( S
  449. LDA $7FFF" x/ j7 x0 N' X/ z
  450. CMP #$FF* d, s. _( J! H* {" S2 b$ `
  451. BNE WRE5 G& D" z1 e+ i9 v$ d
  452. LDA #$00. P: }' I; d$ l  {- l: H! N' o
  453. STA $2001
    ; P) D  _8 l* H3 z" `/ z9 w9 N
  454. LDA $BD, i# [3 V& B; y" S4 ~
  455. PHA
    ; }6 x: F( {9 l1 q, f6 \
  456. LDA $BC( d/ K. ~8 E6 [  S6 M+ x9 X% l
  457. PHA- ~6 @7 ~9 k9 L9 q: a) H
  458. LDA $BB: `5 y2 F& s7 ?$ o8 t
  459. PHA5 S! {+ {' S! G& o" I9 ]+ v
  460. LDA $BA  S4 L7 C2 O$ S" p. n; z9 V6 R# J
  461. PHA* }( t2 O: L0 S! i( G" j
  462. LDA $B9) [/ X; t5 G6 M! n
  463. PHA, h( }# [5 o# a" l* _8 S
  464. LDA $B8" p# o; M- g; J+ r& J1 F
  465. PHA
    ( P% @" F. E1 E, o" b9 h/ o+ N) m
  466. LDA #$00/ h2 |5 Q+ x# i" _" p' H
  467. STA $B8/ L7 E! J; f( I
  468. STA $B9
    7 P( X) w8 o8 `4 @& U% _2 ~7 e8 |
  469. STA $BA; y) c5 m+ t( L! d% x) i2 o+ @
  470. STA $BB
    6 \: w8 v7 Q: }0 y- E3 E' W4 w& F
  471. STA $BC3 ]) ^+ y, I$ I/ E, _( m# w
  472. STA $BD# T( H. S' P$ }$ O; L
  473. LDA #$00
    ! L$ m: C. c0 K6 u# s
  474. STA $7FFF
    # v  ?5 q7 ]: P- q, J
  475. LDA $30* [6 H# d4 ]# A' O3 l5 ]: L2 `
  476. CMP #$02
    & m! i& k7 K) C; Y8 ]6 C/ o
  477. BNE UNPROCPL
    / l# I/ G! k$ [2 |* M, X/ [
  478. LDA $7EFC
    5 p' l+ Y* \3 e' `6 j. o4 j: d2 l
  479. STA $FC4 P% T' t/ k# G5 G- H2 Y
  480. LDA #$00
    - }0 ^* x3 w) g; x7 N- X
  481. STA $A4
    0 E6 ~( K3 `* h' [
  482. STA $A5& D5 I; r1 k" L0 N- p2 Y
  483. UNPROCPL:9 Z4 R! [1 i; L4 B  T7 p$ z
  484. LDA $7EFD
    * O" T( e0 G( b: E% w
  485. STA $FD: B+ x( V9 o4 K) W
  486. LDA $7EFF9 Z5 J9 t8 `" o5 l- [5 O
  487. STA $FF3 [/ y( p1 r' s) \' b5 R( U
  488. + S* [9 ]8 r. z0 H& a9 t: H6 }
  489. WL0:5 g9 J; _3 i3 W8 d* z' j
  490. LDX #$00' p3 C' F# [5 \. L$ ^$ P, S; d9 r
  491. LDY #$00
    % H6 t7 l/ M0 y( y: Q
  492. LDA #$00  x8 {% M$ g2 n# r
  493. STA $BA8 a& f3 m2 c5 ]0 z% t/ M/ \
  494. LDA #$207 {- C# ]0 L' l" h) g) l8 b1 S
  495. STA $BB3 @& b1 T) t0 E2 M- {  k
  496. LDA #$008 ^# w" o3 h0 F
  497. STA $BC- }5 A+ C6 a0 T$ W3 m8 u
  498. LDA #$605 @, y$ Y& k- x( l
  499. STA $BD
    ' P* S; r* x  H6 q; H# B

  500. - D# o. j1 a. A& h; X# S
  501. WL1:4 {- U) h$ m) E/ U! t
  502. LDA $BD
    0 t* z4 v/ d$ t* z& J6 B6 n3 H
  503. CMP #$70; q& }8 a: M: @
  504. BNE WL2
    6 E: [, x! r( P! t
  505. LDA $BC# Y: a/ |4 G" t! Y& x+ M
  506. CMP #$00
    + ^2 k) m' m/ r# a- T
  507. BEQ WLR+ q3 T* Q* N$ L6 ^# V

  508. * C0 N+ a3 i, f# R& C, _: G; q1 l
  509. WL2:/ G% u% X% }; `' R8 E- Q
  510. LDA $BD
    " \# Y; D. U* h  H. N% Y5 P8 T8 F- c5 J
  511. STA $20061 t; X3 N6 P  D- O4 [
  512. LDA $BC
    ) ?1 q$ [2 H, M5 Z$ b
  513. STA $2006
    9 U6 v% D1 ]; \# d2 a9 Z- ~

  514. % {& Y3 @7 i- m# l9 V3 G
  515. WL3:; B" o2 }: D+ E+ G0 {2 b: p& X0 }
  516. LDA ($BC),Y% `. b3 D8 l9 e9 [% ]7 a
  517. STA $2007
    ( C1 z1 s8 R0 ^$ Z. {

  518. ' A9 G+ t8 l' H3 r- n4 w+ Q
  519. WL4:4 J# v( W! n: G1 Z8 n0 B7 l
  520. LDA #$00- G6 I2 b# p, F  j% m
  521. STA $20007 ^! o3 I3 B3 I1 a4 m1 ~
  522. INX5 v1 b  X5 S; g& ^2 w& N
  523. INC $BA* F  a9 t. Q( d& O0 X% P+ y
  524. INC $BC
    ( s) d) [: C% p) ]0 z- J
  525. CPX #$00
    " G7 {& J' u& R  }/ c
  526. BNE WL1
    " ^8 E3 w8 o7 D  I0 ~( T
  527. INC $BB
    0 c% Z8 Z' n9 ]& t# n1 m" P7 X
  528. INC $BD1 E( U: f, V5 I6 }7 W
  529. JMP WL1. }0 w1 u$ [6 }" Z$ r- Z# ^
  530. ) D6 F. ], V" s
  531. WLR:8 `. G# ]& i4 w6 p9 r
  532. LDA $7FFE
    8 o3 |3 G5 a' V' Y8 r
  533. STA $07F6) q. w; A* y( z; ?9 w
  534. LDA $7FFD
    % L& P3 ?" l+ b' l0 o" j: q# ?" }
  535. STA $00FE2 B/ p+ Z+ t( l; {
  536. LDA $7FC1
    / Y9 c, Y0 V0 J$ k( U, E9 u
  537. STA $07C1
    : a+ X1 z7 T" M7 X; z
  538. LDA #$3F
    7 b% E* ]( `( I# u! R; L" ^# f
  539. STA $2006- y* D- T$ D' P! t
  540. LDA #$01, [( j5 F) y& X) A8 \! ?
  541. STA $2006
    ! C; s' {( S- V* P5 u/ \- N
  542. LDA $07C16 m5 S1 t5 O- o& x; F0 \
  543. STA $2007! l( u8 z' b3 j! b
  544. LDA #$00
    ) \) `% k' y2 d
  545. STA $2000
    ; z; u# f$ d2 K% }
  546. PLA1 c- x2 c- P. g6 O5 [$ F
  547. STA $B8# }7 `; Z9 ~" R
  548. PLA
    ; }8 }. M' @9 ]  Z9 `& U
  549. STA $B9
    2 U5 T& B; c9 l/ B/ t
  550. PLA- o9 p& h2 e! u
  551. STA $BA8 T, b- ~% p( E" E" l4 @
  552. PLA& D* t% U2 J7 O: k1 o
  553. STA $BB" U* O/ R4 k$ m
  554. PLA( J7 `* y5 J# x; {
  555. STA $BC8 T% P, K6 w5 O7 U2 e
  556. PLA' ?( ~0 o9 K; `
  557. STA $BD
    0 w) F( W# y/ S3 i" f0 p9 }
  558. JMP $A000
    5 }% u9 W# I- R) C
  559. 8 t; l3 E- m. B' K9 ~% G+ n
  560. FREE:                ; 暂存器保护
    ; a( _' A) B1 m* g9 E
  561. LDA $BD0 e9 ?! r3 M( |2 O" s8 i
  562. PHA
    5 F- }2 @$ V1 w; Z7 A2 s
  563. LDA $BC! |. R: o" _6 _0 R3 P$ e" j( k& W, M
  564. PHA
    8 S3 u0 N6 R- X* p
  565. LDA $BB
    % n+ V4 X0 ], T3 O
  566. PHA
    ' U4 F1 R' S) D. v/ _' \! \
  567. LDA $BA
    2 O: V) S4 n5 O; q
  568. PHA
    " D- U" t  a% q8 t
  569. LDA $B9
    ; _* g: L% W+ M( d- k. y
  570. PHA9 s+ R5 Q( e2 P; Z+ R' M
  571. LDA $B8% M: F4 `8 v0 i" l0 y5 `
  572. PHA& A4 U* X6 ?  B8 x! K
  573. LDA #$00
      |1 Y" v9 g$ d- u: W- r
  574. STA $B8
    & X: g# X' p5 A' @% r
  575. STA $B9
    & q3 r8 ?& m1 j: L8 Y/ u
  576. STA $BA6 A4 n7 V7 x$ y# j. \% F
  577. STA $BB
    4 q5 J7 v: ]3 ~: h# A5 Y
  578. STA $BC
    ( _! i' |6 K3 Z3 @! h5 E# U2 a6 T
  579. STA $BD* i+ C" U4 x9 |  o% X+ d  W! ^+ u4 {

  580. ( |4 n$ x6 p: n" H" a
  581. WEAWRITE:                ;武器ppu写入* I6 X+ r1 K$ e* R6 h" K
  582. LDX #$004 r7 l$ t1 ~4 G  K! v
  583. LDA $AA
    4 r2 N) M& \; s- F
  584. STA $B91 G$ i8 j  `& B
  585. WEAINI:                ;地值初始化! c3 g& m5 z7 I( e4 d8 V
  586. LDA #$A4* o+ o: @. A0 `! ^2 w" n1 x/ I
  587. STA $BA: U6 }: z( n7 z. p
  588. LDA #$20: x# H6 ?6 u/ c1 G% ]- R
  589. STA $BB, d1 b" L0 h0 {/ m# W9 A
  590. * q& j) y! A  S- f5 U
  591. " Z8 P" e8 e! u% N1 A
  592. JSR WEA1 t/ K0 H6 w5 e, J$ M& T
  593. LDX #$00                ;武器ppu写入
    4 \. i! C. W# b/ T! \! a
  594. LDA $AB8 z( _% H' Q: u: @
  595. STA $B9+ O' o! e7 i; X- W
  596. LDA #$B36 B% F$ ?( |/ V
  597. STA $BA
    0 |9 W8 F& e1 |- A4 G
  598. LDA #$20* `2 I: `2 P7 `5 T+ c2 ~  b
  599. STA $BB/ L( y, B, s9 }) X

  600. 7 l/ e  G0 p1 K4 a6 \+ ]9 a- ?( H

  601. 4 a- K+ [2 R' J1 Q
  602. JSR WEA2 t5 G$ ^' C: D, c( G" r

  603. 9 A9 v* b8 R7 _" ?) H1 u$ T
  604. LDX #$00: K7 y0 H) `' _: `! c& C  S2 @: k
  605. LDA #$E4, M  `7 {& d+ M3 }, u% F7 P" u
  606. STA $BA: x7 m- W/ j% }. V
  607. LDA #$200 k: |$ z/ Y( [3 M" S
  608. STA $BB+ p1 M. g3 i% }- S' T3 Q+ s
  609. 7 w7 M! F7 Q  M0 g
  610. 0 |/ p! t$ n" t. e! l
  611. LDA $32$ T# q% L5 q  j: z8 h5 ^
  612. JSR PLAYERLIFE
    . f; K9 f0 \. J$ e' ]1 l

  613. ! N2 I# S5 {/ f
  614. LDX #$00
    5 @2 t9 o# R# Q
  615. LDA #$F33 I& C/ c; T  S' A
  616. STA $BA
    1 r. Y% F5 h4 f2 h
  617. LDA #$20) f! {1 @- T& G$ |
  618. STA $BB1 r$ e& w. k/ A" n; F

  619. 6 V8 `# C% e( X& u, L/ W& a
  620. ! ^1 C$ d5 G4 Y  `7 n
  621. LDA $33
    $ t. [* @! N3 T% B! |
  622. JSR PLAYERLIFE
    7 @% y9 K: h0 C
  623. . Y4 r, G: |2 u% w& `5 U& P9 ^

  624. # y, t+ A' B: ^6 B3 T/ K" p
  625. JSR PLAYER_01_PPU& I9 k- F9 l0 l
  626. JSR PLAYER_02_PPU# x: E9 Q7 C- A- A& H7 u8 c

  627. , V# Z( n; k8 Q; r7 R4 H: S

  628. 4 N3 Y: b! K* Q6 a7 L& E% u
  629. JSR PAGE_PPU
    ; P. M# Q; s# v- f
  630. JSR PAGESELECT
    9 M6 Q  {+ b+ B0 G

  631. 1 K! o, S4 |/ U. l

  632. + h1 Q. f: D- f2 D3 o/ k; K. I8 j
  633. & f" j& B: V& {
  634. 6 t4 `$ j" Z, N/ P
  635. ! Z. J* }7 [- Q7 n3 w- E2 l
  636. 9 ~% V3 s; ]# D  L4 T. b+ c9 j% J
  637. 7 y" V! T6 y' |/ k$ z0 L$ `

  638. $ q: H' c" u: I7 T* g( L

  639. 5 V  {8 y+ H% j; d) z* U
  640. 1 @( n0 `; n0 ^. \% ]0 ~

  641. * k; N9 n9 O5 H7 _' n- U. \, m
  642. $ a5 A  W- E1 s) _4 I: H
  643. 8 X. ]  Q1 k0 m) V
  644. PLAPRO:                ;恢复现场
    3 Y' R1 T0 b5 ^2 H1 |
  645. PLA
    5 M. G% g3 W, L2 q: k% O
  646. STA $B8! d. O% ~9 v% l2 u
  647. PLA
    5 W- c3 ^# v% {6 H, |7 K" z
  648. STA $B9
    # t: W2 |+ h. y
  649. PLA
    % I! _% {; ?$ t: f0 e3 E7 @
  650. STA $BA
    9 f5 ]% ]4 g! b8 r5 t+ b
  651. PLA
    : x7 K2 F6 a+ e! Z" G- B  U
  652. STA $BB
    9 g5 ^  ?7 u1 P- J7 `$ a# _. s
  653. PLA) I8 b! H: T2 `+ M
  654. STA $BC
      }/ `& H0 o4 @( _
  655. PLA
      Q3 x2 m% I! E0 s) H
  656. STA $BD  y# G9 g, g" w& e
  657. FREERTS:
    ' @8 O+ @. M. K5 x3 h1 x
  658. RTS
    # Q7 C7 H! ]+ \9 f" F, |
  659. # A/ |* n3 p! m7 L
  660. INVINC_STRING:                        ;invincible% R& s4 `2 o6 S" Q- {4 r- g
  661. .BYTE $93,$98,$A0,$93,$98,$8D,$801 z. H: Z' j$ I

  662. / s0 C, }9 \4 `
  663. INVINC_PPU:7 g" y) Q( Z: L# {
  664. LDX #$00
    $ ?) R% E& E. }& V$ H
  665. LDA #$62
    / T; O- O& i7 m( Y" s% ?/ ]1 S1 q
  666. STA $BA+ B$ p; U; a4 Z4 A, f3 l
  667. LDA #$21
    " Y6 [9 E5 w2 u6 a0 d
  668. STA $BB
    * Y& A% M% K4 C$ T4 P: ]
  669. 1 A$ U( a2 C; c9 M" S3 b
  670. & o' V: K7 h( r+ X* \* v$ L
  671. JSR UP_PPU
    + v: K! `, J! p- ~0 x
  672. JSR INVINC_WRITE
    4 C( f* h" u' U& ?) g  P  [' y
  673. LDX #$00
      f6 y4 |0 N3 }+ a6 w. }! U. j
  674. LDA $07A06 R4 X2 @- ~* m- m/ y: T/ D' J5 j
  675. AND #$01/ |0 }, h: `$ w$ B( O
  676. JSR ON_OFF_PPU
    + B& \; ]9 d5 N) u5 X( u
  677. LDX #$00
    1 q* i: t' Z4 E: K* ?7 S6 p$ M
  678. LDA #$718 P0 h* s" ?, N/ T5 D
  679. STA $BA
    7 W8 c0 y" D  i
  680. LDA #$21
    ' \+ N5 E/ I) W7 G$ V( b* S4 P4 ^
  681. STA $BB
    3 s4 l) {0 {% S% S9 x5 n

  682. ! v3 D9 a5 D4 g# l1 n
  683.   m4 W! d' c3 \& Z
  684. JSR UP_PPU
    " I& H3 Q  Q' \4 U& O
  685. JSR INVINC_WRITE
    7 ?+ \/ n4 u$ U) j2 G2 y) U4 y" ]
  686. LDX #$007 \& y# {9 V5 k! Y; x. a: s; {
  687. LDA $07A1
    9 O0 ^) T) W  y" x; n$ A
  688. AND #$01& r7 [4 |+ r3 O' h' B* v
  689. JSR ON_OFF_PPU8 I# G4 s2 U1 j0 E; W( F% {7 `
  690. RTS: E4 j4 N+ }4 v: a8 S+ g) s
  691. 8 I3 l7 p! E, `1 N( W* C$ B5 F
  692. INVINC_WRITE:
    4 H/ i% |& B1 P- [
  693. LDX #$00
    ; X9 `4 M% O( p4 W1 k+ x0 l
  694. INWRITE:  f2 U6 |/ z7 j$ m- z
  695. JSR PPUADDR_PROCESS
    & k7 k  h& F* T$ g! T
  696. LDA INVINC_STRING,X8 j  e0 C$ G1 t! M) j
  697. STA $2007
    2 z0 n2 H! r2 s9 b  i7 S
  698. LDA #$00+ B9 t& i4 [* }2 n7 x
  699. STA $2000$ M% S& V8 Y0 a" y
  700. INC $BA
    8 T4 c* K6 t- u
  701. INX
      Z) F. O. c) v- A3 q) k6 @
  702. CPX #$07
    " {4 G9 i/ |' A7 o4 }) f
  703. BCC INWRITE
      W8 o) u$ L. B4 D6 Z. J6 X
  704. RTS
    0 D8 B* P; B5 h
  705. 7 e6 m4 U0 d! Y4 w
  706. ON_STRING:
    - f" m. d5 g! H' B
  707. .BYTE $99,$98,$80: W$ {' t$ l; M9 @8 N) o! K0 B; ]

  708. - f- _1 G% O1 c  E8 a. u
  709. OFF_STRING:
    6 x# z" K/ v6 X/ x
  710. .BYTE $99,$90,$905 L0 l4 ~/ k0 M" M. `7 V# \5 R* S
  711. ) r/ D/ Z' h: K9 q
  712. ON_OFF_PPU:
    : p  Y! u; ?" l4 s$ B8 P
  713. BEQ OFFWR2 p* u' y, k# S* c% n
  714. ONWR:
    0 K* t. T  H0 `% ]
  715. JSR PPUADDR_PROCESS
    , W3 J- g3 U3 o5 e8 Y0 B
  716. LDA ON_STRING,X
    - E+ M$ P" `3 M$ |: A
  717. STA $2007, W8 z8 ~- D6 U( h7 N+ G
  718. INC $BA
    3 E( H8 V  R/ p# a; N" @' K
  719. INX3 ?& I# P1 ^# B& V
  720. CPX #$03* n! [9 P( Z3 q. n
  721. BCC ONWR) ?6 c$ R1 g, K' U+ c! |5 \. S
  722. RTS
    ) l( j; v$ z/ z
  723. OFFWR:6 T, B& \& Z* L+ M6 g& \% y( o! n
  724. JSR PPUADDR_PROCESS
    : e9 L: u/ a/ \( e; c' N- j# J5 p0 \
  725. LDA OFF_STRING,X
    1 i/ w) Q; I: Y8 j3 M* ]) Z
  726. STA $2007
    - Z: u$ d: @% O6 c5 ?
  727. INC $BA
    & \7 K/ c4 t  ]* w" T8 e
  728. INX* b5 s& o7 h9 W8 o; l" i' B
  729. CPX #$03
    4 h' }/ w2 B8 ]
  730. BCC OFFWR
    0 V: f3 V, N! d! x3 f" d0 c. o7 [
  731. RTS* Z' p9 ?, c9 b2 z" F" W  N
  732. ) W/ F! O: I$ r5 F5 r! E! s1 h8 r
  733. LIFELC15_STRING:
    8 y; ?! o2 G; u; q- B1 Z# x
  734. .BYTE $96,$93,$90,$8F,$82,$86,$80
    ' Y+ J5 g; M2 X, P3 z( f% X

  735. : [7 @; n% F% D# ?: O
  736. LIFELC15_WRITE:
    3 ]# z8 I3 u2 K
  737. LDX #$004 v; I4 [7 ~* W# k' S3 k8 D; \
  738. LIFELC15:
      t' p! F9 i8 l: u- |. L4 L
  739. JSR PPUADDR_PROCESS( J: o8 D  O6 N
  740. LDA LIFELC15_STRING,X9 p# [: O1 E/ N) A
  741. STA $2007
    # a' E9 q7 }0 |% O
  742. LDA #$00( E1 S. m2 A  T% ^' E
  743. STA $2000( V6 P- ~: c7 f3 n7 g, {
  744. INC $BA9 P" J( x; j- m1 O) Z& I  t
  745. INX+ p8 e+ u* l; `. P" x0 D
  746. CPX #$073 ?& _2 O3 ]4 }7 H9 g
  747. BCC LIFELC15
    / M7 S+ m: S7 S+ J+ x
  748. RTS
    8 r8 h1 ]( D# C  u! i6 n
  749. ) }+ @/ C  |! {- k
  750. LIFELC15_PPU:0 u+ ?: Z3 n9 @0 V: K, u2 }
  751. LDX #$00' ]9 R/ w7 \8 e( G, ]7 h. g
  752. LDA #$A2* P& s6 E' Q0 Q; t- \; V3 H* j# e. A
  753. STA $BA: S2 u0 p; `. A- L
  754. LDA #$21
    . @2 p* }% Q) `8 O/ P4 w
  755. STA $BB" a5 F  {8 I9 N/ J+ q+ U) _. `# P# @
  756. JSR DN_PPU
    0 x6 n: K/ A0 k2 _0 q0 ~
  757. JSR LIFELC15_WRITE: C: _( C6 M9 _2 D# o
  758. LDX #$00: }  X6 s8 Y7 K9 G5 C: j2 r
  759. LDA $07A0
    ( n4 u3 A. J9 j/ C1 \& A
  760. AND #$02
    9 d1 U; o* p$ @+ T4 J* z
  761. JSR ON_OFF_PPU
    / J; x  m0 B7 l. G: c/ m# R
  762. LDX #$00" G, l, s: T/ c8 T: E
  763. LDA #$B1
    ' m( [% l/ w4 d
  764. STA $BA
    ) h, b- X; [: u2 o* z& w
  765. LDA #$215 d; _2 p9 P& @
  766. STA $BB
    0 R# q7 p" T+ t. R
  767. JSR DN_PPU* L# g' }0 g8 K7 a0 Y
  768. JSR LIFELC15_WRITE
    5 t: F: u, p# P, N: O
  769. LDX #$00  ~5 Q) ]' ]- N  c# U( t7 W- {
  770. LDA $07A1  q. K* z" `: E5 L9 h: s  o  R
  771. AND #$02
    5 f) o- Y" ^8 W$ P4 B' P
  772. JSR ON_OFF_PPU
      S0 Y' Y3 d# I! A7 I" w6 M, x
  773. RTS
    4 o- Z+ U) H, m" Q. l+ h! M

  774. 2 }% _2 H1 d. R  i8 o  D
  775. DOUCON_STRING:
    7 o! y* n7 U$ P- ?6 F
  776. .BYTE $8E,$99,$9F,$8D,$99,$98,$80) Q& z. A; o- c, o- j8 ~, ?
  777. % g* V; s' C$ v3 d& H
  778. DOUCON_WRITE:
    ( [* i2 X( b* k0 n) E5 v$ d; K) B
  779. LDX #$00
    5 O4 V& r& Y; H7 r/ c0 s( Q: M
  780. DOUCON:4 U% F' F$ A5 q/ k( f
  781. JSR PPUADDR_PROCESS. R- Q* j4 ?6 P4 d5 F9 u
  782. LDA DOUCON_STRING,X
    ; D; \7 w/ x3 m$ I
  783. STA $20076 f5 G# c: h# i
  784. LDA #$002 \' @; o1 \. \
  785. STA $2000
    / g0 l0 O- z6 _1 E
  786. INC $BA
    3 i% X# l, X8 u
  787. INX
    " P  n3 X& F/ w. \8 U! O
  788. CPX #$07
    : S& h/ u) x) l- ~6 F
  789. BCC DOUCON! s& ?: X* \. n
  790. RTS2 `: r, i, U1 [8 y2 j: D  C% q
  791. 7 L0 t. m. d) |& ^/ h
  792. DOUCON_PPU:
    1 H( r8 `1 V, n
  793. LDX #$00
    / h, g  G7 s, }+ r) Z
  794. LDA #$E2
    8 y  Y; O2 r: @7 ]6 L
  795. STA $BA
    ' K1 V6 e& ^; E
  796. LDA #$21
    / d. I( w6 s. B6 [# s
  797. STA $BB
    : |9 Q- V8 W4 i
  798. JSR LF_PPU
    ) i: `% e( [- k0 M9 q! H# W% u4 ]
  799. JSR DOUCON_WRITE
    6 Z' N7 w' i9 G$ c: A
  800. LDX #$00
    + D7 z: u" p) t
  801. LDA $07A0: @7 A+ n: [# T4 l6 d
  802. AND #$04
    9 V, P6 b9 M3 |1 H8 S2 D0 D
  803. JSR ON_OFF_PPU
    3 B9 _+ V2 |0 |- ]. l  u: n
  804. LDX #$00  H8 H4 a. W! @) l. f2 C) z& D
  805. LDA #$F13 |( I; ]* D+ q: V
  806. STA $BA
    5 Y& Q  U& S8 {
  807. LDA #$212 R  v% Y9 `8 `' `- l' G7 _. D
  808. STA $BB  p# i( i4 B9 W
  809. JSR LF_PPU
    & I( |2 b" f8 g
  810. JSR DOUCON_WRITE
    6 }& I1 F3 q( Q8 ^- L6 J
  811. LDX #$00
    ) m0 D6 d" w: Q3 U! A
  812. LDA $07A17 |2 h) h3 E7 r- z) H
  813. AND #$04
    0 K- S$ D% I" s1 y+ q1 }$ W
  814. JSR ON_OFF_PPU: C' I2 @6 S2 A' V% H3 Q" H
  815. RTS/ T* F, Z  [+ |2 K8 R9 v

  816. 7 s# u6 r9 Z8 L! i
  817. LIFELOW_STRING:
    9 Z4 z" d2 v3 z: L5 A+ {
  818. .BYTE $96,$93,$90,$96,$99,$A1,$80
    - i8 q4 ~% h* K% X1 u
  819. - |! j" q3 z, K* Q+ E2 G
  820. LIFELOW_WRITE:
    6 e+ x- _2 t  Z* A6 g: v2 F9 A! @' [
  821. LDX #$009 e+ R. u8 _, t
  822. LIFELOW:
      {/ l! Q2 L" t1 o
  823. JSR PPUADDR_PROCESS
    ! r0 L; a1 p( R2 R6 Z: L: V
  824. LDA LIFELOW_STRING,X7 C5 {3 w0 @" \  e; J1 _* I" F
  825. STA $2007
    % F/ Y7 O9 Z1 n+ y0 C
  826. LDA #$00
    ) A8 c# \$ I, d4 i6 x$ f
  827. STA $2000
    * v' Y. q  V# T- T
  828. INC $BA
    8 U/ M0 f/ \9 I3 A! i2 H7 g% D7 g
  829. INX( a* A1 \* C3 G5 N, ?
  830. CPX #$07% N( P% y. s" G* q& {+ S, ^4 U
  831. BCC LIFELOW- h1 j: u6 \: M0 n- N6 \( q! O
  832. RTS
    ) G% E! s4 m) K! W3 |
  833. ' A6 `" A4 s& Q  I0 {
  834. LIFELOW_PPU:
    ( P/ k- o% P* \2 m
  835. LDX #$00
    ' d) k, e7 B9 P: _* \
  836. LDA #$224 \0 ?4 }6 t  n. t# ~/ S" f
  837. STA $BA
    % m. C4 M# X1 c( N; _: {0 P
  838. LDA #$224 A) Z- L+ e% M
  839. STA $BB% C1 J, ~( K7 f) K6 O

  840. # q4 O6 M2 E! B4 f6 x

  841. 4 t8 p% h3 y+ r( z% j  D5 u
  842. JSR RG_PPU
    $ `$ k0 S1 y0 D; e- z" k
  843. JSR LIFELOW_WRITE& g2 [8 \, E  x( U* a- \1 J: J
  844. LDX #$009 t' R9 B2 p' L
  845. LDA $07A03 a9 M$ x' i1 ]6 X( L5 ^) e
  846. AND #$08
    * t; r$ Z% ~% d
  847. JSR ON_OFF_PPU
    . m+ p  l8 J4 @; U) O. g
  848. LDX #$00
    / c* G* L4 Z* |8 z  O7 T  k
  849. LDA #$31
    " j8 K6 r+ _! x# f" T7 s
  850. STA $BA
    ' p. u9 p, o; d8 F. K
  851. LDA #$227 L1 ?+ k( Q: P0 x
  852. STA $BB
    0 G$ E$ j: n0 L) u1 }
  853. + r; L' ]" K- I# S3 f

  854. 4 ~1 {, y- u  V5 v8 f3 T6 A3 i
  855. JSR RG_PPU7 n( W- K! j. L3 k9 r& P4 r
  856. JSR LIFELOW_WRITE
    4 p) \) G# ?  \6 Q, o: r* x  U
  857. LDX #$00
    " Y( j. g: x2 D' S% A- f9 y
  858. LDA $07A1; o- r( _: ]: b( m, B: x9 }# M
  859. AND #$08
    - Y/ p- K1 R. a. c8 q! x* p: O
  860. JSR ON_OFF_PPU2 ^6 L8 F9 P. {" A( j
  861. RTS% q; S" H+ ~8 {5 l" i! [6 G

  862. ' `7 n: ^8 E8 t) k3 f4 O
  863. KILLON_STRING:0 A# i8 [9 w5 C
  864. .BYTE $95,$93,$96,$96,$99,$98,$80
    " [' D$ n! t+ y, `0 l! V0 U

  865. ' z. ^7 N0 N3 Q  o' c& O2 H2 p1 Q+ H
  866. KILLON_WRITE:* M' t. ]5 w0 T5 L6 v. y
  867. LDX #$00; c! u: F8 N0 N0 Z% f+ u% u
  868. KILLON:$ P4 c7 N" b! I8 L
  869. JSR PPUADDR_PROCESS% ~$ Y# ^/ Z/ k/ j, l% [
  870. LDA KILLON_STRING,X
    5 S* k+ d3 M5 m% U2 a7 J9 m
  871. STA $2007
    . [& ]* x, _5 Q0 j2 A: P. e7 E. Q0 `+ ^
  872. LDA #$001 F) N6 [# W7 z$ [" Z
  873. STA $2000
    : g8 a# M. y9 c% d! v, `
  874. INC $BA
    9 |% `  _" b1 ~  w" {, Q% e. n
  875. INX
    ' N% V  Z; x% U5 x0 V# M
  876. CPX #$07/ |, w- Q7 n$ z
  877. BCC KILLON
    , w6 s, K: t. v# \# c4 j; ]
  878. RTS: H; @- q1 a( m# _) o

  879. 7 t& b+ u4 j2 u3 B, ]; C' w6 v6 P5 L
  880. KILLON_PPU:
    7 R+ e( Z7 L8 U
  881. LDX #$003 D$ Q+ \" {. x+ P2 f2 Q- g5 p
  882. LDA #$62
    9 {. V9 l9 b" L
  883. STA $BA
    # K+ u# @; j( h* T
  884. LDA #$22/ g5 }5 h2 U. Y0 Y: c
  885. STA $BB
    2 |3 h: Q/ q2 H, }' F
  886. + c& @. ]+ `3 P' K# t
  887. - Z6 ~- y: ?- j7 m6 _2 Y$ F
  888. JSR B_PPU3 `, {+ }* i  D
  889. JSR KILLON_WRITE# h/ u+ {8 L% @$ M
  890. LDX #$001 ]+ S. f" F  `/ Q
  891. LDA $07A0
    & b% x) Q. G5 B9 _- y/ t2 _3 j. J
  892. AND #$10# Y: ?3 J) W/ v8 `: k/ g
  893. JSR ON_OFF_PPU1 n5 ~: n0 r8 M9 o0 ~  R% k
  894. LDX #$00% {' [) d+ L( X0 K  x5 v
  895. LDA #$71
    6 P9 R3 Y* P8 ]) [/ d
  896. STA $BA
    ; n* l: o3 H# F- ?7 g# o) a
  897. LDA #$221 p+ U: a+ B9 \: N0 l: m
  898. STA $BB
    - s* P# D+ {- k7 {( w

  899. ) P4 K( U4 l. X6 J/ ~8 v* ~
  900. 5 ]6 G: f7 l: g0 j# K% I/ t
  901. JSR B_PPU# z9 H' V( R, ~5 e1 R9 i0 k
  902. JSR KILLON_WRITE
    5 ^: U6 E: f, T
  903. LDX #$00
    9 s) j/ ^( X( M/ r" K+ Q
  904. LDA $07A1. o; [- s. b3 H4 X
  905. AND #$104 C) f' o" s3 _
  906. JSR ON_OFF_PPU
    - ~7 Z) }/ m0 v7 _1 `; t4 V7 ^
  907. RTS! U7 F, Y6 Z7 N& t( ]

  908. 8 D8 z- x6 L. d4 q% b! ]
  909. SKYFLY_STRING:
    9 m) o) z1 I# A
  910. .BYTE $9D,$95,$A3,$90,$96,$A3,$80
    + J6 m( u, n: g# a' A4 U2 U
  911. * T5 i2 G* ^% X" Y+ D+ w2 D
  912. SKYFLY_WRITE:  W8 [7 |, r4 ^5 I  [
  913. LDX #$00. s# Q" m8 F2 D% C, [
  914. SKYFLY:0 W$ E8 {" N  K1 z9 t# {. P: L
  915. JSR PPUADDR_PROCESS) H( A! S. l8 }2 j1 V; Q5 I6 G
  916. LDA SKYFLY_STRING,X# i  V! G9 ?5 O/ t& E. B' j
  917. STA $2007. S/ [% E" G' i2 i8 v+ \9 \3 U
  918. LDA #$00
    / i( F8 M- I) T' b
  919. STA $2000
    5 L- F% x% L1 y8 v
  920. INC $BA
    $ N' z$ t# i) n( A+ X- v5 @
  921. INX
    $ S* m# n$ o, n3 E* \9 J
  922. CPX #$070 o% {5 ^- A- P* ], k$ Y: Q
  923. BCC SKYFLY! u+ W: p$ x* m! x4 _
  924. RTS
    8 v6 c6 }; O8 c: r) x) e& `5 C
  925. + S0 M" o8 \$ l$ M( g% g3 D  C
  926. SKYFLY_PPU:
    ! D. s+ h, v- S  Y: i2 x% C% x% A
  927. LDX #$00
    4 @4 E7 `! o( u9 e% m1 z. J& U
  928. LDA #$A2
    % m6 C1 z! U0 D7 Z! z) r& o1 i
  929. STA $BA, l5 v# R4 g/ O. z6 ~- t. k7 H
  930. LDA #$22% v( J- h( L" L0 ]( H3 Y% u: S8 e
  931. STA $BB
    ! g. V6 S$ ^# k( d6 r6 E
  932. - d* `# }7 t2 {0 @& ]- N% b' ^0 u! B% R
  933. ; C6 i" {. \% f, ~" |
  934. JSR A_PPU# b' J, Q2 U0 Z
  935. JSR SKYFLY_WRITE
    5 S. l( g5 X! z* i' p
  936. LDX #$00/ ~; N' m! W/ }( b( n
  937. LDA $07A0
    + Y' H6 c1 b* a2 O  t
  938. AND #$20& r+ |: e: m+ f9 J# G3 `3 e6 X
  939. JSR ON_OFF_PPU7 _3 c* \, P' D" N6 w
  940. LDX #$00
    - S0 G) M8 ?# A
  941. LDA #$B18 a. y' x: z; G# f: r
  942. STA $BA9 G7 J8 i8 a* x5 b' C1 F! B
  943. LDA #$22
      d1 D& y8 r9 t- R
  944. STA $BB
    ) {, S& d6 x2 U7 c
  945. 8 f/ k7 N0 u5 f, {+ o

  946. : H# ?! J4 L! o, s; x
  947. JSR A_PPU
    " N5 J# H9 G! A
  948. JSR SKYFLY_WRITE  a: K2 k! d% U/ s
  949. LDX #$00# o( K) O/ i3 i
  950. LDA $07A1
    $ S5 o: |" q  r
  951. AND #$20: ~, e+ a' k' f. H3 o2 v+ \/ T
  952. JSR ON_OFF_PPU' I& ^+ p7 x4 ~' S: U& O
  953. RTS
    , t* u+ P' ~9 [1 P" A  f+ [; s5 [
  954. . P2 K8 y& b: a4 u: l( M  X
  955. BULADD_STRING:% X6 q! k7 J2 B$ j3 Z
  956. .BYTE $8C,$9F,$96,$8B,$8E,$8E,$80
    8 F! ~" A& p; _' A1 ]* Y
  957. - s& n3 x. H% ^, x; p" Q
  958. BULADD_WRITE:6 W5 t9 p: o8 Q0 c' A
  959. LDX #$00
    8 k, X1 G: e6 T" ]1 @  @
  960. BULADD:
    , T6 |1 [9 K. k; [1 t3 t0 H
  961. JSR PPUADDR_PROCESS
    # v* x8 c4 l. w3 Z' z5 q
  962. LDA BULADD_STRING,X
    # \9 u& B$ G' x8 [3 \( o
  963. STA $2007
    3 g0 W- i* w* E2 [: f8 L4 `) Q
  964. LDA #$00! p8 K3 j1 c9 [
  965. STA $2000  U- t3 H2 G; x6 [" ]. p
  966. INC $BA
    0 w7 I% c# R0 ]. \2 O9 U; s' `
  967. INX
    $ h2 W3 e( b. L: A$ Z* {  E! M
  968. CPX #$07
    . H# w3 Y* |' r6 h
  969. BCC BULADD. E4 u6 b) X' B  H  I4 A
  970. RTS/ k2 J) P% ]8 H* f, m7 m9 q; |

  971. 5 Q. h' ~6 }+ [2 ~$ O$ [) B
  972. BULADD_PPU:
    & V3 w, P- Z# t& S2 t" R2 l/ u
  973. LDX #$00+ z, w' |: ^  H3 Q3 \: a. e
  974. LDA #$62
    5 \2 \4 X6 M9 W8 d+ w% O9 U6 ?* _
  975. STA $BA
    ( S$ y: ~, d4 J, C7 u
  976. LDA #$21; \0 K; v. F2 A/ Q
  977. STA $BB0 e5 X* w; _) |6 I

  978. 3 u9 w1 n: t, K, M& H

  979. & F8 H$ ?4 {& e5 I
  980. JSR UP_PPU
    $ j+ @5 q0 _/ K' [' L
  981. JSR BULADD_WRITE
    ! ?0 ]2 x, g! a# ]
  982. LDX #$00
    " v% ?# v% ^, S" D1 F1 N' ?
  983. LDA $07A2" `2 X2 s. ]; r
  984. AND #$01/ D. h0 n# n) o, e0 _0 A
  985. JSR ON_OFF_PPU& W' ~! F( L8 E% L/ ?
  986. LDX #$00
    $ r; ]9 j/ p; I# ]% p% Z& t) J
  987. LDA #$71/ L- E# I' {- x" R& j7 J* g! O
  988. STA $BA
    + A5 q+ R9 e+ W/ A- r1 ~" ~
  989. LDA #$21
    . F& x1 X7 b) E4 m' S
  990. STA $BB0 u& J$ f9 H  y

  991. 7 @) i; [/ q4 ]

  992. 7 u5 f' G9 U/ S& m
  993. JSR UP_PPU/ Q- v. C8 [+ X, Y
  994. JSR BULADD_WRITE1 a! Q# ]+ u" U; {  v( |6 r/ \
  995. LDX #$00
    / G# H1 m$ U! s
  996. LDA $07A39 N$ h- F" q9 z
  997. AND #$01
      \! Z, Y1 ]! g( f4 K  T0 O& ]
  998. JSR ON_OFF_PPU- r! X% P$ ^+ [& [( D
  999. RTS
    6 v8 c* s6 l$ q" w8 x0 I6 l& \
  1000.   q3 |4 _* ^$ X( s
  1001. MENU_PAGE_STRING:
    3 h" M2 X5 g% t4 E+ f6 L
  1002. .BYTE $97,$8F,$98,$9F,$80,$9A,$8B,$91,$8F,$80,$819 M* \: V! t' {* h4 ?4 T1 p
  1003. 7 J1 ~" R- b/ o& y
  1004. PAGE_PPU:
    1 q3 Z4 }3 P5 q$ O0 \% A: n3 V8 t  P
  1005. LDX #$00( y3 T+ }4 L" Y+ ^4 e
  1006. LDA #$0A6 Y; P+ f6 l; i; B$ |8 k! c5 f
  1007. STA $BA+ q6 h7 l* G' v2 P+ S: q# t4 K6 V3 B
  1008. LDA #$23
    # z0 c+ ^" q' \' N" _* g0 `' [
  1009. STA $BB& a1 G$ p( N1 |. U

  1010. ; ?1 T, \5 ~, ?
  1011. % s: x/ A9 E( w2 T( J  q& r
  1012. MENU_PAGE:; Z' ~  O: d/ {. ~: S
  1013. JSR PPUADDR_PROCESS) D4 t2 e2 s3 h$ G% D
  1014. LDA MENU_PAGE_STRING,X
    3 g" a; R" E3 z" {1 D2 O0 H# t
  1015. STA $2007
    , Y1 _2 m' @3 @3 }# K% Y& y
  1016. LDA #$00
    2 [8 y. U+ g$ m  B0 a2 w/ u
  1017. STA $20001 G5 i# U% X& r
  1018. INC $BA* P: }2 C% m% w7 F
  1019. INX5 o: p! v; a6 y0 `5 [: L4 t
  1020. CPX #$0B
    , _6 w# h. R% P9 f
  1021. BCC MENU_PAGE4 `+ Y1 B* D/ s- O1 @4 z
  1022. LDA $07AA  F, r+ N; q: Y# I( X/ T
  1023. CLC
    ) X; P0 B7 G# r7 @
  1024. ADC #$82
    5 L# W) q8 I5 b+ f
  1025. STA $2007/ n4 T. E) W- y
  1026. LDA #$005 @4 E8 S9 q  \% d' Z2 R0 u, x
  1027. STA $20005 G" [+ p, l3 u
  1028. RTS
    ! u* b+ ~$ l& j1 o# L3 V: h0 H

  1029. 0 g* |8 L, G0 n
  1030. 5 H& u) G& c8 e% W3 p
  1031. SKINGE_STRING:
    $ l- h- L  p' Q) h  @2 l; }/ S
  1032. .BYTE $9D,$95,$93,$98,$91,$8F,$80
    1 ]5 s; _$ G) e& @; d( P

  1033. % p" ^# T3 H- k
  1034. SKINGE_WRITE:& D7 e/ Q$ A! Q* z4 x; `
  1035. LDX #$00
    / Z+ _, T& m7 u9 c
  1036. SKINGE:9 w4 q0 i1 A+ S" |* L$ l& M
  1037. JSR PPUADDR_PROCESS# ]& J* y9 `- U/ @6 V$ v
  1038. LDA SKINGE_STRING,X
    ; Q: Y% [7 W" a8 H* D& F# R
  1039. STA $2007
    ! b  E8 s1 v- K
  1040. LDA #$006 t4 J* m( t1 W* s
  1041. STA $2000& ^! x3 V# |7 w# i
  1042. INC $BA
    7 B7 w& c. ]1 ], t
  1043. INX& \$ u4 y- R% M* u, E& s
  1044. CPX #$07" y) E5 y- ^( R! T" A  l
  1045. BCC SKINGE  b, P$ l8 U2 z7 w) m  p5 f0 s
  1046. RTS
    / Y3 G! l1 m( r( b9 ~$ e1 @: S

  1047. ; q( n0 {# i4 K; I& v
  1048. SKINGE_PPU:" d- e& z7 M7 y3 L1 P# k; t1 e" w
  1049. LDX #$00
    3 E6 B% Z4 T2 L! z
  1050. LDA #$A2+ _# h6 t7 t9 H* I$ {  e
  1051. STA $BA
    4 |) g6 d/ y# Y7 X! }
  1052. LDA #$213 w# B; n, H7 k2 O0 l% L/ \/ ?
  1053. STA $BB  d4 I+ E6 ~0 Q2 ]
  1054. - K- M% r, X# \
  1055. & S2 W2 ~2 R7 C" i, Z- m# K
  1056. JSR DN_PPU
      n4 b  }5 G" y+ U# o; O! `% E
  1057. JSR SKINGE_WRITE1 T9 v5 O2 W* F4 h  c2 ~0 ^
  1058. LDX #$00
    ' f; J/ w$ @* S  Y
  1059. LDA $07A21 \+ [1 U" e- Q: P7 N, L0 C/ _  u6 j1 e
  1060. AND #$02# S1 n, j9 p" q
  1061. JSR ON_OFF_PPU5 \7 O4 P+ C; S# i, T2 b4 {3 F! p
  1062. LDX #$00) v9 F) `3 f& F7 w5 b
  1063. LDA #$B12 d2 T& [# X. ^# k2 X8 q9 {3 C) {
  1064. STA $BA& G: ^+ e: J% c7 \
  1065. LDA #$21. ]* `( B0 Y7 h2 F. g7 g8 s
  1066. STA $BB$ L6 `- ]" X/ j

  1067. 4 _/ t8 M; k  [" K% }; v8 l
  1068. 7 d$ |8 M3 c' Y( Y% k
  1069. JSR DN_PPU& K( `+ U4 Z- r8 l
  1070. JSR SKINGE_WRITE
    + Q- y5 \! Q  B% J
  1071. LDX #$006 G3 Z% s/ L$ g' _/ \0 _7 r0 s; X3 Q6 {! h
  1072. LDA $07A32 N0 {0 ~! S" |. x, P  i& M$ G
  1073. AND #$02
    ; {. ~. [* p& t, {; m6 c, }# |: k
  1074. JSR ON_OFF_PPU
    ; B* C4 m3 n4 r
  1075. RTS9 D! d' J2 V* Z1 d; p5 @) A& W7 _

  1076. # A* z( H* d- h; L  ?3 K
  1077. BULMIX_STRING:
    + o+ L: a) S" y3 J' L. |$ S
  1078. .BYTE $8C,$9F,$96,$97,$93,$A2,$80! Q. l# f9 O: V( t. U, l
  1079. 8 K0 {5 e& Q# e9 k$ H
  1080. BULMIX_WRITE:
    + H8 o! |' T' w
  1081. LDX #$00
    7 _6 [, }- k! j0 a  C
  1082. BULMIX:
    * y5 ~* _1 a, B+ H6 J* ~8 w
  1083. JSR PPUADDR_PROCESS
    5 ]4 t, u2 y* X% l
  1084. LDA BULMIX_STRING,X
    # D: {; x' d! ]5 P( ~% w
  1085. STA $2007
      ?" y7 C/ C, ^
  1086. LDA #$00
    $ m( ~/ D7 F4 A7 C1 ~
  1087. STA $2000
    + A7 S! i: Q" V: F
  1088. INC $BA
    , E% U1 o6 y' n2 R
  1089. INX: a. n. N- L# a7 b
  1090. CPX #$077 i0 V% l- X5 X9 N: ^; }0 j: s! M
  1091. BCC BULMIX/ P8 k+ M) N; c- S1 R% b* D3 p1 e
  1092. RTS
    / W2 g! ^3 S, n) I7 |& N& \  ?
  1093. & a4 }, u) A# C: V& {
  1094. BULMIX_PPU:' ~( I+ _7 ^$ k$ \) ?
  1095. LDX #$00
    ! d4 H3 W4 W8 Z9 d9 x" s% ]7 d0 m# @
  1096. LDA #$E2$ l( H% R( g" G( M0 b
  1097. STA $BA
    & B- Y2 q. {/ M6 q5 O
  1098. LDA #$21
    6 g; e# M( a- V9 ~# b+ o8 i) p
  1099. STA $BB
    & w5 ?6 g9 _% O& D

  1100. , ^$ O  ~* S# M# `5 C) r

  1101. 6 Q7 ?, J1 r- r3 w! ]$ O
  1102. JSR LF_PPU  E4 H0 Q" a% J1 n1 U/ H
  1103. JSR BULMIX_WRITE
    8 Z& O% P& ^2 b/ n
  1104. LDX #$00: H$ c9 C$ s4 }! O+ v
  1105. LDA $07A2) f6 W" B2 _) ^4 q
  1106. AND #$04
    * a4 _# x3 x7 r1 P8 c; V% l7 N& j
  1107. JSR ON_OFF_PPU8 e) U% S9 J# Y' b: x
  1108. LDX #$00- c/ k1 B( B. U) m& Q3 P
  1109. LDA #$F1
    ) E- W, U" T* o, F
  1110. STA $BA* H3 r2 U  c# j1 [3 ]
  1111. LDA #$21
    - j% P& Q1 V) F- b; ?8 E
  1112. STA $BB
    9 M$ b% L, I* |  N! o/ i

  1113. 2 s% `! E5 s0 i# X% ]

  1114. , H: w5 X) C0 e/ D; p* v
  1115. JSR LF_PPU& I( U. ^& u2 E! n( T
  1116. JSR BULMIX_WRITE
    ; y' {+ e, X7 U8 n( R5 u7 |
  1117. LDX #$007 b* v: i6 h% w% ]7 {# W# P
  1118. LDA $07A34 U+ G% V# b; \2 B
  1119. AND #$045 J7 z/ P9 _" R& Y$ K. @) w/ K
  1120. JSR ON_OFF_PPU
    ' r; w4 I. @- D- d/ W
  1121. RTS
    ' l* ]* Y5 F; E  ]
  1122. 5 q5 ^* y' G0 i  A+ M
  1123. ENELOC_STRING:' i" ^5 P3 G) J1 \
  1124. .BYTE $8F,$98,$8F,$96,$99,$8D,$80
    6 C; n# Z1 B( X: `- H5 |' {5 ^
  1125. , p# D- s) Y% F) q; t
  1126. ENELOC_WRITE:! R1 a9 L" M$ `: R: o$ w- C
  1127. LDX #$00
    5 m0 _! ^/ ^" S) w
  1128. ENELOC:/ [. j. M- l+ q% B8 K: `
  1129. JSR PPUADDR_PROCESS5 ]( J7 e0 |( m$ I& A
  1130. LDA ENELOC_STRING,X: w5 j9 [& X( |8 L+ |
  1131. STA $20075 I& d5 h$ N5 J' P
  1132. LDA #$00
    9 y# I+ Z4 e8 I5 B8 @& {) D
  1133. STA $2000
    ! z. ]( d9 N  ^; W: H
  1134. INC $BA% s  P2 i& v, S9 r! |' J  }7 o
  1135. INX
    * U8 N9 n* E2 m, i% H9 L8 N( W/ i2 q
  1136. CPX #$071 [* e  u1 x# Y' q, I) U
  1137. BCC ENELOC
    + E  I! i3 u; f- P' K2 g+ ^
  1138. RTS
    - b/ C: B6 F% G) y7 a* y8 h% n0 s

  1139. ) u/ I' d" ~+ I! E" i
  1140. ENELOC_PPU:1 ^. r5 U; j  S1 h
  1141. LDX #$00  s1 E; q& Y. {/ R8 g( z  n
  1142. LDA #$22
    8 r8 j! g: x8 U3 ]9 K4 v
  1143. STA $BA
    3 ]3 X  D5 E4 E' B% F/ [' V: V
  1144. LDA #$221 y& V8 K' ]$ ^( _
  1145. STA $BB6 `. m$ U, Q' U, b! `3 S/ y
  1146. 0 S- V- R! Z  M) a$ D
  1147. 8 }3 e" z* a* [  w/ C
  1148. JSR RG_PPU
    # {7 F: U5 g1 w. j# Z' S
  1149. JSR ENELOC_WRITE6 y( O$ s" j7 y3 K( _
  1150. LDX #$00+ Y1 I: ]; M1 ~8 m1 p3 g
  1151. LDA $07A23 U- G& g2 o0 z3 n
  1152. AND #$08
    . u) g/ P: t- J0 n2 A; y
  1153. JSR ON_OFF_PPU
    ; S0 ]* a" ?- L5 C* @" n
  1154. LDX #$002 t9 G. K. [1 X5 @+ B# ^
  1155. LDA #$312 I) a8 N4 {, K  i, u3 l: r7 y+ _
  1156. STA $BA
    # f1 H  @8 y& D  O8 w1 Q& P* B- n' B
  1157. LDA #$22
    ; F" N# G9 F6 y! |! p' [
  1158. STA $BB8 T  a( @9 V0 F+ H+ h% S2 J7 X" ?

  1159. + c7 @1 r: y& {6 b

  1160. 1 n5 W. s) H! O& P8 O: X1 x
  1161. JSR RG_PPU
      s; c4 M; \, P1 t
  1162. JSR ENELOC_WRITE
    0 f% Q+ [8 h( w# b7 I3 Q9 s
  1163. LDX #$00$ T$ Z6 H8 S8 V$ }5 \
  1164. LDA $07A3
    / q/ _0 g' `  m* `+ A, d5 ^9 a9 J) o
  1165. AND #$08- w& Z6 {3 z0 U* c4 @: x+ d
  1166. JSR ON_OFF_PPU
    9 z. |8 T, ^- a" I+ `/ t
  1167. RTS+ k+ B/ e/ t. F4 w' r5 \

  1168. $ z3 S& r& M/ `$ v" x
  1169. FOCFUL_STRING:
    # H+ j$ ?( {) \5 e' l" y" |
  1170. .BYTE $90,$99,$8D,$90,$9F,$96,$80
    - i* n6 a7 z* ~* _: o7 F
  1171. ) K  R+ J& ^/ U) f6 J9 g6 I' a
  1172. - [# u7 D. {' K3 q5 O# a7 _) |
  1173. FOCFUL_WRITE:0 w7 N6 l, A8 c. h' v
  1174. LDX #$00
    4 `: Z, N: t/ ~3 ^* l; h- \
  1175. FOCFUL:
    ' D1 n# {/ ^6 `3 g/ o% c* N4 K
  1176. JSR PPUADDR_PROCESS; z1 K, v7 w4 T
  1177. LDA FOCFUL_STRING,X
    2 A4 v+ j1 K3 h9 _7 O
  1178. STA $2007
    ) {9 B' X( n/ Z' K
  1179. LDA #$00$ i8 u- v6 q6 @- E5 T
  1180. STA $2000
    + O$ g& b, I- o- G
  1181. INC $BA
    # J" E* u+ Q- G) @0 J/ X
  1182. INX
    3 G0 E& R3 [2 u4 @0 ~( G7 D
  1183. CPX #$07
    6 ?2 Z& a7 M0 C, l7 m
  1184. BCC FOCFUL) e$ r7 w2 W9 H, n3 |  q  f# k
  1185. RTS
    5 i7 A& J. v7 r: p& p
  1186. + I/ o5 w7 P7 y( ?
  1187. FOCFUL_PPU:1 Q, d1 j0 ^! c1 a
  1188. LDX #$00
    7 r$ m1 o2 y% [; N
  1189. LDA #$62
    8 E" c# V" T% U2 P
  1190. STA $BA  \" ^0 C4 ]2 y- W
  1191. LDA #$22+ W! c9 {7 f; N8 ]' o( ?
  1192. STA $BB
    . R3 J) a5 r- v* P2 m! ?

  1193. 8 L7 d' [7 v1 ?& ?; J

  1194. 7 \4 ~) J5 e8 k
  1195. JSR B_PPU- r, r% `! D% e" g
  1196. JSR FOCFUL_WRITE  ~, R3 B* ?) c* j! L
  1197. LDX #$00
    ( V$ F" t) }8 S+ i: a4 [: r+ g
  1198. LDA $07A2& m3 ?; C( |/ l: j- A! e  ]
  1199. AND #$10
    " m2 `: [4 d* l0 Y
  1200. JSR ON_OFF_PPU5 q) s& f8 G2 b3 Y, P
  1201. LDX #$007 m8 B4 e& [; o( V" Y. k
  1202. LDA #$71# j& _2 f8 R3 S6 s8 Q/ Y
  1203. STA $BA& s: @1 N- U/ l5 w; m1 `- k& Q
  1204. LDA #$221 v' ?; Z; ]4 |3 k. N* N7 V
  1205. STA $BB% \+ Y# y/ f! n" f$ C7 {, O

  1206. * ?* z8 C7 x/ _
  1207. 4 @# A" R" I- E+ S& ~  S
  1208. JSR B_PPU* p" s( Q' U  a" f6 G% }- B
  1209. JSR FOCFUL_WRITE! S% f' ~) E- ], x( k. ?% `6 N8 D3 ^' k; ]
  1210. LDX #$00: }& A" Y8 j5 \' b8 w5 U3 x1 j
  1211. LDA $07A3
    ( f# Z2 H# k! j6 L$ w  h: k
  1212. AND #$10
    ! K# [- `: @  Z% H& O# \/ K
  1213. JSR ON_OFF_PPU
    + q- `0 K7 ^& ?: N, {8 Y2 C
  1214. RTS
    6 B# @: R0 D' r4 `
  1215. 7 i6 l: ?( l7 i, D: z
  1216. BULCON_STRING:
    - |4 O& u+ g" s+ U/ c  K, ~: v; P5 j
  1217. .BYTE $8C,$9F,$96,$8D,$99,$98,$80
    % Y3 X9 v/ L8 N/ _/ W  N7 W

  1218. 6 u& {9 c* D( K  i

  1219. * ]# U5 H0 W" ?3 h* G; j- S
  1220. BULCON_WRITE:9 o7 G1 ?/ w# b, L
  1221. LDX #$00
    8 E5 f  C# y: L+ ]+ E7 X- S+ {
  1222. BULCON:
    & a% s$ Q0 h) B( T# M5 p0 {/ u; ~
  1223. JSR PPUADDR_PROCESS# V, y; E$ [  c( X$ i
  1224. LDA BULCON_STRING,X+ |5 u! x2 w# Y- ~  |
  1225. STA $20072 s$ S8 `( B) a; B0 H* W
  1226. LDA #$00/ ?6 u+ i$ \5 _
  1227. STA $2000
    " d" b! [4 X) P6 a8 m& V- C
  1228. INC $BA+ P8 |( _5 s6 a$ a8 N* V( G" T
  1229. INX! j( G9 M+ f2 @: z1 L
  1230. CPX #$07
    . Z, S; [0 ]) m: K* O! f
  1231. BCC BULCON
    2 y- I9 V- ^  Q& c9 |# _+ b
  1232. RTS
    / U: [: H3 ^" F' i

  1233. * L  V3 m; p# X( o$ f( b9 F
  1234. BULCON_PPU:
    , g/ p7 t6 q3 z& r' x! K) E
  1235. LDX #$00
    ! c# R" S2 H6 u* G! Z, P
  1236. LDA #$625 V3 P1 w& s* L/ p7 P
  1237. STA $BA
    0 Y5 c3 A7 q) U& C+ s3 q; {  E. P& |$ S
  1238. LDA #$21/ m2 {+ T- J. F, K9 u  y9 i
  1239. STA $BB  f* {/ N$ {  D( J" E1 D) w3 v

  1240. " ^! }" k7 q4 }" D. A

  1241. & E5 L! R! g0 C# r" x: J3 U9 g! M
  1242. JSR UP_PPU
    + }+ ~, y$ \! E8 E# ]8 e* i% D8 b
  1243. JSR BULCON_WRITE
    + `: P! l9 _" ^% m5 I4 R
  1244. LDX #$00
    % v7 J- o8 A( c
  1245. LDA $07A4
    / }- i$ y/ B2 f3 J
  1246. AND #$08
    . }* t& v5 t: L9 p1 j
  1247. JSR ON_OFF_PPU
    3 x" ~3 f* S! o
  1248. LDX #$008 z+ p; }1 P- A# E  k
  1249. LDA #$71
    0 C+ O0 O2 ?) l" ?
  1250. STA $BA
    ( l: Q; ^7 k. ?, W
  1251. LDA #$21
    ' H/ a! A' y2 j* d. v7 x2 G' U
  1252. STA $BB
    , f$ U: Y: [6 I( d

  1253. 0 M* j3 m" k+ f: r

  1254. & }: x  J2 ?- p. i( X
  1255. JSR UP_PPU( F( }: x+ M) q' U" F
  1256. JSR BULCON_WRITE6 w# I0 P6 i) Y; L; _. R
  1257. LDX #$00
    1 z6 ^6 Z% Q. X  b$ n- d
  1258. LDA $07A5
    ' \9 I  |; w. }# R
  1259. AND #$08
    3 M7 x, q1 q* v$ _- c/ y* M9 _
  1260. JSR ON_OFF_PPU
    4 n; @5 x# d* x2 d4 [+ d* G7 {
  1261. RTS+ z( r% ]7 K- G1 N$ \

  1262. 1 A$ E+ L$ X! V9 p- [5 V
  1263. SPEBUL_STRING:
    . j* `# Z/ f; H9 O$ Z" v
  1264. .BYTE $9D,$9A,$8F,$8C,$9F,$96,$80
    / ?: N2 a' i( K+ z. J$ c* e
  1265. - Q& j/ Z) H6 Z9 i$ P. m! g

  1266. 3 j, R/ c7 @$ l& O, N: b: g: S
  1267. SPEBUL_WRITE:
    9 |( }: ]% l0 H9 ]% G
  1268. LDX #$00
    ! c) f; \$ b+ L
  1269. SPEBUL:: e# {) {& X7 Y% r9 F" R
  1270. JSR PPUADDR_PROCESS9 }! O$ C& \  h; z) a
  1271. LDA SPEBUL_STRING,X
    0 u8 B$ g) I/ U3 f. V; \
  1272. STA $2007
    $ |5 T' M  [$ W* J
  1273. LDA #$00
    / v& d, k. S+ ?
  1274. STA $2000, D) J7 [3 d' n' j0 U! E( @$ h
  1275. INC $BA
    & k. j& V3 k7 [4 ^. N  W" I+ e+ z
  1276. INX1 _/ o  T5 F+ k$ }# f4 ?0 s
  1277. CPX #$07
    ! E9 e6 u4 ^6 O. n" O
  1278. BCC SPEBUL. @4 _+ c( }  K
  1279. RTS( b3 M( O# L( L- m
  1280. - s7 |, h) R# C3 G9 q% M4 h; T" C
  1281. SPEBUL_PPU:; U( v# N; X, Q' x
  1282. LDX #$00
    1 @, k  R# h5 x! D/ k+ ^
  1283. LDA #$A29 b1 g5 o& r, O* V, b: Z
  1284. STA $BA9 T- J' x$ A+ v( Y% M6 ^3 c# a
  1285. LDA #$21
    ! d0 B2 \0 }  G
  1286. STA $BB0 j: `7 r; k7 k6 V* `
  1287. % b: ?% ]6 R8 f& G& h! C) Z

  1288. * X7 G" D3 T6 L, o; U4 x* R
  1289. JSR DN_PPU: O4 v& u. i" ]
  1290. JSR SPEBUL_WRITE: x5 ?# E7 S4 [6 O0 K* u3 I% B4 G
  1291. LDX #$00
    2 O- x& B" l+ i5 |1 s' T$ c/ g" M) i
  1292. LDA $07A43 C2 Z1 P  B2 R# F# t; a( w
  1293. AND #$02
    + e" W5 t. |7 X6 P" y$ e6 G# t$ v
  1294. JSR ON_OFF_PPU
    0 d; h; C  m" k
  1295. LDX #$00( X* L# z+ t% v
  1296. LDA #$B1( }9 q5 }% t6 y! Z3 P5 A
  1297. STA $BA; L2 O: u6 s9 Z8 `/ a
  1298. LDA #$21
    9 @3 v- a" E2 T' e. D
  1299. STA $BB
    ) M/ g  Y; k& J  C
  1300. 3 m6 ^1 o4 z0 I7 V( t

  1301. 3 P: {- d$ P4 c+ m8 ?
  1302. JSR DN_PPU
    ) q- z  H& z7 I* e* E. }) S+ h
  1303. JSR SPEBUL_WRITE' A, v  t. A3 d* M4 ]
  1304. LDX #$008 a+ _2 y9 q+ ]/ L( U9 ~& R7 g
  1305. LDA $07A5
    ) O* t6 E- U8 [, f/ I
  1306. AND #$02" g/ p3 ~" \' X8 i5 y
  1307. JSR ON_OFF_PPU
    + [! U) {: Z- y# H. {( [
  1308. RTS
    7 g1 @- Q+ S. d
  1309. " K1 k+ a% d, C8 o* c
  1310. .ORG $A500
    9 S* a- ~3 G! i$ N! _* w& c# _8 v! G
  1311. CLEALL_STRING:
    9 t; d% o. {$ `( a- x0 x) ?
  1312. .BYTE $8D,$96,$8F,$8B,$96,$96,$80
    ! V! G  j& j( A' k" H7 r$ x
  1313. ( i3 N4 o6 I! l2 v" F
  1314. ( c5 J; M  E, i: U1 W$ \
  1315. CLEALL_WRITE:
    1 M7 ^4 s* K# W( Q/ ]( B
  1316. LDX #$00% \; g! l2 c6 I% x* r% Z
  1317. CLEALL:
    " G1 B/ [. |' I* S  C. y
  1318. JSR PPUADDR_PROCESS
    ; X3 `! l' u% e! ^6 c
  1319. LDA CLEALL_STRING,X! m* ]; U" K) [/ o0 Y/ M
  1320. STA $2007  S# V, Y0 l, u/ j2 P0 e
  1321. LDA #$00( l" ?9 A" i) A0 f' l. Q
  1322. STA $2000
    , I. X  \. J# y) p' a) l; {
  1323. INC $BA# F1 H% P" z6 G6 M5 y# z# Z0 P1 _
  1324. INX1 u4 v' n' C- h' r3 ]: ]& t
  1325. CPX #$07
    7 d" e* F% C  r; m7 T
  1326. BCC CLEALL
    $ {& s) y4 C: q$ u2 b
  1327. RTS
    : Q6 O+ E3 Z, M& D

  1328. * }5 p) J9 \- D! o7 o. x+ ?4 o
  1329. CLEALL_PPU:8 H' ?1 d) v1 l
  1330. LDX #$00
    9 y$ ?" k9 e8 Q  I& T
  1331. LDA #$E2
    + k, d! Z! c" C3 x
  1332. STA $BA
    3 e) S) ^2 H  R; e0 J
  1333. LDA #$21/ C4 n& w. L+ ?6 a
  1334. STA $BB
    $ M9 S. H/ u$ Y: [# w' g

  1335. ' d. R! h/ N5 Z, H* G) C. m5 c+ L
  1336.   F( ~4 [7 Y4 S/ r9 C6 [5 P5 s2 `' E
  1337. JSR LF_PPU
    ' a7 q% |  A8 b
  1338. JSR CLEALL_WRITE6 q. x/ k6 {! i% t  U( ^
  1339. LDX #$00- Z3 r+ l8 N9 M' d' l
  1340. LDA $07A4  W; }5 m6 u( c1 s4 G
  1341. AND #$041 [4 F  P7 c' K5 |; p" ]6 U
  1342. JSR ON_OFF_PPU
    ; J( b2 R: j  F
  1343. LDX #$007 c% |* S  C8 G1 \
  1344. LDA #$F1
    8 ]6 Q  p  w. D( E
  1345. STA $BA
    9 f% E& O' g4 |. l+ ]* V
  1346. LDA #$21
    - N* X, o7 Z& ?9 C
  1347. STA $BB- X- t/ G- w4 l1 b3 b* X, s

  1348. # D- O: i$ @) S6 |( z# ^5 r

  1349. ) D% f8 q1 J( Q  Y9 @/ a; V
  1350. JSR LF_PPU7 B2 F& P$ P+ M* y1 v' q+ X6 T
  1351. JSR CLEALL_WRITE! T6 j, o5 W$ \! N- N1 \! u
  1352. LDX #$00
    0 m6 w& A/ z! C/ u# t
  1353. LDA $07A5# u4 S, b/ p" [: A
  1354. AND #$046 A# `! S% H/ T9 H
  1355. JSR ON_OFF_PPU) f8 R: r( y7 S' l% h" i8 Y# d
  1356. RTS* E+ E# u) {! n' y' m( P) Z& L0 D

  1357. $ N+ H) X) s& ]# r/ T
  1358. HARDMODE_STRING:
    ' R7 f# K4 o$ D: i, t
  1359. .BYTE $92,$8B,$8E,$97,$99,$8E,$80
    7 w5 }# B. y# W$ F7 {

  1360. # w6 p3 s% b( l* `' r! X
  1361. 8 s5 F0 w, R9 n+ p! H' V: K7 w$ U
  1362. HARDMODE_WRITE:2 Q, u& @/ w! j2 H& A
  1363. LDX #$005 U1 Z/ ~1 ~2 z+ d6 D
  1364. HARDMODE:( A1 L; h* d; Q. w8 C1 N2 S
  1365. JSR PPUADDR_PROCESS# }2 b: X% H& i$ P* c7 @' O
  1366. LDA HARDMODE_STRING,X
    1 C9 U+ C" k' Y/ A9 L) A
  1367. STA $2007
    $ j- d: _2 z% a  x
  1368. LDA #$001 b  H/ \3 U0 J' O9 T
  1369. STA $2000
    - r- _2 ?/ ^* k2 A: X' L6 [: S
  1370. INC $BA
    - ^/ U7 X# Z. D6 }# S% |  W% U  g3 b
  1371. INX" E6 r7 s, s+ c% G$ p3 ~7 `
  1372. CPX #$07; ~1 ]* _. C9 V" ?
  1373. BCC HARDMODE( g7 M0 i5 }$ ?# y
  1374. RTS
    7 h" ]/ n# E- P/ M
  1375. % \- T( Q3 O$ k
  1376. HARDMODE_PPU:
    ) t3 U9 s0 f% ^" A8 m, c, ]3 ~
  1377. LDX #$00
    - w9 W* _6 P$ j# j5 D
  1378. LDA #$22
    4 `: e7 s" \7 i& S6 E
  1379. STA $BA. r+ ?( ?* x; R
  1380. LDA #$22
    . s5 }, w! B, d+ n
  1381. STA $BB
    " o$ t8 `7 I( @) Z
  1382. JSR RG_PPU
    $ |- v9 @; b7 u3 C- X$ P
  1383. JSR HARDMODE_WRITE
    % S3 }  Y* [- G7 r1 N6 E
  1384. LDX #$00
    8 z6 N& E  [1 M/ R& K
  1385. LDA $07A4/ S1 y* S7 F( o3 }2 k. |# }
  1386. AND #$01
    # n8 Q" v6 S% A6 m; F0 R
  1387. JSR ON_OFF_PPU
    ' ~$ M2 A8 x' D. N
  1388. LDX #$00
    " T1 T+ X  T) G
  1389. LDA #$31
    $ n! J' J( y, @( m. e
  1390. STA $BA
    ( N& d& H' t6 n) a2 e) x. y
  1391. LDA #$22
    1 R$ X( n" u( X
  1392. STA $BB
    % K# |! o( b; H1 o# r
  1393. & C( i% _) X# O( ^

  1394. * j! g1 h/ H3 i% M3 M, S5 S
  1395. JSR RG_PPU
      {& k- s  g) I
  1396. JSR HARDMODE_WRITE
      z3 ?- r( e+ i7 Q9 f
  1397. LDX #$00
    2 J% i# A+ D+ c8 o+ {
  1398. LDA $07A5
    ! }& e( y1 A" }& M) ~: u, R
  1399. AND #$01- }2 e; k, A6 s* z9 \
  1400. JSR ON_OFF_PPU$ n! \0 s# Y. v- u% [
  1401. RTS0 V4 K" \" C0 Q4 [. L# ?

  1402. 6 r4 Q6 |4 ^( j# V1 q/ m" Y; o( o
  1403. B_TO_JMPSTG_STRING:
    # W! j: T! o/ B. O% f  }5 L9 G+ R
  1404. .BYTE $80,$8C,$80,$9E,$99,$80,$94,$97,$9A,$9D,$9E,$91,$80
    $ ~6 D+ h" e* e1 H5 i' U

  1405.   M) H$ V8 Q, L* B6 @
  1406. 2 u* r& d7 O  U- x, t" Q
  1407. B_TO_JMPSTG_WRITE:
    ( y' n6 r8 A8 q$ V9 l" [0 U
  1408. LDX #$008 O: W/ @1 V6 J0 D" G) B
  1409. B_TO_JMPSTG:% w7 Q4 {3 T6 k' z
  1410. JSR PPUADDR_PROCESS
    3 A; e& E5 S  Y1 e0 ?
  1411. LDA B_TO_JMPSTG_STRING,X, c" q. }! ]3 ~. d4 ]
  1412. STA $20075 \; x; J: i% h' |" K% _- ?
  1413. LDA #$00
    & w1 r( B: a' U% u5 q( a
  1414. STA $2000" s! u5 u( g1 k; d) c
  1415. INC $BA
    2 ^1 e0 k: u; r- z* j
  1416. INX
    7 h" z8 E1 k% J
  1417. CPX #$0D
    2 W$ q% [* ~) p$ d2 V# v* i
  1418. BCC B_TO_JMPSTG
    + f' s  k& ~0 J7 J, o. c
  1419. LDX #$00, c9 w9 \' `( Y4 }
  1420. LDA $7FE0
    # `6 j& J) r3 O1 U; t. d! N
  1421. JSR ON_OFF_PPU
    6 V9 ~. C) _, `
  1422. RTS$ e2 k: W& r  s: r. q
  1423. * }1 Q" _3 m. P3 Q/ v0 j) c
  1424. B_TO_JMPSTG_PPU:' p7 I# I2 P0 m3 V
  1425. LDX #$00
    , H. b$ j2 A5 ?1 F% Y& q
  1426. LDA #$68
    8 S4 O8 T+ b5 s9 j7 c
  1427. STA $BA
      t& N# b2 U  b: c: t6 o
  1428. LDA #$229 W$ X! N+ L9 M# p
  1429. STA $BB
    ' F4 U# Y+ `% }- {, e
  1430. JSR B_TO_JMPSTG_WRITE* D4 l) G) A/ {/ b( O
  1431. RTS8 |- W/ d) T  `$ B; m

  1432. " c3 h7 a: s( `, E% H

  1433. ) I+ e, h1 s& O% g6 E% ~
  1434. A_TO_PLAMOD_STRING:
    : |9 K7 G% h. b$ ?( a8 i, |- w
  1435. .BYTE $80,$8B,$80,$9E,$99,$80,$9A,$96,$8B,$97,$99,$8E,$80. f4 a& [" \- C& d. d, J8 i
  1436. ; v8 H, M( R- W* J. s' k6 x

  1437. 4 n  `) p3 n% [( i8 z
  1438. A_TO_PLAMOD_WRITE:
    8 k+ t  k8 [. D/ Y, `! W
  1439. LDX #$00: r3 D/ z5 [, F0 M/ q5 T
  1440. A_TO_PLAMOD:
    1 _- F4 p" y2 F7 c  H1 N/ n: c0 S
  1441. JSR PPUADDR_PROCESS5 h5 R% q+ S+ S! u
  1442. LDA A_TO_PLAMOD_STRING,X
    * h8 T# [7 e$ I* q6 L0 z
  1443. STA $2007
    7 T* G" L4 M1 q5 p
  1444. LDA #$00
    8 ^+ G, z) Q0 `
  1445. STA $2000/ |, r& A$ b5 u. c
  1446. INC $BA9 b" R0 k& g; R  W" d
  1447. INX2 L% G2 U8 H' }/ K* V" P8 A
  1448. CPX #$0D: P! t+ S8 b4 y8 v* v
  1449. BCC A_TO_PLAMOD1 @. D3 P1 L" U4 w; y/ @" N
  1450. LDX #$004 A( J3 k+ ~3 Q) i7 Y! U* `! t
  1451. LDA $39  b2 e  r1 w& I- t" z% S& q
  1452. JSR ONE_TWO_PPU/ l* n$ K3 }7 Q/ M  h* f* m
  1453. RTS& c" V+ K2 n$ C1 I
  1454. 8 k) e, V. E& S" L: k  o  @. o  n
  1455. A_TO_PLAMOD_PPU:
    " o2 e1 |7 P, N+ ~' ]. N
  1456. LDX #$00
      `- f$ G2 A: G5 F
  1457. LDA #$A8) s5 K4 n/ s8 Z) K3 O3 t- X
  1458. STA $BA2 c8 C2 b, v/ j
  1459. LDA #$229 e( I6 {# n0 s6 y: S( s
  1460. STA $BB
    ) ^% _& ]/ Q* r1 E1 `
  1461. JSR A_TO_PLAMOD_WRITE
    6 M" z4 x# R3 ~* D
  1462. RTS
    - ~( t* s& Q0 B: Z( Y) k* y

  1463. . ]; Q* f0 R* T0 f
  1464. MOVSPE_STRING:
    5 K; M# @5 {& P
  1465. .BYTE $97,$99,$A0,$9D,$9A,$8F,$802 h7 Y/ m, x* f2 H" E. f
  1466. $ ^9 N0 k# G% D% E: W& v' b

  1467. ) V9 D+ G" V: J2 M
  1468. MOVSPE_WRITE:& o- W- O5 M2 p' @" j
  1469. LDX #$00
    8 Q6 n* l0 m# S! Y3 w) S- m
  1470. MOVSPE:
    ! e6 P1 x0 Z) t
  1471. JSR PPUADDR_PROCESS
    ! F) e0 m5 H7 _% ~6 m
  1472. LDA MOVSPE_STRING,X
    * Q+ |3 x! i, a) m$ M: d2 h7 c
  1473. STA $2007" W! N! T$ n+ r" f0 {; v
  1474. LDA #$00
    4 W7 j3 z( h  d5 G
  1475. STA $2000
    ; b2 J% b! A8 a
  1476. INC $BA& |0 u, w0 q/ ^8 v/ A7 a2 Y4 T
  1477. INX! g3 p: x- p9 X- ^/ k3 o. R2 }
  1478. CPX #$07: G2 v$ _4 c* C2 V2 N6 O( ~
  1479. BCC MOVSPE0 f0 h- e7 R, i2 u* P
  1480. RTS" Z) \: G7 e: F2 u4 O/ r

  1481. ' p/ W" \+ {) s- b, w. N( ~' |
  1482. MOVSPE_PPU:
    8 B* l& }8 a, ?% t6 R' C
  1483. LDX #$00# S2 f, {5 [: `  I* W& ]
  1484. LDA #$69
    & a% n3 L  t2 i+ \$ n4 S
  1485. STA $BA
      G/ N. S  `; _" u* L  H7 E
  1486. LDA #$210 T! \5 @, |* f
  1487. STA $BB
    2 p5 t3 ?5 w: [3 A+ \% A
  1488. 0 c7 p. Q/ i# P2 H# s4 _; f
  1489. + o4 H; |1 x6 ?3 ^
  1490. JSR UP_PPU
    1 `. q6 P) _( O
  1491. JSR MOVSPE_WRITE. T, N. Y- v: }' r. l
  1492. LDX #$00" O+ B9 y' F5 q) Q
  1493. LDA $079F
    $ I. [8 o% ^, s" n8 o0 j2 ]* u
  1494. AND #$08
    / X' l* Y; C4 r5 P+ x
  1495. JSR ON_OFF_PPU/ N. C1 U7 Z6 _4 A/ b
  1496. LDA #$80
    . i: g5 }$ o- X6 H4 a2 L# Y( b3 g, j
  1497. STA $2007/ O: |# J" p# F5 n" T+ ?
  1498. RTS
    : l+ B7 K; ]8 [9 K" X" v: z

  1499. ; v1 n1 c6 R' H3 i- P% c$ a) m. ~% N5 W1 G
  1500.   ! e6 ?6 F% r  `
  1501. UNLJMP_STRING:5 Z& j1 ^- {5 {) ~6 _
  1502. .BYTE $9F,$98,$96,$94,$97,$9A,$80+ r3 w) n* a. f2 ]0 a8 B

  1503. $ P5 j+ k0 F3 o
  1504. 8 u8 M/ D. j3 r  y
  1505. UNLJMP_WRITE:
    9 c/ a; @1 {: Q1 m1 b, M5 s( [* j
  1506. LDX #$009 r- K4 E4 u3 X
  1507. UNLJMP:- \; c& @$ ]! j' @
  1508. JSR PPUADDR_PROCESS/ N6 x% @5 P' r1 e* v% A
  1509. LDA UNLJMP_STRING,X" L( }. N7 }( e! t1 x" B  R. I
  1510. STA $20079 u5 Y+ J% ~7 v  z; v8 G/ R
  1511. LDA #$00
      n2 |& ~: V$ U, H( c/ [* \
  1512. STA $2000
    - z3 @  p; U3 j- m3 O2 {9 H
  1513. INC $BA% |" Z( Z1 K' E" @
  1514. INX, `& R7 O$ V0 \0 V, ?
  1515. CPX #$07  E5 ?& l) v2 e
  1516. BCC UNLJMP
    3 K  J; L. \& V' z
  1517. RTS
    / E0 {% @! `9 O) U  j  N
  1518.   A7 u* s& z0 }3 O# [3 ~
  1519. UNLJMP_PPU:7 B# h4 D  w9 W0 i" ]7 r/ x
  1520. LDX #$00( f3 S5 b0 ^% e9 ]/ y/ T5 Z
  1521. LDA #$A9
    . p5 `1 |1 X& p
  1522. STA $BA
    ' ~& C- s- ?1 w. B  w. @
  1523. LDA #$21
      b/ _/ I" B! g7 }& d( d
  1524. STA $BB
    ( z  Z& z$ N, U5 Y$ d6 n

  1525. $ }& I1 b2 o$ R9 f
  1526. 6 @& t3 `( W6 p/ j/ r! }8 C0 v5 G
  1527. JSR DN_PPU# `0 i8 K: O2 b4 b. ^/ r0 j3 h0 I
  1528. JSR UNLJMP_WRITE7 s. I. v$ @4 J4 l- T, m( I) f
  1529. LDX #$00
    : G0 ]% q1 ~) G4 m- m
  1530. LDA $079F  {7 ^3 L' x0 w9 j/ c
  1531. AND #$04
    0 \: ~  r" x! j; H7 z' k
  1532. JSR ON_OFF_PPU
    6 H0 o5 G1 @$ F+ F/ |4 d
  1533. RTS
    4 w5 D- l1 x  [2 e6 b
  1534. 6 K9 D9 o# Q2 S. Y3 ~% I6 X& A
  1535. 5 V* F' t5 B3 r4 t, U7 F
  1536. DESTRO_STRING:5 \  Q' K" D4 F$ {/ ~: q4 W
  1537. .BYTE $8E,$8F,$9D,$9E,$9C,$99,$80
    & K9 ]: y  ]1 y$ h+ _1 [6 h  Z
  1538. $ C% E: R) j+ |  L. T+ m/ C
  1539. - G; [5 O  F7 R2 r! A; ?
  1540. DESTRO_WRITE:
    . o' Q; P) q  h5 ?6 a
  1541. LDX #$00
    9 `. v# S5 n( g3 A8 s3 ]8 m
  1542. DESTRO:7 x' F( F9 q( Y' n: t6 P4 K
  1543. JSR PPUADDR_PROCESS
    - |6 o* Z' h  \' N- s) R
  1544. LDA DESTRO_STRING,X
    . P' s# T8 |. g
  1545. STA $2007. v# I# y# R" l% I3 t! ]
  1546. LDA #$00+ e2 I+ ?& ]% ]3 ^7 P
  1547. STA $2000# M- h* M: D4 S( E. Y! ?0 B
  1548. INC $BA
    ! N) C4 T3 I! ?; r2 k) I* e; u
  1549. INX
      ^) ?7 ?& B: }+ ?* T9 @0 u
  1550. CPX #$07: z2 l5 }9 h0 e3 f; P
  1551. BCC DESTRO
    - Q; z+ E! ]7 `- {# K7 |: m
  1552. RTS/ V0 j* x/ u: G+ m7 [6 k
  1553. : t! c+ e+ m! q
  1554. DESTRO_PPU:
    5 A2 |' J3 r6 F3 y
  1555. LDX #$00: ]9 E  D3 I* k8 R2 h  F
  1556. LDA #$E9
    % ^: J2 H* ]$ @- n& f! F  {
  1557. STA $BA
    0 ]& h, ?& X/ ]0 ?6 x3 N" t
  1558. LDA #$21
    8 ^2 o9 Y3 S2 P8 @
  1559. STA $BB
    - l, P0 L( G' F& s! B
  1560. + |+ X: f7 @/ M7 G. F4 `; c8 {
  1561. ) A0 Z( J9 ]+ J" A. q  B
  1562. JSR B_PPU
    . N9 [: o& o2 ]4 b/ d( L
  1563. JSR DESTRO_WRITE$ `" t; @$ s- n' r
  1564. LDX #$00" X) q1 s+ a( y, v) c4 _0 @
  1565. LDA $079F/ f6 D9 l: \# z, y' Q' ^* E
  1566. AND #$40
    " N+ `6 p7 \; w$ _. h* [6 i# L6 t, h
  1567. JSR ON_OFF_PPU+ I$ D( _" L: w
  1568. RTS" f; {! k/ r7 u4 n

  1569. 0 {, k0 M, s7 a( g+ h

  1570. 2 F1 g) e+ _' u! Y8 j
  1571. EQUBUL_STRING:! u  k+ D, L( V" X" O7 P
  1572. .BYTE $8F,$9B,$9F,$8C,$9F,$96,$80
    % \' {) h' \+ x5 }

  1573. / d1 I2 L# R+ x1 W/ D% E2 ^
  1574. 3 v6 h" c/ y* G6 M/ L' v
  1575. EQUBUL_WRITE:- R' W) M5 }0 r+ N7 \5 ^, w
  1576. LDX #$00
    / {, O8 e. e) Y9 B: m
  1577. EQUBUL:( D# z) E; g# Q/ Y+ s* a
  1578. JSR PPUADDR_PROCESS
    1 U. m! P* Z. c0 R
  1579. LDA EQUBUL_STRING,X0 C7 U1 s/ @, r5 Q
  1580. STA $2007
    8 h; i+ A* k6 l, f; J3 m
  1581. LDA #$00" o' R# O% A8 i1 }: z' h
  1582. STA $2000
    ) L& z& [6 `9 B1 j
  1583. INC $BA
    2 Z/ X# v3 p$ a7 u1 d
  1584. INX
    $ K5 M; w. _9 ~" U- R- ^
  1585. CPX #$075 |2 w* p& z0 N3 U9 H+ k, x
  1586. BCC EQUBUL
    ) F0 F( I$ @3 a# m( x/ Y
  1587. RTS1 Z; s7 R& M! V7 V7 R- |4 }5 y( Z. K
  1588. 8 n* a9 |  K' B5 W
  1589. EQUBUL_PPU:
    & L: _* o/ F) h
  1590. LDX #$00; F& L6 D! k4 c0 u# {/ ?8 |
  1591. LDA #$29
    ( [( R- L- z( e6 Q, e, o8 i7 f
  1592. STA $BA
    9 q3 ~! s  P& Z4 p; C2 c
  1593. LDA #$22
    - b! m8 A. @; K
  1594. STA $BB
    + e/ Y& Q' H! G% P) s  O
  1595. 9 m+ a, E6 x* a% A- d/ {/ B
  1596. ( K& d- a" F9 y, e: {  i: S0 a
  1597. JSR A_PPU
    $ b6 b% n5 {; W# J& Y8 p6 L
  1598. JSR EQUBUL_WRITE9 X. _, P+ U" h5 W. o/ Q# z
  1599. LDX #$00$ v* X) b) _  [- p* Z) }% ]
  1600. LDA $079F
    ' I' ]8 @) \2 Q  M
  1601. AND #$80: n6 r) ?- l* G. q+ _
  1602. JSR ON_OFF_PPU
    9 {8 L& Y& Z' O# k$ z
  1603. RTS+ J  R) [/ I1 q* R, w

  1604. ) k+ m/ {# n. {* V. @0 t8 S0 w
  1605. ; r* }6 s# O, m+ Y) `# r

  1606. + d( o8 h) O# {
  1607. BULSEL_UP_STRING:  e/ x+ l; I( h
  1608. .BYTE $9F,$9A,$80,$9E,$99,$80,$9D,$9D,$80, ~  `- j/ `4 B; w1 f: @
  1609. ( ?7 y$ n3 b1 W, L
  1610. BULSEL_DN_STRING:
    2 q* C% t- v) C+ o' N; L
  1611. .BYTE $8E,$98,$80,$9E,$99,$80,$9D,$96,$80) }. W5 g# J) `

  1612. * L  X7 e; \! t9 O5 }
  1613. BULSEL_LF_STRING:& r. V" T0 [! W; ]: M! s
  1614. .BYTE $96,$90,$80,$9E,$99,$80,$9D,$97,$80+ i  K) ?& E6 p$ }( e- {3 K
  1615. ; K+ {6 g) `: y: Y1 F6 Y9 @" q; g. @
  1616. BULSEL_RG_STRING:( s1 e0 g6 F% S
  1617. .BYTE $9C,$91,$80,$9E,$99,$80,$9D,$90,$80( M5 c7 n8 i% }$ _5 X. R

  1618. , O/ B8 y7 x7 a7 E3 I6 {" \' t& O
  1619. BULSEL_B_STRING:; G( k$ a7 x& V4 S6 k
  1620. .BYTE $80,$8C,$80,$9E,$99,$80,$9D,$98,$80  T7 A: `2 k" v* s! s- j. Z

  1621. 9 I8 Z6 G$ B0 q
  1622. BULSEL_A_STRING:  A% V2 l1 S0 H. H
  1623. .BYTE $80,$8B,$80,$9E,$99,$80,$8D,$99,$97,$97,$99,$98,$80,$9D,$9A,$8F,$8F,$8E
    # V7 Q% f4 s: k) d7 V
  1624. / R7 D2 \" t  G( B* m$ n

  1625. 8 Z2 J1 U2 V( p6 ~! G( x
  1626. BULSEL_UP_WRITE:0 Z4 m' ^* P% U4 J) _3 d: H) k
  1627. LDX #$008 s" s4 @; J0 p/ N
  1628. BULSEL_UP:; h; M# z2 g  k; f
  1629. JSR PPUADDR_PROCESS* \+ \& U! ]# r9 a, B7 N4 H
  1630. LDA BULSEL_UP_STRING,X# _  J" ^7 W; o2 D" K' `' u
  1631. STA $2007
    " n3 X; u! F+ P- l
  1632. LDA #$00& \9 x& Z# ?& K( f" c; }
  1633. STA $2000
    " D* K" f3 B+ |# I  I& Y5 j, Y
  1634. INC $BA4 b; r5 v" ^! }
  1635. INX
    4 h+ k9 a5 d; `( f9 u$ q, I
  1636. CPX #$094 i" c; i( I, r) m0 R
  1637. BCC BULSEL_UP
    ' Z0 K9 X- Y  z0 ?
  1638. RTS
    . C1 y; A0 }& u( M
  1639. BULSEL_DN_WRITE:' C# |9 Q7 U$ B& [8 o
  1640. LDX #$00
    9 I3 b5 u1 I  o, _1 _" E
  1641. BULSEL_DN:
    ; w, P! @3 T4 ?& ~" r
  1642. JSR PPUADDR_PROCESS
    * A' g* h( W: |- }) q
  1643. LDA BULSEL_DN_STRING,X9 L) S5 W5 a4 K. k' {/ C
  1644. STA $2007
    , P5 ~1 ^! I3 N4 A
  1645. LDA #$00
    3 y0 O" n, l6 H& e
  1646. STA $2000
    # I7 N) `- j  f+ _
  1647. INC $BA
    - |/ u  ^; b" l  U5 L
  1648. INX' N" v! ]* }$ O4 \  v: D, p
  1649. CPX #$09
    / a7 V( E! k; U0 N% d% m
  1650. BCC BULSEL_DN) ~5 T# f+ U" |: P
  1651. RTS
    0 \2 o, M/ N5 H1 H0 j! h2 M
  1652. BULSEL_LF_WRITE:
    0 X/ ?2 g2 l! f0 v
  1653. LDX #$007 M/ e4 y) f: b4 o4 R
  1654. BULSEL_LF:5 x: h/ C/ J- G: z# m/ ]
  1655. JSR PPUADDR_PROCESS
    ! A7 U% B" D5 J3 e3 _
  1656. LDA BULSEL_LF_STRING,X5 o8 m' H3 S: J$ j& ?$ [" P
  1657. STA $2007" a2 W$ M# _8 V) x8 u# [; B
  1658. LDA #$00
    ( Z7 K" i! ~+ o2 T* G1 T9 _
  1659. STA $2000
    / Y$ l, S% j/ Q& ?; h# L" e
  1660. INC $BA
    . r/ v0 ~4 s3 h+ f
  1661. INX5 L/ c' l- S* k. E
  1662. CPX #$09
    3 @8 c6 N3 ]- i5 k5 X, W) v
  1663. BCC BULSEL_LF
    $ a8 b1 I5 g, ^( H2 _" h
  1664. RTS
    * J5 w& a( ]/ E9 k# l8 f6 Z
  1665. BULSEL_RG_WRITE:
    2 p" s' x. G/ W$ o' B4 [3 z
  1666. LDX #$00
    , r, L4 a& B" S6 c! N/ E0 w% c% q% ?$ w
  1667. BULSEL_RG:
    ; E5 p1 J5 Q5 D, \% W& }4 M
  1668. JSR PPUADDR_PROCESS) H9 b% z, O; x, }" E. g
  1669. LDA BULSEL_RG_STRING,X' i: I- R' R0 h5 }" ^
  1670. STA $2007
    # I/ U7 A  Z* g  F
  1671. LDA #$00
    1 k/ G7 q. }- p) m
  1672. STA $2000
    5 }9 @* [6 z. i: m3 K
  1673. INC $BA
    5 x& f$ n% Q7 e
  1674. INX) `9 i+ O* T- v* g
  1675. CPX #$09
    & d# G8 v/ Z6 B5 o! z
  1676. BCC BULSEL_RG
    ) `( Z( e! o( w  H4 w2 R
  1677. RTS( [6 A5 B. r* w) w1 k6 v6 K3 [2 e- j" s
  1678. BULSEL_B_WRITE:
    ' `) ^4 E# q6 L5 z: x- t
  1679. LDX #$00  p: \0 }1 Z* S' p4 I  K
  1680. BULSEL_B:% N: p  U! i0 b2 u2 k# e1 G
  1681. JSR PPUADDR_PROCESS+ T7 F& Z& _1 i2 }# I+ N" L
  1682. LDA BULSEL_B_STRING,X
    ' q$ z& ~4 j* N; Y: O8 C  X
  1683. STA $20077 {% m0 x- t0 R% `7 P
  1684. LDA #$00, e/ A7 u& h; U! E5 Y1 v/ h
  1685. STA $2000' \* S; Q) z: W0 p2 @9 [
  1686. INC $BA2 K) s+ Z- c$ {* ~
  1687. INX" e4 y/ ~# U% j
  1688. CPX #$09
    * I5 J1 Y: p: M8 N
  1689. BCC BULSEL_B
    ' o4 m: ]2 i5 e& G+ m
  1690. RTS$ m! e- k& Y; f0 i  S0 d1 @
  1691. BULSEL_A_WRITE:3 |$ s1 V" q6 J
  1692. LDX #$00' R- S, u  [' g+ e$ o" d# s8 M
  1693. BULSEL_A:
    - V( X4 `5 l4 o1 i: p) u5 s0 _
  1694. JSR PPUADDR_PROCESS8 _. k* V" M7 n# g2 N) p4 y
  1695. LDA BULSEL_A_STRING,X
    : K. Z* v" S2 U' K+ x
  1696. STA $2007
      `( \* U5 E# @5 y" K  a& \
  1697. LDA #$00$ J, L) F* c1 q0 Q* N
  1698. STA $2000/ S& s+ |$ s0 A7 ]* u/ ]: ~
  1699. INC $BA
    & u# ~6 R3 w* r4 z
  1700. INX3 c1 B* R& ]# u* \& L3 E  r
  1701. CPX #$12; X  V  N2 M0 {* V
  1702. BCC BULSEL_A* W5 Y4 Y5 E! q8 f
  1703. RTS
    & x7 O/ [: l( ]3 Z8 Y# }- h0 e
  1704. ( m) h$ l% y( r) _. x+ H# y

  1705. 2 B* U  X8 A% w9 D# q
  1706. - e' h7 [$ r+ w8 |# V* x# B# X; s
  1707. BULSEL_PPU:
    " x$ q( M$ K$ c- R/ ~6 l/ t9 o( `9 P3 W
  1708. LDA #$6C
    $ h' @( H2 \' m+ L1 U. K% u0 ^
  1709. STA $BA
    ' T: N5 [) {  V! e$ s9 [6 }
  1710. LDA #$21
    - y# d1 f( z4 w
  1711. STA $BB# ]& k+ N) O" Y
  1712. JSR BULSEL_UP_WRITE
    7 n# k- n# E. i) [8 Y9 _3 G1 k
  1713. 4 i  W6 |' p) M3 k$ m$ g# d5 b1 A
  1714. LDA #$AC
    9 T+ [+ w! N3 I, ^3 k8 {' U( `0 t
  1715. STA $BA5 c0 o. y% }) h: L; m
  1716. LDA #$21# Y* F5 [* \2 Q0 }3 x/ R4 R) \
  1717. STA $BB1 u( F4 r: Z& U$ H2 }
  1718. JSR BULSEL_DN_WRITE% {3 N; d$ Z3 P+ E3 y

  1719. ! O8 D' O2 P' {
  1720. LDA #$EC
    1 A! B" r9 W2 q' m
  1721. STA $BA# d2 W" C$ Y. f2 g/ r
  1722. LDA #$21
    8 @  V3 H2 s6 L- \+ u, b0 \
  1723. STA $BB
    9 u' e: O' B( j2 Z+ j: G
  1724. JSR BULSEL_LF_WRITE5 ]6 H+ l4 m6 {
  1725. * Q. t, m5 E3 r  F
  1726. LDA #$2C  S% D: U+ v( S% p" Q; Q% U3 e
  1727. STA $BA
    ' u; h$ o4 K5 o( q" u- U9 G
  1728. LDA #$22
    * E- V# U3 u: I! K
  1729. STA $BB  N; W- D* u" w6 x0 L* p
  1730. JSR BULSEL_RG_WRITE' g& S: D! v# r# q" V& g7 r
  1731. + [. o# i  d( \4 D
  1732. LDA #$6C
    " Z1 ^8 [( b# a* I
  1733. STA $BA
    9 G7 N+ v# M1 R: r# I# _7 j/ L
  1734. LDA #$228 P( f3 g( S- t) S5 s* G
  1735. STA $BB- v% a5 u( _% ^; A
  1736. JSR BULSEL_B_WRITE
    7 w9 d! C) H1 z  O2 G

  1737. ) l2 W; t3 S9 I5 T
  1738. LDA #$A73 A8 ~# g8 ]2 e* [" r) R( ~
  1739. STA $BA/ g% [. Q4 V! _0 v: l& r' e+ O
  1740. LDA #$221 E1 o- v" g4 y) R! ~1 U4 K* J3 R
  1741. STA $BB4 D# i: q' j2 x+ n! e/ V$ n7 D
  1742. JSR BULSEL_A_WRITE6 j* e2 q" _# \
  1743. RTS9 i; L( [8 f+ |  B5 l  Y3 p

  1744. $ S" p0 K% x) }1 A. a4 i

  1745. % X& q0 u1 w9 j/ B/ q1 ~5 e

  1746. & X! z1 C) D. ?$ Q* n$ A
  1747. UP_STRING:6 {4 L( O5 C+ y; H; t" }4 ?
  1748. .BYTE $9F,$9A,$80$ I# ^% L% X' c# }* ~4 C& r8 J
  1749. * T. i# _+ t* f, R& d- G
  1750. DN_STRING:
    ! i' M5 X) S0 m( F- B6 C& ^0 {
  1751. .BYTE $8E,$98,$80
    " s% A0 B' W" w

  1752. ' p8 t+ M3 W4 @
  1753. LF_STRING:! s; `! j4 q; J9 n9 {
  1754. .BYTE $96,$90,$80
    9 C; t' }; h# A) B

  1755. 3 [: [" d! L( A% S. N( Z
  1756. RG_STRING:
    / U. f8 }# }+ p5 j: C
  1757. .BYTE $9C,$91,$80
    - x4 K+ x3 f# Y% r# s5 Z1 q

  1758. 6 S; i: p% \' x7 E: u# G  j
  1759. B_STRING:
    , D& n+ j; y" Q/ q8 u/ F
  1760. .BYTE $80,$8C,$80, b0 V! `2 ]) h9 w3 ^! |

  1761. 0 w; t2 t0 }2 k2 Q! d) W
  1762. A_STRING:
    ) |% z3 D8 @2 B5 F5 b- g8 _& W; T
  1763. .BYTE $80,$8B,$80
    ! M1 ~0 z& l8 E8 D# [, S: [* T/ Q6 e) O
  1764. ! V+ i3 j6 g2 T
  1765. 2 Z8 N: f# n% \% z  z  E' k' Q. }
  1766. UP_WRITE:
    ; r2 T! K2 G6 P1 G4 Y) f+ [
  1767. LDX #$001 D* V; R3 D) g+ T
  1768. UP:
    ! v# u' ^9 ~& p( W2 y5 {3 u* x
  1769. JSR PPUADDR_PROCESS
      J, R  z: `9 b; ~6 K  ~, [5 `0 T
  1770. LDA UP_STRING,X
    8 d$ _  [! A6 I# _  j, S: B
  1771. STA $2007
    6 z  V' \2 M& r! @
  1772. LDA #$00
    2 ?( x2 S* f, W3 \9 F; u4 c9 `
  1773. STA $2000
    6 C7 r- @7 i5 Z7 E
  1774. INC $BA: ]# D0 ]2 m. s" _
  1775. INX. v7 p: a7 ?/ q1 U7 o3 M4 U; p) |
  1776. CPX #$03
    , H8 L) c8 R+ Q  n
  1777. BCC UP" \  d( N3 E* L+ a# d$ s
  1778. RTS- }* A! e; l" d+ ^9 z
  1779. * ^8 f6 z* g8 X7 f: J
  1780. DN_WRITE:1 l0 b6 h0 ^$ U/ z: ^3 q+ Y
  1781. LDX #$00! S! p. G9 k- U# P$ x  m; Z
  1782. DN:( M/ Z; Y5 s$ K( }4 t5 E
  1783. JSR PPUADDR_PROCESS
    & b1 O* ~" s4 P+ u3 v; B: B) h4 I& ]
  1784. LDA DN_STRING,X
    4 ^) \! ]2 D1 [& d+ K
  1785. STA $2007
    ' \! i/ z& H# V# ^! R! C0 k
  1786. LDA #$00
    ( i6 o$ i0 q8 |7 i" J" t
  1787. STA $20001 A5 b& g8 [  s# P
  1788. INC $BA
    0 R! N9 ~' y, t5 v# J; K+ X5 ~
  1789. INX/ `0 l4 h3 C# I4 ]. H, F) ?
  1790. CPX #$03$ u6 ~/ y+ u4 }& ^: I" r% {6 [
  1791. BCC DN
    9 D5 t) Q' v- \+ _9 O& l
  1792. RTS. M5 F$ Z; V: b2 S

  1793. ; g* x! m7 A! @
  1794. LF_WRITE:$ \2 M, W- T; i+ S) x8 \
  1795. LDX #$004 Q8 H$ ]4 Y% }0 k% H/ Q) u
  1796. LF:
    ! g: o4 X/ x9 N5 W
  1797. JSR PPUADDR_PROCESS
    - C- ?# m, X* R! S9 g2 q2 _
  1798. LDA LF_STRING,X( }" G5 N! |" v7 r1 t9 V5 m9 u
  1799. STA $2007
    8 O2 e. A$ g. G4 D2 a* A
  1800. LDA #$00- G& N* N2 q8 Y
  1801. STA $2000
    + }, s" H) n  H+ n5 N. @. Q
  1802. INC $BA
    ! d* u6 Y! o7 k" F4 w  {( _! }
  1803. INX4 [. P: x) F' i5 _0 T
  1804. CPX #$03
    . V* y. w1 w, D. f) ?5 G& @
  1805. BCC LF$ a8 R! ^9 \  G) w$ S$ h
  1806. RTS
    " N# x7 j/ U) n# |' U9 `& h$ Y" M3 B

  1807. / v; g  |' ~4 U* f- V/ c4 a
  1808. RG_WRITE:9 [5 j/ j  Y, E' r/ v3 c8 m
  1809. LDX #$00
    " Y1 F' c( y6 u1 v0 f) u) B
  1810. RG:1 s8 \4 y: [9 x0 q; F2 [0 P/ p( A% Y
  1811. JSR PPUADDR_PROCESS
    2 h. E3 q+ `. n5 B! }  U  P
  1812. LDA RG_STRING,X
    # Y1 E! s, U- {- t: Z3 g! ]! A+ I/ D
  1813. STA $2007
    ! O0 t2 i& e* I- z
  1814. LDA #$00+ A- b& e3 o& |6 Q2 H
  1815. STA $20008 s9 U- Z( C' z- N0 f$ Z
  1816. INC $BA4 g8 Q0 z3 f/ j) s* u
  1817. INX
    / ^7 D$ l4 ?: }
  1818. CPX #$03
    0 B1 V& F% Q: l, k
  1819. BCC RG
    " A3 `7 M3 n6 D9 `
  1820. RTS% F/ w% k" M* J) ~" h  t* t$ n
  1821. + x* e9 l6 o% w, Y5 W) o1 `& G
  1822. B_WRITE:- X8 x& }# O5 d2 z
  1823. LDX #$00
    : y5 ?2 ?9 x7 `' A
  1824. B:
    ; o9 o' o$ ~& n1 A
  1825. JSR PPUADDR_PROCESS
    ! ~! P$ h8 @/ }# e" |" u
  1826. LDA B_STRING,X+ ?: V- e- W! v7 N7 i
  1827. STA $2007
    9 ?  h. p! x, h$ {! |+ }4 R) E
  1828. LDA #$00
    % E/ V# O0 Q0 G, E4 ]1 d+ [0 ^
  1829. STA $2000
    3 ~( p5 X: i' R; r  r2 U, g
  1830. INC $BA, N" c2 }/ f- |
  1831. INX
    6 x/ n4 J& Y( |$ a4 N' H( Q
  1832. CPX #$03& E9 c9 E8 P4 @2 x
  1833. BCC B
    $ y" r9 k% Z* v( ~1 I: s4 Z
  1834. RTS
    ; G$ i$ b0 n9 p* g  l: v
  1835. : p9 U, \' w5 o( {' v  U) I
  1836. A_WRITE:
    8 x& D* D3 c5 z8 v
  1837. LDX #$00/ i+ m) q0 y& j# `) c
  1838. A:
    4 ~1 G" f. f9 d
  1839. JSR PPUADDR_PROCESS0 f% w" u2 q9 C* q. p1 C7 a: e
  1840. LDA A_STRING,X* Y1 d* R5 d/ G$ O
  1841. STA $2007
    0 c: J3 p' y/ ]. {% h: y
  1842. LDA #$00
    6 z  c6 u4 C; z  Z! `
  1843. STA $2000
    " t: _% B7 _/ y. k; e0 @
  1844. INC $BA
    9 v$ R' a; S+ D$ {4 N% j; s9 F: t) @
  1845. INX
      L. _% b& k( `% M+ @5 D
  1846. CPX #$03
    ' B8 J( e* A3 s/ y8 v: c' y+ V% w8 e
  1847. BCC A
    5 w/ ]/ d* X' F7 j) x# \. A8 \, M2 L
  1848. RTS
    2 M, r9 N3 L7 H

  1849. & g4 u# d4 \2 F

  1850. 2 j+ E( \# D9 ]! Q/ X4 s; a$ N
  1851. UP_PPU:. e) _& ]! Y# ?8 c7 l1 z2 v
  1852. JSR UP_WRITE. k" c; v1 V* W5 \+ J# }- J
  1853. RTS
    $ U! |  p0 V+ S8 r( y' e

  1854. 0 Y, P/ o3 O6 _2 w5 |+ c
  1855. DN_PPU:
    4 ]8 P9 R+ P; M1 V: l! A: F- }
  1856. JSR DN_WRITE
    & I$ Q: E5 U  g# t7 {' x+ S
  1857. RTS
    - j$ `5 ^7 {6 J9 w( O3 _' v

  1858. * s7 N8 i" E+ ?' r4 [8 o
  1859. LF_PPU:6 o, D2 r8 J! ?1 w  m6 D
  1860. JSR LF_WRITE
    & u, p- p+ k3 s& Z& `
  1861. RTS5 ^+ k) R. j# n( X' V3 `8 H$ S

  1862. ! O6 ^8 d  `% Z4 P6 b, {: L
  1863. RG_PPU:+ A! O" h: j! a( |
  1864. JSR RG_WRITE
    . C6 ]3 B7 L4 N+ c4 P* c/ \
  1865. RTS' L6 k# D+ n$ G# C* E2 @

  1866. $ W& i5 @& [' j' V) U/ k. T: G
  1867. B_PPU:7 }  L$ S# B% H- V% T0 d9 c8 z7 x
  1868. JSR B_WRITE/ B" Z' K4 y* q  S9 e3 p
  1869. RTS
    : ^0 y- K8 F& k+ O6 E

  1870. : m; {8 \" i3 J$ o) y, N
  1871. A_PPU:( Q6 S* u9 {9 ~3 l+ a  L
  1872. JSR A_WRITE9 d! r7 Y' y; n  c& g
  1873. RTS
    3 L' t8 r1 n, T0 a) }' l8 j5 q! K" `3 g

  1874. : b* r7 ^+ a0 O. r
  1875. 7 I8 \* x$ y5 Q1 I7 b0 p
  1876. PAGESELECT:9 y/ m' ?& ~: p" N$ F
  1877. PAGE0:
    ! K% A. H% |% o) J+ o+ a4 N& M
  1878. LDA $07AA# d6 D8 z7 ]8 ^
  1879. CMP #$00
    + p) q( q' v& G6 E
  1880. BNE PAGE1
    6 q8 _6 h+ C' Z6 h2 o( m

  1881. - V$ h6 b4 I- O5 S2 N4 h
  1882. PAGE_00:0 v+ D5 A2 _  L5 V8 {
  1883. JSR BULSEL_PPU
    ; Z+ Y' l6 V" p
  1884. RTS: M4 v1 N* V6 W& L5 n" @
  1885. ( S  H/ ]( U4 [+ J% s
  1886. PAGE1:: D  T# f5 [. K. i( }! ~& ]
  1887. LDA $07AA
    7 M  I2 M' `& g+ V& n7 B: P8 K
  1888. CMP #$01+ x0 c( r2 n+ H! B
  1889. BNE PAGE2- j- j- r* u& j1 I$ E7 I4 T* W

  1890. ( \9 `. L  R1 u' [3 \) h) e
  1891. PAGE_01:# p+ @* Q+ z1 \- O5 V
  1892. JSR INVINC_PPU
    6 b9 c  G, g' a/ r% w
  1893. JSR LIFELC15_PPU
    ) Q# ^6 i! a9 g- x+ y  s2 B
  1894. JSR DOUCON_PPU
    ! C0 Z, R' }2 X5 g+ @! e' H, f
  1895. JSR KILLON_PPU
    9 v3 [( O% O0 [9 n
  1896. JSR SKYFLY_PPU
    * M0 N0 r! d! v% E% Q
  1897. JSR LIFELOW_PPU
    7 d- ]/ B3 {% ~' M
  1898. RTS; t$ q& h0 G! N; D) O: \2 c
  1899. . C* R" G- }7 ^
  1900. PAGE2:
    9 r$ v' M. Z9 B' k, j
  1901. LDA $07AA
    6 B* n4 O2 a$ ?: }
  1902. CMP #$02
    , @* f" F1 X5 n3 T1 `2 y4 L, R/ r
  1903. BNE PAGE31 T- ~, F  ?( v$ l# [7 H6 o" Q

  1904. 1 x' I: p. \, h1 d
  1905. PAGE_02:
    ( d1 Q& G, v1 G, }
  1906. JSR BULADD_PPU) @0 i' j) {8 ^/ U& R
  1907. JSR SKINGE_PPU6 k3 J% H! [4 ]+ |8 r; ]
  1908. JSR BULMIX_PPU
    7 M" ]( o1 {, C  _/ P$ A
  1909. JSR ENELOC_PPU
    * N+ e! k% ~- b+ L- K
  1910. JSR FOCFUL_PPU
    4 _* P$ c9 ]1 {
  1911. RTS
    $ |* r$ m0 [6 k" Q" E# U
  1912. $ K9 J$ Q4 a5 X5 j5 Y
  1913. PAGE3:
    9 j; l% d8 l) d9 d4 a# w9 S
  1914. LDA $07AA
    ' S1 U8 z# Z' k* p
  1915. CMP #$03
    / H  E9 d9 |+ k- Z4 A. d
  1916. BNE PAGE4
    9 Z# k) ?6 @( }! c  }

  1917. & _- a, b5 _, D7 P
  1918. PAGE_03:$ [0 |# c( A# s$ E$ ?* j
  1919. JSR BULCON_PPU6 ^3 U- c: m/ ?8 e2 r( W
  1920. JSR SPEBUL_PPU) X7 U* @+ R& c. L( v, J
  1921. JSR CLEALL_PPU
      {) [" T! ?  v' Q: v& h. [
  1922. JSR HARDMODE_PPU% f# p+ l/ c1 F0 e$ m6 g
  1923. JSR B_TO_JMPSTG_PPU
    # a, Y" ?6 P+ J
  1924. JSR A_TO_PLAMOD_PPU
    2 ?- s/ w0 Z3 ]
  1925. RTS4 ^4 K" P7 G$ W. s; q
  1926. - w- Z+ K5 R" _5 l- D3 t8 A  b3 d
  1927. PAGE4:
    - _7 E2 Q: v/ t& i, [% x1 ?
  1928. LDA $07AA
    ! r4 J  j/ t6 ~; g3 ~% V7 v3 }  F6 A+ r
  1929. CMP #$04
    ! q6 ~0 n) W$ u7 p
  1930. BNE PAGERTS
    ; `: L# S2 p+ }7 H# Q+ m
  1931. & W- t0 v7 S1 z+ ^* @
  1932. PAGE_04:
    5 J: V' j0 B, Q' Q8 X2 N
  1933. JSR MOVSPE_PPU2 s6 V; G1 H; b% g
  1934. JSR UNLJMP_PPU( b) w( q" }" n, i! E6 x/ |
  1935. JSR DESTRO_PPU% g2 `, @1 a" u' K
  1936. JSR EQUBUL_PPU
    # X, Q' A/ g0 [' |$ [. a3 E
  1937. JSR MOVESPEED_PPU0 a0 B0 ]  |2 A' A3 f# Y2 t8 q
  1938. PAGERTS:+ ]3 f1 @( _& `/ O% `
  1939. RTS
    # Q8 H' D5 G: \4 a- e' U; p

  1940. % A3 L; Z' M; J8 C' S7 z9 W

  1941. ) @, |9 j1 w0 A+ ~( [
  1942. PLAYER_01_STRING:
    ) C' ~: }3 U) r! k7 P% e* }0 N0 s
  1943. .BYTE $9A,$96,$8B,$A3,$8F,$9C,$80,$81,$82,$802 u. H% J/ S5 P
  1944. / U! S  r* n- n- H6 D
  1945. : j0 r; G: X+ Z2 y( k: F
  1946. PLAYER_01_WRITE:) _( T5 a/ o5 |# d$ e
  1947. LDX #$00: E! ~8 N1 ^& S, y
  1948. PLAYER_01:
    3 u5 H$ j6 }; O2 K7 h6 L4 z6 _% w
  1949. JSR PPUADDR_PROCESS
    % L: c' V' J, b! j' E
  1950. LDA PLAYER_01_STRING,X
    1 u. W; \9 ?8 o# V# }& r6 K
  1951. STA $2007& i4 y' N. b# r2 ]) ~6 U! H
  1952. LDA #$00  F7 b# h, ^9 k% P& o$ X- B
  1953. STA $2000  m4 p2 f& K/ x+ a1 {
  1954. INC $BA0 U8 A/ ^% w% i) X, a. E. }
  1955. INX$ ]1 {# U' \: }: m( N  j
  1956. CPX #$0A0 h5 v+ `9 V1 j( D5 q
  1957. BCC PLAYER_01: Y9 [' R+ D' t
  1958. RTS' N1 p( b0 H3 U9 M( q
  1959. 4 f8 U& ]6 }5 i* X2 |
  1960. PLAYER_01_PPU:+ M, _3 Z- C/ G; F3 ~8 w% h& L
  1961. LDX #$00/ N4 y3 m0 o( D. l+ k
  1962. LDA #$64$ V$ f# `1 |& ]( l
  1963. STA $BA
    . l3 g  \' Z" V- C# w
  1964. LDA #$20* J/ Z3 [9 Y0 v# X
  1965. STA $BB
    , D  F( [7 G! S
  1966. JSR PLAYER_01_WRITE5 i3 o  q, p! o) f: b( Q4 U2 i6 D
  1967. RTS+ o1 Q0 L! E" |0 H; T
  1968. 3 _+ v: f0 U: Z( C- G9 U; ~
  1969. PLAYER_02_STRING:
    1 @( n. {3 j  J4 f6 A
  1970. .BYTE $9A,$96,$8B,$A3,$8F,$9C,$80,$81,$83,$80
    ) B1 z9 F9 s" Y3 `* j. G1 F

  1971. 2 m$ x/ E# _5 f8 H" c
  1972. 2 h3 d" X4 P% z* A2 @& s' ~
  1973. PLAYER_02_WRITE:, M. V+ ~/ m; K1 A8 U9 W/ |
  1974. LDX #$00% L0 ]6 [3 h6 i7 H0 p
  1975. PLAYER_02:
    ( D& f8 L  }% [7 @* n$ m
  1976. JSR PPUADDR_PROCESS, k' ~# P; m/ C1 Z, ]
  1977. LDA PLAYER_02_STRING,X5 \4 l3 J4 _  ]
  1978. STA $20077 a+ p0 C) v3 j, u! l
  1979. LDA #$00
    % V4 b' |. ^5 r8 x
  1980. STA $2000
    7 n$ m: p, V' @7 z. ~4 t
  1981. INC $BA, \3 ]! Z: P) b) o
  1982. INX5 v6 O% m6 U, u% I0 W
  1983. CPX #$0A: ~7 S7 R8 _9 @% k7 H1 _
  1984. BCC PLAYER_02
    4 t+ ^9 _8 K; v2 ]7 D: C5 n
  1985. RTS
    4 c+ C% I. m3 n4 n9 E1 ~3 i

  1986. 5 E0 k& V; r; t% l1 T- I
  1987. PLAYER_02_PPU:
    2 q; A# i( U# k+ B  G" q! s
  1988. LDX #$001 V  ]; X* x5 c' }
  1989. LDA #$730 q( R* W9 a8 {! n% {0 K( i2 e
  1990. STA $BA
    # c) M/ |$ w3 u$ }! _
  1991. LDA #$20
    # ~) ~- F( a+ i' I
  1992. STA $BB: k$ e5 A6 m! a: c# \8 o/ l# B
  1993. JSR PLAYER_02_WRITE$ x1 P1 r$ u# u6 }- d! r" m$ A
  1994. RTS  h7 _6 L3 d4 \. y* K# X- ~, P
  1995. ( E# C! j7 `/ R8 w- T: D. Z
  1996. PPUADDR_PROCESS:
    . g; K/ d& o5 w/ p* k' p
  1997. LDA $BB1 X0 `: O4 }: {6 B  g- {% ?5 H# w4 f
  1998. STA $2006* S: |& I; R1 M' I) T
  1999. LDA $BA
    4 r4 e/ C3 y) X
  2000. STA $2006
    ) v6 y* L( B; J" h8 ~
  2001. RTS
    . Q' w( s3 i1 F$ m) S
  2002. . w$ u! l0 H: e8 _, G' U7 L' r

  2003. 7 R" M5 E: z; q0 U" ~" L3 A* a

  2004. $ Q1 H) q* x' K/ z) V8 l; N
  2005. ONE_STRING:  [0 n9 L! M1 T. [0 T) K5 H7 b
  2006. .BYTE $99,$98,$8F
    2 z1 T3 j- H9 M/ [1 j3 G7 J

  2007. , s# Q. F5 o  d$ s, [: O
  2008. TWO_STRING:% j- e) J. q- s: N% J8 w+ a! p
  2009. .BYTE $9E,$A1,$99
    9 C' _$ d8 x8 h0 _( q
  2010. 6 N  x3 q, Z3 R+ Y0 l. l1 Q
  2011. ONE_TWO_PPU:
    5 g/ W6 K: k- |4 Z
  2012. BNE ONEWR
    / ?" |$ i; r; w; }0 v4 q
  2013. TWOWR:
    ! T! C! Q: K  n3 Z  _7 |/ T
  2014. JSR PPUADDR_PROCESS
    : \* W" y+ e# E( e. m- @
  2015. LDA TWO_STRING,X/ M/ P8 m3 O2 W
  2016. STA $2007
    . H$ o+ J% P+ z: ?& [
  2017. INC $BA
    # M4 k% J8 q8 P1 a1 n5 m
  2018. INX& t" Q# y' H. C! E! W
  2019. CPX #$03
    1 A: u9 [7 q7 {6 {# L: U, L
  2020. BCC TWOWR
    ( n/ A# B& P- i; i
  2021. RTS
    4 z7 E0 F; v% G* j) a1 w; z: ?
  2022. ONEWR:
    ( ^' {* c& e: X2 Z* Z) Y- m8 K
  2023. JSR PPUADDR_PROCESS
    * _1 {* d  `$ Q+ }% }
  2024. LDA ONE_STRING,X4 @, \9 `& s6 p2 M. m
  2025. STA $2007
    8 H0 r1 M, C& H7 l
  2026. INC $BA
    2 G( Y, e6 r6 ?  @+ L/ w
  2027. INX& V0 ?- o. q; J: M7 j& _# \4 q: d
  2028. CPX #$03
    # |% z  ^0 k  d  H- X8 e
  2029. BCC ONEWR9 M3 K, G2 }+ f9 V1 h. i
  2030. RTS
    3 w8 f5 r- d3 O) x8 o- E5 k. @
  2031. & Y4 z1 E6 ?. L- o$ U: P' K) c2 ^
  2032. MOVESPEED_STRING:  |1 C6 W2 }  ~3 C7 [" y
  2033. .BYTE $97,$99,$A0,$8F,$80,$9D,$9A,$8F,$8F,$8F,$806 J; [4 u: c5 _+ G. B
  2034. * ^5 U1 }* ^( ]8 b- G
  2035. 8 C0 I9 C' x: H
  2036. MOVESPEED_WRITE:+ E1 `% U. d6 O3 a( H2 J
  2037. LDX #$00
    % G5 |! R6 |, `: h
  2038. MOVESPEED:+ {; ^9 X9 n" X5 R
  2039. JSR PPUADDR_PROCESS, \6 H3 |" h; `8 _
  2040. LDA MOVESPEED_STRING,X6 ~: B2 z  Z! |4 Y& l0 K# E, J; V
  2041. STA $2007" U! |- ^9 T- s, A5 R3 [% \' y
  2042. LDA #$00
    + g! R. |0 Y( ^
  2043. STA $2000
    / V) d& s8 a+ J$ ^- j) I* h6 q
  2044. INC $BA
    & F& Z& x7 d, `& E- k
  2045. INX$ B) T  j" Z2 Z! X0 K2 d) o6 |
  2046. CPX #$0B
    ! k4 ^7 ~, @% y6 a' x
  2047. BCC MOVESPEED
    + z9 o. L/ u* L) S8 [
  2048. RTS/ j2 ~3 K/ x0 w  |2 Q# z

  2049. * Q! i  i- y. K8 h% G
  2050. MOVESPEED_PPU:8 k) G: U- j2 K" _( @
  2051. LDX #$00. H3 E) m: _/ X
  2052. LDA #$AA+ h8 _9 m! L+ b
  2053. STA $BA
    3 B0 y: R3 m0 N) J5 j6 G
  2054. LDA #$22; O' L) b3 y: ^6 }! O1 T( @; ~
  2055. STA $BB$ n. d3 Q& b. ~5 E8 H4 g! Y
  2056. JSR MOVESPEED_WRITE
    6 x$ b, C( j- I4 q5 [' p. Q. {
  2057. LDA $70030 \* p1 U1 y" r* h( Z7 A
  2058. CLC
    - _  q5 l) _) k" i  P
  2059. ADC #$82
    ) G) F* v+ P' R  P) C, y$ }2 Q
  2060. STA $2007! U$ y5 ]" m9 \& s' w" k0 ~
  2061. RTS! L( O; l- q* s4 a( D
复制代码

本帖子中包含更多资源

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

×

评分

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

签到天数: 3109 天

[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 | 显示全部楼层
这东西找了好久勒,谢谢!!
$ z2 q; M5 k% J7 h( H
[发帖际遇]: wjb19780515 发帖时在路边捡到 5 个 柠檬，偷偷放进了口袋. 幸运榜 / 衰神榜
回复

使用道具 举报

tariq017

签到天数: 2366 天

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

使用道具 举报

datone

签到天数: 2238 天

[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-26 02:33

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

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