[FC][魂斗罗旋风终板END暂停显菜单]

yandagui

+ f1 z, \- f0 L* ?7 S
$ D) R9 F4 h3 G! E+ w, g

     [FC][魂斗罗旋风终板END暂停显菜单]

& x- B$ T1 J* ]! Q6 E作者:FlameCyclone(flamecyclone.ys168.com)
时间:2016/11/19 21:46:00
更新日志:
0 Q$ R: |3 I: a, e8 J" `7 a# q( Q2016.11.19:加入暂停显菜单(共5页).
2016.11.12:加入无限跳跃.
2016.11.12:加入速度调节.
2016.11.11:加入敌我子弹对消功能.
2016.11.11:加入全屏闪灭功能.
2016.06.08:加入全屏瞄准功能.
( _2 ~- H% V' e0 v2016.05.31:加入弹速调节功能.
  P# K/ K1 _  K8 |9 }$ o. Y+ X2016.01.01:加入高难度模式.
2015.12.12:修复消除威胁不足,使得移动BOSS关卡(第2,4,5,6)正常通过.
8 ~0 m2 W9 Z* f/ x# D2 V7 E/ u2014.07.05:由于对打功能不完善,直接去除,更改为生命锁定.
% T! A( n$ r/ b8 ]2014.07.05:双人切换功能优化.
) A  y) g- E( d) f2014.06.01:修复第三关浮空到BOSS前必须关闭浮空后跳跃才能见BOSS的麻烦.
$ x$ a0 D1 H% O2 J0 u: V2014.06.01:取消生命锁定,改为生命锁定模式下剩余生命不会少于一条.
2014.01.18:修复GAME OVER字样只有G和O的错误，原来想拉大字母间距离，看来行不通.
2014.01.18:浮空模式下，P2飞行高度未限制导致死亡，原来是指令本该用绝对X变址的被用成了绝对寻址.
2014.02.08:拿手机无聊时又发现一些错误，所以修正生命剩余勋章显示的错误(某天用读卡器插在DVD上测试发现机器读不了卡，原因是目录级数超过三级，只有刻录成光盘来测试，结果发现生命勋章的显示竟然无压力!)
" ?3 l* j, s' v5 ^* }2014.02.13:加入自动演示通关.
内容：
23.暂停菜单:        暂停后，自动显示菜单,选择键翻页,方向键和BA键进行各种功能的开关操作.
22.无限跳跃:        暂停后，选择键4次，按下开启,开启后游戏时无限跳跃.
( Z& w; c/ h( T5 P2 ]& e7 Z21.速度调节:        暂停后，选择键4次，按左右调节行走速度(0-3级).
20.子弹对消:        暂停后，选择键4次，再按A键切换,此时敌人子弹可以打掉.
19.全屏闪灭:        暂停后，选择键4次，再按B键切换,开启后游戏时按选择键屏幕内敌人闪灭.
18.全屏瞄准:        暂停后，选择键2次，再按B开启/关闭,子弹对消开启时无效.
9 S% P- \3 S# q17.弹速调节:        暂停后，选择键3次，下开启，非暂停时按选择键调节,默认为1级,共5级.
16.困难模式:        暂停后，选择键3次，右键切换,我不相信你能够无伤通关.
' B0 t1 }# u% i( N01.子弹切换:        暂停后，选择键0次，上=快S，下=快L，左=快M，右=快F，B=快普通，A=取消当前子弹加速状态.
, h. R2 P" w0 r$ B1 R  Q6 {1 L02.无敌锁定:        暂停后，选择键1次，上开启/关闭，不用讲了，金身无敌.
  n; l  H% c8 D8 O03.生命锁定:        暂停后，选择键1次，下开启/关闭，生命锁定为16条.
04.角色双控:        暂停后，选择键1次，左开启/关闭，无非就是主机控制副机.
05.生命底限:        暂停后，选择键1次，右开启/关闭，锁定剩余生命数不少于1条.
06.一击必杀:        暂停后，选择键1次，再按B开启/关闭，即使是第8关BOSS，一发花生米依然要其老命.
07.角色浮空:        暂停后，选择键1次，再按A开启/关闭，第三关浮空时按选择键向上卷画面轴.
08.弹数加强:        暂停后，选择键2次，上开启/关闭，此时所有子弹发射数为15发.
1 Q! F! a& L$ c2 N. C: i9 C09.皮肤更换:        暂停后，选择键2次，下开启/关闭，主机开启时橙黄色，副机开启时为蓝色.
# b) G: Q3 f; \* b6 r& G: y, D10.混合子弹:        暂停后，选择键2次，左开启/关闭，此时连射时所有子弹混合.
11.敌人锁定:        暂停后，选择键2次，右开启/关闭，此时敌人原位跑不动.
12.跳过一关:        暂停后，选择键3次，再按B使用，使用后可以直接到下一关.
1 I. i' T6 P$ E0 ]% e13.单双切换:        暂停后，选择键3次，再按A键切换单双人游戏模式.
; Q* F& m9 Z2 t) ~% E2 {1 B  U14.子弹方向:        暂停后，选择键3次，上开启/关闭，开启后发射的子弹攻击方向会随着操作的方向按键变化,第二关和第四关的小关建议关闭(开启的话打中敌人太难了哦).
15.消除威胁:        暂停后，选择键3次，左开启/关闭，此时游戏时按B键使得移动物体被消除。
A.做了一些汉化(小字体),剧情,关卡名及通关后的文字未汉化.
B.自动演示通关,双人合体打通关,演示时有背景音乐,通关后一样会有结尾及恐怖台词,之后游戏进入选关(相当于游戏自动开始了).注:通关后P1及P2会获得16条生命!也就是说看完演示自动开始后第一版有16条生命!
C.生命显示加强:最大显示15个剩余生命勋章!电脑端请开启精灵超过8个(这样勋章不会闪烁)，手机端认命了，不过不影响正常操作.
/ i: x1 B- p8 x' w( |0 q
    如果有什么好的修改建议，恳请通过QQ（1490868135）联系我(也许我不在线，可以留言在QQ里)
6 Q& J+ \. H. h" ^7 }欢迎大家转载，转载时必须注明出处.
3 R% q' L$ Q1 ?9 U

游客，如果您要查看本帖隐藏内容请回复

" p, l! I' l' |忙了一个星期,觉都没睡好,眼睛也疲惫不堪啊.终于找到解决方法了,目前VIRTUANES运行不了,请使用其他模拟器玩.
这几天的劳动成果如下:

1. .ORG $B400
   8 L$ u( i7 T1 R( N  \  N
2. 
   * ]+ e- y, Q' e3 q4 I) h
3. 
   
4. PROREG:
   
5. PHA
   2 u4 d& O" f+ q6 X
6. TXA
   6 ?; |1 R" V+ [, X4 r( C
7. PHA
   6 _9 ~2 K2 N1 m$ s; b
8. TYA
   & M2 Z: P3 ~: y& N( d& V' ~
9. PHA
   
10. LDA $25
    
11. CMP #$01
    
12. BNE RE
    8 a. ?5 e" @0 c4 N. Z$ ~5 V
13. LDA $010A
    
14. CMP #$00
    * Y# F$ t2 M5 k$ Z# }
15. BEQ P1
    5 d* L1 o# P, d: N( d' V+ Z
16. 
      V4 i  j" t+ G6 h, f
17. RE:
    6 ^! Z% f; k0 s8 t. ?6 S
18. JMP PPUWRITE
    
19. 
    
20. P1:                ; 条件判断
    
21. LDA $7FFF
    5 r" S( I4 n* Y$ H% A) U
22. CMP #$FF
    9 T( D/ ^  n: E
23. BNE P1RP
    4 [" I* o3 C! `7 P! A
24. LDA $7FA0
    - m8 V, V8 z6 ^2 u* i  h
25. CMP #$00
    # W+ s, _) h3 g
26. BNE P1CMP
    3 a" E% t6 q1 E  c
27. LDA $2001
      w# D9 H  R( Y2 \' E1 X: _
28. PHA
    ' ?: T0 N$ x. \
29. LDA #$00
    0 z" P: l* ]/ [- @+ F
30. STA $2001
    3 H/ d* s  `0 l0 `6 c
31. LDA #$FF
    3 @" e( o) |# e9 F- `7 s; t
32. STA $7FA0
    9 u' E* S% Q- g0 u" V; `
33. JSR CLEANA
    
34. PLA
    8 P3 j/ C9 U, C4 b8 e; Z+ [3 q0 z" z
35. STA $2001
    
36. JMP PPUWRITE
    ; @. h7 u- w; ]5 i9 r; y! G& O, S' s; e
37. P1CMP:
    
38. LDA $7FFF
    % ?' F; m4 a) d4 Q
39. CMP #$00
    ; p! A1 N" \( Y6 t1 Z
40. BNE RE
    0 d  a# i! g+ s2 Q: R" E
41. P1RP:
    
42. LDA $2002
    9 A* h7 J# N8 c) R* q6 T
43. LDA #$00
    
44. STA $2001
    
45. LDA #$FF
      \1 s( x* A9 P$ |+ X- u0 `
46. STA $7FFF
    : @: s+ |1 {2 J1 W: F
47. STA $7FA0
    
48. JSR COPYPPU
    
49. PIRP2:
    
50. JSR CLEANA
    + f. ]# U* u( @  |/ G
51. JMP PPUWRITE
    & E4 n% s0 `( M* b; [2 {. \+ I9 u
52. 
    
53. COPYPPU:
    
54. L0:
    
55. LDA $30
    
56. CMP #$02
    
57. BNE UNPROFC
      [% l5 |2 b0 n4 {, E( {4 c+ t  N
58. LDA $FC
    
59. STA $7EFC
    
60. LDA #$00
    
61. STA $FC
    / [9 C' ~6 A6 |+ u' T
62. UNPROFC:
    
63. LDA $FD
    " A8 q/ F3 c0 U& S1 O; U" L
64. STA $7EFD
    0 n$ h$ U5 n8 `* K+ \
65. LDA $FF
    
66. STA $7EFF
    ( \' s) M. i& ^/ w2 c
67. LDA #$00
    
68. STA $FD
    
69. LDA #$B0
    
70. STA $FF
    : V( l  J$ T2 m4 y; j" H% k. _
71. LDA $07C1
    
72. STA $7FC1
    
73. LDA #$3F
    
74. STA $2006
    
75. LDA #$01
    4 Q5 K1 t7 X( `1 ?
76. STA $2006
      k# p2 j- V5 P  G+ S1 j
77. LDA #$24
    ; u% z. v& O. m' D7 a
78. STA $2007
    
79. LDA $07F6
    
80. STA $7FFE
    6 X) n( S' s& k8 O9 A9 ]- K3 c
81. LDA $00FE
    9 q! Y! P/ {, g) ?! s7 d- S
82. STA $7FFD
    
83. LDX #$00
    6 \0 `- k8 K8 M6 E9 A3 P% x  q% E
84. LDY #$00
    ! @0 S2 F- L) T0 @6 @+ k- U, y1 ^
85. LDA $BD
    
86. PHA
    
87. LDA $BC
    
88. PHA
    & l& k! M) r) b1 d0 F
89. LDA $BB
    
90. PHA
    
91. LDA $BA
    : D# D- j; D4 e- W2 d/ L% \
92. PHA
    9 ]: `& }0 s' \2 ?" A" ^5 @
93. LDA $B9
    ) @5 {, F& x+ Q3 ^
94. PHA
    
95. LDA $B8
    ( Z! r7 b+ Y1 Q3 j% b1 O8 t
96. PHA
    
97. LDA #$00
    
98. STA $B8
    6 F! ?, e( x$ {+ V5 ]* b- Q% `
99. STA $B9
    + b/ c# w1 }  L1 ^( }/ G% J% ~  Y
100. STA $BA
     
101. STA $BB
     * Y  Y$ V4 e7 u
102. STA $BC
     : q7 ?+ h2 T* Z; K  X# q+ F
103. STA $BD
     ! S+ I3 ?+ Y6 j1 h! l6 M+ {
104. LDA #$00
     
105. STA $BA
     ) ~; h# k0 J5 E1 p1 a% E* Z+ R
106. LDA #$20
     
107. STA $BB
       w+ q% e) ~- k% d! [+ H* C
108. LDA #$00
     ; D2 }" d; q; e6 L8 I% z/ i, i5 j
109. STA $BC
     
110. LDA #$60
     
111. STA $BD
     
112. 
     
113. L1:                ; PPU复制
     
114. LDA $BB
     % ?$ n$ m1 v" q1 s) {" O: F
115. CMP #$30
     : a* p0 A5 M7 n8 C% N4 N+ p* q* Q5 [
116. BNE L2
     
117. LDA $BA
     
118. CMP #$00
     
119. BEQ PROADPLA
     - V8 C# F- s8 d& b1 x: }
120. 
     
121. L2:
     
122. LDA $BB
     3 Y0 `" T  \0 o9 b
123. STA $2006
     
124. LDA $BA
     - d. _- l- X3 b& }, s
125. STA $2006
     ) Y: \) P, n8 b  T) J
126. 
     
127. L3:
     ; l" G/ \7 q  H9 L- x6 V
128. LDA $2007
     
129. LDA $2007
     ( ^8 f5 b8 D1 B, ]* ?
130. STA ($BC),Y
     . }, D, Y2 P" _( A2 w
131. 
     
132. L4:
     , a  S6 W- H* r* R1 e  v' j
133. LDA #$00
     
134. STA $2000
     + ?* H3 C4 u8 @& X( ]6 S: {
135. INX
     ) j0 |1 }* N9 G% X/ d
136. INC $BA
     
137. INC $BC
     * u- N6 i, W1 M
138. CPX #$00
     0 ]4 R2 e1 e5 I- J4 l, t
139. BNE L1
     * e2 f" V$ H# u2 e# Q  {
140. INC $BB
     " y- x* }2 R7 ~/ F- [
141. INC $BD
     ! l; e4 J8 i# |( j' C+ U
142. JMP L1
     6 Z+ ]3 F1 W7 d: [2 H
143. 
     
144. PROADPLA:                ;出栈
     
145. PLA
       H/ A- t/ [1 d7 S$ V4 U
146. STA $B8
     6 G. ~. |4 K4 C) _& d
147. PLA
     
148. STA $B9
       E4 C* F# Z- }4 {2 j1 z
149. PLA
     ; h1 p1 W/ t0 h' h0 Z5 F4 ]( ~
150. STA $BA
     ! K$ `! i) {2 N& w- j
151. PLA
     
152. STA $BB
     1 F; H" l% X/ U" D  L. o
153. PLA
     & V0 F9 O9 b% G& _2 e, c' ?3 v
154. STA $BC
     
155. PLA
     
156. STA $BD
     % ?% p3 ~, Z! P
157. CPRE:
     " W" J, @/ S6 \2 W4 z. x6 p5 Y
158. RTS
     
159. 
     ! q8 V* t, y4 x( |! r
160. CLEANA:                ; PPU清空
     
161. LDA $BD
     ' s  K. `5 x/ {4 [
162. PHA
     
163. LDA $BC
     
164. PHA
     
165. LDA $BB
     1 y1 [3 a& h* v5 i
166. PHA
     
167. LDA $BA
     % ?: o% C+ N3 ]* j! Z: `
168. PHA
     % A6 I  }; k4 H# t* S) @, ]
169. LDA $B9
     2 _: H' P# W* Y* K! j
170. PHA
     # a9 O# f! W; z) ~. E
171. LDA $B8
     & L4 y; `3 g/ {# r* `3 M3 s
172. PHA
     
173. LDA #$00
     
174. STA $B8
     
175. STA $B9
     
176. STA $BA
     
177. STA $BB
     + o9 u; G: c5 \% Y" P/ k, `9 Q
178. STA $BC
     
179. STA $BD
     9 d9 Z- a  V+ L- r# I5 s6 R! c
180. LDX #$00
     5 N$ z% E5 ?( `4 c. N6 F$ {
181. LDY #$00
     
182. LDA #$00
     ! S# \8 ~, y; B9 s  H
183. STA $BA
       F. g: X' W$ n) x
184. LDA #$20
     9 R% n$ O4 f. M0 ?% [* L
185. STA $BB
     
186. 
     
187. CL1:
     
188. LDA $BB
     6 A! u# B- T5 i2 h/ [: H+ }9 I
189. CMP #$30
     # \3 @) r( C. M$ P4 {5 o
190. BNE CL2
     
191. LDA $BA
     
192. CMP #$00
     * w2 q0 U, A/ j5 e
193. BEQ FREEWRIYE
     7 `1 d$ M) l9 C$ F7 T
194. 
     . k2 n( }* b, ?; `
195. CL2:
     
196. LDA $BB
     
197. STA $2006
     
198. LDA $BA
     
199. STA $2006
     
200. 
     : O6 n' h( X5 v. `' h% E
201. CL3:
     
202. LDA #$00
     8 `  Y' ]+ m5 w3 z6 W( f# K
203. STA $2007
     
204. 
     ( R2 G# j4 U* ~( w( ?+ o7 U6 \
205. CL4:
     * q) c8 _+ ]+ g% _: C: B& k
206. LDA #$00
     
207. STA $2000
     
208. INX
     6 F  a5 `  G% ^' @& f; R8 H
209. INC $BA
       q+ N5 E0 D- X% `4 o
210. CPX #$00
     
211. BNE CL1
     " p. R* h( Y/ N$ Y2 e) i
212. INC $BB
     ' D) V- `% d, [
213. JMP CL1
     ; x9 |) H, J6 C; h
214. 
     ) [. f! O1 e% V) `1 _
215. 
     ' e# E* @9 Y# r6 _
216. FREEWRIYE:
     2 @0 x" ?6 r4 w) V% A) c2 G
217. JSR FREE
     ) R9 ^2 A3 c2 B" ]: o
218. 
     
219. 
     
220. 
     
221. 
     
222. 
     - |% a' W" r6 V* v$ g% m
223. CLEANF:                ; 恢复现场
     ; M# k8 a* T$ c8 @6 ^9 @# c: i. D. E
224. LDA #$08
     2 F' I3 H& v. Q! P' m
225. STA $FE
     
226. LDA #$00
     
227. STA $07F6
     
228. LDA #$24
     
229. STA $7FC0
     * i# n: f- \/ _% W& w
230. PLA
     
231. STA $B8
     , b5 u/ T( y5 i0 c1 p& `# `- D
232. PLA
     : X3 P, h( Z3 w
233. STA $B9
     ! V3 l1 [& \# N! B
234. PLA
     
235. STA $BA
     
236. PLA
     
237. STA $BB
     3 w2 b7 Z  {* G- E, V, g# p" \9 n
238. PLA
     4 D0 m# e( X4 n( c0 ?9 ?
239. STA $BC
     
240. PLA
     
241. STA $BD
     
242. CLRF:
     : @6 Y+ N1 C& p. B* i. ]
243. RTS
     - r5 ~! a4 e5 _9 m2 d
244. 
     
245. W_DATA:
     
246. .BYTE $00,$01,$02,$03,$04
     
247.   
       m8 n. A9 u5 i# W; ?
248. W_PPU:
       e! e. ]: ?( N& e0 G' k
249. .BYTE $98,$97,$90,$9D,$96
     
250. 
     ' O# @4 c' o: _1 s! l' Z  Y
251. P1_STRING:
     - d! i7 A% {3 p0 H& B
252. .BYTE $9A,$82,$00                ;"P1"
     $ r: w6 P- l$ l% b) H$ ^
253. 
     
254. P2_STRING:
     
255. .BYTE $9A,$83,$00                ;"P2"
     
256. 
     
257. WEAPON_STRING:
     ' a. ?% ~* E: y% ]
258. .BYTE $A1,$8F,$8B,$9A,$99,$98,$00  ;"WEAPON"
     7 C+ x- V- b: A' b' l* b
259. 
     
260. RELIFE_STRING:
     
261. .BYTE $9C,$8F,$96,$93,$90,$8F,$00  ;"RELIFE"
     
262. 
     
263. P1_PPU:
     8 h; S1 U; Y" Y% }  P
264. LDX #$00
     
265. 
     $ n* e4 b0 F0 d  j( l6 ?
266. P1_PPUW:
     3 e' x: F/ x! k. Q
267. JSR PPUADDR_PROCESS
     
268. LDA P1_STRING,X
     
269. STA $2007
     " _. Z. Y. O9 b; _6 n' k4 E
270. INX
     0 n  K0 S7 M( _2 q" z* \- ]
271. INC $BA
     
272. CPX #$03
     
273. BCC P1_PPUW
     
274. LDX #$00
     5 ^6 u' ?# ~: D  j6 K
275. RTS
     ! h. f6 O- D. d
276. 
     - R8 W6 v. z1 N
277. P2_PPU:
     * v3 U" z( N6 V0 y; _. d$ B
278. LDX #$00
     
279. 
     ! A% V* k: M5 v9 T+ ?
280. P2_PPUW:
     
281. JSR PPUADDR_PROCESS
     ; c9 U% P8 f! {4 O4 x- M9 F. c
282. LDA P2_STRING,X
     ! e3 }( z9 Z* ~: C1 {, J1 U. C: |, _+ c
283. STA $2007
     
284. INX
     
285. INC $BA
     
286. CPX #$03
     
287. BCC P2_PPUW
     * ?! }6 s. ^* ]  z) q
288. LDX #$00
     0 Q# v/ {! x  e# N: e+ ]
289. RTS
     
290. 
     
291. 
     
292. LDA $BB
     . y3 l# t3 F8 r+ L1 E
293. STA $2006
     
294. LDA $BA
     
295. STA $2006
     8 `% r. A- t6 u$ |- C& `5 p
296. RTS
     
297. 
     7 O( F( ~% h! G/ @7 C/ ~
298. 
     
299. 
     
300. PLAYERLIFE:
     
301. JSR LIFETODEC
     ' u3 {. q& o/ f5 g, g
302. LIFEPPU1:
     
303. LDX #$00
     $ O9 ]+ V8 |" {, [" O
304. LIFEPPU1RE:
     ; J$ }' K' p  L9 N7 _( i# @) ?
305. JSR PPUADDR_PROCESS
     ' e, B* a5 U6 Q, y5 r
306. LDA RELIFE_STRING,X
     9 N8 Q$ r* ^9 C0 i: q) \
307. STA $2007
     5 W$ A5 }$ A+ h, L4 Z
308. INX
     ; |* I) }4 `+ k* R
309. INC $BA
     2 ~" M" X1 s0 ?/ p- v# k
310. CPX #$07
     
311. BCC LIFEPPU1RE
     
312. 
     6 u7 b; k& ~9 ?0 U( e" O4 E4 o
313. LIFEDEC:                ;生命显示写入
     
314. LDX #$00
     4 n9 f) O4 J: B) e
315. LIFEDECRE:
     
316. LDA $7A03,X
     
317. CLC
     
318. ADC #$81
     
319. STA $2007
     
320. INX
     
321. INC $BA
     / @! A' X& ~, }
322. CPX #$03
     + |# M2 @9 D& }0 H9 t$ O8 b" Q
323. BCC LIFEDECRE
     
324. LDX #$00
     
325. RTS
     
326. 
     & Z. I! K: y5 y- E( [0 _4 y# \
327. LIFETODEC:                ;十进制转换
     2 j5 I# C, b9 I2 [+ B2 O; P
328. LIFEL1:        ;initialise
     
329. STA $7A00        ;$7A00=F3
     ' P5 k3 z' g. R! q! Y- i
330. LDA #$00
     
331. STA $7A03        ;$7A03=00
     1 Q$ l7 c- j9 R
332. STA $7A04        ;$7A04=00
     8 h; T0 K1 g/ n
333. STA $7A05        ;$7A05=00
     3 G' E/ Q3 c# j& B8 q4 a8 l7 j
334. LIFEL2:        ;copy data $7A00 to 6001
     
335. LDA $7A00
     5 P7 T4 ~, W& m
336. STA $7A01
     1 M) f" W: O, p7 a/ l$ R
337. 
     & z4 B6 y8 C! _& M; G
338. LIFEL3:         ;hundred
     # z  e3 ~! a. Z$ M- O: `6 X* O$ {
339. LDA $7A01
     ( m7 a; w+ ^: z0 f. Y8 S! V
340. CMP #$64
     
341. BCC LIFEL6                ;$7A01<100 goto L6
     
342. LIFEL4:
     
343. LDA $7A01
     
344. SEC
     / u# q' p- B0 ], J& M( m
345. SBC #$64        ;$7A01=$7A01-100
     
346. STA $7A01
     : w- |* z4 {2 l% t. g" y) a
347. INC $7A03        ;hundred++
     ) ^5 i3 j9 U* N& g. A$ h
348. LIFEL5:
     
349. LDA $7A01
     
350. CMP #$64
     
351. BCS LIFEL4                ;$7A01>100 goto L4
     
352. 
     " [$ h$ L3 g7 S7 Z: {3 u
353. LIFEL6:        ;decade
     
354. LDA $7A01
     3 k3 N0 W  K0 g4 ?: \6 T
355. CMP #$0A
     
356. BCC LIFEL9                ;$7A01<10 goto L9
     
357. LIFEL7:       
     $ y- I: E9 A5 S( p: [, z8 ]9 V. j5 I
358. LDA $7A01
       M* x- p6 q+ N$ E* B1 W7 U
359. SEC
     $ q/ C3 p# p: \4 ?
360. SBC #$0A
     $ B1 g4 b$ d& _" P3 T! H
361. STA $7A01        ;$7A01=$7A01-10
     ( t" l9 _2 W2 |3 f# e- p
362. INC $7A04        ;decade++
     ' e- Q! O; y/ Z+ J% c
363. LIFEL8:
     
364. LDA $7A01
     ! w, Y4 l( p+ E  d* i& d
365. CMP #$0A
     
366. BCS LIFEL7                ;$7A01>10 goto L7
     
367. ;unit
     ' S) q# @( U6 s7 ~0 v9 B
368. LIFEL9:
     
369. LDA $7A01        ;$7A05=$7A01
     # Y# @7 c% K, j' ]
370. STA $7A05        ;unit
     
371. RTS        ;return
     * t- r/ u# f  T+ V4 m7 J
372. 
     
373. 
     3 q( q1 I; i" Y; g: ?" J2 z& [* {
374. 
     3 ^2 g& b+ b- t
375. WEA:                ;武器ppu写入
     9 U; f, ~1 O% ~- b3 j9 ?9 n6 }/ P
376. LDX #$00
     
377. WEARE:
     ) v3 R& D  R4 L1 W' }
378. JSR PPUADDR_PROCESS
     3 `# M, W9 A( e" d; U/ s
379. LDA WEAPON_STRING,X
     % W3 F# z' S* r: D* Y
380. STA $2007
     $ u5 {* F8 ~: a1 l  D
381. LDA #$00
     
382. STA $2000
     
383. INX
     
384. INC $BA
     
385. CPX #$07
     6 X& e# u) U4 s. {4 `1 R* K
386. BCC WEARE
     7 n6 Y7 ~& K7 ~3 z+ x
387. 
     ) P0 V  c2 {# c( C' Y
388. READ_WEA:
     % X/ `! ]( [: l0 p
389. LDA $B9
     % b5 J( R1 _1 b8 k. E) U. A
390. AND #$10
     % l, P6 j; m1 v, e
391. BEQ NWEA
     
392. SWEA:
     
393. 
     
394. LDA #$9D
     & V; H" z, F* B4 |6 ^' _3 Y
395. STA $2007
     ) A2 e0 E# h* I
396. LDA #$00
     ( C( l# s) h/ c
397. STA $2000
     9 X. n: X8 z7 f5 |7 c) c. b
398. INC $BA
     ; T; w# S& u/ A
399. LDX #$00
     
400. JMP WEAREAD
     / Q! Y; D0 i8 y+ @& c3 Y
401. NWEA:
     8 ^5 l1 i5 d, |7 a8 t1 c
402. 
     & A3 k7 ^! m+ o/ |; W% l
403. LDA #$8D
     % G, N6 |! e( ~6 H
404. STA $2007
     
405. LDA #$00
     
406. STA $2000
     
407. INC $BA
     7 _$ V3 z8 |  i, N, o7 {
408. LDX #$00
     
409. WEAREAD:
     
410. LDA $B9
     
411. AND #$EF
     
412. CMP W_DATA,X
     
413. BNE WEACMP
     
414. 
     
415. LDA W_PPU,X
     % w7 f; t2 t6 D: j( S
416. STA $2007
     . l: [. {0 K+ K8 t# w, M  J
417. LDA #$00
     0 f" ]! A5 f# T. V, J0 `2 i
418. STA $2000
     $ Q) Y$ q( W" R1 [' G: Z. I
419. 
     
420. WEACMP:
     ( t' ]8 B/ O* q$ I9 ]
421. INX
     
422. CPX #$05
     
423. BCC WEAREAD
     " [+ O" h8 K: ]  y) u5 D
424. RTS
     1 K" T& Y+ w5 G
425. 
     5 f6 I: j* R. M5 ]& I
426. 
     5 B* q  c$ t9 q
427. PPUWRITE:
     
428. PLA
     3 q" J9 C" r3 J  A; q* i- ~9 }! i. Z
429. TAY
     # p1 b0 l: }! e; \$ V/ D( N  Q
430. PLA
     
431. TAX
     + N; W, I; `8 M  J/ k- a
432. PLA
     6 o4 Z5 n) z( h/ w2 {
433. LDA $25
     
434. CMP #$00
     
435. BEQ WP1
     ) \; |/ p* S( v; |0 `, ^. D( O
436. LDA $25
     
437. CMP #$01
     
438. BNE WRE
     
439. LDA $F5,X
     5 j( e, H; Z- m  u) F6 m$ H
440. AND #$EF
     
441. BEQ WRE
     4 D6 s0 Q. {5 R3 O' D0 o6 D( r; u
442. LDA #$00
     
443. STA $7FA0
     
444. 
     . d* ?% o! Q+ f) a( z
445. WRE:
     2 e1 K! U# s9 m5 S. c1 k
446. JMP $A000
     
447. 
     & A- j6 l; m, K: D0 c  z
448. WP1:
     1 L0 q5 w, B6 I! U9 j! O7 H7 {) _
449. LDA $7FFF
     
450. CMP #$FF
     
451. BNE WRE
     
452. LDA #$00
     
453. STA $2001
     
454. LDA $BD
     
455. PHA
     
456. LDA $BC
     
457. PHA
     
458. LDA $BB
     $ M, w& L( B, t. f6 K9 {
459. PHA
     4 T6 z8 ]" J& m3 D- }
460. LDA $BA
     
461. PHA
     
462. LDA $B9
     
463. PHA
     " \  j8 ~- A% x1 s0 f* N- X) q
464. LDA $B8
     
465. PHA
     
466. LDA #$00
     
467. STA $B8
     & P; |$ D* k! H& U
468. STA $B9
     : h& ~3 O( w. o: e( E
469. STA $BA
     
470. STA $BB
     
471. STA $BC
     - N: X+ O4 Y* m* B: s' ?
472. STA $BD
     ( y* a) b/ q4 Z1 p; F  F" ~
473. LDA #$00
     
474. STA $7FFF
     9 Z; F7 R  N5 `  R) q
475. LDA $30
     
476. CMP #$02
     ! |3 {+ u6 q2 f- S% ]+ ]. ]2 e
477. BNE UNPROCPL
     5 X5 ^7 I/ K  q; V" W
478. LDA $7EFC
     % K/ _. Z/ v5 h6 S! D* }
479. STA $FC
     
480. LDA #$00
     0 t' R5 s9 l! c" c6 E
481. STA $A4
     , w" L7 b( s" l( u  ?7 ^
482. STA $A5
     6 c& K" c. m0 B' U3 s3 W
483. UNPROCPL:
     
484. LDA $7EFD
     
485. STA $FD
     
486. LDA $7EFF
     
487. STA $FF
       @0 c: X# g$ P/ i2 u
488. 
     
489. WL0:
     $ v, _3 u3 s, p; ?- Y
490. LDX #$00
     
491. LDY #$00
     ; I7 Q9 M" s6 Y4 s6 N7 U
492. LDA #$00
     
493. STA $BA
     
494. LDA #$20
     
495. STA $BB
     
496. LDA #$00
     " Q1 L8 ?2 e/ j* n3 K) `5 D- H$ B/ g/ h
497. STA $BC
     & w2 V9 }( |; }
498. LDA #$60
     
499. STA $BD
     
500. 
     : N3 o/ R/ q0 y3 Q
501. WL1:
     
502. LDA $BD
     ) d* Y% c# {  ]8 e( j
503. CMP #$70
     / x6 a/ ]. Z3 Q. ^" ]' e
504. BNE WL2
     $ p9 X/ _4 E! |" k  n$ t: r+ B- m
505. LDA $BC
     
506. CMP #$00
     
507. BEQ WLR
     
508. 
     
509. WL2:
     ( |& X- W7 t: V, g' G& h
510. LDA $BD
     
511. STA $2006
     
512. LDA $BC
     
513. STA $2006
     
514. 
     . ~; W' e' ]+ ?$ {- X
515. WL3:
     
516. LDA ($BC),Y
     
517. STA $2007
     
518. 
     
519. WL4:
     
520. LDA #$00
     4 [/ _; K$ i7 W# j! L: s! q
521. STA $2000
     
522. INX
     , T  T2 Y% ~+ m' u; }0 W
523. INC $BA
     
524. INC $BC
     ( i4 j" `0 w2 q- k
525. CPX #$00
     
526. BNE WL1
     
527. INC $BB
     
528. INC $BD
     
529. JMP WL1
     
530. 
     - }( b. N" ?: p8 w2 ~; k
531. WLR:
     ) @9 D5 M6 ^8 o. k7 a- L, A
532. LDA $7FFE
     7 v1 z4 v5 Z, N2 s) Z/ H
533. STA $07F6
     
534. LDA $7FFD
     - b6 Q6 v5 \( ~) y! t" Y" v: q5 Z9 P
535. STA $00FE
     
536. LDA $7FC1
     " _' A* N- `3 h  B, c* ]
537. STA $07C1
     
538. LDA #$3F
     
539. STA $2006
     9 A2 y/ L( z: {9 l2 W8 d4 N/ m
540. LDA #$01
     
541. STA $2006
     
542. LDA $07C1
     1 k3 Y* ~8 G" j% |- \
543. STA $2007
     8 N2 K: U2 r- x( b$ c( Z
544. LDA #$00
     % T0 c( r+ w8 P* a) A/ Z, j1 q% R
545. STA $2000
     + P' L+ P! c- z5 z
546. PLA
     0 L0 E1 p5 _' P" m- V
547. STA $B8
     
548. PLA
     
549. STA $B9
     3 S1 L. D/ y( H  d
550. PLA
     
551. STA $BA
     
552. PLA
     
553. STA $BB
     7 P3 ?0 W: I2 v: r! w1 \) D. ~, X5 t
554. PLA
     
555. STA $BC
     
556. PLA
     9 v' Z7 O* {& K( d; n
557. STA $BD
     ; U4 m! E+ h7 D3 g2 H' |
558. JMP $A000
     
559. 
     
560. FREE:                ; 暂存器保护
     9 k, w" i1 F! o* V
561. LDA $BD
     " v1 d3 g6 Y" a
562. PHA
     # S: d' A: c/ b& I4 Z
563. LDA $BC
     0 H$ m% p& Q, c9 M
564. PHA
     ) B" I& @6 m/ v  A0 B
565. LDA $BB
     ( q$ r; N5 G% j1 M
566. PHA
     6 P7 d7 x; V6 L7 o" h% _
567. LDA $BA
     % F- i+ ], o  f" Y7 Z  }' x
568. PHA
     % Q- e/ ~% c3 |, F
569. LDA $B9
     3 S  n, b" O. a2 _$ I7 e5 T
570. PHA
     ! V( B% T" n  k6 ~# N$ Q3 L
571. LDA $B8
     
572. PHA
     : a. x' Q9 ~+ B) y5 f% e
573. LDA #$00
     4 e, j/ Z. t  d9 t3 {; H
574. STA $B8
     4 G2 D" }( N' `5 f
575. STA $B9
     
576. STA $BA
     ! @( Y/ `; z9 b: x
577. STA $BB
     3 [6 s' O) B: k% T1 L- ]2 X
578. STA $BC
     
579. STA $BD
       g4 b! [) m6 B$ K8 g* j- T% w
580. 
     9 D1 b  T' u, a% t$ l" G' X
581. WEAWRITE:                ;武器ppu写入
     
582. LDX #$00
     2 _* H9 S  h' G+ ^& q
583. LDA $AA
     
584. STA $B9
     8 R2 w( W+ H# g  f2 M: q
585. WEAINI:                ;地值初始化
     
586. LDA #$A4
     ' v, M8 d1 H* O) z
587. STA $BA
     
588. LDA #$20
     $ n3 g5 z. t' K( _
589. STA $BB
     
590. 
       w  I/ j1 n- }9 f
591. 
     6 t% t1 Q3 n: k1 W
592. JSR WEA
     
593. LDX #$00                ;武器ppu写入
     ) v4 s5 c& M2 a. ]0 [
594. LDA $AB
     9 C. ]! t* t* @# C! v% T- j$ V
595. STA $B9
     8 |; J; W2 A! o: n0 D) T( Y: V
596. LDA #$B3
     
597. STA $BA
     ! P% N3 F  T; V5 b
598. LDA #$20
     
599. STA $BB
     
600. 
       Y/ H0 J; ?( `$ }
601. 
     
602. JSR WEA
     2 |& q4 }$ d% U+ G! N
603. 
     / _; r8 l4 @4 [! c; i* d* f& D
604. LDX #$00
     
605. LDA #$E4
     
606. STA $BA
     
607. LDA #$20
     : L9 f4 J/ R$ N! \
608. STA $BB
     
609. 
     $ t% x' e( Y2 }8 t) r
610. 
     
611. LDA $32
     
612. JSR PLAYERLIFE
     6 J2 M9 R: f# v  ^
613. 
     + t' a/ G* U) `! P/ Q5 g
614. LDX #$00
     * w" T4 V  P' P
615. LDA #$F3
     $ O5 @7 S' ?% H7 [
616. STA $BA
     
617. LDA #$20
     
618. STA $BB
     $ Q9 ?& @$ l  x5 y
619. 
       e5 P6 l$ c2 H- k, Q% o& d, H
620. 
     
621. LDA $33
     
622. JSR PLAYERLIFE
     
623. 
     $ U7 k5 L% {/ }3 J+ _$ ^
624. 
     1 _6 \* o9 t$ |% I! U
625. JSR PLAYER_01_PPU
     ' i9 Q& `3 Z5 n) ]
626. JSR PLAYER_02_PPU
     
627. 
     , k3 Z5 ~( ^9 ?6 P5 {
628. 
     
629. JSR PAGE_PPU
     # k5 h0 h& `, Q! y# e( I; o, v
630. JSR PAGESELECT
     " @; L% Z# Y1 {+ D# \9 J% `- T
631. 
     
632. 
     ( S7 I& |* D4 f5 V5 [
633. 
     
634. 
     : d. w) I7 J8 x& _
635. 
     
636. 
     
637. 
     
638. 
     1 V% p; f0 u3 ]( v
639. 
     . h1 H$ N7 J; a
640. 
     4 D$ W+ ]6 ~- a% d! u
641. 
     ) O# b' M+ s$ T6 T, @9 M% A8 e$ w
642. 
     
643. 
     . O4 A. W( i" f% o% H# n
644. PLAPRO:                ;恢复现场
     0 h# ?. X. R6 H
645. PLA
     3 T. @, B' m8 R5 K
646. STA $B8
     
647. PLA
     
648. STA $B9
     
649. PLA
     
650. STA $BA
     0 R& D6 O# Z1 _+ U
651. PLA
     
652. STA $BB
       c( e/ I! \6 X7 Q% s/ ^
653. PLA
     : Q& o4 C2 j+ x5 I2 }0 e
654. STA $BC
     
655. PLA
     
656. STA $BD
     
657. FREERTS:
     9 d0 M+ \" y8 }: o; o0 P& p- f
658. RTS
     6 N; U8 k' ?. X0 H$ m' a) W
659. 
     . \0 [% c. G1 ]" p1 D- T
660. INVINC_STRING:                        ;invincible
     * w, M3 k) B9 V, K$ a
661. .BYTE $93,$98,$A0,$93,$98,$8D,$80
     
662. 
     ) N* U  ^) M& e$ i% K6 R0 r
663. INVINC_PPU:
     ! `1 _' i6 P! A' w
664. LDX #$00
     
665. LDA #$62
     . D! w% \0 h$ Q+ k6 V
666. STA $BA
     - R: m, M$ ?& {' ~3 m7 }: L0 s: ]
667. LDA #$21
     
668. STA $BB
     
669. 
     
670. 
     & z; R' @) F0 }9 g9 Q. v
671. JSR UP_PPU
     , s9 P% i+ C. ]0 ^# M$ G
672. JSR INVINC_WRITE
     % k" t" J$ k5 a# [, |. |% D# W
673. LDX #$00
     ! c6 w- Q- g* P. V6 [# B  V7 [/ b
674. LDA $07A0
     6 o& k( I  ~! k+ a% k% @: A- `
675. AND #$01
     7 I( \1 Z' \/ r% }0 K' c
676. JSR ON_OFF_PPU
     
677. LDX #$00
     
678. LDA #$71
     
679. STA $BA
     - m' L2 ]/ S* x8 R
680. LDA #$21
     % |7 b: K1 B$ Y  {0 T+ O
681. STA $BB
     
682. 
     
683. 
     
684. JSR UP_PPU
     
685. JSR INVINC_WRITE
     
686. LDX #$00
     ; r+ `5 W* Z4 q$ S6 Z3 f$ y- L
687. LDA $07A1
     
688. AND #$01
     
689. JSR ON_OFF_PPU
     
690. RTS
     
691. 
     4 C) k- l5 b' G! x! H
692. INVINC_WRITE:
     - I9 N! \5 T  j$ c: M# Y; R: J
693. LDX #$00
     / t( Z5 P- J) U( d5 h/ d
694. INWRITE:
     
695. JSR PPUADDR_PROCESS
     
696. LDA INVINC_STRING,X
     
697. STA $2007
     
698. LDA #$00
     # @& F" q6 h! G2 t: w6 H9 j
699. STA $2000
     ( A! {/ h  t+ S7 z
700. INC $BA
     
701. INX
     
702. CPX #$07
     
703. BCC INWRITE
     
704. RTS
     
705. 
     
706. ON_STRING:
     9 A' U$ Z1 J* p2 @+ a5 ]" a
707. .BYTE $99,$98,$80
     
708. 
     
709. OFF_STRING:
     
710. .BYTE $99,$90,$90
     5 x! G% v2 k% e
711. 
     % ^6 v7 _7 H& p" M: y/ T6 T
712. ON_OFF_PPU:
     ' r6 I6 g7 R# O
713. BEQ OFFWR
     : ]7 c& v5 \) ?! ]1 z8 y4 _
714. ONWR:
     
715. JSR PPUADDR_PROCESS
     
716. LDA ON_STRING,X
     
717. STA $2007
     1 c: I' W( G& G& e2 D# {
718. INC $BA
     9 Z& ^# X2 v' l( I8 k
719. INX
     
720. CPX #$03
     
721. BCC ONWR
     
722. RTS
     
723. OFFWR:
     + U* c  l4 I" \
724. JSR PPUADDR_PROCESS
     
725. LDA OFF_STRING,X
     1 M: _8 L8 A# T$ i
726. STA $2007
     " q0 a' s0 q7 x. ^* ^& Z/ ]
727. INC $BA
     
728. INX
     
729. CPX #$03
     
730. BCC OFFWR
     
731. RTS
     , w; d7 P! x1 a& f) A+ Z
732. 
     # j9 v" w9 ^# ]- y: U* Q6 {
733. LIFELC15_STRING:
     
734. .BYTE $96,$93,$90,$8F,$82,$86,$80
     4 Z8 Y9 ?: e( f* F
735. 
     
736. LIFELC15_WRITE:
     
737. LDX #$00
     
738. LIFELC15:
     
739. JSR PPUADDR_PROCESS
     
740. LDA LIFELC15_STRING,X
     * R0 {; o) j2 I
741. STA $2007
     
742. LDA #$00
     
743. STA $2000
     
744. INC $BA
     8 _* z8 `! w0 e$ b* g4 J" p8 \4 t
745. INX
     8 L, b/ h8 R( Z1 R
746. CPX #$07
     
747. BCC LIFELC15
     , N1 W5 W5 A, V5 t4 t& W! }
748. RTS
     
749. 
     $ t* k2 u) ^' a5 X( o* S
750. LIFELC15_PPU:
     * B. H1 N9 _+ e8 H
751. LDX #$00
     * W9 B/ D+ c- |
752. LDA #$A2
     
753. STA $BA
     ' m0 k$ Q. K) O( j/ I) M
754. LDA #$21
     
755. STA $BB
     
756. JSR DN_PPU
     
757. JSR LIFELC15_WRITE
     
758. LDX #$00
     
759. LDA $07A0
     6 Q% [# {/ i" A4 g2 t
760. AND #$02
     
761. JSR ON_OFF_PPU
     ) a; n' S. e' U& t& p
762. LDX #$00
     
763. LDA #$B1
     - F4 V+ u* T( u+ j6 u  `2 u
764. STA $BA
     
765. LDA #$21
     . `! `1 y! J9 |% h, v- q
766. STA $BB
     ; [% V: y2 b9 v8 H5 v4 C
767. JSR DN_PPU
     
768. JSR LIFELC15_WRITE
     
769. LDX #$00
     . q0 i2 t3 n; s6 t$ F" y
770. LDA $07A1
     3 v* ~- I: e5 l/ T1 a  P
771. AND #$02
     7 s- o+ B; U7 ?3 {( V
772. JSR ON_OFF_PPU
     
773. RTS
     
774. 
     
775. DOUCON_STRING:
     & [& O- _/ n: `( u9 X
776. .BYTE $8E,$99,$9F,$8D,$99,$98,$80
     + h8 }& c* t2 L- E4 E, j
777. 
     
778. DOUCON_WRITE:
     
779. LDX #$00
     9 A" M* T: @9 G  @8 Q- g
780. DOUCON:
     " r$ b1 K3 K4 R, Z
781. JSR PPUADDR_PROCESS
     * s* _. f- T1 L5 o  ]: r
782. LDA DOUCON_STRING,X
     + N2 m$ S4 z/ e( Q2 C1 u. D
783. STA $2007
     6 c$ F/ P' n) O; q
784. LDA #$00
     
785. STA $2000
     
786. INC $BA
     ) F7 G7 X; L8 t' f+ V/ k
787. INX
     
788. CPX #$07
       A' t% g* \2 K
789. BCC DOUCON
     4 O4 ]3 O4 {! o" T
790. RTS
     
791. 
     
792. DOUCON_PPU:
     ) B& b+ j  N/ Z; S
793. LDX #$00
     
794. LDA #$E2
     , N& P: ?! _# X6 ^
795. STA $BA
     : O8 c( m" b8 ?/ K/ Z2 D2 e$ J8 A
796. LDA #$21
     
797. STA $BB
     7 O% N! Q" @( a
798. JSR LF_PPU
     
799. JSR DOUCON_WRITE
     
800. LDX #$00
     : Y/ p7 K& w) L
801. LDA $07A0
     
802. AND #$04
     
803. JSR ON_OFF_PPU
     8 L8 o9 ^: d) i) h# }8 J
804. LDX #$00
     3 E3 m7 O, W7 X8 F& R$ T
805. LDA #$F1
     
806. STA $BA
     & I! a: x( \2 Z
807. LDA #$21
     9 Z0 Q0 A2 A; I* r- a3 x
808. STA $BB
     $ \  d1 z& f  }4 w/ S  O5 N
809. JSR LF_PPU
     
810. JSR DOUCON_WRITE
     + f; H) N% w9 _5 K7 {5 A( p0 H
811. LDX #$00
     0 f0 e' o' X1 W' m
812. LDA $07A1
     ' A& G( S7 ?6 j5 e# i
813. AND #$04
     
814. JSR ON_OFF_PPU
     : D3 D0 {0 Q$ \8 W/ z6 Z
815. RTS
     
816. 
     
817. LIFELOW_STRING:
     
818. .BYTE $96,$93,$90,$96,$99,$A1,$80
     
819. 
     
820. LIFELOW_WRITE:
     
821. LDX #$00
     & u: ?5 p* B- g* t1 }
822. LIFELOW:
     
823. JSR PPUADDR_PROCESS
     
824. LDA LIFELOW_STRING,X
     
825. STA $2007
     
826. LDA #$00
     4 {& b% M2 S5 ]% {* B, P
827. STA $2000
     
828. INC $BA
     
829. INX
     
830. CPX #$07
     5 W$ D# O) K% e
831. BCC LIFELOW
     9 G5 M# v' l  t" _# c; _
832. RTS
     + m9 `1 ?3 s8 `% K* E
833. 
     5 H6 Z9 W  d7 A
834. LIFELOW_PPU:
     5 t8 i5 q7 v% f
835. LDX #$00
     
836. LDA #$22
     % a! R3 f% U8 u
837. STA $BA
     
838. LDA #$22
     ; E: b5 I; F/ [, ?
839. STA $BB
     & n, @! l: }: Q/ W. _
840. 
     
841. 
     % L8 o% Q# R1 J8 i1 ~* r
842. JSR RG_PPU
     - ?! h0 x  I5 K0 X. H
843. JSR LIFELOW_WRITE
     
844. LDX #$00
     
845. LDA $07A0
     
846. AND #$08
     
847. JSR ON_OFF_PPU
     
848. LDX #$00
     
849. LDA #$31
     * A7 r% u) V/ T9 G
850. STA $BA
     
851. LDA #$22
     ; M, \4 }+ H3 b  M! I' e' P$ M
852. STA $BB
     2 E7 e, t: R1 p( d' u4 |
853. 
     
854. 
     ' p2 i2 w# z3 J
855. JSR RG_PPU
     * S% S+ Q$ Y. @$ x3 e8 Y2 `$ O
856. JSR LIFELOW_WRITE
     " B4 N) ^6 B& q' _8 g+ e+ x
857. LDX #$00
     
858. LDA $07A1
     
859. AND #$08
     
860. JSR ON_OFF_PPU
     8 R5 V# q; c: u5 C$ ^: n: y
861. RTS
     2 v4 y' g. w& x" V4 R
862. 
     5 A3 f5 [2 m' J5 p
863. KILLON_STRING:
     8 R- G, o7 G% `# P9 Z
864. .BYTE $95,$93,$96,$96,$99,$98,$80
     
865. 
     - z( i+ e' \) R7 p* Q
866. KILLON_WRITE:
     1 q# v, N# O" c2 w0 J  w
867. LDX #$00
     . T* `, t- d# ^( N
868. KILLON:
     5 \" T( T/ }" J1 U
869. JSR PPUADDR_PROCESS
     3 X- Z3 v& `* h! K& S  h" c! ~
870. LDA KILLON_STRING,X
     # N/ T8 A! g( x$ \
871. STA $2007
     . Q/ h5 v) l5 \
872. LDA #$00
     ! [, U9 u; J1 t5 x. o( Y
873. STA $2000
     
874. INC $BA
     
875. INX
     
876. CPX #$07
     ! E% I  p0 W5 y& p2 R6 m
877. BCC KILLON
     
878. RTS
     
879. 
     
880. KILLON_PPU:
     & M6 `, {$ g0 w
881. LDX #$00
     . `5 I& U- G6 I  a8 ]" i9 Y
882. LDA #$62
     7 |  I! `. q$ x4 }; [' _' u
883. STA $BA
     
884. LDA #$22
     
885. STA $BB
     
886. 
     9 B" t- p9 g8 g( E. J4 L
887. 
     
888. JSR B_PPU
     
889. JSR KILLON_WRITE
     
890. LDX #$00
     
891. LDA $07A0
     
892. AND #$10
     , E) A( V8 L/ R, y. J/ ]. [! L
893. JSR ON_OFF_PPU
     ) Q0 w4 k$ H  k6 q
894. LDX #$00
     
895. LDA #$71
     
896. STA $BA
     
897. LDA #$22
     % |/ k% [4 w0 ?0 K- U8 S8 p+ V' q: w0 a
898. STA $BB
     - {  S  L% z) o/ [! x
899. 
     
900. 
     / m( R- N4 e* n  t
901. JSR B_PPU
     
902. JSR KILLON_WRITE
     
903. LDX #$00
     9 g" E$ F4 w1 O$ d+ I7 X
904. LDA $07A1
     
905. AND #$10
     " J' c% U$ m$ y2 _
906. JSR ON_OFF_PPU
     
907. RTS
       }0 ~, |! u$ Q7 {
908. 
     5 C' r+ Y  F/ m% d; S6 c
909. SKYFLY_STRING:
     , L! w+ t7 R) z4 N$ D
910. .BYTE $9D,$95,$A3,$90,$96,$A3,$80
     * K: Y3 P8 E6 j$ ?
911. 
     % c- P5 K/ u1 _! a
912. SKYFLY_WRITE:
     0 [. H) u) o$ @$ \4 I
913. LDX #$00
     
914. SKYFLY:
     1 [+ N: N3 D3 ^
915. JSR PPUADDR_PROCESS
     , W! ?4 m' w& s' x: ~
916. LDA SKYFLY_STRING,X
     / L" o/ z& o$ n# \0 g8 x' O" k
917. STA $2007
     * U1 j' P& c$ z$ F# j1 S
918. LDA #$00
     
919. STA $2000
     ) S1 R* V, k2 Y/ [  V) V9 |
920. INC $BA
     * _1 E1 p  S& ]# W' \& S1 m
921. INX
     
922. CPX #$07
     - \& `" L: v0 K; t. ]$ z
923. BCC SKYFLY
     
924. RTS
     $ m( D4 m2 w9 e) ~+ a: L
925. 
     
926. SKYFLY_PPU:
     : t; {+ w2 t1 n7 i
927. LDX #$00
     2 K0 G' s3 w: H( c
928. LDA #$A2
     
929. STA $BA
     ( o- n) Y1 j, e* _( m! g
930. LDA #$22
     3 f# \- p: n; E
931. STA $BB
     
932. 
     
933. 
     
934. JSR A_PPU
     
935. JSR SKYFLY_WRITE
     
936. LDX #$00
     7 k' u/ }5 w* [1 }' K4 q8 D2 M5 S
937. LDA $07A0
     1 E6 i1 Q/ q$ q' A* l2 X# e/ r
938. AND #$20
     ( a! A% F# J  |  r. |
939. JSR ON_OFF_PPU
     
940. LDX #$00
     
941. LDA #$B1
     
942. STA $BA
     + H& g: y( a; O0 y
943. LDA #$22
     
944. STA $BB
     
945. 
     
946. 
     ) Z  D6 K* N! [% H& p
947. JSR A_PPU
     
948. JSR SKYFLY_WRITE
     
949. LDX #$00
     ' A$ h4 c7 Q3 M! s- k# O/ q  q' K
950. LDA $07A1
     ; t/ u0 I& R& r( j6 {1 |# ~" T
951. AND #$20
     1 n$ A: P  B/ R; u. ]$ o
952. JSR ON_OFF_PPU
     $ \" {/ e3 G& E4 c* V8 T3 q/ O6 c
953. RTS
     * p2 j$ x$ a1 s3 }; R
954. 
     
955. BULADD_STRING:
     # t/ w; I% K/ ~3 {" w; |" x. i) p. q
956. .BYTE $8C,$9F,$96,$8B,$8E,$8E,$80
     4 P$ J% o) w0 b# j# ?
957. 
     
958. BULADD_WRITE:
     . ?4 ?4 r: C. `/ [' ^* z0 H! ^* @! X
959. LDX #$00
     
960. BULADD:
     
961. JSR PPUADDR_PROCESS
     , k1 u1 T' i7 A
962. LDA BULADD_STRING,X
     ' ~4 R+ a1 n( ~9 W
963. STA $2007
     3 ^3 Q0 i9 K4 c! O
964. LDA #$00
     
965. STA $2000
       J9 @7 D; P! h" Z: v1 M0 c
966. INC $BA
     ! ?! U8 ?* v4 z# ~) z0 E
967. INX
     
968. CPX #$07
     / [, g- ~" r+ D; l0 R
969. BCC BULADD
     
970. RTS
     : Y6 ]: F4 j0 m$ r: R
971. 
     - X' h; M9 F' U+ h
972. BULADD_PPU:
     ! z/ U, Y, @* m* C- @( `
973. LDX #$00
     
974. LDA #$62
     
975. STA $BA
     
976. LDA #$21
     - [  n, ]9 y8 h  Z. N, {5 E
977. STA $BB
     
978. 
     3 g0 W+ \: k( L1 @9 B2 _
979. 
     5 Q( u$ z* G. y. P3 }5 m. Y* t
980. JSR UP_PPU
     & H  k0 N; G  n+ s' O) [( N
981. JSR BULADD_WRITE
     
982. LDX #$00
     9 k) e# ]$ ~+ O- X; R6 t
983. LDA $07A2
     
984. AND #$01
     
985. JSR ON_OFF_PPU
     ! {) P1 F1 o% q6 j4 s7 W  n
986. LDX #$00
     ; e; g% F1 A" t: h: E2 |8 @
987. LDA #$71
     
988. STA $BA
     
989. LDA #$21
     
990. STA $BB
     
991. 
     
992. 
     
993. JSR UP_PPU
     7 T) u8 p( G# q$ ^# ]
994. JSR BULADD_WRITE
     
995. LDX #$00
     8 u9 P: y- _' X# l
996. LDA $07A3
     
997. AND #$01
     # G& d1 U6 X1 I+ Z
998. JSR ON_OFF_PPU
     / {9 B3 P- _* e9 ~
999. RTS
     
1000. 
      
1001. MENU_PAGE_STRING:
      4 K1 b  p$ y, C( e0 H
1002. .BYTE $97,$8F,$98,$9F,$80,$9A,$8B,$91,$8F,$80,$81
      
1003. 
      6 ^+ G2 r2 @. I0 L' o& j
1004. PAGE_PPU:
      1 U9 d: i7 k3 q6 p; U' J# f
1005. LDX #$00
      
1006. LDA #$0A
      
1007. STA $BA
      
1008. LDA #$23
      
1009. STA $BB
      
1010. 
      
1011. 
      * q  e! c( H2 m( l: c8 G
1012. MENU_PAGE:
      % S2 J2 z5 [+ u
1013. JSR PPUADDR_PROCESS
      - }4 \( E. a8 ^3 v0 H, N2 H
1014. LDA MENU_PAGE_STRING,X
      ! R( A7 G8 ^) g8 v$ i) L
1015. STA $2007
      3 K+ p- J4 _$ R" c4 \; Q* U$ h
1016. LDA #$00
      & O* |1 Y5 C' H$ _( m
1017. STA $2000
      
1018. INC $BA
      
1019. INX
      
1020. CPX #$0B
      
1021. BCC MENU_PAGE
      
1022. LDA $07AA
      ' s* e) V$ i# q  M6 e
1023. CLC
      
1024. ADC #$82
      # L: h: ^* z+ B; S: g" r2 u! q
1025. STA $2007
      : o' e6 C  J4 A6 ^
1026. LDA #$00
      , w, S2 @+ J  i' p# x3 h+ I$ x
1027. STA $2000
      9 D; u- Z' A8 B! l( y& J
1028. RTS
      
1029. 
      
1030. 
      # a/ W* }2 a% _
1031. SKINGE_STRING:
      
1032. .BYTE $9D,$95,$93,$98,$91,$8F,$80
      7 M8 s+ ^1 g% a. \' W
1033. 
      
1034. SKINGE_WRITE:
      $ Z- X- @8 ?( z& [' c. Y( Y
1035. LDX #$00
      
1036. SKINGE:
        F6 a# S$ }' h$ P4 O+ V
1037. JSR PPUADDR_PROCESS
      
1038. LDA SKINGE_STRING,X
      
1039. STA $2007
      / g9 {- ^% {: m% H
1040. LDA #$00
      : O2 W; p7 M6 Q
1041. STA $2000
      
1042. INC $BA
      / j. d. T! o) Y! _  \
1043. INX
      ) H, i9 k" h3 h5 ^! u
1044. CPX #$07
      
1045. BCC SKINGE
      
1046. RTS
      
1047. 
      . }7 L. ]5 r& T3 z5 k
1048. SKINGE_PPU:
      " `8 d3 i9 j% t5 o* i
1049. LDX #$00
      " p( W: d& g% y  o4 n8 G+ A& d
1050. LDA #$A2
      
1051. STA $BA
      
1052. LDA #$21
      . c- z) _! }. V; M
1053. STA $BB
      5 j% D$ c7 Q. C7 h
1054. 
      
1055. 
      , F( w/ F" ~' y" E2 i, _
1056. JSR DN_PPU
      
1057. JSR SKINGE_WRITE
      : H. p% u' \! n( ~
1058. LDX #$00
      
1059. LDA $07A2
      
1060. AND #$02
      
1061. JSR ON_OFF_PPU
      
1062. LDX #$00
      1 t5 j: `$ y5 x% B' b
1063. LDA #$B1
      8 s7 Y+ l" ~/ F: V- M! ^" g- o
1064. STA $BA
      2 X0 f9 |8 ~+ x& ~* E) m  R
1065. LDA #$21
      
1066. STA $BB
      6 \0 a/ g7 m2 Y4 F) N1 r, I" l9 u
1067. 
      
1068. 
      
1069. JSR DN_PPU
      . u$ v) k, Z1 |* A, i2 w
1070. JSR SKINGE_WRITE
      
1071. LDX #$00
      
1072. LDA $07A3
      
1073. AND #$02
      
1074. JSR ON_OFF_PPU
      4 h( Q! Q& a3 Z# O
1075. RTS
      1 B& X' Q* b3 _) s# q3 Z* T
1076. 
      
1077. BULMIX_STRING:
      
1078. .BYTE $8C,$9F,$96,$97,$93,$A2,$80
      
1079. 
      ) [  f: \. g& U+ ?6 C, I( q8 M
1080. BULMIX_WRITE:
      # x/ M3 n5 l  L* y* k+ d4 [( \
1081. LDX #$00
      " [* M6 \- s% D% o7 Z4 y
1082. BULMIX:
      
1083. JSR PPUADDR_PROCESS
      % a7 I8 v, n6 Z; K7 A' i4 b
1084. LDA BULMIX_STRING,X
      - M; m' T" i$ s) V0 v
1085. STA $2007
      3 B9 O( m* L0 K4 R  O/ g
1086. LDA #$00
      
1087. STA $2000
      , c% ]  n, m# g0 Z2 R
1088. INC $BA
      
1089. INX
      
1090. CPX #$07
      
1091. BCC BULMIX
      
1092. RTS
      
1093. 
      
1094. BULMIX_PPU:
      
1095. LDX #$00
      
1096. LDA #$E2
      
1097. STA $BA
      / _6 ~0 t0 Z4 @  V7 O1 k& M- l# Z+ n) R
1098. LDA #$21
      
1099. STA $BB
      " R- W: C$ e4 O1 i  `
1100. 
      ! r, L! p# p- Y7 |
1101. 
      1 @* o. f6 |3 m/ p* y% u% u
1102. JSR LF_PPU
      
1103. JSR BULMIX_WRITE
        U! i6 G; Y  P/ x1 B1 F8 n) `
1104. LDX #$00
      
1105. LDA $07A2
      ( a; W: G" t  M
1106. AND #$04
      
1107. JSR ON_OFF_PPU
      5 a7 W/ h. }& {7 R( R* n
1108. LDX #$00
      ) G1 q) g1 S2 Z* |
1109. LDA #$F1
      9 Z, C9 M! l+ k* w9 x
1110. STA $BA
      5 f' M6 h* D) z7 g
1111. LDA #$21
      
1112. STA $BB
      3 F6 g0 O0 F/ V* y+ r9 }! p: l
1113. 
      
1114. 
      ; q3 S+ v( i/ N: t
1115. JSR LF_PPU
      
1116. JSR BULMIX_WRITE
      
1117. LDX #$00
      0 m( N8 b- @5 B
1118. LDA $07A3
      
1119. AND #$04
      
1120. JSR ON_OFF_PPU
      + }) n. F9 \3 P
1121. RTS
      
1122. 
      $ x9 @5 ]7 m  ~8 z, ~! I- A& O
1123. ENELOC_STRING:
      
1124. .BYTE $8F,$98,$8F,$96,$99,$8D,$80
      . U; H% ?" j2 l2 r* }
1125. 
      
1126. ENELOC_WRITE:
      
1127. LDX #$00
      
1128. ENELOC:
      
1129. JSR PPUADDR_PROCESS
      
1130. LDA ENELOC_STRING,X
      
1131. STA $2007
      
1132. LDA #$00
      
1133. STA $2000
      
1134. INC $BA
      
1135. INX
      
1136. CPX #$07
      
1137. BCC ENELOC
      7 n, G- D- K/ v  a- h
1138. RTS
      8 c8 K( J# z; n! P5 g8 o
1139. 
      
1140. ENELOC_PPU:
      8 ?2 D% U; i1 K( I/ s, m5 B5 F5 M: j
1141. LDX #$00
      
1142. LDA #$22
      
1143. STA $BA
      
1144. LDA #$22
      & _' n% Y+ A" G; q$ z. h
1145. STA $BB
      
1146. 
      
1147. 
      
1148. JSR RG_PPU
      
1149. JSR ENELOC_WRITE
      
1150. LDX #$00
      
1151. LDA $07A2
      8 e; j& }% X, O& `; K: \0 m3 W
1152. AND #$08
      ( K3 I6 U) _- r! e' F7 \  U
1153. JSR ON_OFF_PPU
      ( Z' D/ H) R- D& j$ c2 u, E0 @4 G; b
1154. LDX #$00
      % P5 S9 p. x( v* F& O; ?
1155. LDA #$31
      " s) j/ R7 X3 Z# l3 E7 W
1156. STA $BA
      
1157. LDA #$22
      . Q+ G) p  c. N7 O* v
1158. STA $BB
      3 N- r3 Y) S% w
1159. 
      
1160. 
      
1161. JSR RG_PPU
      4 L* V# P6 k8 N& V+ r' U
1162. JSR ENELOC_WRITE
      % {0 D( W1 A& r! r
1163. LDX #$00
      : n9 B9 J/ q. _% U& c+ T/ a, @; I' Q
1164. LDA $07A3
      
1165. AND #$08
      
1166. JSR ON_OFF_PPU
      9 c0 V& V& F( X# c# w! X6 C/ D. }
1167. RTS
      . @3 w& ], u" i6 ^5 i5 G5 z
1168. 
      
1169. FOCFUL_STRING:
      
1170. .BYTE $90,$99,$8D,$90,$9F,$96,$80
      . p" v* Q& N# @3 \. `$ t# d
1171. 
      8 `; ^' m% ~' Z; z
1172. 
      
1173. FOCFUL_WRITE:
      
1174. LDX #$00
      5 A% Z' ]( w7 x' l2 ^2 j8 q! N
1175. FOCFUL:
      + w/ O5 @6 A5 F" j4 P
1176. JSR PPUADDR_PROCESS
      3 h" P$ u+ Z8 j# W
1177. LDA FOCFUL_STRING,X
      
1178. STA $2007
        n5 a# e2 ?6 |8 L5 ]: Q' H
1179. LDA #$00
      
1180. STA $2000
      . x4 I! j- s6 c( {$ i9 I# F9 |9 M# K
1181. INC $BA
      
1182. INX
      * |8 i" b' [9 ^! k
1183. CPX #$07
      6 H4 i/ @4 b/ J5 ^0 l
1184. BCC FOCFUL
      # S( B- A7 j/ x& k# _5 w* ~1 r- \, L
1185. RTS
      - t& o5 F; d- Q# P
1186. 
      9 X$ f, g2 r% k
1187. FOCFUL_PPU:
      ; q9 M- P( [# r
1188. LDX #$00
      
1189. LDA #$62
      
1190. STA $BA
      
1191. LDA #$22
      
1192. STA $BB
      
1193. 
      
1194. 
      
1195. JSR B_PPU
      * B( \! R  Q: c  \$ b
1196. JSR FOCFUL_WRITE
      / e! E0 U& a5 }
1197. LDX #$00
      
1198. LDA $07A2
      ! [  z' a+ |5 B; T! `
1199. AND #$10
      ) Z3 x( {' T3 ~( Q* E* g
1200. JSR ON_OFF_PPU
      
1201. LDX #$00
      
1202. LDA #$71
      
1203. STA $BA
      
1204. LDA #$22
      + S3 W3 D6 Z. D2 i8 U
1205. STA $BB
      . K3 C; I2 f" ^1 i# |
1206. 
      
1207. 
      : u5 t8 T. G3 k7 G* ~/ @3 ~
1208. JSR B_PPU
      6 E% K; }& Z7 W# {" e
1209. JSR FOCFUL_WRITE
      - r& l" d, |7 V) j% \6 g
1210. LDX #$00
      
1211. LDA $07A3
      
1212. AND #$10
      
1213. JSR ON_OFF_PPU
      . [6 t5 x$ W: M' ]
1214. RTS
      
1215. 
      
1216. BULCON_STRING:
      
1217. .BYTE $8C,$9F,$96,$8D,$99,$98,$80
      
1218. 
      
1219. 
      3 {  I; Z, n) ^& q
1220. BULCON_WRITE:
      
1221. LDX #$00
      ' C1 e  I3 a+ L9 _2 V' L3 s; Z
1222. BULCON:
      
1223. JSR PPUADDR_PROCESS
      
1224. LDA BULCON_STRING,X
      
1225. STA $2007
      
1226. LDA #$00
      
1227. STA $2000
      # T$ c2 R4 J9 E' U* c# p1 j
1228. INC $BA
      
1229. INX
      
1230. CPX #$07
      
1231. BCC BULCON
      ( _2 @- n0 d# s  a% E
1232. RTS
      0 r  \7 \7 h! d7 N: {% P
1233. 
      % z" _  G2 k$ W. F& o3 M* g, ^
1234. BULCON_PPU:
      , j- J7 b" {! T
1235. LDX #$00
      
1236. LDA #$62
      
1237. STA $BA
      
1238. LDA #$21
      
1239. STA $BB
      
1240. 
      , }0 b5 d) n* o* k% C# [
1241. 
      9 X  ?- {  q* O2 i3 Y
1242. JSR UP_PPU
      2 B9 C+ l, `# q& A2 M4 O$ Q, ^
1243. JSR BULCON_WRITE
      
1244. LDX #$00
      & h% d  Z- j7 |1 F( B9 C7 b. F/ R
1245. LDA $07A4
      : _% I( v  d) L. P2 h' X% e
1246. AND #$08
      " C# p8 z" y! L8 Q
1247. JSR ON_OFF_PPU
      
1248. LDX #$00
      5 {& w8 V3 O, u& T
1249. LDA #$71
      
1250. STA $BA
      
1251. LDA #$21
      
1252. STA $BB
      
1253. 
      
1254. 
      
1255. JSR UP_PPU
      % s+ L8 K) k, x: A" x
1256. JSR BULCON_WRITE
      - m9 I. m( O% A& F; y' B/ l, B5 R
1257. LDX #$00
      $ ~2 ^0 \( Q0 q6 w. D
1258. LDA $07A5
      
1259. AND #$08
      % k  q- D8 e; z% c
1260. JSR ON_OFF_PPU
      9 I6 r  [4 Y) Y, `  i3 k
1261. RTS
      ! H4 G% @5 z. U
1262. 
      
1263. SPEBUL_STRING:
      
1264. .BYTE $9D,$9A,$8F,$8C,$9F,$96,$80
      , ?* ?5 ]( Z9 m& s, D; g- Z- y
1265. 
      ) |( d3 v& B) j; [" c
1266. 
      " B3 v* h0 g; O
1267. SPEBUL_WRITE:
      % ^9 A) J# ~! a! q3 j
1268. LDX #$00
        q: l2 Z# M7 L* f5 a- B
1269. SPEBUL:
      : r- w2 o, G" u8 w' B8 `
1270. JSR PPUADDR_PROCESS
      
1271. LDA SPEBUL_STRING,X
      
1272. STA $2007
      
1273. LDA #$00
      
1274. STA $2000
      ( m8 g+ y" p! T3 a
1275. INC $BA
      / I6 q3 C' o3 j& K7 F" h
1276. INX
      
1277. CPX #$07
      + c# t* R; x# y6 D4 e- C& M
1278. BCC SPEBUL
      
1279. RTS
      5 p9 c8 I! b9 d0 [
1280. 
      4 d+ y3 A: T* x
1281. SPEBUL_PPU:
      ) \7 Q, Y# \, c3 K3 S
1282. LDX #$00
      
1283. LDA #$A2
      
1284. STA $BA
      
1285. LDA #$21
      
1286. STA $BB
      
1287. 
      
1288. 
      , c. e, J' m" P6 n  u
1289. JSR DN_PPU
      
1290. JSR SPEBUL_WRITE
      0 |3 I4 @6 l' J
1291. LDX #$00
      
1292. LDA $07A4
      
1293. AND #$02
      
1294. JSR ON_OFF_PPU
      ) w  G7 W# B0 a
1295. LDX #$00
      
1296. LDA #$B1
      ) B) a* P" s# z
1297. STA $BA
      2 X6 y3 H! R, V# n
1298. LDA #$21
      4 w9 t7 R( m& F7 c3 K# ^
1299. STA $BB
      1 W/ s$ l" m# w: l$ W( ^0 c
1300. 
      2 k* a6 {) T7 \+ R, V
1301. 
      
1302. JSR DN_PPU
      1 W$ B% _+ f5 `3 M3 g' H" J
1303. JSR SPEBUL_WRITE
      " [0 _) Y- ^0 P7 c4 J2 T
1304. LDX #$00
      
1305. LDA $07A5
      ! s$ Q: j  [8 {
1306. AND #$02
      ; d6 |& O7 Y4 i- \9 p
1307. JSR ON_OFF_PPU
      . J1 p8 ?; {6 ~- G% R* t/ X6 p
1308. RTS
      4 p" C7 Q) W0 Z
1309. 
      & @' C; o3 y$ f
1310. .ORG $A500
      
1311. CLEALL_STRING:
      
1312. .BYTE $8D,$96,$8F,$8B,$96,$96,$80
      8 {3 I2 c' E. p% ]2 b! @
1313. 
      
1314. 
      
1315. CLEALL_WRITE:
      0 e$ z7 W% A) a" T& x9 |
1316. LDX #$00
      
1317. CLEALL:
      
1318. JSR PPUADDR_PROCESS
      ) {* m* ~, V) `9 ~3 }, e# R
1319. LDA CLEALL_STRING,X
      % C# F: T* m% W% Y
1320. STA $2007
      : ~; Q$ ?1 y, H( b5 a
1321. LDA #$00
      
1322. STA $2000
      8 \4 f# T% E! \, x
1323. INC $BA
      # ]) n* }) d0 r5 a* v
1324. INX
      - B. l  J# y# L2 B1 {* c" T" _: @
1325. CPX #$07
      
1326. BCC CLEALL
      + D% {( M2 L$ W7 ?1 H) m- k6 F4 n
1327. RTS
      
1328. 
      : ?0 i. Z$ f. f8 ~( t5 z' B, g
1329. CLEALL_PPU:
      
1330. LDX #$00
      
1331. LDA #$E2
      1 e4 w; X, I0 `' J  v! V; w
1332. STA $BA
      
1333. LDA #$21
      8 o4 U& \% b' \
1334. STA $BB
      
1335. 
      
1336. 
      
1337. JSR LF_PPU
      
1338. JSR CLEALL_WRITE
      3 O# [5 a3 C9 z
1339. LDX #$00
        M, [' w* x$ @4 B
1340. LDA $07A4
      
1341. AND #$04
      
1342. JSR ON_OFF_PPU
      . \+ c8 y: _7 D4 t* d) s; E6 {
1343. LDX #$00
      
1344. LDA #$F1
      
1345. STA $BA
      
1346. LDA #$21
      
1347. STA $BB
      
1348. 
      
1349. 
      5 E5 a# ], N, p# x$ J$ |+ X) F
1350. JSR LF_PPU
      4 c, c! P) y3 I! {8 |" ^" Q
1351. JSR CLEALL_WRITE
      
1352. LDX #$00
        @6 E4 ]; ~: f8 m
1353. LDA $07A5
      
1354. AND #$04
      
1355. JSR ON_OFF_PPU
      
1356. RTS
      
1357. 
      
1358. HARDMODE_STRING:
      7 Z# o5 {! O  [$ m- G+ H6 q6 |" x
1359. .BYTE $92,$8B,$8E,$97,$99,$8E,$80
      
1360. 
      4 l) l) d) `8 @* O
1361. 
      
1362. HARDMODE_WRITE:
      2 U# W3 y/ u7 g) H4 A. z) i7 ]2 f
1363. LDX #$00
      
1364. HARDMODE:
      ! b5 V. [: W& p7 ?1 m3 p6 g
1365. JSR PPUADDR_PROCESS
      8 w) L! A! g" v+ ]
1366. LDA HARDMODE_STRING,X
      
1367. STA $2007
      
1368. LDA #$00
      # B& D2 B& A3 V4 C: o# v9 k
1369. STA $2000
      7 F. y( ]1 P6 y* y2 D& P& E
1370. INC $BA
      
1371. INX
      
1372. CPX #$07
      
1373. BCC HARDMODE
      . E& u9 ]& Z5 Q4 Y  G( T- F
1374. RTS
      8 a% h$ \9 ^0 A+ ^( O0 `/ T' {  h
1375. 
      
1376. HARDMODE_PPU:
      
1377. LDX #$00
      
1378. LDA #$22
      
1379. STA $BA
      3 g) v/ I5 p  V8 O  C' D
1380. LDA #$22
      
1381. STA $BB
      
1382. JSR RG_PPU
      6 U3 E& X9 P- w% ]! T5 v
1383. JSR HARDMODE_WRITE
      
1384. LDX #$00
      4 k! K* c0 `' T& X/ Z( z- w3 Q
1385. LDA $07A4
        `! _9 u: M5 m8 d
1386. AND #$01
      ' ?! u! ]7 G& B$ b  |! G
1387. JSR ON_OFF_PPU
        l' v* d3 r+ K9 D( H' ~
1388. LDX #$00
      1 e) c. l# R2 @" T  U
1389. LDA #$31
      
1390. STA $BA
      
1391. LDA #$22
      
1392. STA $BB
      
1393. 
      
1394. 
      
1395. JSR RG_PPU
      
1396. JSR HARDMODE_WRITE
      
1397. LDX #$00
      % |' a8 v# Q$ t0 ?1 t- W! L5 y
1398. LDA $07A5
      
1399. AND #$01
      $ b/ ]4 Y% U# x5 n/ x
1400. JSR ON_OFF_PPU
      8 s. _; X, z2 ^5 d
1401. RTS
      
1402. 
      0 x; y7 {6 y' U3 @9 b  n
1403. B_TO_JMPSTG_STRING:
      
1404. .BYTE $80,$8C,$80,$9E,$99,$80,$94,$97,$9A,$9D,$9E,$91,$80
      
1405. 
      
1406. 
      $ B4 b. v8 v) u4 |: W9 ~
1407. B_TO_JMPSTG_WRITE:
      
1408. LDX #$00
      
1409. B_TO_JMPSTG:
      
1410. JSR PPUADDR_PROCESS
      
1411. LDA B_TO_JMPSTG_STRING,X
      " y: O9 |6 v& d
1412. STA $2007
      , u1 k3 y- N9 |
1413. LDA #$00
      , o% T2 ^4 z3 W4 W. @# N
1414. STA $2000
      
1415. INC $BA
      5 n! x; e$ S  V) l, F. j0 m
1416. INX
      
1417. CPX #$0D
      
1418. BCC B_TO_JMPSTG
      
1419. LDX #$00
      
1420. LDA $7FE0
      % @/ u+ p7 x4 c! x- X) B
1421. JSR ON_OFF_PPU
      . |) l  H8 {) x# D/ q
1422. RTS
      
1423. 
      
1424. B_TO_JMPSTG_PPU:
      
1425. LDX #$00
      % X: _% e+ }) a& e4 T
1426. LDA #$68
      ( @/ Y5 h" U" V7 E0 R: q
1427. STA $BA
      
1428. LDA #$22
      
1429. STA $BB
      
1430. JSR B_TO_JMPSTG_WRITE
      
1431. RTS
      9 ~6 G0 m& f+ M7 I$ U% X3 v  D7 t
1432. 
      * l5 r( D& q1 |: w
1433. 
      
1434. A_TO_PLAMOD_STRING:
      
1435. .BYTE $80,$8B,$80,$9E,$99,$80,$9A,$96,$8B,$97,$99,$8E,$80
      
1436. 
      
1437. 
      
1438. A_TO_PLAMOD_WRITE:
      # X% G9 D* V7 ~: \5 _) M+ a0 H, y
1439. LDX #$00
      5 U7 F: G5 [5 T1 l( O
1440. A_TO_PLAMOD:
      
1441. JSR PPUADDR_PROCESS
      
1442. LDA A_TO_PLAMOD_STRING,X
      
1443. STA $2007
      % U* |; z5 G. `4 k0 o3 a
1444. LDA #$00
      * Q9 }) w7 m7 q. H0 I- t6 S
1445. STA $2000
      
1446. INC $BA
      
1447. INX
      
1448. CPX #$0D
      
1449. BCC A_TO_PLAMOD
      
1450. LDX #$00
      + H) D& x$ {: \1 K6 V
1451. LDA $39
      . `: T% @# ]  [9 m
1452. JSR ONE_TWO_PPU
      
1453. RTS
      , L5 Y2 ?" {4 A! Q$ A2 q
1454. 
      
1455. A_TO_PLAMOD_PPU:
      * Y& s5 P9 t' I  O, J# W3 L
1456. LDX #$00
      # L4 h7 B& Q, Y: |
1457. LDA #$A8
      
1458. STA $BA
      
1459. LDA #$22
      
1460. STA $BB
      
1461. JSR A_TO_PLAMOD_WRITE
      0 x( Y) _' k+ Q9 g+ V! m' `. u$ r) e
1462. RTS
      " j; w2 N9 e/ Z
1463. 
      + B- `5 B0 t0 l
1464. MOVSPE_STRING:
      % @, x4 }1 X! M* J1 k& D
1465. .BYTE $97,$99,$A0,$9D,$9A,$8F,$80
      . b; @: p8 {8 U0 M6 }
1466. 
      1 |( ^" v6 f9 ^( C; {
1467. 
      
1468. MOVSPE_WRITE:
      7 U' S: {7 W$ Q% U; h
1469. LDX #$00
      
1470. MOVSPE:
      
1471. JSR PPUADDR_PROCESS
      
1472. LDA MOVSPE_STRING,X
      ! u$ Z/ w( J* g8 `! w( U
1473. STA $2007
      
1474. LDA #$00
      
1475. STA $2000
      : }4 @5 ~, x& ^5 \+ B! R
1476. INC $BA
      ; o- w+ _- o8 x  P
1477. INX
      
1478. CPX #$07
      
1479. BCC MOVSPE
      
1480. RTS
      " H) m8 ~& d" Q" p+ |" V+ k
1481. 
      
1482. MOVSPE_PPU:
      & }7 }1 _% q  X& ?
1483. LDX #$00
      
1484. LDA #$69
      " k$ _; c6 y- q' Z* Q
1485. STA $BA
      / L2 {+ G) G, B  `! c4 v% [
1486. LDA #$21
      " T3 n0 I3 x- n+ n2 W
1487. STA $BB
      
1488. 
      
1489. 
      / W  c8 O& r8 S9 [
1490. JSR UP_PPU
      
1491. JSR MOVSPE_WRITE
      7 j) J1 `7 H; I$ e9 e
1492. LDX #$00
      
1493. LDA $079F
      7 @/ i% _6 {; D4 ~" A/ i
1494. AND #$08
      
1495. JSR ON_OFF_PPU
      + `" n( }% p$ D' B) Z- [9 H
1496. LDA #$80
      
1497. STA $2007
      4 t5 y5 p; ]2 `0 ^; [1 E* p4 u0 e& h
1498. RTS
      - e  _9 j3 p3 _& c$ G
1499. 
      
1500.   
      + E0 M3 L1 p( J% C: ~% _. x# D
1501. UNLJMP_STRING:
      
1502. .BYTE $9F,$98,$96,$94,$97,$9A,$80
      
1503. 
      7 B' Z3 ^' X$ v9 D
1504. 
      
1505. UNLJMP_WRITE:
      2 d: H9 e+ V! J. A; t, E# _8 G
1506. LDX #$00
      7 U2 D) X2 ~" k
1507. UNLJMP:
      
1508. JSR PPUADDR_PROCESS
      + D( a1 n$ K' b
1509. LDA UNLJMP_STRING,X
      5 ?+ v+ E( [  _+ O
1510. STA $2007
      
1511. LDA #$00
      
1512. STA $2000
      
1513. INC $BA
      
1514. INX
      
1515. CPX #$07
      / u; Q$ s- g: Y/ B2 m3 P% d
1516. BCC UNLJMP
        \% \& b3 n4 K5 r1 y
1517. RTS
      5 i3 d% P; @; `) N" B0 d
1518. 
      1 E# o4 ^( X  G3 f
1519. UNLJMP_PPU:
      
1520. LDX #$00
      9 A( c6 [- v5 s$ l' `' b
1521. LDA #$A9
      
1522. STA $BA
      1 O7 K6 O' F: G7 W0 p. w
1523. LDA #$21
      
1524. STA $BB
      & H9 y9 {9 d! K9 i- t2 x) p0 ?
1525. 
      5 _- S0 j9 R2 Q2 ?5 C  Q6 p
1526. 
      
1527. JSR DN_PPU
      . c% F+ e9 N; T9 ^. {) Z0 K; x. S
1528. JSR UNLJMP_WRITE
      4 ]/ }) j! k+ C) f. H+ Y6 J
1529. LDX #$00
      1 y  l" a" ]  A6 A$ j6 S  G! o
1530. LDA $079F
      
1531. AND #$04
      7 v* i* k% o& P! I$ @7 k
1532. JSR ON_OFF_PPU
      
1533. RTS
      
1534. 
      . l" b2 {3 ^! n2 x1 b( p& H& K+ B1 x
1535. 
      
1536. DESTRO_STRING:
      
1537. .BYTE $8E,$8F,$9D,$9E,$9C,$99,$80
      # s. L) ^% s. T3 I! f9 i2 N0 X
1538. 
      9 l* |( `8 S. A* f# X; u
1539. 
      
1540. DESTRO_WRITE:
      
1541. LDX #$00
      2 a7 ~. ^+ {" S# h+ k* q
1542. DESTRO:
      
1543. JSR PPUADDR_PROCESS
        W9 Z, T8 I0 J4 {/ |4 a0 M4 T
1544. LDA DESTRO_STRING,X
      4 W" a. H' d6 M' t
1545. STA $2007
      * L% a/ h! J' E: b& {& y7 \
1546. LDA #$00
      
1547. STA $2000
      
1548. INC $BA
      
1549. INX
      : U* ]9 |6 R0 f
1550. CPX #$07
      
1551. BCC DESTRO
      
1552. RTS
      
1553. 
      
1554. DESTRO_PPU:
      
1555. LDX #$00
      * ^: k1 m, ?2 R$ `) V1 P
1556. LDA #$E9
      3 J) T; |4 O, ^
1557. STA $BA
      2 F9 I7 {, R  c; ~) h
1558. LDA #$21
      
1559. STA $BB
      . O% B' ?! ^" L+ V3 g
1560. 
      ' B& ^! w6 t) e% A) Q) ^
1561. 
      2 e3 b. u4 h* ^  \8 p# }% Q, q: b
1562. JSR B_PPU
      
1563. JSR DESTRO_WRITE
      
1564. LDX #$00
      
1565. LDA $079F
      
1566. AND #$40
      
1567. JSR ON_OFF_PPU
      : Q& t1 t7 J& L: D
1568. RTS
      0 T! `( P6 B5 Y
1569. 
      
1570. 
      
1571. EQUBUL_STRING:
      ! i* H( Y. D8 U) w) U' p
1572. .BYTE $8F,$9B,$9F,$8C,$9F,$96,$80
      4 f2 I. |6 @8 l3 [0 R) Q3 f
1573. 
      
1574. 
      
1575. EQUBUL_WRITE:
      & }. \8 y3 p- ^
1576. LDX #$00
      
1577. EQUBUL:
      
1578. JSR PPUADDR_PROCESS
      
1579. LDA EQUBUL_STRING,X
      
1580. STA $2007
      
1581. LDA #$00
      
1582. STA $2000
      $ E9 ~3 y: E' a8 {, ~+ \4 X
1583. INC $BA
      
1584. INX
      . W6 T  K3 {9 A/ V4 `  A
1585. CPX #$07
      
1586. BCC EQUBUL
      ' Y, }1 q6 u5 l2 I, K) T7 z5 g3 {
1587. RTS
      
1588. 
      
1589. EQUBUL_PPU:
      $ u' I: G; m+ h" \
1590. LDX #$00
      
1591. LDA #$29
      
1592. STA $BA
      
1593. LDA #$22
      
1594. STA $BB
      . g7 _  ]2 a% x$ \
1595. 
      3 j! a) \5 D& i
1596. 
      # c' [- t. n) ?8 ?8 I
1597. JSR A_PPU
      
1598. JSR EQUBUL_WRITE
      0 K$ j1 t( j* w9 w  W
1599. LDX #$00
      5 p1 l: n+ j! T( F" E
1600. LDA $079F
      
1601. AND #$80
      
1602. JSR ON_OFF_PPU
      
1603. RTS
      
1604. 
      5 R. O6 p' H  r; s% Y
1605. 
      
1606. 
      
1607. BULSEL_UP_STRING:
      
1608. .BYTE $9F,$9A,$80,$9E,$99,$80,$9D,$9D,$80
      " m& a% m* O: M$ f* y9 F
1609. 
      % C# v) m" U: h
1610. BULSEL_DN_STRING:
      
1611. .BYTE $8E,$98,$80,$9E,$99,$80,$9D,$96,$80
      
1612. 
      
1613. BULSEL_LF_STRING:
      
1614. .BYTE $96,$90,$80,$9E,$99,$80,$9D,$97,$80
      
1615. 
      
1616. BULSEL_RG_STRING:
      
1617. .BYTE $9C,$91,$80,$9E,$99,$80,$9D,$90,$80
      
1618. 
      6 V, y9 C3 n: Z" g9 ^: W
1619. BULSEL_B_STRING:
      / ~: B) v- F5 ^6 |
1620. .BYTE $80,$8C,$80,$9E,$99,$80,$9D,$98,$80
      ' C8 i( J3 y+ B
1621. 
      - ]4 j& W" I* _7 n- ?
1622. BULSEL_A_STRING:
      
1623. .BYTE $80,$8B,$80,$9E,$99,$80,$8D,$99,$97,$97,$99,$98,$80,$9D,$9A,$8F,$8F,$8E
      1 s4 I6 F# @! |
1624. 
      ; T% r" r/ F3 U( D' O4 R8 l" N
1625. 
      . p3 ^( V( ^- b5 e0 Z, `! H9 s) Q
1626. BULSEL_UP_WRITE:
      6 l+ T+ ~  ]2 U7 z4 X
1627. LDX #$00
      
1628. BULSEL_UP:
      ) U% Q4 L4 o% x* C; q
1629. JSR PPUADDR_PROCESS
      & b+ _2 j  ?5 M3 f; p& t
1630. LDA BULSEL_UP_STRING,X
      
1631. STA $2007
      
1632. LDA #$00
      
1633. STA $2000
      
1634. INC $BA
      
1635. INX
      
1636. CPX #$09
      / g/ Q8 j( z$ E
1637. BCC BULSEL_UP
      
1638. RTS
      
1639. BULSEL_DN_WRITE:
      
1640. LDX #$00
      
1641. BULSEL_DN:
      
1642. JSR PPUADDR_PROCESS
      
1643. LDA BULSEL_DN_STRING,X
      
1644. STA $2007
      
1645. LDA #$00
      * V% U* k. Z5 H) m2 a( g& v9 z
1646. STA $2000
        e& d# J" B5 C8 w# W! v
1647. INC $BA
      
1648. INX
      
1649. CPX #$09
      
1650. BCC BULSEL_DN
      7 D1 O1 _* w9 {# M
1651. RTS
      / Y1 F, K8 d; Y, k" {# t
1652. BULSEL_LF_WRITE:
      7 u, f9 k' r# D) `8 \
1653. LDX #$00
      
1654. BULSEL_LF:
      3 ~9 e% j. j8 |7 d: X/ v
1655. JSR PPUADDR_PROCESS
      
1656. LDA BULSEL_LF_STRING,X
      
1657. STA $2007
      
1658. LDA #$00
      
1659. STA $2000
      
1660. INC $BA
      + z4 U: Z/ t/ K/ w  ]% e# h
1661. INX
      ; B9 g% L" [2 W& r
1662. CPX #$09
      * \) g) u1 X& A0 f$ O7 H6 l6 n
1663. BCC BULSEL_LF
      5 J: J4 J/ y5 i3 K
1664. RTS
      
1665. BULSEL_RG_WRITE:
      . }1 N: S! D: {; j; T2 _+ y/ F
1666. LDX #$00
      % I+ U  Z4 y; z9 o+ g
1667. BULSEL_RG:
      
1668. JSR PPUADDR_PROCESS
      
1669. LDA BULSEL_RG_STRING,X
      
1670. STA $2007
      
1671. LDA #$00
      # D" M. W8 _+ k7 f7 C/ C
1672. STA $2000
      6 i. X2 G( r9 v1 r
1673. INC $BA
      0 I/ G; G/ ]1 I$ {8 N% G8 b
1674. INX
      
1675. CPX #$09
      
1676. BCC BULSEL_RG
      8 r. Y& a* z! d
1677. RTS
      9 M4 P2 R( `  s% H9 p$ }
1678. BULSEL_B_WRITE:
      - ~& s( \2 F& M) s: F
1679. LDX #$00
      4 c  z7 R( C1 o  o5 ?3 |
1680. BULSEL_B:
      
1681. JSR PPUADDR_PROCESS
      
1682. LDA BULSEL_B_STRING,X
      
1683. STA $2007
      
1684. LDA #$00
      
1685. STA $2000
      / a  T! F% v! J  n) m5 H  C
1686. INC $BA
      6 w0 h" Z" D, U
1687. INX
      
1688. CPX #$09
      ) Q0 @0 M7 M8 U' S7 A& n/ [$ @# h; C
1689. BCC BULSEL_B
      
1690. RTS
      
1691. BULSEL_A_WRITE:
      
1692. LDX #$00
      
1693. BULSEL_A:
      
1694. JSR PPUADDR_PROCESS
      
1695. LDA BULSEL_A_STRING,X
      # v% ?/ h9 ?) c7 ?1 m; l$ G0 q
1696. STA $2007
      
1697. LDA #$00
      ' `9 z( `% x( a: k9 D
1698. STA $2000
      
1699. INC $BA
      ( f5 p% `. R0 x1 _9 u
1700. INX
      ) m* j# y- [* o; i. f
1701. CPX #$12
      
1702. BCC BULSEL_A
      
1703. RTS
      ) \) W3 [* m4 R
1704. 
      0 D: A% [; C" G. a6 d
1705. 
      
1706. 
      
1707. BULSEL_PPU:
      
1708. LDA #$6C
      
1709. STA $BA
      
1710. LDA #$21
      . U& F( `# @! p( K4 N( s
1711. STA $BB
      8 p- u3 @9 l, d, m' [
1712. JSR BULSEL_UP_WRITE
        f, o9 W) k2 Q* }
1713. 
      0 |7 N7 S$ d# o8 [
1714. LDA #$AC
      
1715. STA $BA
        Q8 f4 r. c8 e! }8 U- t3 t7 ]& X7 k
1716. LDA #$21
      
1717. STA $BB
      
1718. JSR BULSEL_DN_WRITE
      
1719. 
      ) I: p1 D. k0 c- j( o) m
1720. LDA #$EC
      
1721. STA $BA
      
1722. LDA #$21
      
1723. STA $BB
      1 z! @7 v: c; k& k5 ]+ t4 F
1724. JSR BULSEL_LF_WRITE
      / U- q9 q& f/ V6 I; N' x0 \' d
1725. 
      
1726. LDA #$2C
      ; D' ?  x' G. h2 r) g
1727. STA $BA
      9 s; O3 D6 j! t- P
1728. LDA #$22
      . k) y/ U) `8 G+ m. @
1729. STA $BB
      
1730. JSR BULSEL_RG_WRITE
      3 _, j5 ]0 ~: |7 t6 V  d' K
1731. 
      
1732. LDA #$6C
      ' S2 W  m. S. V( _
1733. STA $BA
      & b7 z/ j/ D  N7 y0 w& P& D
1734. LDA #$22
      ( I; j2 v  C2 m! w# X
1735. STA $BB
      
1736. JSR BULSEL_B_WRITE
      3 {# C( X  ~; s/ \" x, h
1737. 
      
1738. LDA #$A7
      
1739. STA $BA
      
1740. LDA #$22
      
1741. STA $BB
      ( F4 [8 v% B( K6 d, i- p
1742. JSR BULSEL_A_WRITE
      8 w9 ~' ?  E* _1 K5 f, c
1743. RTS
      " u% W9 U3 ^9 i) Q& s; B" v* V5 Z/ s' ]
1744. 
      6 N( y( Y% F' F7 Y/ k
1745. 
      . n$ L2 E4 d% |# y
1746. 
      
1747. UP_STRING:
      4 i& L/ T% B+ Z  f. G9 V& [: v# X
1748. .BYTE $9F,$9A,$80
      
1749. 
      
1750. DN_STRING:
      ; w. o6 l, y3 C
1751. .BYTE $8E,$98,$80
      # u9 k7 Q6 R) F& h" |: a
1752. 
      2 U1 J8 K4 U( y5 }* P2 Z3 `+ {
1753. LF_STRING:
      " K; o2 q% T& I. }2 e5 l4 b
1754. .BYTE $96,$90,$80
      & j: R3 x+ h* `3 l* |& q* x
1755. 
      2 j% J4 g8 a- b3 k# [
1756. RG_STRING:
      
1757. .BYTE $9C,$91,$80
      ' o1 E8 k$ H% E) I  F& }) v5 P  b
1758. 
      + @8 K+ o6 j7 b2 f- x5 Z( ^! p
1759. B_STRING:
      
1760. .BYTE $80,$8C,$80
      
1761. 
      / O- Y( `2 j. b
1762. A_STRING:
      , ~5 g' c& d3 R- P4 a
1763. .BYTE $80,$8B,$80
      ( C/ Z9 G! _8 \
1764. 
      
1765. 
      9 [3 X" F, `/ I5 z& ?8 L
1766. UP_WRITE:
      4 [( t3 b6 ^; t7 I
1767. LDX #$00
      
1768. UP:
      
1769. JSR PPUADDR_PROCESS
      
1770. LDA UP_STRING,X
      
1771. STA $2007
      6 o. S* ^$ F9 z0 }( u
1772. LDA #$00
      4 Z7 Y6 c( B3 P- ~/ W
1773. STA $2000
      
1774. INC $BA
      8 q. {1 \+ s* Q" A" A
1775. INX
      - {' S( e! ~* p9 P8 g
1776. CPX #$03
      
1777. BCC UP
      
1778. RTS
      
1779. 
      
1780. DN_WRITE:
      # r" K* e. r( K3 h1 ]+ F  I! `
1781. LDX #$00
      
1782. DN:
      
1783. JSR PPUADDR_PROCESS
      
1784. LDA DN_STRING,X
      ' L; s# r& y& U* K! n; f' P) G9 T+ Q
1785. STA $2007
      
1786. LDA #$00
      ; `$ a: R2 y" I5 n. e- H
1787. STA $2000
      : g: f% Y1 t! O: P# d
1788. INC $BA
      " Q3 a5 H. S; q1 s  y0 f
1789. INX
      7 I! o  s$ x0 |$ N+ o- y9 ?
1790. CPX #$03
      ! R+ m4 s: l" V4 Z- ?6 S3 |2 [
1791. BCC DN
      3 X% A& I; C6 W7 Z' o
1792. RTS
      * o, a6 x; A1 K  p
1793. 
      
1794. LF_WRITE:
      * J; Q! ?$ g/ `9 L/ Y' `
1795. LDX #$00
      
1796. LF:
      
1797. JSR PPUADDR_PROCESS
      
1798. LDA LF_STRING,X
      - k8 L" r, N9 E4 Y/ d' n* d+ r
1799. STA $2007
      
1800. LDA #$00
      ; j4 ~$ Z- k; G- E! A1 E
1801. STA $2000
      ( |4 s9 u- J1 }4 \1 i
1802. INC $BA
      
1803. INX
      " e' v( E. @0 d' I+ V, J' a) x
1804. CPX #$03
      
1805. BCC LF
      3 G1 Q* V. G4 Y! N1 c. G
1806. RTS
      9 A' n, _0 k3 z3 ^' Y8 l
1807. 
      
1808. RG_WRITE:
      - q* W& N0 m( e$ B' i7 W
1809. LDX #$00
      
1810. RG:
      " U! ^" t3 T; K* c5 D: [
1811. JSR PPUADDR_PROCESS
      9 o9 Q  A: {* ~% \  @
1812. LDA RG_STRING,X
      " i% V; }5 J& K+ T+ M
1813. STA $2007
      - x: B' X1 ?/ [( `) N
1814. LDA #$00
      
1815. STA $2000
      
1816. INC $BA
      ! p+ ^* N* g% z0 c0 r
1817. INX
      6 L& i2 q$ x3 [# q
1818. CPX #$03
      , C1 a9 P$ o( @
1819. BCC RG
      ' m' A: w3 D' [
1820. RTS
      - r8 V  R& j& w
1821. 
      0 |8 G4 j2 c% Z; a1 R+ ]
1822. B_WRITE:
      ' k6 ~2 m/ u4 K! _& w7 m4 v3 {
1823. LDX #$00
      0 y$ K  M; L5 S( B& ?9 S; \
1824. B:
      
1825. JSR PPUADDR_PROCESS
      6 v4 h( b! T1 z$ ]- w3 F& I* ?
1826. LDA B_STRING,X
      
1827. STA $2007
      $ ?4 m7 f0 @7 g7 m  O9 T. J
1828. LDA #$00
      ; f& f6 t% O& R& o, h4 Z
1829. STA $2000
      - n! [, W9 ?" h& A; U6 B
1830. INC $BA
      ! B% }: p6 v' z2 M
1831. INX
      
1832. CPX #$03
      0 J* E- I2 l7 x- ~
1833. BCC B
      $ X* R9 J7 r: b) ]' R: w$ |$ U7 T
1834. RTS
      ) |  h6 X- s3 u
1835. 
      $ |2 e8 G  a2 a; ^$ g6 w) m
1836. A_WRITE:
      
1837. LDX #$00
      3 M( h! j9 O+ r; o6 Q/ c, c: F
1838. A:
      & @  j4 U) S7 S: @: h$ f6 Q* {
1839. JSR PPUADDR_PROCESS
      ( @& r3 J/ J. A0 Z7 f
1840. LDA A_STRING,X
      
1841. STA $2007
      
1842. LDA #$00
      . g$ `; e3 V7 c5 b; ]$ l
1843. STA $2000
      0 l9 |+ i' I/ r# Q2 {2 q" G
1844. INC $BA
      
1845. INX
      
1846. CPX #$03
      
1847. BCC A
      . y& I. x: W! i# H1 J) `
1848. RTS
      
1849. 
      
1850. 
      : V6 H/ R0 l; N  }# Q
1851. UP_PPU:
      
1852. JSR UP_WRITE
      * b' c* _9 q5 L1 J' A
1853. RTS
      
1854. 
      8 P, A5 h. ]9 L$ X2 \
1855. DN_PPU:
      
1856. JSR DN_WRITE
      
1857. RTS
        P; E; @& b! r5 V3 _
1858. 
      ( D1 y) [7 U# g- N) z, N+ S
1859. LF_PPU:
      # i' ]' \/ F  L% o& }. @
1860. JSR LF_WRITE
      
1861. RTS
      ) Z5 Y# Y) y) ]6 N
1862. 
      
1863. RG_PPU:
      ' j  W) C$ t/ D: n5 D
1864. JSR RG_WRITE
      ( A0 d% @2 x( ?1 y, j
1865. RTS
      
1866. 
      6 B# |" @+ [  e, y
1867. B_PPU:
      
1868. JSR B_WRITE
      
1869. RTS
      ) [3 b5 |0 p9 K: Y9 j$ O! \+ y
1870. 
      
1871. A_PPU:
      
1872. JSR A_WRITE
      7 [: k' ~2 p4 F/ W$ |3 B
1873. RTS
      / N; P& V! n- S3 v, T
1874. 
      
1875. 
      % L6 f% Q1 a  u( S1 S4 r/ H
1876. PAGESELECT:
      5 G' t4 i, A$ ]- o% W6 Q8 P
1877. PAGE0:
      " s- V+ `6 S# C3 ^
1878. LDA $07AA
      
1879. CMP #$00
      9 z/ r9 \6 t# e) X
1880. BNE PAGE1
      
1881. 
      
1882. PAGE_00:
      
1883. JSR BULSEL_PPU
      + p4 x7 C5 h$ B( i
1884. RTS
      5 y4 o' ~+ Z* k, y; A
1885. 
      
1886. PAGE1:
      ( L9 B( B& P  Q5 H, W% x
1887. LDA $07AA
      4 J% ~8 c! w- @5 j6 b( h3 o
1888. CMP #$01
      
1889. BNE PAGE2
      8 ~2 e% R5 m/ H1 C/ ^/ S) J" w
1890. 
      
1891. PAGE_01:
      0 E7 |0 h; Q6 `- B9 w2 `
1892. JSR INVINC_PPU
      5 ]1 \; \4 I$ p1 b: k* |
1893. JSR LIFELC15_PPU
      + P" j" ^- T# y* X) y
1894. JSR DOUCON_PPU
      
1895. JSR KILLON_PPU
      
1896. JSR SKYFLY_PPU
      
1897. JSR LIFELOW_PPU
      ( Z3 d, V) [5 i( C9 w5 f
1898. RTS
      
1899. 
      6 N, }1 i8 Z0 U  Q8 S3 Q( j% [
1900. PAGE2:
      + o: j0 N7 U3 n
1901. LDA $07AA
      ; {- \6 v. W9 O  Q+ Z; n7 ?) W
1902. CMP #$02
      
1903. BNE PAGE3
      
1904. 
      1 k! x9 Q" n. g7 `- W
1905. PAGE_02:
      7 h) V" t/ l) G
1906. JSR BULADD_PPU
      
1907. JSR SKINGE_PPU
      % y8 J' a+ o* V
1908. JSR BULMIX_PPU
      
1909. JSR ENELOC_PPU
      ' @! f+ `  J+ N: T# `& m& H0 b" r
1910. JSR FOCFUL_PPU
      
1911. RTS
      
1912. 
      
1913. PAGE3:
      
1914. LDA $07AA
      - F+ Y' Q" X, ~8 d) t, ~7 p
1915. CMP #$03
      
1916. BNE PAGE4
      
1917. 
      8 ]/ N+ S# ~' f, Z6 {/ i  G
1918. PAGE_03:
      8 w; w4 s5 h- v; E0 f# `
1919. JSR BULCON_PPU
        s" l: C: P6 L' \* G% d
1920. JSR SPEBUL_PPU
      ' j% z  M& Y8 T( I9 q/ V
1921. JSR CLEALL_PPU
      4 u# L1 g3 B. Y) N; Q4 [2 e3 p% ^7 q
1922. JSR HARDMODE_PPU
      
1923. JSR B_TO_JMPSTG_PPU
      & H+ y$ y0 a9 v
1924. JSR A_TO_PLAMOD_PPU
        Z, j! {7 K2 n# C; y& e+ P9 @7 O8 `$ h
1925. RTS
        i, J/ G: e6 a. R& J
1926. 
      8 b+ m9 L% w6 B. O4 |  w9 P0 w3 j& C4 n
1927. PAGE4:
      
1928. LDA $07AA
      
1929. CMP #$04
      / k# t2 L; V$ l  d' w
1930. BNE PAGERTS
      
1931. 
      ; j$ W0 x( t3 L# B+ f! \- \
1932. PAGE_04:
      4 p- F. q% Q2 R
1933. JSR MOVSPE_PPU
      ) G% G( n4 b1 u4 N1 s, Q; x# n
1934. JSR UNLJMP_PPU
        O3 _* L  R% {* h8 ]" u
1935. JSR DESTRO_PPU
      - d4 v( b$ M4 k8 x7 l2 ]- {2 Z
1936. JSR EQUBUL_PPU
      
1937. JSR MOVESPEED_PPU
      8 S& b' k, W7 L
1938. PAGERTS:
      
1939. RTS
      ; i! Z" ~" G5 R8 R  |7 z
1940. 
      
1941. 
      $ _4 k% e- q1 @* c) V$ h' X
1942. PLAYER_01_STRING:
      1 W! k3 w% H  p7 Q
1943. .BYTE $9A,$96,$8B,$A3,$8F,$9C,$80,$81,$82,$80
      
1944. 
      5 Z& k: w. J8 {5 Z8 s6 ~
1945. 
      4 S* @3 w+ @. H+ U2 r  u; U
1946. PLAYER_01_WRITE:
      ) n/ j* R4 _) }
1947. LDX #$00
      
1948. PLAYER_01:
      0 E( @. F  n$ H3 _, ^: X8 w
1949. JSR PPUADDR_PROCESS
      
1950. LDA PLAYER_01_STRING,X
      0 c1 o. ^  E. Z; z1 p0 H$ i
1951. STA $2007
      
1952. LDA #$00
      $ J$ w+ d7 x+ V2 n$ i
1953. STA $2000
      
1954. INC $BA
      9 S1 t# A% W3 n3 ]2 ?! S
1955. INX
      
1956. CPX #$0A
      
1957. BCC PLAYER_01
      
1958. RTS
      
1959. 
      
1960. PLAYER_01_PPU:
      
1961. LDX #$00
      8 O+ S3 W; |5 o; X/ _8 E: J
1962. LDA #$64
      
1963. STA $BA
      + i+ d0 q2 e7 o8 l9 d+ z1 S" e
1964. LDA #$20
      
1965. STA $BB
      8 [" C2 K: j, K  i" Y
1966. JSR PLAYER_01_WRITE
      
1967. RTS
      
1968. 
      
1969. PLAYER_02_STRING:
      ' R# {) z$ i5 o; a" v& i" q) @! u& S
1970. .BYTE $9A,$96,$8B,$A3,$8F,$9C,$80,$81,$83,$80
      + Q( ^2 `5 k+ d4 _, p" }
1971. 
      2 m7 b. Q* {4 a0 W! w; _) j! o
1972. 
      
1973. PLAYER_02_WRITE:
      
1974. LDX #$00
      6 \5 t% l' [" m: F& h# V
1975. PLAYER_02:
      $ i# j7 s, i0 M) L, [0 [. e
1976. JSR PPUADDR_PROCESS
      ; y: c. `$ ]9 u+ ~
1977. LDA PLAYER_02_STRING,X
      
1978. STA $2007
      , X/ {: c7 s& J! p. {$ m- Q. W( G
1979. LDA #$00
      
1980. STA $2000
      5 n4 l; ^2 f# T. T
1981. INC $BA
      
1982. INX
      
1983. CPX #$0A
      
1984. BCC PLAYER_02
      ) ^& P! t0 b, ]8 b5 Q
1985. RTS
        s5 d' P: X+ |0 _( _! ~
1986. 
      2 e, n7 ^7 l- N+ _' o
1987. PLAYER_02_PPU:
      
1988. LDX #$00
        W( s" e+ w8 B1 @: q4 v
1989. LDA #$73
      
1990. STA $BA
      ! z0 `5 O% x# t4 P9 T  B
1991. LDA #$20
      ( w+ u) M  D' w! `) C
1992. STA $BB
      
1993. JSR PLAYER_02_WRITE
      
1994. RTS
      ) M. U1 u7 Y( w# v! t
1995. 
      ' Y' H. Y: K& O" W3 g
1996. PPUADDR_PROCESS:
      / l6 q9 D4 M  c$ T: s! S/ d7 K" t
1997. LDA $BB
      # G- y3 Q* V# W" i
1998. STA $2006
      
1999. LDA $BA
      
2000. STA $2006
      
2001. RTS
      
2002. 
      
2003. 
      4 c6 J3 f0 s& b/ q7 V0 u% L
2004. 
      3 ^" C" B# z$ q9 s( v0 P+ i; H
2005. ONE_STRING:
      " E: ^% [* L9 X9 X0 ^/ Z
2006. .BYTE $99,$98,$8F
      
2007. 
      3 X2 d4 h; C/ Y+ t$ A" w
2008. TWO_STRING:
      9 e! r! d$ ]/ X6 _: o$ g9 i
2009. .BYTE $9E,$A1,$99
      
2010. 
      
2011. ONE_TWO_PPU:
      
2012. BNE ONEWR
      
2013. TWOWR:
      
2014. JSR PPUADDR_PROCESS
      / s7 u9 F! `; U
2015. LDA TWO_STRING,X
      5 u! H, a1 c  r8 ~9 ]2 X/ n+ U
2016. STA $2007
      
2017. INC $BA
      
2018. INX
      * e& C1 B# e3 h$ x
2019. CPX #$03
      8 D0 Z6 L' m) m; K& O) P* x
2020. BCC TWOWR
      + Z+ p# t; j) ]
2021. RTS
      / y3 J, c+ E) d+ {, Q0 D
2022. ONEWR:
      
2023. JSR PPUADDR_PROCESS
      2 k5 z. S" V; B0 @, d: n, a
2024. LDA ONE_STRING,X
      
2025. STA $2007
      
2026. INC $BA
      
2027. INX
      # ^' @0 Z. G( {7 p/ h0 V( H5 v8 d
2028. CPX #$03
      
2029. BCC ONEWR
      
2030. RTS
      ' I7 }; V+ W: j  r+ Y- M
2031. 
      ' Z& J* r4 p+ _  e4 a" A* A
2032. MOVESPEED_STRING:
      
2033. .BYTE $97,$99,$A0,$8F,$80,$9D,$9A,$8F,$8F,$8F,$80
      . g7 Z7 X0 `. F9 B( n  ?8 `/ ]
2034. 
      
2035. 
      ) _; _  j  a3 q! O; x
2036. MOVESPEED_WRITE:
      . _% H- Y- }6 V$ `. P
2037. LDX #$00
      ! J/ z9 r' f' t3 A9 y6 K0 b
2038. MOVESPEED:
      2 H: \$ L' N- x3 [9 f3 S
2039. JSR PPUADDR_PROCESS
      
2040. LDA MOVESPEED_STRING,X
      
2041. STA $2007
      
2042. LDA #$00
      / V0 s: K& r5 Q' Q
2043. STA $2000
      ) m9 K, ~' o5 j& o
2044. INC $BA
      
2045. INX
      / y: T( y1 Z* i' R, @" n
2046. CPX #$0B
      
2047. BCC MOVESPEED
      0 C5 }4 q) Q# v4 k
2048. RTS
      ' P3 f4 K- l3 d' H" n+ ?
2049. 
      8 I6 i& B4 a% k
2050. MOVESPEED_PPU:
      
2051. LDX #$00
      
2052. LDA #$AA
      
2053. STA $BA
      0 x* X" R6 V. q7 ^. v
2054. LDA #$22
      % y9 l) m; x9 G. s( Q9 F8 W8 e) w
2055. STA $BB
      
2056. JSR MOVESPEED_WRITE
      
2057. LDA $7003
      7 e' M1 L: ?: ^
2058. CLC
      
2059. ADC #$82
      ! p. c! x1 t7 W
2060. STA $2007
      $ c8 M" c, N, B9 \5 A7 V
2061. RTS
      , [- {- E) V  f# M4 }

复制代码

hanjungex

真是太強了,感覺樓主可以直接當D商了.

huanhuan05

不错谢谢分享！

liujunbtx

这个修改好厉害、、、、

afti

非常强大的修改！

kexiao1223

好东西，收下了

ckc7213

太强了！佩服佩服！

nmclib1

这修改太全面了 ，

wjb19780515

这东西找了好久勒,谢谢!!
8 k9 o* z9 b4 \/ j5 {& v$ N2 L# K. {

tariq017

感谢楼主分享

datone

感谢楼主分享

qinxitong

谢谢分享

yoyo2720

看上去好复杂