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

EMU618社区

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

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

[复制链接]
yandagui

签到天数: 39 天

[LV.5]常住居民I
发表于 2016-11-19 22:19:45 | 显示全部楼层 |阅读模式
本帖最后由 yandagui 于 2016-11-19 23:11 编辑
7 {1 k( Y2 ]0 C0 v; p/ H9 a# E' j% s9 X1 q+ g; G: o7 Z, _
     [FC][魂斗罗旋风终板END暂停显菜单]
- ^9 `1 E1 J6 Y$ O% R+ M3 B
作者:FlameCyclone(flamecyclone.ys168.com)
' N' R3 Y+ ^2 l: ?% `4 q时间:2016/11/19 21:46:009 L( J) {7 O- {4 O! V9 k
更新日志:
) [' O& w/ h' m! n* J6 o- I2016.11.19:加入暂停显菜单(共5页).6 v* W0 j% s5 J4 |0 g
2016.11.12:加入无限跳跃.4 O- L5 G; `; E) f1 p
2016.11.12:加入速度调节.+ n0 C0 T% P$ a/ c0 d
2016.11.11:加入敌我子弹对消功能.+ w, ^7 V+ L( `1 V( j
2016.11.11:加入全屏闪灭功能.4 y! ]" R% r. F7 N; o" w
2016.06.08:加入全屏瞄准功能.  O8 ~! ]; _1 ]& }: H0 g
2016.05.31:加入弹速调节功能.
. D1 h/ k+ x$ }' Z3 q' P3 s) D2 x; y2016.01.01:加入高难度模式.
/ W( I/ N* ?& i3 N$ `6 A! A2015.12.12:修复消除威胁不足,使得移动BOSS关卡(第2,4,5,6)正常通过.
& ]8 W9 q# ]5 E, _6 I* t2014.07.05:由于对打功能不完善,直接去除,更改为生命锁定.
2 q6 _# Q: ~1 }1 D( p' M6 k: h5 r2014.07.05:双人切换功能优化.
# y& ~8 E9 n- G2014.06.01:修复第三关浮空到BOSS前必须关闭浮空后跳跃才能见BOSS的麻烦.
  D9 t/ Z$ c$ y" Z8 X% d2014.06.01:取消生命锁定,改为生命锁定模式下剩余生命不会少于一条.3 N" Z$ F7 r0 `
2014.01.18:修复GAME OVER字样只有G和O的错误，原来想拉大字母间距离，看来行不通.
5 u% B2 X$ C% G! f6 M, G2 d2014.01.18:浮空模式下，P2飞行高度未限制导致死亡，原来是指令本该用绝对X变址的被用成了绝对寻址.
# ~7 u- ]2 g1 n) A8 A) t2014.02.08:拿手机无聊时又发现一些错误，所以修正生命剩余勋章显示的错误(某天用读卡器插在DVD上测试发现机器读不了卡，原因是目录级数超过三级，只有刻录成光盘来测试，结果发现生命勋章的显示竟然无压力!)
- r( \  K5 w$ i2014.02.13:加入自动演示通关.0 e  r% ~- m# v& A3 b
内容：
2 E# i1 _$ \8 y& @* J3 E23.暂停菜单:        暂停后，自动显示菜单,选择键翻页,方向键和BA键进行各种功能的开关操作.
, E1 B5 t5 B% U" h6 R. N' d22.无限跳跃:        暂停后，选择键4次，按下开启,开启后游戏时无限跳跃.% i; J8 ~( h4 C2 I5 x) m: K
21.速度调节:        暂停后，选择键4次，按左右调节行走速度(0-3级).; U; O1 V! b" H# u9 `
20.子弹对消:        暂停后，选择键4次，再按A键切换,此时敌人子弹可以打掉.
- M# v. y4 N* a5 {4 x$ o9 R7 P# t7 b19.全屏闪灭:        暂停后，选择键4次，再按B键切换,开启后游戏时按选择键屏幕内敌人闪灭.( Q0 e1 N" `# m6 Q/ w& D
18.全屏瞄准:        暂停后，选择键2次，再按B开启/关闭,子弹对消开启时无效.8 d- G( y9 W' S3 Z) R
17.弹速调节:        暂停后，选择键3次，下开启，非暂停时按选择键调节,默认为1级,共5级.8 q3 U' M8 R  M+ ]5 B
16.困难模式:        暂停后，选择键3次，右键切换,我不相信你能够无伤通关.2 r2 Y8 \/ V/ O4 c) J$ T
01.子弹切换:        暂停后，选择键0次，上=快S，下=快L，左=快M，右=快F，B=快普通，A=取消当前子弹加速状态.8 B+ J  `1 [; F8 ?- S: P
02.无敌锁定:        暂停后，选择键1次，上开启/关闭，不用讲了，金身无敌.4 t, I$ _" ]% u
03.生命锁定:        暂停后，选择键1次，下开启/关闭，生命锁定为16条.& }7 w% X  B2 y$ [6 ?) k) L' t' i
04.角色双控:        暂停后，选择键1次，左开启/关闭，无非就是主机控制副机.
& ^* @- C& V! t/ e8 C05.生命底限:        暂停后，选择键1次，右开启/关闭，锁定剩余生命数不少于1条.4 F/ }% {( n" j9 h4 ]. u
06.一击必杀:        暂停后，选择键1次，再按B开启/关闭，即使是第8关BOSS，一发花生米依然要其老命.. v  {1 k3 G2 {6 S: n
07.角色浮空:        暂停后，选择键1次，再按A开启/关闭，第三关浮空时按选择键向上卷画面轴.7 m; l% }' R; w7 l  d& T8 @! M
08.弹数加强:        暂停后，选择键2次，上开启/关闭，此时所有子弹发射数为15发.
1 A& v1 d- {* X& P0 O, U09.皮肤更换:        暂停后，选择键2次，下开启/关闭，主机开启时橙黄色，副机开启时为蓝色.  _9 Y# [5 S6 }; R* @" d) p% U! E: K
10.混合子弹:        暂停后，选择键2次，左开启/关闭，此时连射时所有子弹混合.
7 E' r7 {4 d  \; |! i3 L% A  F11.敌人锁定:        暂停后，选择键2次，右开启/关闭，此时敌人原位跑不动.
: T& E# V) T8 D) H12.跳过一关:        暂停后，选择键3次，再按B使用，使用后可以直接到下一关.$ v* Y/ `* Y3 z3 }, z' @
13.单双切换:        暂停后，选择键3次，再按A键切换单双人游戏模式.
6 c" R2 `$ f. }" ^14.子弹方向:        暂停后，选择键3次，上开启/关闭，开启后发射的子弹攻击方向会随着操作的方向按键变化,第二关和第四关的小关建议关闭(开启的话打中敌人太难了哦).
) n4 l! i* B$ b6 {15.消除威胁:        暂停后，选择键3次，左开启/关闭，此时游戏时按B键使得移动物体被消除。6 @' _* |9 g8 G
A.做了一些汉化(小字体),剧情,关卡名及通关后的文字未汉化.2 x8 g" B! R& N$ F, x' z: N# m
B.自动演示通关,双人合体打通关,演示时有背景音乐,通关后一样会有结尾及恐怖台词,之后游戏进入选关(相当于游戏自动开始了).注:通关后P1及P2会获得16条生命!也就是说看完演示自动开始后第一版有16条生命!/ ]" s) {! q2 X. X% L0 M' y, F1 ~' i
C.生命显示加强:最大显示15个剩余生命勋章!电脑端请开启精灵超过8个(这样勋章不会闪烁)，手机端认命了，不过不影响正常操作.
) q9 n: t+ o3 N
: A4 O/ H3 x: Q5 x    如果有什么好的修改建议，恳请通过QQ（1490868135）联系我(也许我不在线，可以留言在QQ里)
. y2 n7 x9 e1 P% I2 f! X6 I! R欢迎大家转载，转载时必须注明出处.& D) A" ~1 |  ^$ ?

. Z% r6 i. [" r& z% a" c/ P7 _" @2 B
游客，如果您要查看本帖隐藏内容请回复

8 J& R4 _8 {8 `5 I8 ^4 r9 I% Q% y+ \+ u
忙了一个星期,觉都没睡好,眼睛也疲惫不堪啊.终于找到解决方法了,目前VIRTUANES运行不了,请使用其他模拟器玩.) s; p6 y4 B7 V- N& v
这几天的劳动成果如下:
  1. .ORG $B400
    9 X. m/ o& u/ t* P0 ~( a: X
  2. 6 u5 U; A. s0 S# w) ^+ u5 e
  3. ( B; @3 a" \" L/ J
  4. PROREG:: H$ q8 E7 o3 v. J; }$ ?
  5. PHA
    " q6 F) ^% Z  H: q# m
  6. TXA
    / g, `  U( T* G  I" i. R# e. h
  7. PHA
      {( R  X2 k) l  Z
  8. TYA
    * B% R! j* v9 I" M9 D. I
  9. PHA, J  z& W- i) U$ H. C4 {# M4 I
  10. LDA $25  n: Z# `- Q! J, t& \
  11. CMP #$018 W/ J3 U! J- i5 X7 I
  12. BNE RE) D) a$ p7 N0 G' |5 z
  13. LDA $010A
    & F2 U% [& m! U  @
  14. CMP #$00
    ; Q7 v* |& H% Q+ ^
  15. BEQ P17 i$ o+ F' d" _0 S% t( D7 J4 k5 }$ B  k
  16. $ d; \! w* s; S8 n' |
  17. RE:6 Q+ E& _$ U! v2 B+ c* k
  18. JMP PPUWRITE
    6 E  H( s* u8 v  G: R

  19. 7 h1 M7 w; j  C* q
  20. P1:                ; 条件判断* R3 R/ T$ b2 q* I. A* c
  21. LDA $7FFF" s9 m4 O5 U8 {/ v/ T
  22. CMP #$FF
    5 g% L) m& }1 R6 d
  23. BNE P1RP% P5 a% {3 W' S. d9 Y9 C
  24. LDA $7FA0
    ) K( U% }* c" h4 C- A# @
  25. CMP #$00
    ; ~% X- W: |6 ]% u5 q% \
  26. BNE P1CMP
    3 D. i! H; }. X3 J. R
  27. LDA $2001
    * p9 u0 I# C) E& `
  28. PHA
    + B& K; n+ s  \/ g) i3 S0 ~
  29. LDA #$00
    7 B: z) }6 d4 h7 ^1 ^
  30. STA $2001
    3 F- l) @( F# u
  31. LDA #$FF- {6 q/ ~% o/ y! Z
  32. STA $7FA03 L# J3 c7 H7 l' t" H' p! {- m
  33. JSR CLEANA
    9 f6 Q5 a, L* J1 i* ~$ B# D
  34. PLA
    4 R/ s1 C7 Y! r. s# C
  35. STA $2001
    3 }6 D, R2 H. K. v$ A( ^
  36. JMP PPUWRITE/ b3 x1 N% y/ b0 Z
  37. P1CMP:* R: K0 `) S) q+ D. `
  38. LDA $7FFF0 ^! e- M. K: ?3 W# v5 ^4 X
  39. CMP #$00  N# s$ @9 x3 V5 `
  40. BNE RE
    & \/ I. x( t2 b8 D) Y
  41. P1RP:
    , a4 @. r% {5 q6 C3 a5 d% Y' v
  42. LDA $20027 }5 c. d/ `1 u* T" O- M9 P( d
  43. LDA #$00, E$ k) e0 c, `0 o
  44. STA $2001
    - l) I  Y  C& g2 T+ e4 K( S
  45. LDA #$FF
    2 {% |( h5 g# s
  46. STA $7FFF
    1 [* V2 c2 M. r/ U% i$ K
  47. STA $7FA0$ e5 O/ v0 ]/ Z( T/ ~1 I$ \
  48. JSR COPYPPU
    ; M3 W% `7 U) a* f
  49. PIRP2:/ b5 f2 x5 _$ q3 l- P! ]1 i5 Z
  50. JSR CLEANA, {: U$ `8 v" b
  51. JMP PPUWRITE. `' K' z3 A0 M: ^+ Y
  52. 1 t' q$ R8 l8 w$ k$ J4 @
  53. COPYPPU:/ q! }# H( o4 S
  54. L0:! c/ m0 m9 [" |( N$ p! X3 k! _; x
  55. LDA $30* X, k# A3 `' h1 m
  56. CMP #$022 i- E7 q8 L1 E* G& j1 [6 M; W+ ]- O
  57. BNE UNPROFC) R( c, U- y/ I8 @" O
  58. LDA $FC
    ; R" [/ `, L2 I/ ~' k+ f6 r. t3 C0 L
  59. STA $7EFC$ U( g/ ]2 U! l- D* Q3 _  \0 Y* Z
  60. LDA #$00
    1 d) g6 @! I3 y& ~
  61. STA $FC+ y2 m+ X: E  J* z
  62. UNPROFC:
    6 A, g! O/ d9 A+ |2 c/ m) D
  63. LDA $FD
    ! @0 e3 _% ?# @7 u
  64. STA $7EFD+ c; ?4 _3 p+ S" }: m, P1 r
  65. LDA $FF
    4 v) [& J. P) F! q8 E
  66. STA $7EFF% H; [4 ?% `( [6 m
  67. LDA #$002 d+ F2 U3 B$ G. `
  68. STA $FD
    ' D. D# h6 \" `# G" V$ ]: j
  69. LDA #$B0: T  U5 d9 Z8 z6 u
  70. STA $FF
    2 O) P& m; y5 X6 E5 E* F4 r
  71. LDA $07C1
    : ^! D, W; L. t  H0 D3 `9 Q! H  g
  72. STA $7FC1, c9 N2 C4 ]. _
  73. LDA #$3F9 J: t, A7 c5 R+ j5 _" w2 H. a0 L$ M+ u
  74. STA $2006' x0 I. O+ D0 s
  75. LDA #$01: [. G" `( j( B8 p7 q
  76. STA $2006( m; o; c3 j6 w
  77. LDA #$24
    8 }8 n8 p0 Y3 U4 z
  78. STA $2007
    * L8 H! @* _4 X* ^( g  q
  79. LDA $07F6
    / L1 t: o; a/ d. h- F: H
  80. STA $7FFE
    # ]; W7 d  {. Y8 D: H! b3 Y
  81. LDA $00FE2 E: _$ N- i( m/ b$ R8 \/ l# F
  82. STA $7FFD
    + M% a+ H3 F8 i
  83. LDX #$00( s* C  ]2 ]# g1 Q5 `, S& ?
  84. LDY #$00
    - }8 z* E3 ~) N
  85. LDA $BD% C) U) M8 j1 w+ W( x0 m2 Y( [9 z7 \
  86. PHA
    1 E* g9 A" z4 \7 ]
  87. LDA $BC# H( @" T, [" F. ^9 @3 i
  88. PHA9 P9 m7 k) \4 j$ j7 T
  89. LDA $BB3 ~) p6 f, V  l
  90. PHA# t7 K1 d* l: P
  91. LDA $BA
    1 c4 W$ @# S; g  }
  92. PHA
    5 K3 Q% I* O7 \3 J$ |
  93. LDA $B9
    7 H4 q# c! ~  I, D; n; Z
  94. PHA! U) I4 A" |! Q0 ]' K. N) @) ?
  95. LDA $B81 Z- j* Z7 c, a$ b
  96. PHA
    0 D* t) a* j1 q1 S0 A! I/ ~
  97. LDA #$00  b# Y' V5 ]4 [6 N/ S. R
  98. STA $B8) X5 k9 S0 a9 O
  99. STA $B9
    % Q% k2 b- L- X
  100. STA $BA
    & O2 N. m7 _* n! b/ S
  101. STA $BB9 N! N( Q+ l+ H5 U: F7 {+ Y- o/ u
  102. STA $BC
    ! M# X+ H8 Y2 S8 Y6 G% i" u1 O
  103. STA $BD
    6 S1 I5 h! m* w0 a0 S
  104. LDA #$00
    & F. b1 E. X  [& b% V3 V1 Q+ r. U
  105. STA $BA
    4 p- ~" Z1 Q  r( e; r; m2 e$ O
  106. LDA #$205 p( u- ~& V9 }: U9 L2 w( U4 O, @$ f
  107. STA $BB/ r, Z- J0 M' o3 b
  108. LDA #$00# ]% b2 J/ z( D8 l9 f
  109. STA $BC' u2 n( [' q8 _9 r; e! ^
  110. LDA #$60  E* D/ z' N6 Y9 @  q$ k
  111. STA $BD
    7 T7 l- \/ a/ _0 c. a
  112. 2 R7 R$ M# ^( T; j% k+ ~
  113. L1:                ; PPU复制# O# T) V2 `: t8 f
  114. LDA $BB
    , }% R, \3 u* b
  115. CMP #$30
    9 `4 o/ u0 M9 K) A
  116. BNE L2  \1 {5 ~6 S5 F* ?. n) M8 q
  117. LDA $BA
    $ ~' ^7 ?+ b0 {5 P& l  c4 [
  118. CMP #$00
    6 _9 d2 ?6 R. N9 K' ~# j- u2 ?
  119. BEQ PROADPLA
    1 ~& P% {8 P; w. l: K
  120. 2 u( G* i5 N) e" s0 m
  121. L2:
    2 R1 |, L. A9 K) @' e& c
  122. LDA $BB
    5 T6 y: e) ~) p
  123. STA $2006
    & P) s% E7 H& c0 L" q+ e
  124. LDA $BA
    5 v) ~- ^) u7 Q
  125. STA $2006* F7 K" z9 j; ]1 v
  126. ) M, u+ s1 M& A! S4 S* M
  127. L3:% i# g' h2 h* n% A$ }' p
  128. LDA $2007
    7 x/ W/ w0 z; a) i  l8 k
  129. LDA $20072 q- v5 l  @/ r
  130. STA ($BC),Y0 R/ h6 W& @1 _7 B
  131. 1 _4 B- d+ {! q; C+ Q
  132. L4:' i! H. X/ k9 B6 l1 V! W0 i
  133. LDA #$00+ C( A* o/ h6 ]" C7 o
  134. STA $2000' I; o6 s! O6 v* d6 y9 C. l$ M
  135. INX: g2 _" j' J; _2 _8 j1 ^0 [
  136. INC $BA
    . x  Y5 R. m- `3 ]0 X' o
  137. INC $BC7 L2 r& ^# B2 J
  138. CPX #$00
    7 x5 f+ `; c1 X  _( W* {, ~
  139. BNE L1
    4 f4 m% g6 `3 [7 a! H
  140. INC $BB
    0 o# q' Y& J. d7 F" x# g! w' {
  141. INC $BD6 {* x6 k/ _) [& M( R1 O' W) ?
  142. JMP L1
    5 z( q1 O8 z4 e% S( G4 Y( ^
  143. 0 N& B" u, ]" u% W/ R
  144. PROADPLA:                ;出栈8 b) E; K2 [$ E; M2 F$ H
  145. PLA. c4 u1 a2 h% ^1 b
  146. STA $B8
    ) ~6 e) {( {/ q  ]3 M" }
  147. PLA
    ' J8 t/ V( {# d' d
  148. STA $B9( R: ]+ {# Q% A( G9 J; O  B
  149. PLA% v# h: u  L; n0 i
  150. STA $BA- E* m2 ^- x, v% j$ ~
  151. PLA. E# [) k( A* d( P8 Z
  152. STA $BB
    4 f5 @( A" \) T6 B$ u/ ^/ y. r  ^( A
  153. PLA
    ; j% }8 Z9 ?: h6 W5 x* t0 B+ T) Q, y
  154. STA $BC. k/ `3 _/ k$ m
  155. PLA
    2 }* g; O" a! W& Q8 F5 k0 W" o
  156. STA $BD
    " j- Y2 C* U9 o( T
  157. CPRE:
      \1 T3 r7 s. f. J
  158. RTS
    6 g! ?- {. g7 D" r' h/ {4 q1 p

  159. 0 `" O. }# S& Z4 W5 M& F9 T
  160. CLEANA:                ; PPU清空$ n7 d" ^+ f2 }* o8 J, f' f  V
  161. LDA $BD) l7 ~& J8 N" \% n$ P5 J5 @
  162. PHA7 C, e& L7 l" Y3 X8 I/ |6 U7 [
  163. LDA $BC
    6 |$ Y$ H) d# q/ W7 x9 S5 k+ u; ~
  164. PHA
    " k7 i+ g; r1 m* T5 w: g" {
  165. LDA $BB
    0 \1 W9 c1 v- a+ p8 j1 K+ o, [# V
  166. PHA
    8 [' B& k( V6 i' U  m
  167. LDA $BA1 I, ?0 D: v) ]9 V8 S9 Y
  168. PHA
    5 }/ O  W+ ?  T2 r) S
  169. LDA $B9* e- c. d' c6 l3 Y) }, @
  170. PHA# x4 C' H; O2 k( e2 Y9 T
  171. LDA $B8
    3 `# s3 C4 l$ }$ Y! H
  172. PHA
    " G2 C* b+ Y8 `' U
  173. LDA #$00& Z1 V5 U' }: ~, A
  174. STA $B8" |( Z! k' S" w& t5 K% f, Y
  175. STA $B9
    1 b1 u; h2 m/ {/ }
  176. STA $BA
    4 L" ]5 S7 H: ^! X1 B* {; `
  177. STA $BB9 @1 n" G  g9 i- z# O) r+ ~
  178. STA $BC
    ; w' G, Y$ |0 K0 N
  179. STA $BD
      B; X3 t6 V& f4 M1 \( |1 P9 L
  180. LDX #$009 V( m) G0 b4 }/ d5 ^. G
  181. LDY #$00
    / S' @! C0 M% `, N
  182. LDA #$003 e" t, n3 k) L! G3 u$ k6 k% x5 K! N2 K
  183. STA $BA
      M( O5 Y, r, p; `6 X* u: E; S
  184. LDA #$20. y9 h4 i1 j  L6 q  p! W
  185. STA $BB
    ! e" y. P7 ]* w/ G/ ^

  186. 7 L( V% R  H. ~# W7 W  f
  187. CL1:, c* B( h3 Q- W/ n
  188. LDA $BB
    & {) [, c) |6 t3 U1 }
  189. CMP #$30
    # h- K2 e( X0 b
  190. BNE CL2
    ! Y- `" [' \) x' r$ ]
  191. LDA $BA
    8 B6 p0 q8 p: T7 u
  192. CMP #$00( a% n8 U0 F6 ?5 G3 n1 ]6 c9 b! @
  193. BEQ FREEWRIYE
    + n) C8 s& G5 G0 b: `; T

  194. 7 w! E2 M) F5 z/ ?
  195. CL2:
    ! }. e. _# u# M0 j* K( ^
  196. LDA $BB
    4 q" ^: t" n' p0 }3 d# T% C
  197. STA $2006% Q/ N$ {% V' X7 ]* ]: n
  198. LDA $BA
    6 X6 V, l% o$ c- N9 F9 D
  199. STA $2006
    * _2 Q. \1 c5 a* x' [1 [9 `* O

  200. 6 i% H" [; \' L5 l
  201. CL3:: B; v- K! @' f. K8 J7 k
  202. LDA #$00
    # V3 g" v7 Q+ p/ a6 h3 Z" u
  203. STA $2007
    * r0 t) |4 J: E' m
  204. 0 o- M; O% K2 P
  205. CL4:1 O9 m. O4 j6 n! o- d
  206. LDA #$00
    $ ]* j6 |4 {( h( ^: k
  207. STA $2000
    % f3 O2 b0 q( |! t' E, ]' _
  208. INX' p; M% S+ J/ n' ?; e/ f2 x8 y
  209. INC $BA
    ( j$ c' T5 d! [7 W8 G/ R3 A) ~- C7 K* P& e
  210. CPX #$001 h" e9 ~; U" q6 f
  211. BNE CL1. D+ T) ]& Q) a6 m" u, D: x
  212. INC $BB
    5 r( q$ s6 @) u+ D9 {
  213. JMP CL1 3 j9 Q$ B1 P4 [8 t& g( E  M# D. V
  214. 9 e$ s+ A# ]* k. X
  215. - C5 \8 G5 J! I8 f+ J' K2 A/ e
  216. FREEWRIYE:
    / p. e, n& Q1 E  h' G" H
  217. JSR FREE% p1 e. L: u% `, U

  218. 0 v1 \" M4 D5 [2 w
  219. - r" \' w8 g4 m$ i3 Y, ]' B

  220. 6 H1 B  Y( B; U+ b7 l0 |/ V
  221. 1 M7 u$ V5 q( r# Y

  222. . R6 z1 F1 c( c3 o. i: i6 l6 \
  223. CLEANF:                ; 恢复现场) e6 s" m  Y# D. @; d9 j! F
  224. LDA #$08$ a& B0 c# i4 Q0 ~' L1 o2 Q; _4 }- U3 h
  225. STA $FE, m& R  b2 o1 F, n
  226. LDA #$00
    8 j: z; f* _$ D  r3 M0 A
  227. STA $07F63 e2 B% p2 V9 P4 Y; c; |
  228. LDA #$24
    : v" L; n- A: d4 C: j
  229. STA $7FC0/ l0 W" y  ?6 L8 D# `
  230. PLA
    ; y6 l- ]1 T( Y3 C# p
  231. STA $B8+ D& R0 b' C2 @+ \! @; q2 p1 ]
  232. PLA
    : c( J$ `8 Q" [+ {# \9 a. B8 p
  233. STA $B9
    1 H& j- X2 E$ |  l/ Z
  234. PLA
    , m- v' ]' q  N, m8 R* w+ q
  235. STA $BA
    9 p1 o; m+ p: n! B. z5 d0 z. o
  236. PLA  e' q! ?4 \8 f
  237. STA $BB
    3 {) l! o$ [4 x5 _( Z$ ^4 `& ]
  238. PLA% x$ C2 M8 X: j
  239. STA $BC$ R+ f, ^0 q* G2 t$ t; x
  240. PLA
    ; g2 `* [* e. d' N  u- I2 F. V
  241. STA $BD
    % E9 q7 `: T4 Z$ C
  242. CLRF:2 z2 S; T0 V( N
  243. RTS$ R; I! H  x* s  J, ~7 k0 j

  244. ' L* ]" N7 z/ T: m! t; D
  245. W_DATA:
    0 b2 H: M. e4 C( I
  246. .BYTE $00,$01,$02,$03,$04
    : M) S$ r) |$ r' Y
  247.   ) h& V( V/ J3 S" X9 _
  248. W_PPU:
    . x4 q( L: I* U( @# P
  249. .BYTE $98,$97,$90,$9D,$96
      P. l$ |6 I+ `# I8 }8 b, e, w; Z

  250. 3 @3 f$ r7 H- y* V( E4 E
  251. P1_STRING:0 k( t* G( U8 o1 h. x4 l! z
  252. .BYTE $9A,$82,$00                ;"P1"
    # ], g; g; x1 O6 X

  253. + D" M" W, u, z- ]- H% w( p" v
  254. P2_STRING:
    ' n: a/ E! S& ?( ]: `
  255. .BYTE $9A,$83,$00                ;"P2"' ~) _) m1 q; Z4 y/ h; c9 }# E# B+ o

  256. ; c% E! D1 M& m! v
  257. WEAPON_STRING:2 _4 }6 ~6 T5 f/ I6 p2 f1 N3 M
  258. .BYTE $A1,$8F,$8B,$9A,$99,$98,$00  ;"WEAPON"  R, N1 q% V, f8 U! G6 W
  259. " S' K# z- D- h+ b2 m2 T/ J
  260. RELIFE_STRING:) e1 \5 w' l1 m( C9 O
  261. .BYTE $9C,$8F,$96,$93,$90,$8F,$00  ;"RELIFE"0 B$ L) n3 w) N4 x

  262. ; i6 ~3 g8 O% X
  263. P1_PPU:. H4 j3 q# {% j; ]* Z/ x' P
  264. LDX #$00
    + l# `( H7 }, g2 w$ |: C7 X. ^0 E8 L

  265. 1 w( o) K8 j8 Z2 A$ E! H; J' m
  266. P1_PPUW:
    : T! Z3 h# o" n) J
  267. JSR PPUADDR_PROCESS' O. T4 Z) y$ u. P
  268. LDA P1_STRING,X0 Y& I; m* N2 K% D6 U
  269. STA $2007+ {: ]3 P1 O! T% J5 p
  270. INX
    / \2 Z) U# Y% o( e7 E1 i
  271. INC $BA& q: K/ c& V% X7 |- r! V8 |
  272. CPX #$03( r) V* D* w, h( \
  273. BCC P1_PPUW+ \* D4 N. [7 |3 h- v' [
  274. LDX #$003 r1 H$ }: G8 o3 B
  275. RTS& a/ V+ }4 O5 j, U+ c- t( W6 G
  276. ) Z. p! |9 k7 L  M' E( f/ _
  277. P2_PPU:
    + V( `2 J: @" I& v) ]; ]6 ~6 f
  278. LDX #$00
    ) |  O) B# b7 L8 r- b, c4 }
  279. ) D. l* o2 S/ ^- g  c
  280. P2_PPUW:# J" k* i3 f% r1 r" w% P
  281. JSR PPUADDR_PROCESS, x# Q( a9 C7 o) h; n
  282. LDA P2_STRING,X) N. z5 H, q3 r; _" J, |! b; ^( x
  283. STA $2007% V; c# E3 H3 @" l* b/ H0 w& Q2 i
  284. INX! s( D3 D* a( }: b/ q
  285. INC $BA
    4 N# m4 p4 ?9 z& l* h% L& K
  286. CPX #$031 A  P+ Z" d4 a
  287. BCC P2_PPUW
    5 N1 t; i1 {, j# U4 X7 N4 Z
  288. LDX #$003 {; h  s9 y$ V% F6 |+ ~
  289. RTS
    * s  W! [1 D- p

  290. 8 s* G0 R1 d2 i5 ]. `
  291. & k" ?2 G8 W6 g" @, F5 J; J+ V
  292. LDA $BB
    ' v3 {" ~. E5 {; M/ _, I4 t
  293. STA $2006( U9 x5 Q( M& H6 h- G
  294. LDA $BA
    * v. B7 T  N- h& k  ]3 p
  295. STA $2006# D9 h# H+ ], a2 |. [" W( w
  296. RTS
    3 K# u9 @0 d, r3 @

  297. - A4 Z0 d4 _2 s: n, g

  298. * Q  X) Y- V) L* @7 t( e

  299. 6 @* [& }/ M& q! u. N- t
  300. PLAYERLIFE:6 B$ \) H7 a  {0 Z: Y
  301. JSR LIFETODEC8 Y# }/ B4 V" X0 G7 C' J
  302. LIFEPPU1:6 g1 k+ R; `& @
  303. LDX #$00+ i( B' R- |4 ?( `% |4 n
  304. LIFEPPU1RE:; F/ Q1 d; p( ^6 j/ P: k4 ^
  305. JSR PPUADDR_PROCESS. c' v1 Q% ]" X8 g3 }- a. E; s
  306. LDA RELIFE_STRING,X7 h+ C4 W3 P8 c& n% o3 L
  307. STA $20070 X  r. d! N  j: R0 D
  308. INX
    # t3 b# L' A# j
  309. INC $BA8 J- _; B% b" A
  310. CPX #$07
    ' P# `: ~" ?, ?7 T$ q" ~5 Y
  311. BCC LIFEPPU1RE
    3 t) F( v! a+ K; b# W, L: u

  312. & P: C$ R7 X! j
  313. LIFEDEC:                ;生命显示写入
    % Z+ a, J' _5 K. E4 k
  314. LDX #$003 i9 n4 z5 l) h, T. t; b. p
  315. LIFEDECRE:+ g) _. q" r; [+ s
  316. LDA $7A03,X# Y) c6 [& n4 [$ M& R( x% c# D
  317. CLC& @7 {0 W1 k2 @, H9 C# M
  318. ADC #$81
    8 F% G" q' B' D
  319. STA $2007
    + }+ T+ M4 K: m/ v+ t
  320. INX
    5 q$ p2 v# I1 n. H* N( Y
  321. INC $BA0 u5 B5 P4 P6 {0 }7 ^7 t6 ^
  322. CPX #$034 s" r& @1 V% r# ]8 }
  323. BCC LIFEDECRE
    ) E7 }8 a" b, J. V
  324. LDX #$00
    2 y) s7 x! I0 r1 Y7 }. d3 k- T
  325. RTS
    3 g3 ]- t; C2 G& N
  326. ; @6 q3 Y; D6 L  W3 P
  327. LIFETODEC:                ;十进制转换# }) t( q% V9 R4 B: C: x0 r
  328. LIFEL1:        ;initialise
    ( H2 Y0 U7 O4 ~- S, }
  329. STA $7A00        ;$7A00=F3
      s, t& `, T% v" K* L
  330. LDA #$00
    ; F& \) W0 P$ Q% \8 c
  331. STA $7A03        ;$7A03=00& q! `: E5 J6 ^* l: k! ]3 F/ ]& e
  332. STA $7A04        ;$7A04=00! V* k' \/ ?( L* S
  333. STA $7A05        ;$7A05=00* u4 e" v5 z; _. x- v% `( @- v
  334. LIFEL2:        ;copy data $7A00 to 6001
    ' l7 w; j* v/ B+ Z$ \4 a
  335. LDA $7A00
    7 x: J, _5 F3 R
  336. STA $7A010 C; G" U2 A2 @/ }) O4 z1 j# \

  337. / b7 n$ J. ]% e. G- e& \" a
  338. LIFEL3:         ;hundred4 e3 c  p8 Q2 g0 r; p: n
  339. LDA $7A01- l, L6 v$ \6 k% @9 U( F, [
  340. CMP #$643 V; E; k: c7 C( h* {- [9 B! t* Q
  341. BCC LIFEL6                ;$7A01<100 goto L6+ G8 w% I- y+ F: Q. R. f
  342. LIFEL4:
    - y  A6 R( s% s
  343. LDA $7A01, S0 i+ f& ~% s/ T* e
  344. SEC( X* |- `" G& {% p& X
  345. SBC #$64        ;$7A01=$7A01-100
    $ a5 [3 }: G% S4 `! y9 m0 Q
  346. STA $7A01& M, b$ p! A8 U1 \
  347. INC $7A03        ;hundred++( V% [, H5 c6 P* |, ~) M* U
  348. LIFEL5:
    ( b$ F) Z4 w& R
  349. LDA $7A01
    % x$ Z; `: f8 K3 h; J( Q6 F, n
  350. CMP #$64
    ! ?0 z% L& p8 h8 j5 k8 u
  351. BCS LIFEL4                ;$7A01>100 goto L4
    2 Y0 G9 Z' ?& f
  352. : e6 a5 E$ I$ Y  a* \1 R
  353. LIFEL6:        ;decade
    6 M) L1 i' j8 G
  354. LDA $7A01# N  t  n4 K. q4 K( y( s7 P4 C5 K
  355. CMP #$0A
    0 E7 G( ?6 \3 o8 x1 m
  356. BCC LIFEL9                ;$7A01<10 goto L9
    ; A5 T: D9 D. k8 j
  357. LIFEL7:       
      v' D  W! }6 r: U- |
  358. LDA $7A010 v; V/ Q. m$ Y3 B0 ?, o) T. q
  359. SEC! S/ J3 S* S" Z. k- s
  360. SBC #$0A- o$ J' ]( ~2 {; F
  361. STA $7A01        ;$7A01=$7A01-10  N8 P: v- R% M) D) A
  362. INC $7A04        ;decade++
    , t: @; p( }( M- }+ Y) L
  363. LIFEL8:: k. j5 K, h  F4 t+ z
  364. LDA $7A01) O# ?" W. L2 H& h/ l
  365. CMP #$0A
    ; P; w* p/ @8 S0 _6 s. v3 U" s* N
  366. BCS LIFEL7                ;$7A01>10 goto L7* B4 E* C( ~& i% T4 ^
  367. ;unit% I  p! ~/ `' y! C9 v0 m
  368. LIFEL9:
    ) t1 M0 q8 R* i6 B- ^& w
  369. LDA $7A01        ;$7A05=$7A01, h) @$ P8 {$ c  }0 j) Q* Y8 ?
  370. STA $7A05        ;unit" J4 o' j/ S) z
  371. RTS        ;return& D* c3 e# h) P' y& P: E) F  A

  372. $ f4 q9 E7 v( Z  b( V: h" C
  373. / E) [3 C2 X  J8 z% N

  374. + U. S! P% J; r: m/ z3 ]1 f' a
  375. WEA:                ;武器ppu写入3 E! F# S. _- m+ O
  376. LDX #$00
    ! A& m' z. `1 ~& i6 H
  377. WEARE:1 v0 V4 f0 |8 G+ q2 Q
  378. JSR PPUADDR_PROCESS6 t2 i* B. r3 D* X9 F4 [9 o: X
  379. LDA WEAPON_STRING,X' M, W+ M8 I  U, \6 y
  380. STA $2007
    7 H+ f/ ?0 j% x
  381. LDA #$00
    9 |5 b/ Q5 i  ]3 V1 R' a
  382. STA $2000, P, h7 [/ {8 `# ^! n
  383. INX
    / L; o6 W1 N* R! Z2 Z5 R% \
  384. INC $BA  t+ |8 w- g9 f  m* ]
  385. CPX #$07- D1 m  i: F% |9 R# U+ L( F
  386. BCC WEARE
    # l; E) |) w5 i  g& ?

  387. / ^' S0 T5 U5 Q3 H1 a% q
  388. READ_WEA:8 T$ q, Z" H4 [& a
  389. LDA $B9
    1 @" p0 W; C" B: U1 d/ p
  390. AND #$100 @. A; S. w) |; o6 x7 Q, K
  391. BEQ NWEA
    ; K& n" F3 j" T0 X; H
  392. SWEA:1 i; p$ U0 h* \7 p
  393. & P# Q8 j* r; v: D7 g
  394. LDA #$9D
    * ~: E; S" G- ~  s
  395. STA $2007
    3 Y& Z, o( y4 ?6 v2 d3 ^/ E
  396. LDA #$00* o: ^1 i: q  `
  397. STA $2000$ m7 V* F2 V# s7 u; Y
  398. INC $BA
    7 D; F8 m# c6 {  c9 J/ c
  399. LDX #$00. R/ x' [/ V1 r, l3 `
  400. JMP WEAREAD0 r& r( u  ]  w" F8 l. c- ~9 E
  401. NWEA:4 m4 q* B5 Z) h& g1 A

  402. 4 Z& ?% C+ i2 `) g% Q; y4 S, o2 _
  403. LDA #$8D
    6 O# B# W. I, m; J! U& a
  404. STA $2007
    , w( @- Y3 E8 G9 d: H) n- q
  405. LDA #$00
    7 L3 x7 d* h; z; F- \% W
  406. STA $2000
    0 c4 K2 ?" ~! Q7 o+ P4 g9 [
  407. INC $BA
    3 r# K" l( ^7 ]) q$ l3 G$ X: u
  408. LDX #$00
    $ L: |8 Q# \! Q  L- o
  409. WEAREAD:
    + G# p  L$ h6 E2 x
  410. LDA $B9
    $ n* S3 J- _9 r) p$ p) j: z
  411. AND #$EF
    " L3 X+ {9 j8 X+ b1 B3 [6 n
  412. CMP W_DATA,X
    $ T; ], G5 |; o
  413. BNE WEACMP3 Z2 Y  E" J6 u3 i9 a# `" p
  414. ! F: s" w+ b: h3 p
  415. LDA W_PPU,X
      G) O7 I2 H7 L8 U2 h5 \0 x  \  U
  416. STA $2007% l# z0 }$ v% U" Z6 l
  417. LDA #$00
    6 V0 ^, A2 {! m0 j
  418. STA $20006 U* @' B/ [" c# R$ m

  419. 5 H5 B* F/ }0 {+ `
  420. WEACMP:
    # H4 I; M7 E, P) D7 `
  421. INX
    9 h6 \. f: r5 {7 {5 ^4 Z. W
  422. CPX #$05
    ' C. x/ U7 r* F4 |. t
  423. BCC WEAREAD: e) @  z4 h: p: p8 L
  424. RTS
    ' W  |0 H0 g+ u# W" \

  425. 1 N7 y7 r  e! \9 C

  426. 1 x( z4 [+ t6 ~8 t/ v
  427. PPUWRITE:+ f9 X. Y- [/ @& \- A& D
  428. PLA9 ]. I: a0 V8 w1 x0 d
  429. TAY/ Y+ {% m0 s. p
  430. PLA! R( H$ h: d4 ]& _
  431. TAX# |) {3 x$ ?9 x# M) k
  432. PLA
    ! V! e! a2 k+ j' x* U4 T0 v
  433. LDA $25
    ) H, n4 S2 v9 W9 K
  434. CMP #$00
    8 l+ W# |' ]: z3 Z
  435. BEQ WP1! G( L! X6 u: a
  436. LDA $25
    1 v( S* L& [7 H1 p5 J& m
  437. CMP #$011 r& Q; U. F: F" x; Q' h
  438. BNE WRE  H2 M. l& P' r) m- h
  439. LDA $F5,X4 Z, M6 Q# [. t) U. G8 {
  440. AND #$EF
    ! t( W8 m* {) ^4 x* h) v, ?
  441. BEQ WRE7 K3 n, n$ ], a2 J% D% P
  442. LDA #$000 J3 b& G/ g# n; p
  443. STA $7FA0
    , F& V- `  Y+ Z4 ^# H: Q

  444. % f5 e* @/ w- ]2 {: a7 G
  445. WRE:
    0 R/ E) N* o7 K% O( R1 V
  446. JMP $A000
    1 R8 m( ^) U7 ]; L. D% e( a

  447. * O# p/ d: Y% G
  448. WP1:
    4 p, f5 |; K+ Q% |/ n! P
  449. LDA $7FFF! t$ J. F$ y' Z
  450. CMP #$FF
    8 t( n3 N7 b2 g" c; D3 d+ n! G
  451. BNE WRE6 P& Y% L" V. H; K, S
  452. LDA #$00
      R5 T2 x7 c2 v3 I
  453. STA $2001
    ! @# d% t* h$ s, A+ C& C& {5 ^
  454. LDA $BD: w1 g9 H  O9 d- v! g4 r  B
  455. PHA+ w- M* a* S1 D9 {
  456. LDA $BC5 I- U, d8 c. N6 Q
  457. PHA5 h( X  D. q. D2 v% J
  458. LDA $BB
    - a0 b" _6 o, c; k: y
  459. PHA
    8 ?1 a3 s! ^, e! @. C. B( x
  460. LDA $BA+ f0 S1 W! e# e8 v! E4 u
  461. PHA
    + R4 k7 b3 Y/ Q
  462. LDA $B95 }, D# S7 t8 _% ~( g: Z) x
  463. PHA7 s, X: ~1 ^' a3 X3 F
  464. LDA $B8' x$ h3 s* T4 M
  465. PHA
    2 q4 C1 s  ~% w: `/ w, o' Y
  466. LDA #$00
    6 v0 k! W7 Y3 Q4 j7 A9 z; _
  467. STA $B8
    + S0 }+ G2 y8 h0 A: E4 y( s
  468. STA $B9
    / F0 s3 j5 z6 j4 L9 P
  469. STA $BA
    4 f$ L2 L' u5 T' w' x
  470. STA $BB
    + }# U7 Q) {) x3 Q' u  G) W2 t/ h$ k
  471. STA $BC
    / F& H0 T3 y* _8 \$ ]; f5 c* f
  472. STA $BD
    & V$ Z5 B4 h: u1 q8 U  j
  473. LDA #$007 ^% r6 Q% l: o, {
  474. STA $7FFF
    ( u" V$ M9 `5 N* C& P9 ~- W' C
  475. LDA $30# H8 F! J8 p4 K; c( Y7 F% i
  476. CMP #$02
    & b. V* a" n3 x! K+ q: t
  477. BNE UNPROCPL
    9 g  Z# Y8 F- n9 ?6 j
  478. LDA $7EFC" ~- V: S7 V8 @3 a' C4 L
  479. STA $FC7 J* I9 W" \1 ^) Q5 Q* x4 U4 l
  480. LDA #$006 Y" p/ t. U: N7 Z
  481. STA $A4' K7 c$ e4 F  \+ R0 o
  482. STA $A5$ T1 P& v+ q/ m5 _. m
  483. UNPROCPL:: y$ Q* k/ L& J, m% |( m
  484. LDA $7EFD" p  u# T3 `, V% Q$ P5 I. L
  485. STA $FD% W# c% ^: a& t2 r, J  h/ k* `: A
  486. LDA $7EFF; Z* N1 U8 K2 i7 C
  487. STA $FF
    ' `- I9 @. h1 u  ?. g

  488. - F, s2 f7 r4 o: E
  489. WL0:
    1 a, p. n2 D* x6 R, i
  490. LDX #$00
    9 _$ T& K* N+ w; d
  491. LDY #$002 J  Z( |6 i0 d6 Q/ Z
  492. LDA #$00
    . y( k" R/ Z: p/ t% l5 p
  493. STA $BA6 F1 `/ o5 b8 D4 [4 ?0 p) ^. D& r$ V
  494. LDA #$20
    ( g9 D+ {$ ~* C1 b6 i& G
  495. STA $BB
    0 I1 P3 {8 ?( L* J" F
  496. LDA #$00
    4 O! X/ D( P6 }% e6 c' L$ ]1 b2 L
  497. STA $BC
    7 N1 l& G5 O. \( Z5 ~0 ]
  498. LDA #$60
    - e4 B. Q; H8 b% r! G6 m
  499. STA $BD
    8 C) z) O5 C7 ]
  500. , K9 U. A5 t7 G) W6 ]6 d+ N
  501. WL1:
    & }& q) s  j, z/ A# Q
  502. LDA $BD
    " F$ I" ^& s: F6 h0 `' r* E  @
  503. CMP #$70
    0 D/ o2 X9 e4 O$ O( n
  504. BNE WL2
    + b, l: Q( V* e# X/ C& Y
  505. LDA $BC
    9 @7 p% z) j/ C+ h+ F# ~
  506. CMP #$00. g2 A& r/ ]8 B4 z- `  e
  507. BEQ WLR# S! c8 x2 a- q) R( R& i. e

  508. ; F- J# Y2 R$ T0 [2 b0 h
  509. WL2:% @4 d& s6 [- q! `7 Q4 _
  510. LDA $BD
      w5 V  j, h3 c* l6 L
  511. STA $2006
    1 V$ \' h; f1 d0 j1 M  Q! I
  512. LDA $BC
    ! T2 v/ d& G. `. E; q9 k0 R$ m+ s) D: ^
  513. STA $20069 x! {$ e$ x! p; a
  514. 5 _* |8 Q0 s( k; M
  515. WL3:- }6 D6 u" ?% k; x  o$ v: T' M; T7 U
  516. LDA ($BC),Y
    - x3 I9 E8 j: T" Q9 j8 z
  517. STA $2007
    , s  S+ z, V# b
  518. 2 P9 g  \4 R7 U+ Q
  519. WL4:+ w. c% Q; ^0 S& S0 z  l- ?
  520. LDA #$00
    8 T) T6 J: O4 e
  521. STA $20005 Z6 Q% ]% ]% Q7 [( Q+ M: _+ I! p/ e! V
  522. INX9 ?; J0 d6 s- ~5 J
  523. INC $BA
    * ]& [; f$ ]9 Z; ^; ^
  524. INC $BC0 J# ^$ c! D  z' `7 z) Z
  525. CPX #$002 O+ Y% L/ I7 \8 F
  526. BNE WL17 c4 F" X+ ?5 v
  527. INC $BB# f9 |0 U: ?% b
  528. INC $BD" o& \& I% o  O& n2 G- f
  529. JMP WL1
    1 d  [9 y, ^( X! E' H$ N) F% v" @/ G
  530. 9 k  q6 O6 i4 p0 J( N' l+ D3 G3 U
  531. WLR:2 e' K, Z( v' T$ j. G( t
  532. LDA $7FFE, o+ N8 W3 U, ]! F& U/ @
  533. STA $07F6
    + ~; V8 k2 t5 a9 \
  534. LDA $7FFD
    & t* ^( s  T( a6 l$ ], l- M
  535. STA $00FE
    ; ~9 W- B* l4 W! Y" r! G
  536. LDA $7FC10 R% `; \3 _/ L; _1 k  {
  537. STA $07C17 v* U( A) X: Z7 S% r: t, k$ N+ ^  p0 T
  538. LDA #$3F
    7 S: T& I5 A5 X& r
  539. STA $2006$ K6 T8 ~' x3 K! V# e0 B! t% Z
  540. LDA #$012 O( ]- a) ?$ Y% y$ u; ]3 i
  541. STA $2006
    " z/ i' z7 f% H8 s2 ]2 @! n
  542. LDA $07C1
    . c' h1 \% u0 D' x8 u
  543. STA $2007
    2 z9 R8 Y# p( [
  544. LDA #$00
    ) w2 Y+ n# V* x4 S. x
  545. STA $20007 Q. C1 \8 b0 S1 T" V
  546. PLA
      v7 s6 b' ~. w- R
  547. STA $B8
    / M/ M0 T, p/ P
  548. PLA
    + n9 v1 t! S; U) \
  549. STA $B9/ J2 T% d' w: [; X: O
  550. PLA
    - I) y2 o& d% Z- H: v
  551. STA $BA
    2 _; e( ^7 A5 T8 m) S
  552. PLA' F4 g" Z5 F/ M9 h! X; O0 ~
  553. STA $BB6 @& H: Q2 J8 q6 c1 L
  554. PLA) F* O2 m. c$ v5 P  p' U6 a
  555. STA $BC4 A! l, g# f$ H$ p8 @3 A6 r
  556. PLA3 _) C/ S, r, c( z; ~8 G. m
  557. STA $BD! s3 s# e) e: |8 [; j5 T
  558. JMP $A000
    - w1 {& ?! Z. v9 F( n& C
  559. 5 {& H6 s+ |, {/ c1 p
  560. FREE:                ; 暂存器保护+ v' Q0 n, V' L8 C
  561. LDA $BD
    " s+ t/ [/ P4 R) ~
  562. PHA. e/ k8 Y* o2 h0 t- m
  563. LDA $BC
    % f7 e" M7 i( Q* s6 o
  564. PHA
    - L- }' ~( B" {" z) ?. t- r
  565. LDA $BB
    / S# ^- _' J% `
  566. PHA% }0 O( j6 [0 e' }
  567. LDA $BA9 {( u% S. C2 @+ Q
  568. PHA6 y' N0 ^4 H2 J; L" K; S) n4 W4 F
  569. LDA $B9/ c# [! P5 @7 g& c
  570. PHA" M3 j2 j% j' ~) C
  571. LDA $B83 a0 K7 s8 Z' o& m* w% L  p# l* _
  572. PHA
    ! A! [+ M/ P. G5 ?" E
  573. LDA #$00& N2 B9 _( A! O. P8 R" J
  574. STA $B8
    ) w; ?( }* q/ l: I
  575. STA $B9# z4 ?0 y1 v/ p  @3 d$ `
  576. STA $BA3 b$ w- U. q0 w9 a  _" G' \% E( l. k$ D
  577. STA $BB' g* r+ k% w! x
  578. STA $BC
    7 `; b' k! }( g; B8 o& p+ I
  579. STA $BD
    1 X+ q! B% q8 O% o: h
  580. % K. W7 l; N: G$ U
  581. WEAWRITE:                ;武器ppu写入
    & q; p. `6 A* b1 l# F1 _# }2 U
  582. LDX #$00
    7 n% Q& K& a, s! c
  583. LDA $AA
    . k9 N, a" J% @
  584. STA $B9' i8 [: U0 D9 g7 x1 O! m% _/ t
  585. WEAINI:                ;地值初始化1 L) Q7 |3 f/ i, f/ `# M3 {4 A
  586. LDA #$A4
    + f% E5 M' _/ M! d9 ^5 v
  587. STA $BA# F' C2 Q7 Z3 P) Z
  588. LDA #$20" J6 p9 U* W; j9 w# K+ X5 t
  589. STA $BB
    : V% Z& {; q( G

  590. - n" ]7 M) {( h. P- G

  591. 1 L& Y' `' w7 b$ _/ \2 Q
  592. JSR WEA
    % ^. \5 S# G' O
  593. LDX #$00                ;武器ppu写入0 z) _( `; Z. M. V
  594. LDA $AB; D3 X3 _" y$ B1 z
  595. STA $B9
    0 }- f2 i6 z8 N6 R) i, Q; x
  596. LDA #$B3
      r6 {6 [# ^) R+ z
  597. STA $BA* j4 b* y) _5 y- I6 n! ?! O3 B
  598. LDA #$20. {5 m0 d9 ~& v2 p" p: f/ }$ H
  599. STA $BB
    $ ~$ i% Y* j4 b$ i. ]7 B

  600. 0 s! U9 w3 s9 v) F) u+ U

  601. 3 x/ r# g0 Y; R
  602. JSR WEA/ A3 ?! c( p2 _8 b1 ?
  603. 4 g% |! {8 `2 y9 t6 l! d) y
  604. LDX #$00
      i/ w( t. R* z
  605. LDA #$E45 Z; H% Q8 B, O! ]) X/ Q
  606. STA $BA. p  W$ J  f( a
  607. LDA #$20
    3 H& v: K+ r% ]# Q
  608. STA $BB0 V- [( _: r  s9 r2 p9 U
  609. 9 y' A6 r1 @* V; {$ f
  610. . W; b* \4 @" a4 N0 c
  611. LDA $32
    / ]! z. Z1 s3 G% j+ R5 f! l2 p( ?
  612. JSR PLAYERLIFE9 d( A$ p: X' M( o6 l

  613. 0 z! i% o6 S& [; b5 Y! m6 I
  614. LDX #$00
    ( {1 ?% V+ R( s1 ^6 Z3 h! B* A
  615. LDA #$F37 S* M/ M3 P# A2 D" x: X: u3 x
  616. STA $BA" q7 t  E  h7 I( W5 j
  617. LDA #$202 Q( K4 B* |' [$ g3 Q' c
  618. STA $BB
    1 K5 n+ \* y% G5 c8 k: ?
  619. 7 I* O/ |0 q4 k

  620. ; b+ V$ L8 [" `& J% v$ N7 {
  621. LDA $33& G, x! X, p5 G- R; \
  622. JSR PLAYERLIFE
    / ^$ h! R. A( \, `$ k0 n7 w

  623. . \" N7 ?$ L" _0 e3 a

  624. ; z. I! u- r6 g$ F8 R9 S0 k- V$ ~
  625. JSR PLAYER_01_PPU0 }% c9 z( |5 x8 ~; H+ L9 y
  626. JSR PLAYER_02_PPU0 R* @  D+ b( h) i; w
  627. # K2 x2 |9 n- L' s- q

  628. . F$ V( L7 g1 q6 p* i
  629. JSR PAGE_PPU
    * {7 g" M, A% i$ R% ^7 l
  630. JSR PAGESELECT/ D8 ]5 }) j7 T$ X) z

  631. : N3 s9 d" Y1 ?+ a& `3 Z4 }
  632. 3 |2 ~$ m8 d8 x2 b% S! Q  M
  633. 5 \2 W8 j6 q2 i% [

  634. ) e2 r8 F6 h5 }0 `- g( A8 @( P
  635.   i7 O$ E3 u9 l, Q- O9 ^4 C$ A
  636. 5 R0 |" f6 W( i% J2 g
  637. 8 H3 P" v) l% n8 C; j* w

  638. - K  p4 d  Y2 L
  639. ( D6 I9 w: W9 f. @8 O& B- g

  640. 2 j4 B5 ]" ?5 t
  641. ; T+ {$ _+ M! `7 u' U

  642. 0 V1 a' l1 v! E* N

  643. / x/ I+ x4 q: Z6 h0 _1 D; f+ O. [
  644. PLAPRO:                ;恢复现场# u+ K5 L5 F3 a% @
  645. PLA
    2 r8 S: l) y+ D; f0 x8 ]
  646. STA $B87 Z' ]( P2 w0 x2 Y2 j  x5 _
  647. PLA
    6 _% t. _8 M  r# Q
  648. STA $B9
    ; Y0 ?1 E" H% _/ m! _) M1 Z. \
  649. PLA: C/ ^3 [* t- B8 ~
  650. STA $BA
    ' J' Y9 k+ _0 U. D) ?  R2 u1 q9 ]$ P
  651. PLA) X% h& W+ X1 i
  652. STA $BB
    ; ?: P/ K3 h* q
  653. PLA0 S1 r) Z: `/ }9 R, J3 Q* H
  654. STA $BC9 [, E$ h; i  y: z
  655. PLA( ~- e  J' H! l0 t. F
  656. STA $BD6 ]/ ^3 |0 P. C6 X2 @
  657. FREERTS:
    - I0 p5 L) w5 u: t* l' c$ s+ w' N
  658. RTS
    $ _0 A' ?. A3 C- V# h" U8 F

  659. * ]0 c3 E9 _# K# i+ K$ a
  660. INVINC_STRING:                        ;invincible
    % A$ r8 h4 @0 T4 W
  661. .BYTE $93,$98,$A0,$93,$98,$8D,$80
    . Q& e5 }; ^' t7 j
  662. : x$ e; a$ \+ ^( k: z7 i* K: S
  663. INVINC_PPU:% @+ j$ h8 @6 u/ Q
  664. LDX #$00, @& |. M7 i1 q$ j8 I+ A  [, c
  665. LDA #$625 ?" u! ]1 K3 I" c7 W, ^6 x! R
  666. STA $BA0 ?  a4 K" r0 t- p
  667. LDA #$216 e; z. a" E: t) T
  668. STA $BB; R+ j. P$ o; t" d' {

  669. 9 i4 `8 `/ f5 Z6 E  m
  670. 0 U6 s: q2 r9 T7 q
  671. JSR UP_PPU
    " h% @3 U. T. n9 P! U1 ^8 B: k+ y
  672. JSR INVINC_WRITE
    ; n) k# F! _! `- o8 c" @
  673. LDX #$00
    3 k  O% k; a1 S
  674. LDA $07A0
    - Z7 K9 @9 g; @- U
  675. AND #$01
    # g& A+ {7 v% ?/ D9 p7 Z
  676. JSR ON_OFF_PPU8 _0 I$ j4 c+ B+ B& a$ K
  677. LDX #$00
    ' S) a  u9 z8 j$ p- z" E
  678. LDA #$71
    / T1 P  w# a- m$ U1 {: q
  679. STA $BA0 L6 B% A1 q; a: a! A' n) o+ G
  680. LDA #$21
    + @1 m" o7 Q( Y* D  J
  681. STA $BB
    , p0 z; e2 z# g) i8 ^

  682. 1 p+ @3 k& T7 h
  683. ; O! B( j: E# F  j: P3 A. G
  684. JSR UP_PPU9 u- W- \1 S" |: v, ~; B5 Z
  685. JSR INVINC_WRITE
    5 \* Y' F9 f6 e6 S
  686. LDX #$00
    : A0 W8 t& B& U+ a
  687. LDA $07A1. ]& N0 ]( ~& `
  688. AND #$01
    ' Z+ W& W5 y& h( D
  689. JSR ON_OFF_PPU' K2 W9 S8 |5 T2 P
  690. RTS3 K2 m* F6 Y, ]0 c/ y) }
  691. 2 a5 n" S6 s% V, k- }5 {
  692. INVINC_WRITE:
    0 E$ x3 X3 u4 G, i& y
  693. LDX #$00
    ; z; u6 I$ K0 f+ w, |) {
  694. INWRITE:
    0 d8 _' Y1 t+ B3 H; D
  695. JSR PPUADDR_PROCESS# ?# _& K9 a* M/ I
  696. LDA INVINC_STRING,X
    ; c( U7 W3 D  v* Q9 ]
  697. STA $2007# M# p# J$ u& R
  698. LDA #$00
    8 \0 ?! q( l8 F4 K, k8 u& }! r) f
  699. STA $2000  m4 M  V; ]; W$ p+ j
  700. INC $BA
    & O( z8 t) ~; }) t
  701. INX. [; Y- }+ E# K4 o' v0 F
  702. CPX #$07
    & U" [9 _. Y, A, d! F; R- z' {
  703. BCC INWRITE) ]  {- r4 X- o, D% }
  704. RTS
    2 Y! ?1 d4 `$ h. Z
  705. 4 i$ ?  ~/ T' k9 t# M
  706. ON_STRING:9 B6 d$ s, t& B' M2 K  ]; O
  707. .BYTE $99,$98,$80
    # Z/ \6 n# G" N1 g: g

  708. $ d& `' y, n) R: m/ r. i8 b5 q9 H
  709. OFF_STRING:
    3 H7 M  {8 l# p: D2 L7 F. v
  710. .BYTE $99,$90,$90
    $ I9 j; }, H* g3 S6 P" W, z' e% |9 H5 C
  711. : {4 m0 g! P  c6 m) |" a# H
  712. ON_OFF_PPU:2 |( y5 r3 H& h
  713. BEQ OFFWR
    9 y  n  |' N$ K% q; }- Y# k
  714. ONWR:; M& H1 F- }7 R9 g8 i2 l5 w
  715. JSR PPUADDR_PROCESS! p6 E- F3 U1 ]& k! }1 s
  716. LDA ON_STRING,X
    . s1 z8 H: f5 N1 m
  717. STA $20077 y* `1 w6 w. @7 i6 [$ q
  718. INC $BA
    2 U  V" \% y$ u% G; `6 l3 _2 d
  719. INX
    * o$ z7 C  n. `# }/ q
  720. CPX #$03* H3 Y, S. @; U) z2 a! A+ `
  721. BCC ONWR. t/ h+ k8 }/ k/ S3 R
  722. RTS
    & p, Z( x( X9 T- T& g
  723. OFFWR:0 |* W) k  t, N" q, W. o
  724. JSR PPUADDR_PROCESS* N7 v8 E5 |- v7 @
  725. LDA OFF_STRING,X" M. L* G4 Z3 E- q/ O
  726. STA $20075 y8 x; [0 d( T6 E1 s" F
  727. INC $BA
    4 Z7 J! Z5 ~+ _5 k
  728. INX) @$ k* I% `* \/ ^. M* }
  729. CPX #$03: Z. D- h% v7 F, s; C6 V2 K% l
  730. BCC OFFWR8 }6 U- ?  ]5 J
  731. RTS& H+ W, u1 T% `+ A

  732. , @. Z% H# f: b1 j6 G7 }8 S
  733. LIFELC15_STRING:3 M' d% j/ t- o; p
  734. .BYTE $96,$93,$90,$8F,$82,$86,$801 O# R1 k/ w3 }! Q  [! E

  735. 7 [. J/ P7 t+ [4 s+ |* U
  736. LIFELC15_WRITE:
    ; \3 i& ?7 u& ^4 k) U- r/ g: y
  737. LDX #$00
    % ?' m& A+ A% @8 f9 q
  738. LIFELC15:
    ; V/ N6 y5 o/ O, d$ j+ G
  739. JSR PPUADDR_PROCESS4 v2 A9 B% x( c2 ]
  740. LDA LIFELC15_STRING,X
    6 F  H! X$ H5 Y* Q
  741. STA $20072 J5 c+ f3 h& O' Z4 }) N
  742. LDA #$00% I7 F, [9 R' o) o: F: d/ l
  743. STA $2000
    ' d, f  O' J( `0 V' F- q
  744. INC $BA
    ! h3 y, t/ ?$ J! V+ M3 J
  745. INX
    3 u- z7 y; A: y' N  f
  746. CPX #$07
    ) |: ]! ^/ ]3 y
  747. BCC LIFELC15* y# q( a5 F$ O5 P. a
  748. RTS# w, a* ^- `- W$ y! \( I; l8 U

  749. # Q: W* Q  h3 J6 S/ e
  750. LIFELC15_PPU:4 b& i  H; |7 ^0 w/ m: D' `
  751. LDX #$00: @# T* f# o& e9 i8 v
  752. LDA #$A2
    - Y0 E4 ^+ x7 z# l, {
  753. STA $BA
    8 V8 s. L# ^# J: `& n1 O  |
  754. LDA #$21
    # P/ y% O% }! k4 W; Q: }6 {
  755. STA $BB
    4 S0 S/ M1 G% m& d/ z6 B% a/ U) g
  756. JSR DN_PPU
    * Q  n9 \# k1 e* E
  757. JSR LIFELC15_WRITE
      D) N- D, _' C. Z! ~! {% l! I/ K
  758. LDX #$001 c0 {& ?9 `( E5 {; m2 y0 N
  759. LDA $07A0
      j0 G& q, }9 e0 ~# ]
  760. AND #$02
    + d: A9 M9 I9 i+ z3 h
  761. JSR ON_OFF_PPU
    5 y$ y5 C$ u% y, y
  762. LDX #$00
    ; E3 g/ u( P1 t
  763. LDA #$B15 Y6 |3 K! F8 `' D5 T' Q) D
  764. STA $BA
    ( {# ^4 D9 m1 r6 [: X: i0 l! m2 W. {8 @
  765. LDA #$21
    & K7 m1 G3 q& t* g; ~9 _
  766. STA $BB
    ( s" ~5 r. h& E; E" `
  767. JSR DN_PPU
    0 l2 F1 C3 N. ]& P' A
  768. JSR LIFELC15_WRITE; ~9 z. g+ V3 M: I0 y" p. e- o
  769. LDX #$004 o# F/ j6 k8 \" I! H% Y( v  O
  770. LDA $07A1+ d$ K  @' ]" r7 b* W6 ?
  771. AND #$02
    + x, ~2 O! }. B
  772. JSR ON_OFF_PPU
    3 T3 F1 a& _9 I
  773. RTS
    5 ?! n7 ?1 j8 Z# U3 c" ]

  774. 1 z' Q: y$ F$ S
  775. DOUCON_STRING:: L( |8 i' J9 g4 U" j
  776. .BYTE $8E,$99,$9F,$8D,$99,$98,$80
    5 e( y. z& T3 N! A( o- U, }
  777. + n1 G8 G/ \+ x
  778. DOUCON_WRITE:/ t- w% p) a2 [
  779. LDX #$00) n1 _/ T& A0 x0 K8 c+ x7 i- x; _
  780. DOUCON:( a0 r: e. S- N* C+ ?$ w
  781. JSR PPUADDR_PROCESS
    & |, u) r4 Z2 U9 r$ l
  782. LDA DOUCON_STRING,X
    7 |* d+ `- L1 h
  783. STA $2007
    3 Z, p/ _5 j6 c& I- O$ t9 `5 w
  784. LDA #$00% u( G2 T" L/ ~9 I" G
  785. STA $20000 Y+ T3 ^# Q; a* l$ X+ @
  786. INC $BA
    7 n) q6 x* e* s/ B. o
  787. INX
    / T( p9 p2 v' o* R( d7 n; ]
  788. CPX #$07# u* y$ J& K/ C$ w% d( r' k
  789. BCC DOUCON
    ( b" ~( v0 j2 F, p8 v6 M+ H
  790. RTS3 m7 }) A0 e) M( n2 l
  791. : J# O) D% l+ \- E) K6 F$ L2 V
  792. DOUCON_PPU:. G; `7 C# {& g$ [; ?
  793. LDX #$00. h  N( I, A' l$ X5 D: c
  794. LDA #$E2
    & a0 S0 Q, f* E. h: V& n$ S. D
  795. STA $BA/ Z0 a8 c/ B) g) R6 C
  796. LDA #$21  M# Y0 A! A  |- [0 @" c# `
  797. STA $BB
    & ^7 n* }+ y8 B
  798. JSR LF_PPU. X2 W( a8 @9 L5 d
  799. JSR DOUCON_WRITE1 @. _. y2 S. B6 N( u7 w
  800. LDX #$006 M2 H2 b. w- i0 G3 ]- j. w
  801. LDA $07A0/ u) e( ]) |# |+ ]& }; {2 _3 j
  802. AND #$04: R# k, m. @# s1 M$ N; z! ^( g9 i
  803. JSR ON_OFF_PPU4 u4 U# o) Y! S0 O
  804. LDX #$00
    % p: l7 p6 h6 @+ o& Q9 }
  805. LDA #$F14 ]2 U( s: C, O: H3 u' B
  806. STA $BA
    : J# x  f5 h* s, V& y/ r
  807. LDA #$21, i; J( ]6 _2 R+ s! @5 l
  808. STA $BB
    8 w1 \" P# }+ Q* B/ v; k5 ?9 y
  809. JSR LF_PPU
    8 l1 ]/ q$ G/ ]5 X8 |& n4 @$ R; T
  810. JSR DOUCON_WRITE
    3 l. b, L& A, w
  811. LDX #$00
    , N* O3 g8 h/ J
  812. LDA $07A1
    / j6 |3 j0 S6 Y, H2 |4 }: {
  813. AND #$044 M. g  \5 X) B! K3 L# G1 v6 b
  814. JSR ON_OFF_PPU, W6 e. Y' X9 `0 c  P% y/ N
  815. RTS
    9 [7 V5 E; _9 I- z
  816. * k% F# P2 v2 G" {
  817. LIFELOW_STRING:
    + D6 x3 t5 z) J# E* V& Z
  818. .BYTE $96,$93,$90,$96,$99,$A1,$80
    8 @: k7 e. X% }1 X5 C4 l
  819. - @, t, T: K! S/ v
  820. LIFELOW_WRITE:
    4 d& n9 U  \% |) a7 U
  821. LDX #$00
    1 h# _$ g# o/ h4 o  ~% o
  822. LIFELOW:3 p! G' d+ l0 z! M1 z8 Z$ c+ U
  823. JSR PPUADDR_PROCESS
    / f$ o! X& [- l% \( y
  824. LDA LIFELOW_STRING,X
    + I: s" U: I9 l7 R) U2 d
  825. STA $2007
    7 m, ]+ g- [2 \7 g; Z; K' B4 ~
  826. LDA #$005 R* D# b9 F& b3 V
  827. STA $20005 K1 Q  L0 [0 _/ S, H% r
  828. INC $BA
      ^# F4 i& n# s; b! E. w4 O, l
  829. INX
    ; \4 n5 w. x( k5 o7 m) k* [
  830. CPX #$07
    / |3 M* c3 Q# v! e, Z2 a1 K
  831. BCC LIFELOW9 E% E! F: j, f% [/ A
  832. RTS7 @6 [# j6 p. i- l" X6 r
  833. . v4 \9 W: P6 w, V
  834. LIFELOW_PPU:
    * l. c# X+ w/ ^1 ?: z# |
  835. LDX #$00
    6 ^' G7 n" k+ ]  d  C
  836. LDA #$22
    8 n8 h: K, a8 q. C! [& l  Z) \: I
  837. STA $BA" X" D% E# E+ v; b. T
  838. LDA #$220 W! b, H. q. q. }$ h
  839. STA $BB
    1 _) X/ L0 A) c

  840. % W1 A1 O* ?( c" x0 a

  841. - a0 A6 l! K& W1 q0 g/ Y: i
  842. JSR RG_PPU# {9 @% C8 M' O+ Y+ j' Z2 V
  843. JSR LIFELOW_WRITE
    ! I( C$ g* ^. b1 _  g+ P3 g) `
  844. LDX #$00/ t) B0 z8 n% M& C
  845. LDA $07A0' q) x+ X6 a) L7 `* y# s1 X
  846. AND #$089 A: a9 F* {  @; }& T8 u# y; O
  847. JSR ON_OFF_PPU4 y0 N0 T; R" q# L6 j
  848. LDX #$00
    + s1 C2 S! E7 h" f
  849. LDA #$316 |) B( o# Q" @$ z
  850. STA $BA/ E  X, [* [1 {3 b/ S8 n' b4 m
  851. LDA #$22
    " L; h% e9 S: L+ u" j& G
  852. STA $BB
    ' G$ H: g, c' h" Q7 J
  853. 2 \( Z( R! l" E1 c* `$ O) _8 p

  854. ) D9 m- }5 K6 l7 K+ S: l; K
  855. JSR RG_PPU
    0 s8 b/ p5 D/ X+ p7 v) A1 h& u0 R
  856. JSR LIFELOW_WRITE
    6 T" h+ P* z, s( z5 n- G6 h$ R
  857. LDX #$000 j' k# Q: t! |, ^9 D
  858. LDA $07A1
    ) Y  _9 q4 C1 @9 @( u+ \5 [# }7 u
  859. AND #$08
    " z' g2 ]+ g6 ~1 h- ~6 l
  860. JSR ON_OFF_PPU0 U' E; Q, F  d7 z! s' N. z' w
  861. RTS
    9 w) ~% q- |7 j+ R/ z0 k% |
  862.   t8 o- J8 H4 O7 I
  863. KILLON_STRING:
    ; Y' t8 B+ @6 ~: n$ U& M8 E
  864. .BYTE $95,$93,$96,$96,$99,$98,$80: Y+ ?  ~$ w4 X
  865. 8 r; S# E  c' T$ Z  q, E
  866. KILLON_WRITE:
    + F; j- M7 v4 ?& ~3 S* Q
  867. LDX #$00! c4 r; F& o  y
  868. KILLON:# F0 B& y8 b$ v
  869. JSR PPUADDR_PROCESS. W; `* ?. [1 {7 Z) D  C3 q
  870. LDA KILLON_STRING,X
    8 N. ]8 [. e$ B( U& p( L+ e1 L
  871. STA $2007+ s4 {5 l& R/ d4 G
  872. LDA #$00
    9 }& k: v% ~- e
  873. STA $2000. Q; H9 R2 Q) U: Z$ B8 I+ H
  874. INC $BA2 X# m* B% l8 i$ [, M% J  a$ ^- E
  875. INX
    % U( y, H: p0 G* I9 I2 @
  876. CPX #$07$ B% J' o4 X7 l& d1 w) u; j
  877. BCC KILLON7 ?, L0 y, g; d0 d6 @' Y
  878. RTS
    9 ~! \/ X2 e- S3 }' I8 X
  879. # B4 D$ Y* \( M( p% p9 ^( K( c( F
  880. KILLON_PPU:1 p: t1 D- J  o- W. y
  881. LDX #$00
    5 }& p3 I3 E$ @# V$ D7 Q, d
  882. LDA #$62
    1 ]7 h/ Z6 {& y
  883. STA $BA
    ' Z5 r0 X1 ]. O# e/ w7 Y
  884. LDA #$227 Q" ?$ u1 {: ~( W/ G
  885. STA $BB
    8 u1 X* O! i% _) L& ~

  886. 8 Z3 K$ y$ A& ^$ K# N) M& j; b' O% F  Z7 p
  887. # C8 t/ s! F) D4 q% _7 I
  888. JSR B_PPU- _- [* G( W2 d# `' V
  889. JSR KILLON_WRITE) v* T* S( L8 p8 i& Z  |
  890. LDX #$00& D5 x- P3 Y0 h2 n
  891. LDA $07A04 H  g: P# i6 F) x- Z: R: L
  892. AND #$10! Z" o; s8 X# B' K% M
  893. JSR ON_OFF_PPU6 w- P0 {, i: J1 ^3 V
  894. LDX #$00
    . ^5 ^! c7 F% j) X
  895. LDA #$71
    4 ]# k4 a9 r+ d8 ?  C
  896. STA $BA
    1 Z0 _: c6 N! r3 v$ l5 J
  897. LDA #$22) A. Y3 e. e4 b! ~
  898. STA $BB
    5 t7 L- p- F8 x  G+ O
  899. 3 h$ n' X; N3 V% M. ?

  900. , ~% H7 ~9 S$ q3 C: v
  901. JSR B_PPU6 Y9 T! u. W' K/ E5 ?. t1 K& M# R
  902. JSR KILLON_WRITE* N* g5 ?2 o4 @+ Q8 G6 r8 S" w
  903. LDX #$008 D" @8 w% ], v1 o! c- j
  904. LDA $07A1
      {5 \- w% |: J5 [+ M
  905. AND #$10! U6 e7 q$ t! t# i" K' W: V0 P
  906. JSR ON_OFF_PPU
    ; [  y  C7 n9 v; d# c0 \; ?
  907. RTS2 p+ O/ c7 N, ]3 i6 x& G6 ^
  908. 8 }/ o$ q9 i7 D( q% I
  909. SKYFLY_STRING:' T" O, ^8 S/ V0 G1 c
  910. .BYTE $9D,$95,$A3,$90,$96,$A3,$80
    ( _8 @+ N8 J( P5 F% O6 U
  911. ! ]6 _1 f0 G( z. Q
  912. SKYFLY_WRITE:- g7 }% U, O( j0 \0 N9 }
  913. LDX #$00
    $ w' l. D9 d& b
  914. SKYFLY:
    & A( o, c* Y5 _7 r7 O
  915. JSR PPUADDR_PROCESS
    ! G; ~, e3 T! j/ w6 ^* d) y1 Y: R
  916. LDA SKYFLY_STRING,X
    * k- |7 A1 Y" k/ i0 n* m, E* A4 D
  917. STA $2007
    ) X! \  F0 B7 F1 O1 c
  918. LDA #$00
    + j* v1 y" b% \& \" b) G
  919. STA $2000( B4 T- R  x6 W( T- _5 q
  920. INC $BA
    ( Z. l5 x+ o1 _6 C
  921. INX& n" L2 q/ j  [/ G, O, X
  922. CPX #$078 ^. j; [  q' h( q) Q$ {
  923. BCC SKYFLY
    ' U3 b; Z! r, g6 v# M! B
  924. RTS* S% Y& k- x- S# X$ Y, m# T8 [

  925. 8 u$ L" r7 @( C1 ]. R& s/ t# j' N
  926. SKYFLY_PPU:1 Q' U- o; S+ {0 Y$ D
  927. LDX #$006 O+ H7 x9 n8 E* }7 v& B
  928. LDA #$A2
    . j( B/ \; ^/ a# j. g$ z& u
  929. STA $BA
    + s1 n: `& t7 }; x
  930. LDA #$22
    / Y- z$ k* A7 R9 `7 V4 g. z8 \
  931. STA $BB& u$ V" e# F8 G

  932. & z; g$ |! C# O) G$ Y3 l! I: `

  933. & ?: F$ K& n3 B  ]/ A2 X
  934. JSR A_PPU
    4 O5 F- S- }0 X) H: T$ B0 m
  935. JSR SKYFLY_WRITE
    * y  I7 r. B! N- H
  936. LDX #$00
    5 g+ V% A& Z6 s4 C
  937. LDA $07A07 {( m2 G" A5 [( e0 [
  938. AND #$20/ M2 E( x) G3 D5 q
  939. JSR ON_OFF_PPU4 `$ ]) f) g: b: s' w! L
  940. LDX #$004 C8 r1 e. \$ I# }, u
  941. LDA #$B11 P2 G' [' h$ }8 p  V
  942. STA $BA
    ' k- h1 i& u3 O
  943. LDA #$226 P1 C) G+ Q  Q4 r7 X5 m
  944. STA $BB& g. x% J; Y. j$ i
  945. . d7 M; B# B+ O, H; w$ v' Q
  946. * V7 E3 |5 f( g6 r4 G
  947. JSR A_PPU
    * Z1 H. h  R+ i9 d. ~
  948. JSR SKYFLY_WRITE  O% \, j& B( K/ m, f) C3 e5 ]
  949. LDX #$00
    - J3 Z. ]* K. ~5 w5 {5 d
  950. LDA $07A1) u7 q% z5 H& [. V* F3 M; O' D8 q
  951. AND #$20
    ! m: S$ x3 x! w. a/ s# M& R) }# [. t
  952. JSR ON_OFF_PPU
    $ N: a. |- u# b4 f7 o# c( i5 e
  953. RTS; v" a. X! X/ x" V$ t5 S6 \
  954. 3 [) o8 l- K7 S5 f1 d; O
  955. BULADD_STRING:8 N3 S* f4 \2 \5 A8 @
  956. .BYTE $8C,$9F,$96,$8B,$8E,$8E,$800 F0 _. X; m$ N: j2 w
  957. 9 N0 a- E& a/ l: \7 [
  958. BULADD_WRITE:
    4 a) |" l* L) s' w- G  K
  959. LDX #$00
    6 n) l  l# @5 h
  960. BULADD:
    " ^) c; ]* z$ a" m, c+ \. \- m
  961. JSR PPUADDR_PROCESS
    7 x, a! j/ I2 L5 X8 b- ]& W
  962. LDA BULADD_STRING,X* s& A& j( C* E2 h5 Z3 l
  963. STA $20075 j4 d8 u" y% k5 C4 u, O3 p
  964. LDA #$00
    ! p0 w& p" v$ B+ X' h" Y0 [
  965. STA $2000
    3 E, {$ F* }0 F, h* ~1 M
  966. INC $BA) _7 r2 f0 c" S
  967. INX
    4 J; d% m) P4 n& ~
  968. CPX #$078 x1 F9 a# H" `8 ^: b
  969. BCC BULADD
    7 m* ~9 c* j7 V) a2 x
  970. RTS
    4 F7 ^2 x8 g8 `! u! i+ U

  971. 3 B7 s- ?8 Z% ]2 o
  972. BULADD_PPU:# v5 F' `+ ^# N, l2 u! `
  973. LDX #$00* K! ^' j% @5 d
  974. LDA #$62
    " O/ h4 i# A; t
  975. STA $BA8 U$ u2 q6 F/ b$ f" ]/ l* u
  976. LDA #$21
    0 Y0 |" m) t7 G* n1 r* J9 S5 u! M
  977. STA $BB
    % {, O5 r3 M5 M+ u, ~6 g; o; I/ Q

  978. 0 c2 S. I$ @' ]6 f) X# m/ ?

  979. 2 \* U7 Z8 d% _0 p" `% ~
  980. JSR UP_PPU
    % G: U& d0 S& J/ s: r
  981. JSR BULADD_WRITE3 r) O& S7 M9 M8 u7 M2 i; R
  982. LDX #$00
    & n! O1 [" U7 L: o' g
  983. LDA $07A2/ _7 r' f+ R+ r/ l; q! d8 Z, Q3 A8 {
  984. AND #$01; _* [- f$ x9 ?5 i8 K! b$ a# s
  985. JSR ON_OFF_PPU  G, K) d( m  x3 b+ R- k5 M
  986. LDX #$00
    ! ]1 g0 D9 t' A6 F1 M& n0 x2 d
  987. LDA #$71
    4 {% F0 [( |4 [$ m' h- q+ [: P- k
  988. STA $BA
    ' ^- @9 |+ A) L& m5 s$ K' k" q6 r
  989. LDA #$213 x, t9 J* J/ z1 l" D
  990. STA $BB
    2 r. |8 d3 p# k8 L& _* I  O

  991. 5 L0 \$ ~0 L3 p; z. W  V$ b8 N" ]
  992. " F* s! A8 O; O" N' y6 B! T
  993. JSR UP_PPU6 ]" X) k- Y6 k
  994. JSR BULADD_WRITE
    9 ~. s" H% |. C5 z; h" Y
  995. LDX #$007 t6 J. r5 l$ N- s
  996. LDA $07A3
    ' R1 t* q. f) i; d, P
  997. AND #$01+ Z$ h% w8 J: F8 J
  998. JSR ON_OFF_PPU
      Z" k; x: g' `5 |3 B! n
  999. RTS
    ( i5 g4 F- W; h! d5 @+ d& i) n, W& V9 [! S
  1000. ) Y7 J9 o" p% c1 H( U4 Z3 ^7 S8 \
  1001. MENU_PAGE_STRING:* [) B& A, N+ m: _- |3 J. [' Z
  1002. .BYTE $97,$8F,$98,$9F,$80,$9A,$8B,$91,$8F,$80,$81. ?5 `; |/ q/ M0 J9 |1 i$ F

  1003. & J/ e6 i0 x8 U) H7 M, H- n
  1004. PAGE_PPU:
    7 t2 Z3 P& I7 g( ^2 U8 [! m
  1005. LDX #$00
    " z+ M9 @) h  I4 S
  1006. LDA #$0A
    2 w' ?2 H& m% H: N/ O
  1007. STA $BA
    4 [, c# f6 U' x9 [9 ^4 G
  1008. LDA #$23+ E+ F- i6 q! q0 l& O
  1009. STA $BB
    4 i. @, v( `; U7 m' P8 V
  1010. : {! x! s: v, B3 W3 A9 ?9 T
  1011. 3 f+ `" C' N. F6 w2 ^
  1012. MENU_PAGE:! Q( t9 d0 |  E# \% `7 ?1 |
  1013. JSR PPUADDR_PROCESS
    , y/ b9 W/ D4 D* o
  1014. LDA MENU_PAGE_STRING,X5 t1 Y. R# b/ ?, ]0 e" G
  1015. STA $2007
    . V8 S) q- D+ y# F8 t% D
  1016. LDA #$00
    2 b2 R, e7 A5 J% ]2 `' S/ Q+ T
  1017. STA $2000
    9 n. x/ @! A2 V' |. N* w
  1018. INC $BA
    0 C+ f8 E' {! |& c
  1019. INX
    2 _$ D# j; `! Z& H( d
  1020. CPX #$0B4 z2 z. ~$ X# n  k( Z
  1021. BCC MENU_PAGE" l9 x- i  N/ L6 D) u3 F* f$ X1 |
  1022. LDA $07AA
      X$ h& j) Y; H; a1 b6 b& V" B
  1023. CLC
    5 \8 k- l0 H: F7 t
  1024. ADC #$82
    , X+ a2 ^' u7 {! ]4 s5 l
  1025. STA $2007
    ; P0 q; w  d" e, b4 ]
  1026. LDA #$00
      `: ^. R1 E' H& v1 T
  1027. STA $2000
    ' b" ]  T5 P5 E- ]/ ?3 g
  1028. RTS
    + ^# e+ i  I3 e, \

  1029. ; B- q8 G, l  Q4 k  L3 E9 n

  1030. ! o2 S0 @1 A/ i! ~. T% l
  1031. SKINGE_STRING:1 S4 D1 h4 E1 X- `
  1032. .BYTE $9D,$95,$93,$98,$91,$8F,$80
    * ^2 V! u- b& q. a

  1033. 4 q/ I7 X( P0 h9 `! {3 C
  1034. SKINGE_WRITE:. a, `+ I. P' z* v! y* w3 h
  1035. LDX #$00
    - W5 h) E; K2 f2 \" Q! ~
  1036. SKINGE:
    1 y' }0 O3 k; \& S
  1037. JSR PPUADDR_PROCESS1 i/ A2 I* T* ]: v
  1038. LDA SKINGE_STRING,X
    / ]) w' v' y9 F9 G
  1039. STA $2007
    & C% P1 q* S( k; R' i
  1040. LDA #$00- m8 n8 b/ l' K6 O
  1041. STA $2000) E2 l% W/ A2 l# k
  1042. INC $BA
    - L* _  W) q: |
  1043. INX
    1 Z$ J8 s* ^$ C$ V6 j* f6 q
  1044. CPX #$07
    - D! D) s: c# R( T
  1045. BCC SKINGE
    ) g# ]7 G1 V  H# L* G
  1046. RTS
    1 ?+ Y! Q9 F1 z. V' }

  1047. $ @: k6 Z& Y0 w7 \, s" y
  1048. SKINGE_PPU:
    7 t0 ^9 N% E# z# y0 {+ m' g' A; X! R
  1049. LDX #$00
    7 b! j. Q9 q* B% d# U* L
  1050. LDA #$A25 p) P( @( m; U9 }9 L1 A1 I1 l# U, y
  1051. STA $BA6 v7 z9 \2 u; J8 h, w  B0 o1 v$ Y
  1052. LDA #$21
    , s6 [" X. _5 i: g4 J
  1053. STA $BB
    - _. G+ a, K7 S$ P
  1054. : M4 A# f$ j! e1 C: d6 \* I4 w

  1055. & c' n/ ^" F: W1 B6 B. J2 e: n
  1056. JSR DN_PPU$ N! u4 m& ^9 G, \  C, c. Z
  1057. JSR SKINGE_WRITE, ~9 x2 v! }! j
  1058. LDX #$00. ~2 X: w. \- n* A! k
  1059. LDA $07A2
    & v+ S. \) X1 A4 N: Q' g
  1060. AND #$021 m, F$ m+ |+ d9 ]6 e3 G
  1061. JSR ON_OFF_PPU$ N- ]' [, S2 A" L
  1062. LDX #$00: ~; N7 W$ L2 T
  1063. LDA #$B1
    9 T1 U. v7 f$ |+ L8 F& H
  1064. STA $BA7 K) s4 \+ V9 J7 r1 ^) X+ S
  1065. LDA #$21
    5 c6 B9 T  ^: n% C$ l
  1066. STA $BB
    7 y$ ~& \4 K* g5 n, z7 {
  1067.   l# ?1 K5 F- C; |' c( k. R& i

  1068. " u8 y, v- p+ x8 z2 V. S) C( Q4 e
  1069. JSR DN_PPU8 K! K% U: s, K, H. |/ w+ N. i
  1070. JSR SKINGE_WRITE
    % i& b/ Z9 X1 P! U
  1071. LDX #$00
    : F& m2 u6 T) A& Y% \9 H- \. L1 Q
  1072. LDA $07A3. x7 L3 |* S  J8 s" ?' v% l
  1073. AND #$022 u4 s/ h- i' f, l
  1074. JSR ON_OFF_PPU
    8 J/ S  T" {- R
  1075. RTS4 t# J' \# ?( E) O
  1076. : H9 K2 ~; \+ Z! P/ Z; w: w
  1077. BULMIX_STRING:+ [: w7 s, C1 V0 K
  1078. .BYTE $8C,$9F,$96,$97,$93,$A2,$80( S- H! t5 N& V* S3 f: X

  1079. ! {3 h, D8 C1 A# k% J; ^; g
  1080. BULMIX_WRITE:
    - H% a' P* F# O2 Q& c! y
  1081. LDX #$000 W1 S% Y% S) i6 k' K
  1082. BULMIX:
    1 Q% s' R7 L8 V- G2 J
  1083. JSR PPUADDR_PROCESS& P' O; ~. U- J; d5 _4 {# [6 c
  1084. LDA BULMIX_STRING,X
    ! W9 P4 W% |$ j) o
  1085. STA $20072 k+ @, `( \3 f
  1086. LDA #$00' f5 z, D$ P) R9 O- w$ F
  1087. STA $2000
    ) K  O! E) W" ?+ m& G2 S
  1088. INC $BA
    $ I! ^( q5 a# K  @
  1089. INX
    $ X5 Z1 ~4 U* D
  1090. CPX #$076 w5 v5 b5 |* V1 P6 I; H
  1091. BCC BULMIX6 \7 ~) }$ t9 `; {) \6 _
  1092. RTS
    0 F# v2 m0 M8 t! [, |
  1093. & R5 J1 C" f# y$ ?. ^" o1 j
  1094. BULMIX_PPU:2 z2 K7 r! x9 M! e3 B' c9 X" q
  1095. LDX #$00" X/ g+ ~0 ~& V
  1096. LDA #$E2' L( d& x, g; C; C
  1097. STA $BA
    , G! x' ^' }% D1 ^
  1098. LDA #$21
    2 e. K) ^. C4 [% {! `! ^1 {
  1099. STA $BB
    - m9 m( B3 p" d3 |% R

  1100. 9 L# @) t: l# d( _5 ~8 }
  1101. - v; R7 Z8 ?: Y
  1102. JSR LF_PPU4 h8 X% ~8 r$ x" H1 Y  w
  1103. JSR BULMIX_WRITE
    " [7 X) g1 m! U1 M) y" c
  1104. LDX #$00; h# Y$ I, p' Y8 y! s
  1105. LDA $07A2) ]+ v; Y; C2 r6 N. n2 c; t
  1106. AND #$04
    4 C8 @; J5 p8 V" q; S' y: g, _3 }
  1107. JSR ON_OFF_PPU/ I7 f8 M6 s( S  H, Y. g! D9 r
  1108. LDX #$000 _! |" e# h$ v; F( K
  1109. LDA #$F1
    " @0 ]+ j8 D3 a3 n' w! w$ G7 a7 s
  1110. STA $BA
      t/ m6 N7 b. x/ ?
  1111. LDA #$21; P) _7 }' S" M
  1112. STA $BB
    : v& p! `! X2 }4 |$ ]& `4 j1 v
  1113. 3 K9 v# J8 p3 t# A' A$ V5 x

  1114. + t/ U# }$ C/ j0 x
  1115. JSR LF_PPU  U) q( D, m! q- @" n! q- Q
  1116. JSR BULMIX_WRITE0 F; u6 U9 m2 h7 |
  1117. LDX #$00
    / H) @( ^' Y, h& U7 l+ t) ]2 t3 l
  1118. LDA $07A37 C% W  p5 G9 U* P4 Q2 ]
  1119. AND #$044 O' E" z4 z! \, y* R. M/ o* E
  1120. JSR ON_OFF_PPU8 q0 L7 {3 Z, [
  1121. RTS
    , m8 ]$ f5 Y: Z3 D5 _

  1122. ; z* [4 y8 P/ H' J
  1123. ENELOC_STRING:; K/ v, I0 G; y# C
  1124. .BYTE $8F,$98,$8F,$96,$99,$8D,$80
    2 M8 h6 b8 P0 h! p2 ]5 i

  1125.   S3 [# q) I6 _: s9 `
  1126. ENELOC_WRITE:9 v- V% T9 I& f
  1127. LDX #$00
    8 z6 i& O1 O3 s% j
  1128. ENELOC:3 D0 a/ v* g( e; k
  1129. JSR PPUADDR_PROCESS
    ! N8 Q' N& y7 ?0 ]/ u3 M
  1130. LDA ENELOC_STRING,X' O' _' T% o+ ?. h3 p( x0 Z
  1131. STA $2007$ w& N/ y& n8 }% v/ e
  1132. LDA #$00; J' f3 `4 B9 u2 i# ]
  1133. STA $20001 T0 i/ u! l$ H% |0 S+ f- Z
  1134. INC $BA' l9 L4 \1 e1 x7 N' |- H; E4 t
  1135. INX, D; p4 p$ z, N' M) V6 f3 G% T" S( C
  1136. CPX #$07
    : }1 k4 a$ A; o% m7 D( d; q
  1137. BCC ENELOC7 C5 i; c4 P- T7 }) G) i
  1138. RTS
    ( I& G3 {. Z# T

  1139. 5 e) X- c7 ]* S0 Q7 Z8 A
  1140. ENELOC_PPU:
    - g) I' b6 c  ?; r: b
  1141. LDX #$00: \$ v9 p( E, a* R6 n8 W8 p0 @- S
  1142. LDA #$22" D6 [) i: @# Y
  1143. STA $BA1 p# [- l" g3 {, v! H- s# I
  1144. LDA #$223 W2 @$ V5 O5 D1 H
  1145. STA $BB
    ( Z  M& q1 Z! f5 }& P

  1146. 8 H6 }) i: w* x$ x* L7 ^
  1147. 5 K& o) X+ J# J! p) ?1 B
  1148. JSR RG_PPU
    # G( X1 p% x' b$ h7 U# U) t2 l2 q
  1149. JSR ENELOC_WRITE
    4 d0 C8 N7 v2 B8 T# ~, i& z; O6 G/ M/ ]
  1150. LDX #$002 f& H( o4 L3 e! W2 N) ]8 t2 I
  1151. LDA $07A21 H0 \6 ^2 P5 B9 N# w9 ~
  1152. AND #$08
    8 N; d% e# H3 ~, d4 z4 }" f$ ]
  1153. JSR ON_OFF_PPU
    8 W$ d) S" R" E
  1154. LDX #$00
      y% J2 n% i  F! a4 t  v) H' S
  1155. LDA #$31/ D8 G, r+ W$ Z( u
  1156. STA $BA0 r0 C% C; n9 k# j1 M  W
  1157. LDA #$229 U7 r# @+ U5 V6 O9 h, D
  1158. STA $BB" W4 E: L; f4 u( x
  1159. + p; h; r6 J4 J% M! z9 K' J
  1160. , ?5 d1 i  Y( X; m" S! M9 Z9 H4 K
  1161. JSR RG_PPU8 C4 G; }8 k' \6 ]( w$ S" ?
  1162. JSR ENELOC_WRITE
    8 A$ q, H7 C0 F. M1 X) d9 f
  1163. LDX #$00
    / F6 v% f# E8 U' r0 R  b! f/ f
  1164. LDA $07A3
    $ H" T7 [& v4 `7 B8 A
  1165. AND #$08& u8 G" ]. c! f, T
  1166. JSR ON_OFF_PPU
    7 s4 w2 D% |# l3 ^
  1167. RTS/ l8 a) O: Y9 \

  1168. , |3 f( M/ B' R- {
  1169. FOCFUL_STRING:
    0 U9 }+ e3 n. B
  1170. .BYTE $90,$99,$8D,$90,$9F,$96,$80) u* C8 w. P" }2 n/ v" a

  1171. 5 U- u+ u9 x9 g3 p

  1172. ' G7 H$ e5 f5 K5 a
  1173. FOCFUL_WRITE:
    3 S4 {7 T! B8 d2 Y  H2 I" T; t8 I7 |
  1174. LDX #$000 _9 s6 d! }4 L
  1175. FOCFUL:) z1 P4 @* {1 B! Z
  1176. JSR PPUADDR_PROCESS
    6 o5 P  F. a0 V9 A0 A
  1177. LDA FOCFUL_STRING,X  [: X+ b5 p* t
  1178. STA $2007
    - [# V5 x9 }2 H3 F7 n; o
  1179. LDA #$00
    2 N/ W; u) \- d0 d* q
  1180. STA $2000; s) v! z# h0 y  g' `
  1181. INC $BA
    2 ~* o- k: p' c, ?( c3 |
  1182. INX
    ) n- b( Q+ y- O7 a; V+ T
  1183. CPX #$07
    - `" z& I; v* Z/ B8 c
  1184. BCC FOCFUL
    4 C$ B: |$ m; W2 U* v, M% G: U& E
  1185. RTS
    * s! }# J/ G; x9 \* G

  1186. & T0 l9 T$ y6 z3 o6 r" K# R( [( R& c
  1187. FOCFUL_PPU:7 j& p: O3 k5 A! a# C
  1188. LDX #$00* O$ a# v3 k3 Y! h4 I6 N6 g
  1189. LDA #$62
    , O, P; m2 I+ i4 b; B# l% U6 c
  1190. STA $BA
    . ^/ w( m1 r, {; t4 g. `# u
  1191. LDA #$22/ e! M9 T! V* k: n6 K$ m
  1192. STA $BB9 e( C) P+ s) a1 R2 s

  1193. , N" `3 [) y9 I
  1194. # @, U0 Y2 E+ L3 Y9 n2 k& {
  1195. JSR B_PPU
    ' X2 R' E' @& v+ p" c9 A+ i
  1196. JSR FOCFUL_WRITE
    , w! [( O) A4 t( a" ~. |6 w! q9 ?3 ?
  1197. LDX #$00
    8 c$ I! Z/ C3 R
  1198. LDA $07A27 b+ J( K% J1 }
  1199. AND #$10: Q0 t2 ]; s4 Z: E% r# C
  1200. JSR ON_OFF_PPU4 Z2 E! @0 v& _8 s* h
  1201. LDX #$00
    ( o# l( W, x$ X7 i( R5 y9 P
  1202. LDA #$71" Z& E. W6 Z# B6 e6 z, O4 R, c
  1203. STA $BA
    4 `5 _4 w' }* J) Y9 U/ h
  1204. LDA #$22- T  Q3 {; P- `' U. x
  1205. STA $BB& {# T4 X& }/ d! D# R  D) i
  1206. 0 a" h& `8 J9 P) O

  1207. 3 |' Z, s+ }; t" }& H" j# E) M' n
  1208. JSR B_PPU
    5 \* l. a# t  a! b/ U+ i
  1209. JSR FOCFUL_WRITE" m- X. W. y3 B& R  e& p  Y9 T
  1210. LDX #$00
    + Y6 y7 O1 @  f, G( b
  1211. LDA $07A3( a% H4 J/ A2 }1 }" T) c
  1212. AND #$10: d. r  m( X; u& |4 a9 d
  1213. JSR ON_OFF_PPU
    0 w0 m. a5 D4 f5 z. a
  1214. RTS
    0 B$ W5 Y3 l' a. t
  1215. 1 Y! o9 i/ I5 b
  1216. BULCON_STRING:" o, N3 N( q! u2 ]
  1217. .BYTE $8C,$9F,$96,$8D,$99,$98,$805 T3 B( u4 v" A

  1218. * `( \% C% U0 d: S  }
  1219. $ ]5 b0 r8 C8 W) k5 e7 F; p! T
  1220. BULCON_WRITE:
    ' e6 X! p) z7 h
  1221. LDX #$009 t$ {1 ~( Z7 M) q2 n. L% N2 `
  1222. BULCON:
    " A$ }/ t& s! E4 U, C
  1223. JSR PPUADDR_PROCESS
    9 y* N1 I4 `# S! n' c. p
  1224. LDA BULCON_STRING,X# d" s! V: z) p8 \5 y
  1225. STA $2007
    ; E. n, H/ M% K3 Y, v* l: c$ F, [
  1226. LDA #$00: s/ c1 e5 V: a0 S; u, u. V, E( e
  1227. STA $2000
    / ~! M0 K2 _; O, _7 R) ~
  1228. INC $BA2 Q+ d! ^$ G8 v
  1229. INX& `; o4 t5 [4 d9 d. [$ n/ V
  1230. CPX #$07
    3 c( S/ F. Q6 u: @0 a. D- C+ S# ^
  1231. BCC BULCON' ^; k" S, P' j5 C- V
  1232. RTS2 U' D, @1 ~& _+ R( ?
  1233. 6 b7 w! q! }) j  z9 ^1 S
  1234. BULCON_PPU:
    , J  A& s' j( s+ [, \
  1235. LDX #$00
    # e+ C+ o: J( ~& x: w
  1236. LDA #$62/ R- u, ^) q! }
  1237. STA $BA) I( ~  m' [0 M- s. ?; y
  1238. LDA #$21- {# d2 `/ O! a
  1239. STA $BB& z% u8 K& D8 L( N* k

  1240. 0 J7 [  W2 {! d6 T" |! `, I
  1241. % C4 Z% A) b8 @' I8 R1 I
  1242. JSR UP_PPU& T5 O; J, a3 J( X% M6 ^" T
  1243. JSR BULCON_WRITE
    - E  \, f2 p& h1 S9 }$ y
  1244. LDX #$00- {; t: O3 K3 P$ J) r- ~
  1245. LDA $07A4" [2 i% C5 y( t3 `% S, S6 A5 p
  1246. AND #$084 O" q$ C! y/ ?8 H) d
  1247. JSR ON_OFF_PPU
    4 [, b' R% l  d1 }) d2 ]6 r4 x
  1248. LDX #$00. K/ A  i6 _$ e; {. @
  1249. LDA #$713 g4 G! _3 S( l2 M7 N/ v
  1250. STA $BA
    * Z, \* J! c6 v) H* I9 b1 M
  1251. LDA #$21, m& G2 k8 I  a% d5 C9 H/ W: G
  1252. STA $BB5 g; d( i, C' D; K' v# m% X

  1253. * _' Q3 d, B" p/ g4 N1 i1 r

  1254. * o1 P' e+ o5 z. Z0 a: \
  1255. JSR UP_PPU
    ! P, X$ n# h6 V- {) e) u* [
  1256. JSR BULCON_WRITE
    ' ~! B1 A  K4 O0 R( l: Y
  1257. LDX #$007 N- P; s$ V  U
  1258. LDA $07A5! ^4 k+ v; w8 |! f! t$ T
  1259. AND #$08
      L4 b, V  b/ V3 X3 D3 f3 H
  1260. JSR ON_OFF_PPU
    8 k7 i" M- ~4 E. c& B
  1261. RTS
    5 Y4 }3 S- c1 x- p

  1262. % ]1 ?+ i8 h2 ?3 w. ^- j
  1263. SPEBUL_STRING:
    4 B! I4 P' K! c; `: T3 K& f; r, W3 V
  1264. .BYTE $9D,$9A,$8F,$8C,$9F,$96,$806 D3 N% ~) K5 m0 J( n' B# h. V- R. M% i
  1265. # W7 i7 {9 J' T/ N7 f
  1266. 0 ~2 C0 g% n3 B3 c3 Z
  1267. SPEBUL_WRITE:
    5 a) S! p+ c2 r2 X
  1268. LDX #$00* Q7 g( _/ P- ~
  1269. SPEBUL:) S: E' d1 J6 e
  1270. JSR PPUADDR_PROCESS9 j, b, h5 @; `; I4 I
  1271. LDA SPEBUL_STRING,X3 F8 T, Q9 \6 v, B
  1272. STA $2007
    . O! V/ W( E' n0 h" e5 \- _
  1273. LDA #$00% y$ O6 [& H5 Z* S. Z
  1274. STA $2000
    ( F" S/ A6 I0 R4 z
  1275. INC $BA
    1 U' U9 b/ i* W: d! p9 j! D
  1276. INX. l7 V2 g- y% A
  1277. CPX #$074 S( c# m5 F- x% x" Z8 `& B
  1278. BCC SPEBUL( O  X8 u' i9 t- _* H# D) Z4 J
  1279. RTS$ \" |' O6 e6 i8 i
  1280. ! G) i$ s1 v% ?* d. e9 z
  1281. SPEBUL_PPU:
    6 ~2 P. O/ C* X$ N  h* E3 C, E' M% ?
  1282. LDX #$004 `7 x/ P: A* w  v$ G. q1 s# x
  1283. LDA #$A2
    * N! ?1 ?8 X8 f& _. X
  1284. STA $BA, t7 \, u# E3 a( p
  1285. LDA #$21
    % [, Q/ t$ y* x' T: F- ~
  1286. STA $BB4 m9 M4 z# ?/ h

  1287. 8 S5 \' r  ~2 ?! ?, a0 w4 g1 [  {7 f

  1288. 9 W  N, v: A  F  d0 f! ^- ?
  1289. JSR DN_PPU
      n: J9 w1 r: Y  I# o
  1290. JSR SPEBUL_WRITE
    0 F  \) E1 H6 ]
  1291. LDX #$00
    ) _  M5 M% [% n: M
  1292. LDA $07A4
    - E; g4 ?( m: `5 v, _# A1 R* ]
  1293. AND #$02
    % K' _6 H' l3 f8 S# J( G5 k; s
  1294. JSR ON_OFF_PPU
    % @. {7 Z& X1 k
  1295. LDX #$00/ `  I0 z& Y# R% m  R7 u
  1296. LDA #$B12 p8 \' R8 W$ M' C  W$ i* {# `
  1297. STA $BA
    / ~) G! d, l) C
  1298. LDA #$21( s( o" \& z9 ~' P3 E" t
  1299. STA $BB
    3 c6 E, ?1 O* a& l( S" R! j

  1300. - k8 `9 O# Z* F: V

  1301. " K* d5 ]. h. M. v; j" K5 @
  1302. JSR DN_PPU# t" i  g0 B& Y' m5 y
  1303. JSR SPEBUL_WRITE
    8 v6 ^$ }  c' ~! ?& O% M- ?, e
  1304. LDX #$002 M- X/ e/ c2 Q0 f
  1305. LDA $07A5/ u( |+ t5 t+ [0 u2 t! W
  1306. AND #$02$ p8 \* X; m: B
  1307. JSR ON_OFF_PPU7 F7 c& o! R4 ?( ^; a
  1308. RTS
    / B: {# D) z2 @/ \  C3 ^
  1309. 9 N/ x, o6 G. B2 ~
  1310. .ORG $A500
    0 N  A5 \% y1 @9 y  ?# y
  1311. CLEALL_STRING:* T' D* _- M  F5 E' P- v
  1312. .BYTE $8D,$96,$8F,$8B,$96,$96,$80
    , U4 Z7 }4 K& v9 g& f! ^4 r, f

  1313. 8 T* K* t4 b7 H( W& K& j% g
  1314. 5 \6 X8 r( ?3 i2 {' z  V- D/ Z6 n
  1315. CLEALL_WRITE:5 E! W7 f- r1 Y4 i) b  f" |! H
  1316. LDX #$00
    3 `% \& A3 s- O- O& X
  1317. CLEALL:
    * p8 h- ?- t) ^, j. R, ?
  1318. JSR PPUADDR_PROCESS7 X; v% x" V1 d) L
  1319. LDA CLEALL_STRING,X0 Y6 r4 Y9 m2 J# J
  1320. STA $2007
      C* h* f: K, f' [0 e0 l
  1321. LDA #$004 I* ]5 j1 `! m4 j, L) ~8 \: z
  1322. STA $20007 l% h: f+ m0 p8 d
  1323. INC $BA8 h5 _9 b# J1 f5 S
  1324. INX
    0 \: U( x' W2 _+ i2 l. @& u/ }& `# ]. T
  1325. CPX #$07  b9 j/ v/ O' T* W
  1326. BCC CLEALL+ b. f3 c6 |0 O" L+ J
  1327. RTS
    $ |8 n, Z4 B* N, g5 x0 M$ M& P
  1328. 2 p9 a  Q+ L; h# ?
  1329. CLEALL_PPU:
    % q" d) c: i9 @( u0 e: v6 ?: v
  1330. LDX #$00
    . T. O" @. U9 N& o
  1331. LDA #$E2
      R- F3 |4 |! j- U9 ^' h3 U
  1332. STA $BA, _9 y- ^4 ^8 M" `0 t. Y
  1333. LDA #$21
    . ^3 [# y9 ^9 h( ]* q! f
  1334. STA $BB! A3 N9 m  t# X

  1335. $ D/ P. i9 U' K8 m' o& l% J) O5 Q' b

  1336. + t: t& ^- S( t8 t+ {; y; x- O
  1337. JSR LF_PPU" D' J8 h4 J, l! u' @0 M1 x
  1338. JSR CLEALL_WRITE
      L/ T8 u. e2 d
  1339. LDX #$00: L3 J4 V* _! M6 v+ e* ?
  1340. LDA $07A4- z) n8 t3 Q- x5 Q
  1341. AND #$04! G/ I+ X9 b+ ^0 T/ |5 Z
  1342. JSR ON_OFF_PPU
    / g, l0 z9 |9 V8 g% Q
  1343. LDX #$008 }- C6 a+ w4 K( X8 a0 I, \( }8 N
  1344. LDA #$F1) C: V+ [% p" }1 W* n0 z
  1345. STA $BA
    " x0 T, B# U1 q; j
  1346. LDA #$21, E& u3 h' F6 H, Q0 X" E
  1347. STA $BB$ a5 ?7 O' v- z& ~

  1348. & `( J# J5 u8 m4 ~+ ^
  1349. ! M% K) Y0 g% `( I. @. t( l6 U
  1350. JSR LF_PPU& v( I$ j* K9 B, t; I6 S& Q, ^
  1351. JSR CLEALL_WRITE
    8 _. ^, H' F! T( S
  1352. LDX #$00/ I9 U( T) y6 j5 y# @
  1353. LDA $07A5
    + O1 }2 n& X& I0 h9 ]' w' R
  1354. AND #$04
    " Y/ g; A* [- K% H1 T+ Y
  1355. JSR ON_OFF_PPU) D. n, s1 F( B- m3 `( Z
  1356. RTS
    5 c& a- O! _9 k# }, a' B

  1357. ( L0 y+ J- L+ N* B4 g. k" O
  1358. HARDMODE_STRING:
    5 D3 j" R, d$ f6 D/ r
  1359. .BYTE $92,$8B,$8E,$97,$99,$8E,$809 l8 [& A6 ]( o' T) L
  1360. 2 F0 y  p  _7 `- `7 G
  1361. $ [1 N+ s4 R4 s  ?5 P
  1362. HARDMODE_WRITE:1 v/ M& t  l/ n! S( @9 f- s# r
  1363. LDX #$008 I& O; |3 t0 Q4 F( l$ D
  1364. HARDMODE:
    . C# v; ?4 G3 T: a  E, Q
  1365. JSR PPUADDR_PROCESS/ G3 K$ X/ t8 S6 x0 f
  1366. LDA HARDMODE_STRING,X1 S: I* R! j1 A4 ?8 v
  1367. STA $2007
    1 p: l$ t" f* x
  1368. LDA #$00" T$ f: Q* ^8 e* S/ m* O8 t8 s2 c
  1369. STA $2000
    9 d3 K0 ]+ ?* E8 H4 _' h
  1370. INC $BA
    ( w% i  o/ g( c5 G2 @5 w! \, V" H
  1371. INX
    7 e- y7 U. K3 f; N5 [: w0 ?: C
  1372. CPX #$07
    . ~/ m+ e# b/ N: Y4 \
  1373. BCC HARDMODE- G! I7 b+ W1 Q' }5 ]* L9 g& W
  1374. RTS
    * }; r5 y( B$ K

  1375. : }4 t- \9 z. A. @4 C  r
  1376. HARDMODE_PPU:! F% P3 V, O9 O( x6 @5 o
  1377. LDX #$00
    # q, b4 ~7 N& f; X, }0 b
  1378. LDA #$22
    ( X( @7 X% ?% f0 m# f
  1379. STA $BA
    ) M2 V" X! N. J3 e. G
  1380. LDA #$22
    ' c' J' @* U6 x3 P
  1381. STA $BB7 M7 [# |! R+ E# f: j
  1382. JSR RG_PPU3 |* Q: ~  v" h" _/ ^# E
  1383. JSR HARDMODE_WRITE. n" c; c0 _( F6 j8 z# I
  1384. LDX #$00
    % p9 ?2 [$ E( f0 F6 d
  1385. LDA $07A4, }& T5 X" h6 W) q7 r/ R7 ^% y
  1386. AND #$01: r% d8 O# k* a0 V9 D1 T- \
  1387. JSR ON_OFF_PPU
    2 l1 M9 l" l3 J) f; j5 x
  1388. LDX #$00
    8 G  q( P$ G. d& h, T" c1 m" T2 E
  1389. LDA #$31( J6 j/ ^( r, |" b
  1390. STA $BA
    ! q( j# N! }8 W, I5 R
  1391. LDA #$22
    0 J5 L( R/ f3 u: U: f
  1392. STA $BB# A# m5 x- K; @) ~# }
  1393. : W. ^, e1 E) E0 M6 g1 j
  1394. 2 [- d2 b# Q' {9 N" r
  1395. JSR RG_PPU3 b% }6 L7 Y" F/ @/ ?* b
  1396. JSR HARDMODE_WRITE3 A) V/ v+ g" g$ J
  1397. LDX #$00
    # K+ z6 k  m8 ]( q9 `
  1398. LDA $07A5" R8 Y+ H* x: r7 N8 f. U& e
  1399. AND #$01
    9 l( n7 H: c+ R/ t
  1400. JSR ON_OFF_PPU
    & {2 I' }. u* k8 D+ p$ O
  1401. RTS
    + {7 W; _* I) o+ a
  1402. ' a. e' Y% N7 a# O0 C  Y
  1403. B_TO_JMPSTG_STRING:# P" v* r' {* i6 @
  1404. .BYTE $80,$8C,$80,$9E,$99,$80,$94,$97,$9A,$9D,$9E,$91,$80. v" {6 C3 J4 W+ b3 B+ N

  1405. " K# A7 P1 H, O! ]% g* V; w: [  p
  1406. ' o& \; B1 t, v6 n! q# V
  1407. B_TO_JMPSTG_WRITE:1 L7 q# v, p" H6 v
  1408. LDX #$00! E+ ^/ [7 t' U* u
  1409. B_TO_JMPSTG:" r- ]- E1 ^9 x1 t! c* [
  1410. JSR PPUADDR_PROCESS
      ]7 i% F& w9 m) l
  1411. LDA B_TO_JMPSTG_STRING,X) g# u5 ~0 @+ G; O
  1412. STA $2007, n! I0 b0 u+ O0 o% t% V1 F# e
  1413. LDA #$00' _  T1 d- e: E! }: h
  1414. STA $2000
    + Q) C6 [  h. n) _( Y. q
  1415. INC $BA6 j6 b) g" y+ D9 h, [
  1416. INX
    - M! b& M0 N/ U' M; r9 C) A5 T0 z% e
  1417. CPX #$0D: O! X) _' I7 [: A
  1418. BCC B_TO_JMPSTG
    9 U: Z5 _+ {; O
  1419. LDX #$00
    $ {( C/ f/ [( o
  1420. LDA $7FE05 ~. T4 _4 R" f% e
  1421. JSR ON_OFF_PPU9 j, s6 L( q$ B7 b
  1422. RTS
    5 ?3 x5 U1 [" P- {8 [
  1423. , k3 ]9 X- O$ J! A* Z$ n
  1424. B_TO_JMPSTG_PPU:6 M; ^( u/ a$ t
  1425. LDX #$00' `6 @. Q6 @, N
  1426. LDA #$68
    - Y) G+ t! R2 R$ @& z. R/ R
  1427. STA $BA' W! O+ `2 @% v3 C( m2 l
  1428. LDA #$221 |+ p+ E6 x- d5 c0 W
  1429. STA $BB
    3 _9 r4 O5 p5 C8 O* K# Q, y
  1430. JSR B_TO_JMPSTG_WRITE& E( ^3 N! q/ {' ^
  1431. RTS3 P& U4 s5 D0 @7 E) @* f; a( E' h/ @

  1432. 7 m7 V6 L) R! r( F5 ]. @" U3 f

  1433. , x3 A% c- D( S3 |) |% l) o
  1434. A_TO_PLAMOD_STRING:# o( ~+ q( T9 y
  1435. .BYTE $80,$8B,$80,$9E,$99,$80,$9A,$96,$8B,$97,$99,$8E,$802 [- p8 Z, j2 E. X9 m" R( ]8 @7 S

  1436. : v! e, k" F( J/ J# G1 x& B

  1437. ' R7 s' e' k# Z' T: b# h
  1438. A_TO_PLAMOD_WRITE:4 y+ X5 ]& Q. h& t4 g
  1439. LDX #$00/ j" N9 \; R& M' U8 x0 e
  1440. A_TO_PLAMOD:
    4 s* J$ ^+ h, d% I, N# B
  1441. JSR PPUADDR_PROCESS
    3 K# I$ B  Z% `7 G5 t: ^
  1442. LDA A_TO_PLAMOD_STRING,X+ O4 g* A. P. u: B0 K$ A
  1443. STA $2007
    + G, x$ L$ I7 F- P6 ]  a6 T
  1444. LDA #$00; |% O& K0 f: E3 I' _
  1445. STA $2000
    , x) ]! i, F  O8 P* r* [0 f
  1446. INC $BA
    : _! o; w' a! }1 L0 e+ y6 ~
  1447. INX
    5 G9 ~- s& P. e3 k4 `' c: T+ `9 ?
  1448. CPX #$0D
    . @" s/ h' @; H4 f* z( O
  1449. BCC A_TO_PLAMOD
    7 \5 |; l2 H) h) n
  1450. LDX #$00
      _* T2 p+ [+ K% t8 t* n. d
  1451. LDA $39
    % o9 Z- w- J( v( ^; G1 Z
  1452. JSR ONE_TWO_PPU
    ! N# X8 y' f9 H3 ^& f: A
  1453. RTS* S* ?! R; U; [% x6 m" v% {
  1454. : J* k0 O5 \* o
  1455. A_TO_PLAMOD_PPU:0 q" G& D# f! o$ z% v
  1456. LDX #$00
    - t% }( t  Z6 i3 b5 l& B
  1457. LDA #$A84 x  Q; W- Y# i5 t
  1458. STA $BA0 \8 g. W* d- s& M' R
  1459. LDA #$22
    - |0 z; r7 x: S7 `( `
  1460. STA $BB
      y" c6 T' i) N; [, _' E$ ]  z
  1461. JSR A_TO_PLAMOD_WRITE
    : l. e& M' B7 H# X% R) X
  1462. RTS
    * N0 d7 ?3 V! g7 q) j" p2 q

  1463. 8 d9 X. N; p* o* a
  1464. MOVSPE_STRING:! d$ w- J4 H3 q; d
  1465. .BYTE $97,$99,$A0,$9D,$9A,$8F,$80' k& ?* `& v6 U4 N

  1466. 4 n+ j5 V) [% S5 D! _' \1 {

  1467. 4 K: @4 P! ^; T
  1468. MOVSPE_WRITE:
    8 H  ^) }0 R) e7 s2 n% R# Y* B7 o
  1469. LDX #$000 Q, o6 A) @" \1 Z. n
  1470. MOVSPE:
    . a' ]  B7 p4 G: U9 p4 u/ w
  1471. JSR PPUADDR_PROCESS
    + F1 F3 |6 j) h, o7 z) L
  1472. LDA MOVSPE_STRING,X
    / P9 O6 G8 \+ s9 p# f1 F
  1473. STA $2007
    ' b5 m) o+ Y( r+ S9 f, G
  1474. LDA #$00
    ! r; e  E8 [- U# O
  1475. STA $20002 ?( y2 y) V+ E: m# s$ t# f1 D
  1476. INC $BA. `( M' P5 y( {  V
  1477. INX7 |* W3 o  g; l
  1478. CPX #$07
    , R2 P5 ~& V+ W: h/ ]+ ^+ ?
  1479. BCC MOVSPE5 a' D4 a% }2 f7 r" [/ c' c
  1480. RTS
    1 H9 ^" o8 m0 S; A# T, j4 D* o

  1481. 5 y$ T5 l) r$ u, _1 t" A
  1482. MOVSPE_PPU:$ |5 d+ o6 R) p' v/ U0 g
  1483. LDX #$00
    2 p3 C' D. U/ H0 S
  1484. LDA #$696 s) U1 H5 i& Y( `( \
  1485. STA $BA
    . E6 K. e* |+ Q2 b0 Q
  1486. LDA #$21. ~. b. g/ [. }
  1487. STA $BB1 l1 D! O( _9 p

  1488. 7 g) B! T8 `1 z9 h' M3 Q5 X  m! D5 T

  1489. 9 G  P% m5 Y' G3 L
  1490. JSR UP_PPU
    , @( F6 X3 E4 O9 k
  1491. JSR MOVSPE_WRITE% H6 |' O; A% i# t# a
  1492. LDX #$00  B* |" {9 V% Y* x
  1493. LDA $079F
    " x: j: S9 q6 s2 q
  1494. AND #$08; D+ E* q; s& j" |2 w
  1495. JSR ON_OFF_PPU& }& |4 w3 E, R4 t! J
  1496. LDA #$801 C( ~& C) i5 Z
  1497. STA $2007
    & M% N( I) L, v" f" U' B6 L9 X9 i- ?
  1498. RTS
    4 x9 v/ E. m# J( k6 M8 f8 K; Z

  1499. ! o. C0 S' }3 ]6 D# }% G
  1500.   
    : ~9 u& M6 X5 x3 ~
  1501. UNLJMP_STRING:4 ^6 H! f& v2 t5 ~% C; `/ X+ n+ F9 G
  1502. .BYTE $9F,$98,$96,$94,$97,$9A,$80& R' K4 U" S8 ~( z# i

  1503. , a4 K& H/ R& j! c

  1504. ! W0 z# q6 Q; P9 [& ~
  1505. UNLJMP_WRITE:: ^' n7 G. o; f/ G: i3 C. M: }* |
  1506. LDX #$00) m  O5 i: @0 [, p4 |: ^
  1507. UNLJMP:+ c* S) R1 ~3 F7 B4 c
  1508. JSR PPUADDR_PROCESS; u6 k2 s  Z6 I6 z, _
  1509. LDA UNLJMP_STRING,X
    0 ?) L, n# n9 Z, K5 x$ [2 ?
  1510. STA $2007
    9 v% R% d: F* \' q. J
  1511. LDA #$00$ i0 W9 R% b4 Y0 M2 D! `% s
  1512. STA $2000* i8 F/ ?' S/ U3 C+ J' l# n$ ~9 j4 p0 }
  1513. INC $BA, Q2 _! w& R( O6 e' K7 [
  1514. INX. b  @5 t; j$ ^4 ~8 {
  1515. CPX #$07
    % v* G1 j% x, _% E, V: _& {9 D
  1516. BCC UNLJMP
    0 J* S+ F/ x% n3 b  L2 Y% h, Q
  1517. RTS
    5 J9 H4 y2 Y* U: N% q2 ]

  1518. - c) f) r; N- Y! g' w0 G
  1519. UNLJMP_PPU:
    + e: ^  I- j8 z$ Q3 U+ o
  1520. LDX #$00
    - x. N) ?/ S+ j7 v) _
  1521. LDA #$A9
    / D$ V6 x: }6 D# L4 `0 K
  1522. STA $BA# c2 ^. O8 j0 B! U
  1523. LDA #$21
    3 \3 V  C- q4 E* ^; J; r/ \
  1524. STA $BB2 O9 _* T7 d$ q  k1 ]7 J6 E2 a) l

  1525. , Q( Y4 W1 P  B4 J% `- |/ G5 c
  1526. $ W3 O. Q8 g( G2 L. V2 T$ O
  1527. JSR DN_PPU& Z3 O$ T* n5 Z; s( u
  1528. JSR UNLJMP_WRITE' a, I& x3 A& ?$ A2 u; g/ z
  1529. LDX #$00
    ' E, V( u1 `7 E+ I8 P4 n3 `+ }, [* Z
  1530. LDA $079F' t& W9 B' M" U! C3 n% {
  1531. AND #$04" N! u. a' q6 U
  1532. JSR ON_OFF_PPU, |$ c8 p5 U5 y4 w3 C( e
  1533. RTS
    8 c% T. n3 s* m: Y" |3 c! z; L
  1534. : j2 E& Z- j3 w
  1535. 2 ~* S3 K/ v. f/ D% `# E% R# g5 d
  1536. DESTRO_STRING:3 M' r5 ~  k, L5 M; u
  1537. .BYTE $8E,$8F,$9D,$9E,$9C,$99,$80  `+ z1 E3 J2 F' p
  1538. 9 b& T, x/ J" m% W

  1539. ) S' [- p3 [" S# u7 X
  1540. DESTRO_WRITE:
    ) X) @+ d2 e/ A% [" m8 z
  1541. LDX #$00
    2 R; F/ t' y- g. \, _' s
  1542. DESTRO:
    1 d! B' I# o8 w. }9 g  [
  1543. JSR PPUADDR_PROCESS
    , q/ K+ z! w3 N; \3 D
  1544. LDA DESTRO_STRING,X
    1 h' w8 k* T. ?
  1545. STA $2007
    8 e# b- {/ F' {$ ^& h- I
  1546. LDA #$00, o( j4 b% a% g! Q
  1547. STA $2000
    % K# _0 j0 r  Z) x' O
  1548. INC $BA5 g. c1 }+ D* ~8 @
  1549. INX- s9 o& E  u4 J! T7 p
  1550. CPX #$077 Y# u4 M. f. F) X+ o
  1551. BCC DESTRO( C9 ], q+ e; H3 a5 ^
  1552. RTS
    # ?3 M5 O7 b5 a6 L7 q" ^

  1553. . p% I1 q; ^$ Q  t+ N0 L- y# z
  1554. DESTRO_PPU:# s( I" t' ]4 z/ G' b( ^
  1555. LDX #$00
    8 B* L) |  P* n9 w) g% p3 L
  1556. LDA #$E93 ?. @6 H* I; }$ u* T* a
  1557. STA $BA
    . D1 a9 M, ?/ s4 I$ ?% g
  1558. LDA #$21# T+ v8 N& p  F# E
  1559. STA $BB
    1 V- n7 {: o3 h* B8 B) H) U

  1560. 3 B1 Y- y! N3 |- l0 a5 |8 z% E

  1561. ( |) f/ F  B% h) U
  1562. JSR B_PPU
    6 W; y9 h2 P: O) z6 F- Z. j
  1563. JSR DESTRO_WRITE
    / |8 ]& [0 x4 t
  1564. LDX #$001 z; @$ l0 i; V: I* |
  1565. LDA $079F
    6 R$ x6 R. P3 l! T0 A+ {9 Y5 A
  1566. AND #$40# Z0 F. B) C, x2 f
  1567. JSR ON_OFF_PPU( E" y' x" L' d" t; p4 m* C
  1568. RTS
    / X* E4 d+ ]1 \0 j0 G& {; x
  1569. ; j7 w) E& I" b

  1570. * E" [. _: {8 w5 D5 Z& B0 y
  1571. EQUBUL_STRING:
    5 n6 w% d* Y- v1 w" y
  1572. .BYTE $8F,$9B,$9F,$8C,$9F,$96,$80
    ( Z7 \' W  G  s: D& P: d
  1573.   C  w* s6 E( U( j% G
  1574. 2 {/ ^/ l' W  P/ x& H
  1575. EQUBUL_WRITE:
    3 B9 I+ O; B' @
  1576. LDX #$00
    ; ?( t- u0 h4 y" q
  1577. EQUBUL:/ |2 i( C% N% Q/ O
  1578. JSR PPUADDR_PROCESS
    9 F# J& @9 x: N0 I3 c! r9 l* ]
  1579. LDA EQUBUL_STRING,X# j) ~& S; E- A/ k
  1580. STA $2007
    6 l5 g: l9 R3 F' d  @. x
  1581. LDA #$00& {# j5 w3 W7 Z; S# P
  1582. STA $20004 U- c* D5 E) g
  1583. INC $BA
    , _% w% p3 Z3 i/ ?
  1584. INX
    . Z% Z: m3 w2 l6 t( F% r
  1585. CPX #$07( |! i, e4 i% B- R* ^2 }
  1586. BCC EQUBUL: `& E9 Z9 i* u0 M  y4 s' k
  1587. RTS: i  C" W; i0 y7 _
  1588. + y2 }: P' I3 N: A4 D; g
  1589. EQUBUL_PPU:
    0 B1 R; [! M' }4 `$ F/ j2 ?# H
  1590. LDX #$00
    6 b: {/ ^: V9 F9 Y
  1591. LDA #$29( L1 _: ?% C+ E+ L
  1592. STA $BA
    . d$ S( _- k+ c1 f" B8 `
  1593. LDA #$22
    & o4 w% {* t( y
  1594. STA $BB1 x# C2 n4 i0 O' a$ x

  1595. * h9 i* |! g+ E& S$ R4 O6 Q: C! x, Q

  1596. 6 x8 ~' i5 m6 U6 i' f6 d
  1597. JSR A_PPU! p* @# t% k* @! m  y8 I, ?8 N2 P. _
  1598. JSR EQUBUL_WRITE( b9 E' Z8 G. n
  1599. LDX #$00& `* W" b" N$ v1 h
  1600. LDA $079F
    7 g" q5 D! ]+ e4 J. |
  1601. AND #$80
    & N/ l# x5 p* y9 J5 @8 G3 [+ z/ d
  1602. JSR ON_OFF_PPU5 N4 ^7 W; d9 |6 A( g, H) x1 R6 p
  1603. RTS) J' ~9 s3 K+ Y. ?4 J
  1604. ! N/ I' l0 j& J1 u4 t4 O
  1605. 1 ]5 U+ F/ L. d
  1606.   ]# ^9 R1 v+ s. z9 `
  1607. BULSEL_UP_STRING:
    4 p& x. V3 X+ \, k# V
  1608. .BYTE $9F,$9A,$80,$9E,$99,$80,$9D,$9D,$80
    5 Q* d8 }! q# t2 N1 f* U" |. E& g

  1609. : U+ y5 N; c  |4 f4 M; @' r; ?3 ]' C
  1610. BULSEL_DN_STRING:0 Z/ t8 W* ?+ J, N+ b/ W
  1611. .BYTE $8E,$98,$80,$9E,$99,$80,$9D,$96,$80/ n0 f  U. C3 C0 ~
  1612. - b7 c9 d9 ]0 P4 x* v$ U: n- R; p
  1613. BULSEL_LF_STRING:; n9 u4 S; m, S# }  }$ M0 m
  1614. .BYTE $96,$90,$80,$9E,$99,$80,$9D,$97,$80- \8 n' {  s. ~6 @$ R# t( X# I, |

  1615. 5 x' ^! Y! R/ n6 L! o  f
  1616. BULSEL_RG_STRING:
      R9 Y& ^! L0 k# T$ e5 ]; F0 {
  1617. .BYTE $9C,$91,$80,$9E,$99,$80,$9D,$90,$80* H6 ]9 c2 r5 n5 |* ?$ ]  g6 S2 r

  1618. 7 y1 r" X* v% A1 J" S: @$ b8 W" h
  1619. BULSEL_B_STRING:: l: @) Z4 L) T1 H) Z- A/ Y3 {2 g; `
  1620. .BYTE $80,$8C,$80,$9E,$99,$80,$9D,$98,$80
    / g- l8 U* ~4 Y3 |# Z. G

  1621. - I' ~4 o* Q* j1 G4 ]2 L6 Q: X
  1622. BULSEL_A_STRING:
    : f/ T+ V/ ?. |! c' x: B( x
  1623. .BYTE $80,$8B,$80,$9E,$99,$80,$8D,$99,$97,$97,$99,$98,$80,$9D,$9A,$8F,$8F,$8E7 B- X8 _$ f( l' A* n

  1624. $ W% h! }& K5 W

  1625. $ x- |' k4 D/ Z8 F6 [3 p
  1626. BULSEL_UP_WRITE:
    : F* j$ H/ ?+ @" w7 T! l' J# Z
  1627. LDX #$00: n/ a, Q8 v. {  p$ w  R5 D
  1628. BULSEL_UP:1 F! u8 J( ?% E9 V2 z
  1629. JSR PPUADDR_PROCESS
    , d3 e/ Q7 Y2 n9 [# g/ z8 |9 L
  1630. LDA BULSEL_UP_STRING,X- {! d0 {, ~5 l' P, _8 y
  1631. STA $2007
    8 h- J  `7 N% ~6 ^6 k
  1632. LDA #$00  ^3 t' {, j0 x5 g$ M  W9 C6 `
  1633. STA $2000
    $ K0 |* h* X/ K, m2 u* }+ n4 i
  1634. INC $BA
    , u* _" q' H* ^2 k5 g. v  W  X5 g
  1635. INX8 F, g4 A5 u& I8 Y( X( b' x
  1636. CPX #$09
    4 n5 h/ R' E; }- c
  1637. BCC BULSEL_UP
    2 m9 Q/ j5 s" E
  1638. RTS( e4 `3 U2 ~: t0 P" L
  1639. BULSEL_DN_WRITE:
    0 [0 n& z7 O4 s
  1640. LDX #$001 x+ x7 c9 b% Q% `3 T
  1641. BULSEL_DN:
    ) |; Y7 N& `5 f/ r2 v: G% U
  1642. JSR PPUADDR_PROCESS
    / i- A" U/ s. W+ [7 w- h, v
  1643. LDA BULSEL_DN_STRING,X
    / A4 d7 ^# V. `& f+ t6 k" v
  1644. STA $2007
    9 r$ h$ \! r  j5 y
  1645. LDA #$00
    " d' t; ?& N0 E. _% D
  1646. STA $2000
    % W5 l8 z1 A& T" j/ Y5 x
  1647. INC $BA
      M. Y  I" s- Z( X$ L& D, J; M2 C/ Q
  1648. INX
    6 u/ Q4 `' s9 h; d& z
  1649. CPX #$09
    6 d6 T2 q  s' O& d9 p
  1650. BCC BULSEL_DN
    6 {8 Z& o; b* D5 K! h
  1651. RTS" j8 l4 _( O" ?; }8 d  B) m
  1652. BULSEL_LF_WRITE:3 K& c2 K( |; `( z; ]# u6 ?- H$ n0 b
  1653. LDX #$006 o& _0 e5 @$ H
  1654. BULSEL_LF:
    0 M# T0 q8 y, b8 ~: D! |" H
  1655. JSR PPUADDR_PROCESS
    , i+ o  }5 ]3 U: I
  1656. LDA BULSEL_LF_STRING,X
    - K! I: c: F* @) H# g3 Z- e! s( Q
  1657. STA $2007
    * c# ?8 }0 C# A" E' o8 X/ W
  1658. LDA #$00( D  s' j4 V: {9 j
  1659. STA $2000
    6 y1 v1 f5 }- J$ s1 c
  1660. INC $BA  ^+ x; f3 \- U  d  J
  1661. INX
    , d2 t0 x& y! \: }. l# ?/ i) Q
  1662. CPX #$09
    $ o. @; P4 I5 W6 v
  1663. BCC BULSEL_LF+ j5 X9 j+ m4 a+ [2 l. X
  1664. RTS9 l8 l% W  c+ h
  1665. BULSEL_RG_WRITE:
    " a* ?( S0 O; C6 a( [
  1666. LDX #$00
    4 X7 B& |) X/ Z* k* e/ q  p' j
  1667. BULSEL_RG:$ m9 H5 @! k5 Z% p( L9 Y% t
  1668. JSR PPUADDR_PROCESS
    - a# y) Q; K7 _* i% V, W
  1669. LDA BULSEL_RG_STRING,X% r4 s2 I  ]0 C8 h: T# ?9 w8 X
  1670. STA $2007
    ) j+ ^0 O0 X/ e9 j: ?, A
  1671. LDA #$00+ V# {; R. J# q$ k/ @0 H
  1672. STA $2000& v! d1 [# N) [- \& `
  1673. INC $BA" u2 B6 i1 r9 k# z3 ?6 R
  1674. INX
    5 D8 ?* G0 K1 P
  1675. CPX #$096 A4 o; }: A/ U# ?
  1676. BCC BULSEL_RG/ m# f& H! q0 D+ a* Z% v$ ]0 q
  1677. RTS
    + l/ ~8 i0 N( a& R
  1678. BULSEL_B_WRITE:
    0 H1 z, d9 e2 {- ]' n3 X0 [
  1679. LDX #$00
      I: |( W# v1 S. j- C
  1680. BULSEL_B:2 U, n. L" q* o9 o3 \
  1681. JSR PPUADDR_PROCESS) ~; t( J! w4 T  S) f
  1682. LDA BULSEL_B_STRING,X9 Z9 C: K. s! a" ?0 G: z' H  F; J
  1683. STA $2007
    3 o9 I" p; f) S+ ~  l1 P/ O
  1684. LDA #$00
    . f7 f0 z- H, l3 w% I) V& [. ~; l8 ]' l
  1685. STA $2000" o$ q6 P- A. j4 ]: b
  1686. INC $BA0 R  G1 ]8 D7 y2 ?+ d* d8 k
  1687. INX! D: E8 q, c3 ~
  1688. CPX #$09: i# W  b$ A" k- K  l% \
  1689. BCC BULSEL_B
    * a. N8 Z' \* `# m& t
  1690. RTS
      `9 a5 R5 c$ B0 Q. k* w
  1691. BULSEL_A_WRITE:
    " M+ s: T7 |/ A: |1 t( u
  1692. LDX #$00
    3 S0 d1 `8 D! @3 T9 f) I0 i. S# Q
  1693. BULSEL_A:9 C3 ]  ]# |' M  `2 y% F) I2 u
  1694. JSR PPUADDR_PROCESS- m! a3 f  i8 H0 t) }
  1695. LDA BULSEL_A_STRING,X
    ( \, v3 F: g& J( G, k. t
  1696. STA $2007( T; W9 K. K6 J! I7 c
  1697. LDA #$00
    9 w8 B& p+ H7 Q
  1698. STA $2000
    # @9 h' l' H0 A" ~0 b1 k; T
  1699. INC $BA
    8 p5 b9 o& o1 h4 _
  1700. INX8 n# a& ?* B, m5 o$ j1 _
  1701. CPX #$129 C8 C  P) Q6 Q& j
  1702. BCC BULSEL_A
    / H, s) \0 j% v8 r5 k% h# r
  1703. RTS
    8 e$ v2 l) ^) w; u0 c( ~2 c

  1704. + L$ b$ f' B+ w  }3 ]5 t* W' m. ]! o& @

  1705. ( J3 H1 j5 E3 }5 D* P. {3 E* d

  1706. * E6 V' g5 V. g. b2 N& T" N  R
  1707. BULSEL_PPU:
    3 |" |1 u. z9 i: S8 m
  1708. LDA #$6C( W( A( W$ H! O  V  [9 @4 L
  1709. STA $BA
    - V: I0 R: E( B5 `  G
  1710. LDA #$217 @1 q) ^$ r# ?( P0 N" u
  1711. STA $BB* p9 x% X' b5 a! }6 i# L# j
  1712. JSR BULSEL_UP_WRITE# e0 m" L8 |1 X- V  P2 F2 W! n6 b% V
  1713. # M/ f) ]; G* _( t' _+ w9 ~
  1714. LDA #$AC
    7 U& ]% c9 F6 ^% m
  1715. STA $BA5 i# {2 ~+ }/ g5 X
  1716. LDA #$21+ w2 u) k" O6 C3 T, c' U
  1717. STA $BB
    & M( S9 b. \% s! T. {8 `
  1718. JSR BULSEL_DN_WRITE
    5 H, Q( ~+ @: Z7 S. d5 m- C

  1719. . \, Z# C5 `+ H" k
  1720. LDA #$EC$ N0 T! G9 B! I( @) U1 F4 H0 @! J
  1721. STA $BA& W+ w9 h8 N9 e8 ^" [4 g! m
  1722. LDA #$21
    & M" j6 {6 i; h! L! r
  1723. STA $BB* H; P; ~4 ^* B4 b7 @+ N; Q( o4 ~
  1724. JSR BULSEL_LF_WRITE0 r" J1 e2 z- m1 V/ E
  1725. ' j7 D- w$ S  C& w. ]% ?
  1726. LDA #$2C2 }! U- c% @2 @" t
  1727. STA $BA1 I# \9 x! J4 H) G
  1728. LDA #$22/ `, V' c+ N4 e5 V' R
  1729. STA $BB
    1 M$ S: T$ b+ E4 U1 c) _& Y
  1730. JSR BULSEL_RG_WRITE5 Q8 a& {4 p# q9 |; _* `% G

  1731. , m& `2 ^0 X  o% \. {6 x# o7 H' ~
  1732. LDA #$6C3 J4 ~# b3 h: k- n8 D7 k8 S* `4 r7 ?
  1733. STA $BA6 l6 g+ r- l- V% l8 J( U
  1734. LDA #$223 m2 ^% o" V/ O
  1735. STA $BB
    3 d1 h5 G, ~) j$ X' z7 E
  1736. JSR BULSEL_B_WRITE( `0 @( h7 ~$ ^0 {- I
  1737. # t8 |. i- S# U8 x9 I% C- H
  1738. LDA #$A7
    5 V8 p# A2 Q( L
  1739. STA $BA
    9 T) R; O$ y" s7 |) Y  S
  1740. LDA #$22
    * V# O* F. [8 m6 u' A
  1741. STA $BB
    - A" |' H6 Q- e/ c% z$ c8 H, r
  1742. JSR BULSEL_A_WRITE& q; Z" r( K& _8 U+ g
  1743. RTS
    - y7 R& j! b9 B9 ]* `  ~6 a, n6 P

  1744. 5 I) l0 k  E7 m; Y5 C

  1745. - E" D  f: \; ?, ]$ T; v

  1746. 9 l2 o. r* A" p% t  }4 U4 L9 U9 O
  1747. UP_STRING:
    3 x; |! ]: T: Y' n
  1748. .BYTE $9F,$9A,$80+ H% }' l3 n! T" ]2 Q. a+ n
  1749. * n* t- ^* P, m/ Z' j
  1750. DN_STRING:! A1 F7 q. o9 F2 z$ P
  1751. .BYTE $8E,$98,$807 B7 z& c" H4 d; [

  1752. + S, _) ^, j; ^. B3 e9 {
  1753. LF_STRING:
    3 @7 \7 D2 Y2 Q8 B
  1754. .BYTE $96,$90,$80  a2 Y. J3 G& ]6 l) r: `, s! A6 s
  1755. & ?; L! q# ^$ P* g. N6 a4 l
  1756. RG_STRING:+ k- R# f3 u; L: S1 ?/ u
  1757. .BYTE $9C,$91,$80
      b( |4 ~* m1 @4 m" m

  1758. 7 Q# |9 y7 R- z5 T0 B  _4 k* v* }
  1759. B_STRING:
    8 k. f0 h6 `) d% q1 A+ z
  1760. .BYTE $80,$8C,$80
    5 }; t; r4 x% B$ S

  1761. 2 R9 z9 O- L  z
  1762. A_STRING:  }! W0 U# p6 W2 u" F" B' M3 B2 _, h
  1763. .BYTE $80,$8B,$80/ N6 h: \9 p9 G8 k" c

  1764. ( Z' X: S7 o' ^( I3 C4 Y
  1765. & p0 a" |1 x3 G: Y
  1766. UP_WRITE:& S* s; o2 H" B7 _0 [. R
  1767. LDX #$004 n0 m1 l0 q3 Z$ n+ F- o, A
  1768. UP:8 u( ?1 z$ R- e6 ~1 r
  1769. JSR PPUADDR_PROCESS! a. x9 s8 y. b
  1770. LDA UP_STRING,X
    ! K% U* N& S6 e' [" Q$ e) z
  1771. STA $2007
    6 M) I! T2 D: h2 v5 U
  1772. LDA #$00
    " u" i! ?8 C) X, H
  1773. STA $2000- C, Y" R6 x6 r/ Z0 K
  1774. INC $BA
    ( o) ?* X" a7 ^! I, j7 x3 y
  1775. INX
    $ {, H* {3 C: ]: S% W* X. M
  1776. CPX #$03
    , S7 M" y4 v4 V$ x% z4 C
  1777. BCC UP
    5 ]. I9 Q& V* ~. T3 O0 a2 v' [
  1778. RTS' F1 L* g; f$ R, m' j, {  s
  1779. " J" n# Q: i) r# x
  1780. DN_WRITE:
    7 P4 e! `$ k: h* ?8 t# S
  1781. LDX #$007 ~: R% _. D- N: E
  1782. DN:: k2 y$ n1 M6 {1 K  C2 L
  1783. JSR PPUADDR_PROCESS
    / o  t  m5 W9 i; ^
  1784. LDA DN_STRING,X
    " o, b' d% U* i- I. h5 D8 E
  1785. STA $2007
    1 L8 m( ]6 f) F* \4 {! M0 g
  1786. LDA #$00
    ( i3 z  `; ~6 j6 G6 o( g) H
  1787. STA $2000
    # C0 }! ?7 @+ H' o. E
  1788. INC $BA! R+ h( A5 U8 b% E8 r1 o2 z9 \& [
  1789. INX
    ) H7 }4 R7 Y& {' E8 G
  1790. CPX #$03
    $ A0 ~& W* C  T4 o" @/ H8 p
  1791. BCC DN
    ' X3 Y2 X$ ]) ~6 h# K. Z
  1792. RTS* }& o5 B, r6 E* X! J& H" b

  1793. 1 D! w6 y, B6 J# x6 K
  1794. LF_WRITE:
    2 n; b8 W+ p8 A3 w$ H
  1795. LDX #$00
    ' @% B% C1 V5 C: d5 n3 b0 R9 z+ C
  1796. LF:, J* O* `$ V, ^7 _+ L! M
  1797. JSR PPUADDR_PROCESS
    8 C4 P: D% T8 x8 a% \0 F
  1798. LDA LF_STRING,X4 c: D% D2 Y2 l* j% }2 {
  1799. STA $2007
    * Z; x" @3 W: ]: ?$ F5 x' T
  1800. LDA #$001 }6 Y+ g+ F* y/ {3 D+ E& [
  1801. STA $2000. D7 c  z! X' z( M1 J, H4 r
  1802. INC $BA
    - V6 o0 g$ @$ w9 S; V6 s1 h
  1803. INX1 v, [- t; z, G2 o9 L
  1804. CPX #$03
    2 \, l7 H( x3 `# k) |7 G% J
  1805. BCC LF( K% N& d8 r/ y3 D$ t- l0 u. I! I  u
  1806. RTS
    6 y" e6 o, A3 ]
  1807. 8 U' z$ ], K, K' v: k9 B
  1808. RG_WRITE:
    . ^9 Z) u4 b- v
  1809. LDX #$00/ |6 k7 a! `1 w5 i
  1810. RG:
    7 G, {  S$ \" z! G/ K
  1811. JSR PPUADDR_PROCESS
    6 P$ u1 B8 o$ B  a  B; o( u
  1812. LDA RG_STRING,X
    " \( h, w/ g  A$ y2 k* w9 X
  1813. STA $2007' R, ^- Z! U1 I# k' t& l$ N
  1814. LDA #$00
    : A9 c. _& p: J( r3 L' z
  1815. STA $20006 K) M0 E' J" Q. T- D4 F$ \- S! s
  1816. INC $BA
    4 H. O/ l( j1 b
  1817. INX4 p$ C& n# ^; N5 H
  1818. CPX #$032 Z7 f: m7 f  |/ Y
  1819. BCC RG+ d, k5 r# M3 @" B7 a& }
  1820. RTS* K. O7 p/ f0 o& n! x/ O

  1821.   {* _, w$ S5 C- V/ k
  1822. B_WRITE:) `9 c& F" q9 Z! y# }6 P1 |
  1823. LDX #$00: \3 y( `5 D$ ^, Z
  1824. B:
    & I# Y9 {# }7 f' o
  1825. JSR PPUADDR_PROCESS
      W" B( _% L0 D; v& d8 k7 E
  1826. LDA B_STRING,X7 _- Z( d6 S3 S2 q" {
  1827. STA $20076 L9 @# Q) Q4 t" g( s
  1828. LDA #$00
    9 x: ]  N, |/ R
  1829. STA $2000+ y& l# u6 S5 \2 C: S+ n1 m
  1830. INC $BA
    6 a$ X5 n0 S: Q, P
  1831. INX2 I" A* ^8 q7 G0 N: o. t; c  |
  1832. CPX #$03. s5 g2 T9 L$ e: X% P4 Z2 ?' O
  1833. BCC B# B. i0 X% G3 _/ _( C
  1834. RTS
    5 ~: M' x) K" k8 ]
  1835. $ j: C4 {! r4 D. Z9 }5 c$ V
  1836. A_WRITE:
    5 s2 d) s, G, A- o8 u
  1837. LDX #$00) e* h+ C9 G( x2 q  Y. ~
  1838. A:4 L0 J+ \, K- ~9 n
  1839. JSR PPUADDR_PROCESS
    4 m4 x8 |( ]" G  Z7 V
  1840. LDA A_STRING,X
    + }) J) q" `$ e. o& z9 g  `& b
  1841. STA $2007
    ' O: o6 }4 M9 I7 |/ ^
  1842. LDA #$00
    " C# ]2 c: X5 r9 i+ {
  1843. STA $2000; J1 i. E7 _0 Z# R
  1844. INC $BA' H* n. I3 s- d6 a" b
  1845. INX+ w8 ]* Q- a/ r9 `4 {
  1846. CPX #$034 I& O6 [8 Y4 p) a
  1847. BCC A
    3 z# I- k. d& Q) u+ c- W5 b
  1848. RTS
    ( w$ l; D! m& Q
  1849. 6 D6 n* W9 `. F2 ^
  1850. / K! A( Q" Q9 |7 Z2 S% m* u  h
  1851. UP_PPU:! p% i% b! i9 @& Q; ~" s
  1852. JSR UP_WRITE
    ) D9 ?0 h( e# J) t1 y  a$ p
  1853. RTS
    - O0 Q+ f4 D. f/ U0 U- W6 x
  1854. 5 n, W8 X7 b+ z* r( [
  1855. DN_PPU:0 r0 @1 A2 u0 K7 ]! u8 E5 ]5 ]5 U, m
  1856. JSR DN_WRITE) k6 ]3 g" h* `, w: L. J" y  T
  1857. RTS# c3 ]  o8 m7 n* V6 [+ U

  1858.   B" A4 X" \$ g+ e/ |# |( H( G7 U
  1859. LF_PPU:+ ?. }2 W1 ~6 H- O0 G
  1860. JSR LF_WRITE
    ' f3 o& R! z! \
  1861. RTS
    9 I4 b. a) Q, |5 N

  1862. " W" ~( U0 D% f5 s2 U
  1863. RG_PPU:% l* m6 E7 H3 x
  1864. JSR RG_WRITE, A7 w) L5 a4 ~+ Y
  1865. RTS$ h- V9 I5 ?  o9 b( X* L
  1866. 2 I- J" D6 w6 B6 J* F( h" C3 m
  1867. B_PPU:1 h4 T. T3 H, J& Y$ e8 m+ B
  1868. JSR B_WRITE
    ( O$ y1 a# k9 Z+ K
  1869. RTS/ ~; q' e$ [* R6 [$ L

  1870. ( O) C+ R+ s6 r: A! T
  1871. A_PPU:
    " {; L0 u1 h/ M- c7 I$ d/ C
  1872. JSR A_WRITE
    $ J& r. U. H. G" i
  1873. RTS
    * o5 f  H9 `& F8 Z9 g1 R8 P

  1874. % g  Z! c, [% ?) S8 k% x# Z
  1875. 3 e  K* J6 B* g- K4 P" t# |
  1876. PAGESELECT:
    / B% [. D& V7 ~, `) _  P
  1877. PAGE0:9 ^; z  D" P# q. H6 y. G
  1878. LDA $07AA
    + S  f; v. }0 B3 R
  1879. CMP #$00
    ! e( e6 x2 G5 O5 D, w. S: B3 S6 h
  1880. BNE PAGE1, E# H- t& a& l8 Y5 b% T; [, y, Y3 L! d

  1881. 4 Y  ^& B' p8 |$ G6 I5 b# U
  1882. PAGE_00:8 |1 s- q8 _* |0 e* n+ m- n
  1883. JSR BULSEL_PPU
    . L/ K! l7 x: j
  1884. RTS+ X6 V) b9 x. X; F( b
  1885. + V3 x' b  ~' E: e" D
  1886. PAGE1:
    ; N% Q! C8 }0 R) C3 z! P
  1887. LDA $07AA- O) @  G& g& {  }3 j/ k9 b( o- I
  1888. CMP #$01- |) q8 G6 `6 v0 C
  1889. BNE PAGE2
    ; O- Q* ?4 F; m( `
  1890. ; F% I, r( f% `7 I
  1891. PAGE_01:6 t: D1 l) p6 o: a
  1892. JSR INVINC_PPU
    % D! Q4 w' k+ c. Z* |" g' z+ q! @
  1893. JSR LIFELC15_PPU
    ( y0 y4 t0 J- x
  1894. JSR DOUCON_PPU. e: C* ]1 f: [& K  D
  1895. JSR KILLON_PPU
    5 k; @6 F; D' ]3 {/ S- _6 {
  1896. JSR SKYFLY_PPU
    7 \2 V, f9 K5 z* k5 x5 P
  1897. JSR LIFELOW_PPU1 _0 s& O! ^4 \& h
  1898. RTS
    , W- o5 _+ |  o5 w8 h' }- l/ z5 X+ l
  1899. . l+ G, ?- ?7 V7 [6 v' q' O1 b
  1900. PAGE2:   `0 Q+ d8 q6 I* [1 ^2 }
  1901. LDA $07AA) r! Z0 B! f2 M7 @
  1902. CMP #$02! U& E+ }2 N( K0 `9 Q; e
  1903. BNE PAGE3! B0 U# N/ [* j9 V0 Q' J3 p% o

  1904. $ y1 Z9 I3 l6 W7 C
  1905. PAGE_02:4 ?# g# U! H1 W) [; Q. `) S
  1906. JSR BULADD_PPU
    9 v3 l2 [% E/ \- F
  1907. JSR SKINGE_PPU
    # _6 x" x, w( n4 U6 F; r1 E1 H
  1908. JSR BULMIX_PPU
    ) b0 \! w  \: f* |( y# r* w: {
  1909. JSR ENELOC_PPU. F* y" {8 R/ T: t2 h
  1910. JSR FOCFUL_PPU  W8 Z, h1 f' u; x
  1911. RTS7 |' @) M2 t9 a
  1912. ; j5 J. C2 O7 d! J6 v9 K0 ]
  1913. PAGE3:
    8 ~$ h  \8 N. I; Z7 ]  a5 G
  1914. LDA $07AA
    . f' D' h; ]% Y9 h
  1915. CMP #$03
    4 ]# O$ h+ \+ T# l
  1916. BNE PAGE4
    6 @/ s" i9 Y) j, K/ |- A! t
  1917. ! T& u# ]' @1 U# t1 S3 t% F
  1918. PAGE_03:8 \+ R& \+ e$ }, C3 p( B
  1919. JSR BULCON_PPU/ h6 ]# [, |2 p5 t$ e: l0 d1 S
  1920. JSR SPEBUL_PPU
    , I& {# H1 q9 Z* _
  1921. JSR CLEALL_PPU
    0 y- A6 M1 s: L+ F* ?
  1922. JSR HARDMODE_PPU
    ) s. w/ v8 l* Z
  1923. JSR B_TO_JMPSTG_PPU
    $ t) ]- m5 \2 g& s3 ?9 _% }
  1924. JSR A_TO_PLAMOD_PPU
    + H, `7 y5 Z+ M* ~( Y
  1925. RTS, m  ]& r$ h, T$ y6 b+ V5 @

  1926. 7 l9 x& B0 h4 d5 h; a; u
  1927. PAGE4: 3 z0 w) e( \* U' }% p$ P, i/ i
  1928. LDA $07AA
    ( ]% W& l' Y5 z" ^
  1929. CMP #$04. w+ @7 D/ X2 n
  1930. BNE PAGERTS
    0 W7 T3 V! a. {1 v

  1931. 5 X7 m6 }; t* e7 D& Q
  1932. PAGE_04:: j& q7 T3 l' d/ z# ^
  1933. JSR MOVSPE_PPU# F2 p+ \0 r! ]) ~& l( c3 T/ `
  1934. JSR UNLJMP_PPU' [; z) k$ G  d% z
  1935. JSR DESTRO_PPU6 I- y" }/ R" I
  1936. JSR EQUBUL_PPU
    : S3 l" t* Q1 O9 E% B5 I4 R
  1937. JSR MOVESPEED_PPU
    , P5 P0 ?: J+ c9 Z( X
  1938. PAGERTS:" l! J+ y, A7 B% m0 Z( f
  1939. RTS7 K6 M* s# b+ }& a, }
  1940. . N" r- ^. g6 W+ M4 k" l) M  _
  1941. : K% G. e& @7 g7 @: s8 J" ^
  1942. PLAYER_01_STRING:
    % ~5 n4 N$ H  z4 F2 a8 j& S
  1943. .BYTE $9A,$96,$8B,$A3,$8F,$9C,$80,$81,$82,$801 }+ Z) }& @8 }. [! _3 {
  1944. - F3 [. g! M) h" E9 c, U* g; @, @

  1945. 3 x1 l3 Q0 [. o2 z
  1946. PLAYER_01_WRITE:2 Y' Y, }# {' {" j
  1947. LDX #$00
    8 N0 V- a& ?7 C! A& G9 h' y
  1948. PLAYER_01:! p, y- p$ c; q- i3 B0 p3 L$ z, ^% B" _
  1949. JSR PPUADDR_PROCESS- E8 b, T; N9 k' c9 S. ]$ @$ n' n
  1950. LDA PLAYER_01_STRING,X- {# E  p7 T$ f) e( s/ E  N
  1951. STA $2007
    ' K8 Y% Y( K3 g" ]! U3 z
  1952. LDA #$00
    ) [  v5 h2 F1 Z* G# w8 Z, r
  1953. STA $2000
    . B8 Y, h. r: f! R$ N9 G
  1954. INC $BA
    4 C! j+ }! t! P1 `/ e! Y
  1955. INX/ T0 ~+ A' B5 S$ t8 A" f: h" h
  1956. CPX #$0A* ?5 E# G. `( W
  1957. BCC PLAYER_01' }" U/ H+ g) t- ?2 C& p
  1958. RTS
    ) f+ V4 m& }% c% K8 ]+ j
  1959. * L9 E+ F+ y0 d6 H
  1960. PLAYER_01_PPU:6 }5 ~/ T: H& n3 {+ x! c- C1 s
  1961. LDX #$00
    + q8 H6 P' s  |% e( @! `
  1962. LDA #$645 `4 t5 H8 D# W
  1963. STA $BA
    " a# R6 P4 H5 \1 g
  1964. LDA #$20
    / ?; l5 a* ~' T, e- m
  1965. STA $BB
    ' J+ d. m4 }+ Z
  1966. JSR PLAYER_01_WRITE  n- x4 o9 h+ e& W$ n
  1967. RTS
    & C' B0 V8 x/ \- R& }) G
  1968.   ~; m8 D0 u& Q! N
  1969. PLAYER_02_STRING:+ p$ h6 M4 H# z& W) l
  1970. .BYTE $9A,$96,$8B,$A3,$8F,$9C,$80,$81,$83,$80
    $ h! U. x. M$ R. P

  1971. * m$ W+ Y4 X  b" B" l

  1972. + ^- G  G8 g: p7 n  `
  1973. PLAYER_02_WRITE:, |" E. x3 a0 P) ]
  1974. LDX #$007 p8 h2 S2 ~, X
  1975. PLAYER_02:, @, d1 c5 K- v5 ?+ W
  1976. JSR PPUADDR_PROCESS9 |, ]# b- D7 u, F7 V
  1977. LDA PLAYER_02_STRING,X
    7 l/ h) y% N$ K1 S# m- X
  1978. STA $20073 \* r) O# N  I; Z/ C
  1979. LDA #$00
    / l4 T  G1 t5 H4 D1 \
  1980. STA $20006 d& D0 R( Y3 G
  1981. INC $BA9 M! N" v8 _, K4 J) ]" m- a) o
  1982. INX2 |- l* k4 M- y" \6 a
  1983. CPX #$0A
    $ u; |0 T, C1 w4 m, |% i. m
  1984. BCC PLAYER_02
    2 Q; }7 N' k* L& ~) v. T" p
  1985. RTS
    # ?+ ~# V: d6 L% T/ }

  1986. 7 Y# n6 T: O& q: Z( s" C) I
  1987. PLAYER_02_PPU:  y6 c( f% s9 i7 U7 Q, H% ^% q& V
  1988. LDX #$00
    ' v6 F8 |% m7 X! z3 a( y! U
  1989. LDA #$735 G) D4 q6 A+ e
  1990. STA $BA7 \9 S8 v8 V; c
  1991. LDA #$20
    3 v3 K/ S* }9 i
  1992. STA $BB6 a3 w( P) U- e' R
  1993. JSR PLAYER_02_WRITE
    7 a9 `& x; c' p' I; S9 T
  1994. RTS
    9 f% I: v: d9 ?% h! l
  1995. : F- U1 k: t$ ?* S; I. k6 P% P
  1996. PPUADDR_PROCESS:6 i9 l1 G& o  F& [+ e
  1997. LDA $BB  @, m. ^0 m1 F
  1998. STA $2006* F$ L! G. W' N5 a' ^
  1999. LDA $BA/ A$ @" S7 I8 A' h
  2000. STA $2006# `, _3 d% r9 r" l
  2001. RTS
    / `7 P5 C: A$ u- X
  2002. 8 N2 q$ E. X- h' b! }+ n

  2003. 1 u3 u; c( \$ v3 B

  2004. " O8 e! X* Q* @' n
  2005. ONE_STRING:+ j' {% ^& k3 c/ s* v2 ~4 V4 z$ u
  2006. .BYTE $99,$98,$8F
    / K& x4 }( f2 d7 _( q6 V+ `

  2007.   e& |( C/ R5 ~3 t
  2008. TWO_STRING:# e4 u# k2 e3 S4 x3 |
  2009. .BYTE $9E,$A1,$99, S6 |% q3 [+ L

  2010. 5 f, U7 E* h" v$ d
  2011. ONE_TWO_PPU:2 ]- }; Q8 @* e! X
  2012. BNE ONEWR" G* g, y& [1 D% o  H! ~4 O. F
  2013. TWOWR:% E5 F4 N; N. i- J% ^) F# H6 B
  2014. JSR PPUADDR_PROCESS* }" {* m( c/ k) j
  2015. LDA TWO_STRING,X
    9 U4 I0 Y' |5 E
  2016. STA $2007( `" O4 T( B' b. S
  2017. INC $BA/ J$ B6 q5 \6 Y+ R
  2018. INX
    2 M3 J8 G6 I1 ^! C6 E
  2019. CPX #$03
    ! y( Y" C4 Z/ e  `; o; n
  2020. BCC TWOWR
    ' |& a/ [7 G. J) u; m5 b) w! t
  2021. RTS" j2 Y# Y2 i7 p5 I& M
  2022. ONEWR:
    # u2 m' \  f4 m: v5 V
  2023. JSR PPUADDR_PROCESS  X& M$ s. K: U" X
  2024. LDA ONE_STRING,X
    " D6 S0 q- I- L' K* L! x' m/ |7 Z
  2025. STA $2007! I/ v/ {# w9 ]5 b  T
  2026. INC $BA
    7 m4 `3 m8 g' @) z/ A% q
  2027. INX/ _/ b/ V* X! |
  2028. CPX #$03
    $ W( |, S/ O9 R
  2029. BCC ONEWR
    ' A4 D; V# g. u& W
  2030. RTS& V) P: }- L+ l3 U
  2031. 2 F- j9 J* Q5 h) B
  2032. MOVESPEED_STRING:
    & H1 G% z  Q. {! D7 t/ P: y( Z
  2033. .BYTE $97,$99,$A0,$8F,$80,$9D,$9A,$8F,$8F,$8F,$80
    ! p( E8 F3 A' e6 K' J. ~& Z
  2034. % `% k8 i! [1 c2 V' j  U1 A
  2035. $ F  a! j. e8 h! z2 w7 v
  2036. MOVESPEED_WRITE:
    $ [; D. Y4 i7 {1 ?8 V, ~. o
  2037. LDX #$00
    - D- u6 b2 k, m9 d# i, a5 k
  2038. MOVESPEED:+ C3 U  s, t4 y8 v
  2039. JSR PPUADDR_PROCESS3 ?, g" a7 b; ]+ ?, E, s
  2040. LDA MOVESPEED_STRING,X/ _* l" L5 F# I. Q* p! h3 F
  2041. STA $2007* L6 y6 I2 O+ m% k; w9 C
  2042. LDA #$00
    , s4 ~/ I5 l! f3 ?8 Q+ _  z
  2043. STA $2000
    % p3 r' B; B# c& K$ M1 [
  2044. INC $BA8 A# b& H9 I# h# V  ]
  2045. INX
    * ?6 j' I* {5 i0 h, C6 g4 p) [
  2046. CPX #$0B
      E# \0 ?4 Y. w3 J5 ^
  2047. BCC MOVESPEED) S7 {+ z# t; [4 ]) {1 f
  2048. RTS. @9 j2 Q' o* ^3 Q  O) E
  2049. " a: R  }  J3 ?& Y& o* `' U
  2050. MOVESPEED_PPU:
    . F& E7 J  \5 p6 E
  2051. LDX #$00
    6 n1 v+ m4 c7 @' O( ?/ U
  2052. LDA #$AA
    1 H, @: U6 m4 ~3 r
  2053. STA $BA" I; u  C* m+ I; P0 Q
  2054. LDA #$22, k7 ]: e7 D7 Q8 ]8 a8 ~
  2055. STA $BB
    2 F: V7 A3 }6 `# c4 {
  2056. JSR MOVESPEED_WRITE" o, B" B( W. N/ x' U6 }: d
  2057. LDA $7003: M' J5 D9 I; S) {* s6 ]5 w
  2058. CLC
    1 o- w! ]0 W9 J
  2059. ADC #$826 ~% a3 p( U7 Q. u/ q& b
  2060. STA $2007
    7 L4 E9 U7 g+ V/ J' t
  2061. RTS
    ; j5 W/ a: A6 R" P
复制代码

本帖子中包含更多资源

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

x

评分

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

签到天数: 2924 天

[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

签到天数: 2076 天

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

使用道具 举报

wjb19780515

签到天数: 135 天

[LV.7]常住居民III
发表于 2016-11-21 09:59:17 | 显示全部楼层
这东西找了好久勒,谢谢!!
% Y5 B6 M$ d  b" Z7 H/ w- Y1 i9 b
[发帖际遇]: wjb19780515 发帖时在路边捡到 5 个 柠檬，偷偷放进了口袋. 幸运榜 / 衰神榜
回复 支持 反对

使用道具 举报

tariq017

签到天数: 2366 天

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

使用道具 举报

datone

签到天数: 2045 天

[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, 2024-12-19 15:50 , Processed in 1.109375 second(s), 32 queries , Gzip On.

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

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