Guest User

Untitled

a guest
Jan 24th, 2020
68
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ; ----------------------------------------------------------------------------
  2. L4E4D := $4E4D
  3. L6E6D := $6E6D
  4. LA03F := $A03F
  5. LA333 := $A333
  6. LAC87 := $AC87
  7. LCEC1 := $CEC1
  8. LCF1B := $CF1B
  9. LCF2F := $CF2F
  10. LCF99 := $CF99
  11. LCFA0 := $CFA0
  12. LD720 := $D720
  13. LD76E := $D76E
  14. LDA0D := $DA0D
  15. ; ----------------------------------------------------------------------------
  16. lda $2E ; F13F A5 2E ..
  17. asl a ; F141 0A .
  18. tay ; F142 A8 .
  19. lda LF476,y ; F143 B9 76 F4 .v.
  20. and #$07 ; F146 29 07 ).
  21. sta $2C ; F148 85 2C .,
  22. jsr LCF1B ; F14A 20 1B CF ..
  23. lda LF477,y ; F14D B9 77 F4 .w.
  24. asl a ; F150 0A .
  25. asl a ; F151 0A .
  26. asl a ; F152 0A .
  27. tax ; F153 AA .
  28. lda $8007,x ; F154 BD 07 80 ...
  29. ldy $8006,x ; F157 BC 06 80 ...
  30. bne LF15F ; F15A D0 03 ..
  31. sec ; F15C 38 8
  32. sbc #$01 ; F15D E9 01 ..
  33. LF15F: dey ; F15F 88 .
  34. pha ; F160 48 H
  35. tya ; F161 98 .
  36. pha ; F162 48 H
  37. lda $8008,x ; F163 BD 08 80 ...
  38. sta $30 ; F166 85 30 .0
  39. lda $8009,x ; F168 BD 09 80 ...
  40. sta $31 ; F16B 85 31 .1
  41. lda $800A,x ; F16D BD 0A 80 ...
  42. sta $32 ; F170 85 32 .2
  43. lda $800B,x ; F172 BD 0B 80 ...
  44. sta $33 ; F175 85 33 .3
  45. lda #$00 ; F177 A9 00 ..
  46. sta $04CB ; F179 8D CB 04 ...
  47. sta $04CC ; F17C 8D CC 04 ...
  48. sta $04C9 ; F17F 8D C9 04 ...
  49. sta $04CA ; F182 8D CA 04 ...
  50. sta $04D3 ; F185 8D D3 04 ...
  51. sta $04D4 ; F188 8D D4 04 ...
  52. lda #$80 ; F18B A9 80 ..
  53. sta $0749 ; F18D 8D 49 07 .I.
  54. rts ; F190 60 `
  55.  
  56. ; ----------------------------------------------------------------------------
  57. lda #$FF ; F191 A9 FF ..
  58. sta $8007 ; F193 8D 07 80 ...
  59. lda #$1F ; F196 A9 1F ..
  60. sta $2B ; F198 85 2B .+
  61. sta $9FFF ; F19A 8D FF 9F ...
  62. lsr a ; F19D 4A J
  63. sta $9FFF ; F19E 8D FF 9F ...
  64. lsr a ; F1A1 4A J
  65. sta $9FFF ; F1A2 8D FF 9F ...
  66. lsr a ; F1A5 4A J
  67. sta $9FFF ; F1A6 8D FF 9F ...
  68. lsr a ; F1A9 4A J
  69. sta $9FFF ; F1AA 8D FF 9F ...
  70. lda #$00 ; F1AD A9 00 ..
  71. sta $B000 ; F1AF 8D 00 B0 ...
  72. lsr a ; F1B2 4A J
  73. sta $B000 ; F1B3 8D 00 B0 ...
  74. lsr a ; F1B6 4A J
  75. sta $B000 ; F1B7 8D 00 B0 ...
  76. lsr a ; F1BA 4A J
  77. sta $B000 ; F1BB 8D 00 B0 ...
  78. lsr a ; F1BE 4A J
  79. sta $B000 ; F1BF 8D 00 B0 ...
  80. lda #$00 ; F1C2 A9 00 ..
  81. sta $DFFF ; F1C4 8D FF DF ...
  82. lsr a ; F1C7 4A J
  83. sta $DFFF ; F1C8 8D FF DF ...
  84. lsr a ; F1CB 4A J
  85. sta $DFFF ; F1CC 8D FF DF ...
  86. lsr a ; F1CF 4A J
  87. sta $DFFF ; F1D0 8D FF DF ...
  88. lsr a ; F1D3 4A J
  89. sta $DFFF ; F1D4 8D FF DF ...
  90. lda #$00 ; F1D7 A9 00 ..
  91. sta LFFFF ; F1D9 8D FF FF ...
  92. lsr a ; F1DC 4A J
  93. sta LFFFF ; F1DD 8D FF FF ...
  94. lsr a ; F1E0 4A J
  95. sta LFFFF ; F1E1 8D FF FF ...
  96. lsr a ; F1E4 4A J
  97. sta LFFFF ; F1E5 8D FF FF ...
  98. lsr a ; F1E8 4A J
  99. sta LFFFF ; F1E9 8D FF FF ...
  100. rts ; F1EC 60 `
  101.  
  102. ; ----------------------------------------------------------------------------
  103. lda $2B ; F1ED A5 2B .+
  104. sta $9FFF ; F1EF 8D FF 9F ...
  105. lsr a ; F1F2 4A J
  106. sta $9FFF ; F1F3 8D FF 9F ...
  107. lsr a ; F1F6 4A J
  108. sta $9FFF ; F1F7 8D FF 9F ...
  109. lsr a ; F1FA 4A J
  110. sta $9FFF ; F1FB 8D FF 9F ...
  111. lsr a ; F1FE 4A J
  112. sta $9FFF ; F1FF 8D FF 9F ...
  113. rts ; F202 60 `
  114.  
  115. ; ----------------------------------------------------------------------------
  116. inc $0469 ; F203 EE 69 04 .i.
  117. sta $06 ; F206 85 06 ..
  118. sty $07 ; F208 84 07 ..
  119. ldy #$00 ; F20A A0 00 ..
  120. lda ($06),y ; F20C B1 06 ..
  121. sta $28 ; F20E 85 28 .(
  122. iny ; F210 C8 .
  123. lda ($06),y ; F211 B1 06 ..
  124. sec ; F213 38 8
  125. sbc #$01 ; F214 E9 01 ..
  126. sta $29 ; F216 85 29 .)
  127. ldy #$F1 ; F218 A0 F1 ..
  128. LF21A: lda ($28),y ; F21A B1 28 .(
  129. sta $0320,y ; F21C 99 20 03 . .
  130. iny ; F21F C8 .
  131. bne LF21A ; F220 D0 F8 ..
  132. inc $29 ; F222 E6 29 .)
  133. ldy #$02 ; F224 A0 02 ..
  134. lda ($06),y ; F226 B1 06 ..
  135. sta $22 ; F228 85 22 ."
  136. jsr LCEC1 ; F22A 20 C1 CE ..
  137. ldy #$03 ; F22D A0 03 ..
  138. lda ($06),y ; F22F B1 06 ..
  139. sta $0422 ; F231 8D 22 04 .".
  140. sta $0423 ; F234 8D 23 04 .#.
  141. iny ; F237 C8 .
  142. lda ($06),y ; F238 B1 06 ..
  143. sta $0420 ; F23A 8D 20 04 . .
  144. sta $0421 ; F23D 8D 21 04 .!.
  145. ldx #$0A ; F240 A2 0A ..
  146. lda #$FF ; F242 A9 FF ..
  147. LF244: sta $0456,x ; F244 9D 56 04 .V.
  148. dex ; F247 CA .
  149. bpl LF244 ; F248 10 FA ..
  150. ldx #$09 ; F24A A2 09 ..
  151. LF24C: lda #$C0 ; F24C A9 C0 ..
  152. sta $0438,x ; F24E 9D 38 04 .8.
  153. lda #$00 ; F251 A9 00 ..
  154. sta $044C,x ; F253 9D 4C 04 .L.
  155. dex ; F256 CA .
  156. bpl LF24C ; F257 10 F3 ..
  157. dec $0469 ; F259 CE 69 04 .i.
  158. rts ; F25C 60 `
  159.  
  160. ; ----------------------------------------------------------------------------
  161. lda #$00 ; F25D A9 00 ..
  162. sta $0523 ; F25F 8D 23 05 .#.
  163. sta $04D7 ; F262 8D D7 04 ...
  164. ldx $066A ; F265 AE 6A 06 .j.
  165. cpx #$04 ; F268 E0 04 ..
  166. bne LF26E ; F26A D0 02 ..
  167. lda #$FF ; F26C A9 FF ..
  168. LF26E: ldx #$3F ; F26E A2 3F .?
  169. LF270: sta $06B9,x ; F270 9D B9 06 ...
  170. dex ; F273 CA .
  171. bpl LF270 ; F274 10 FA ..
  172. rts ; F276 60 `
  173.  
  174. ; ----------------------------------------------------------------------------
  175. lda $1E ; F277 A5 1E ..
  176. and #$E7 ; F279 29 E7 ).
  177. sta $1E ; F27B 85 1E ..
  178. jsr LCF99 ; F27D 20 99 CF ..
  179. ldx #$09 ; F280 A2 09 ..
  180. LF282: lda #$F8 ; F282 A9 F8 ..
  181. sta $042E,x ; F284 9D 2E 04 ...
  182. lda #$C0 ; F287 A9 C0 ..
  183. sta $0438,x ; F289 9D 38 04 .8.
  184. lda #$00 ; F28C A9 00 ..
  185. sta $0424,x ; F28E 9D 24 04 .$.
  186. sta $044C,x ; F291 9D 4C 04 .L.
  187. sta $0442,x ; F294 9D 42 04 .B.
  188. dex ; F297 CA .
  189. bpl LF282 ; F298 10 E8 ..
  190. lda $0698 ; F29A AD 98 06 ...
  191. bpl LF2A4 ; F29D 10 05 ..
  192. lda #$07 ; F29F A9 07 ..
  193. sta $04C5 ; F2A1 8D C5 04 ...
  194. LF2A4: lda #$FF ; F2A4 A9 FF ..
  195. sta $0541 ; F2A6 8D 41 05 .A.
  196. lda #$00 ; F2A9 A9 00 ..
  197. sta $04D5 ; F2AB 8D D5 04 ...
  198. sta $04CD ; F2AE 8D CD 04 ...
  199. sta $04C6 ; F2B1 8D C6 04 ...
  200. sta $0534 ; F2B4 8D 34 05 .4.
  201. sta $065C ; F2B7 8D 5C 06 .\.
  202. jsr LDA0D ; F2BA 20 0D DA ..
  203. lda #$01 ; F2BD A9 01 ..
  204. lda #$00 ; F2BF A9 00 ..
  205. sta $065A ; F2C1 8D 5A 06 .Z.
  206. sta $A7 ; F2C4 85 A7 ..
  207. sta $A8 ; F2C6 85 A8 ..
  208. sta $0657 ; F2C8 8D 57 06 .W.
  209. sta $0658 ; F2CB 8D 58 06 .X.
  210. sta $0659 ; F2CE 8D 59 06 .Y.
  211. ldx #$05 ; F2D1 A2 05 ..
  212. lda #$00 ; F2D3 A9 00 ..
  213. LF2D5: sta $05A5,x ; F2D5 9D A5 05 ...
  214. dex ; F2D8 CA .
  215. bpl LF2D5 ; F2D9 10 FA ..
  216. lda #$00 ; F2DB A9 00 ..
  217. sta $54 ; F2DD 85 54 .T
  218. sta $55 ; F2DF 85 55 .U
  219. lda #$00 ; F2E1 A9 00 ..
  220. ldx #$0F ; F2E3 A2 0F ..
  221. LF2E5: sta $87,x ; F2E5 95 87 ..
  222. dex ; F2E7 CA .
  223. bpl LF2E5 ; F2E8 10 FB ..
  224. jsr LA03F ; F2EA 20 3F A0 ?.
  225. lda $A3E5,x ; F2ED BD E5 A3 ...
  226. sta $52 ; F2F0 85 52 .R
  227. jsr LA03F ; F2F2 20 3F A0 ?.
  228. lda #$88 ; F2F5 A9 88 ..
  229. sta $052A ; F2F7 8D 2A 05 .*.
  230. clc ; F2FA 18 .
  231. adc #$08 ; F2FB 69 08 i.
  232. sta $052B ; F2FD 8D 2B 05 .+.
  233. sta $53 ; F300 85 53 .S
  234. sta $0519 ; F302 8D 19 05 ...
  235. ldx #$04 ; F305 A2 04 ..
  236. stx $0438 ; F307 8E 38 04 .8.
  237. stx $0441 ; F30A 8E 41 04 .A.
  238. lda #$00 ; F30D A9 00 ..
  239. sta $54 ; F30F 85 54 .T
  240. sta $55 ; F311 85 55 .U
  241. sta $054C ; F313 8D 4C 05 .L.
  242. sta $04C6 ; F316 8D C6 04 ...
  243. ldx #$0C ; F319 A2 0C ..
  244. stx $0538 ; F31B 8E 38 05 .8.
  245. jsr LAC87 ; F31E 20 87 AC ..
  246. lda #$00 ; F321 A9 00 ..
  247. sta $2005 ; F323 8D 05 20 ..
  248. sta $2005 ; F326 8D 05 20 ..
  249. sta $0532 ; F329 8D 32 05 .2.
  250. sta $0533 ; F32C 8D 33 05 .3.
  251. ldy #$07 ; F32F A0 07 ..
  252. LF331: lda #$00 ; F331 A9 00 ..
  253. sta $04F9,y ; F333 99 F9 04 ...
  254. sta $0501,y ; F336 99 01 05 ...
  255. sta $0509,y ; F339 99 09 05 ...
  256. sta $0511,y ; F33C 99 11 05 ...
  257. jsr LD720 ; F33F 20 20 D7 .
  258. lda #$00 ; F342 A9 00 ..
  259. jsr LD76E ; F344 20 6E D7 n.
  260. dey ; F347 88 .
  261. bpl LF331 ; F348 10 E7 ..
  262. lda #$04 ; F34A A9 04 ..
  263. sta $0699 ; F34C 8D 99 06 ...
  264. lda #$01 ; F34F A9 01 ..
  265. sta $0536 ; F351 8D 36 05 .6.
  266. lda #$03 ; F354 A9 03 ..
  267. ldy $066A ; F356 AC 6A 06 .j.
  268. cpy #$03 ; F359 C0 03 ..
  269. bne LF35F ; F35B D0 02 ..
  270. lda #$00 ; F35D A9 00 ..
  271. LF35F: sta $053E ; F35F 8D 3E 05 .>.
  272. ldy #$03 ; F362 A0 03 ..
  273. sty $0540 ; F364 8C 40 05 .@.
  274. dey ; F367 88 .
  275. sty $053F ; F368 8C 3F 05 .?.
  276. rts ; F36B 60 `
  277.  
  278. ; ----------------------------------------------------------------------------
  279. inc $0468 ; F36C EE 68 04 .h.
  280. inc $0468 ; F36F EE 68 04 .h.
  281. jsr LCF99 ; F372 20 99 CF ..
  282. inc $0469 ; F375 EE 69 04 .i.
  283. lda $1A ; F378 A5 1A ..
  284. and #$FB ; F37A 29 FB ).
  285. sta $2000 ; F37C 8D 00 20 ..
  286. lda #$26 ; F37F A9 26 .&
  287. sta $2006 ; F381 8D 06 20 ..
  288. lda #$C0 ; F384 A9 C0 ..
  289. sta $2006 ; F386 8D 06 20 ..
  290. ldx #$C0 ; F389 A2 C0 ..
  291. lda #$00 ; F38B A9 00 ..
  292. LF38D: sta $2007 ; F38D 8D 07 20 ..
  293. dex ; F390 CA .
  294. bne LF38D ; F391 D0 FA ..
  295. lda #$26 ; F393 A9 26 .&
  296. sta $06 ; F395 85 06 ..
  297. lda #$EA ; F397 A9 EA ..
  298. sta $07 ; F399 85 07 ..
  299. ldy #$04 ; F39B A0 04 ..
  300. lda $0698 ; F39D AD 98 06 ...
  301. bmi LF3A4 ; F3A0 30 02 0.
  302. ldy #$02 ; F3A2 A0 02 ..
  303. LF3A4: lda $0467 ; F3A4 AD 67 04 .g.
  304. cmp #$6C ; F3A7 C9 6C .l
  305. bne LF3B8 ; F3A9 D0 0D ..
  306. lda $0466 ; F3AB AD 66 04 .f.
  307. cmp #$24 ; F3AE C9 24 .$
  308. bne LF3B8 ; F3B0 D0 06 ..
  309. ldy #$06 ; F3B2 A0 06 ..
  310. lda #$E6 ; F3B4 A9 E6 ..
  311. sta $07 ; F3B6 85 07 ..
  312. LF3B8: lda $02BB,y ; F3B8 B9 BB 02 ...
  313. sta $08 ; F3BB 85 08 ..
  314. lda $02BC,y ; F3BD B9 BC 02 ...
  315. sta $09 ; F3C0 85 09 ..
  316. LF3C2: lda $06 ; F3C2 A5 06 ..
  317. sta $2006 ; F3C4 8D 06 20 ..
  318. lda $07 ; F3C7 A5 07 ..
  319. sta $2006 ; F3C9 8D 06 20 ..
  320. clc ; F3CC 18 .
  321. adc #$20 ; F3CD 69 20 i
  322. sta $07 ; F3CF 85 07 ..
  323. bcc LF3D5 ; F3D1 90 02 ..
  324. inc $06 ; F3D3 E6 06 ..
  325. LF3D5: ldy #$00 ; F3D5 A0 00 ..
  326. LF3D7: lda ($08),y ; F3D7 B1 08 ..
  327. cmp #$FF ; F3D9 C9 FF ..
  328. beq LF401 ; F3DB F0 24 .$
  329. cmp #$FE ; F3DD C9 FE ..
  330. beq LF3F4 ; F3DF F0 13 ..
  331. cmp #$FD ; F3E1 C9 FD ..
  332. bne LF3E9 ; F3E3 D0 04 ..
  333. lda #$00 ; F3E5 A9 00 ..
  334. beq LF3EE ; F3E7 F0 05 ..
  335. LF3E9: asl a ; F3E9 0A .
  336. tax ; F3EA AA .
  337. lda $EF16,x ; F3EB BD 16 EF ...
  338. LF3EE: sta $2007 ; F3EE 8D 07 20 ..
  339. iny ; F3F1 C8 .
  340. bne LF3D7 ; F3F2 D0 E3 ..
  341. LF3F4: iny ; F3F4 C8 .
  342. tya ; F3F5 98 .
  343. clc ; F3F6 18 .
  344. adc $08 ; F3F7 65 08 e.
  345. sta $08 ; F3F9 85 08 ..
  346. bcc LF3C2 ; F3FB 90 C5 ..
  347. inc $09 ; F3FD E6 09 ..
  348. bne LF3C2 ; F3FF D0 C1 ..
  349. LF401: jsr LCFA0 ; F401 20 A0 CF ..
  350. lda #$AD ; F404 A9 AD ..
  351. sta $0300 ; F406 8D 00 03 ...
  352. lda #$01 ; F409 A9 01 ..
  353. sta $0301 ; F40B 8D 01 03 ...
  354. lda #$22 ; F40E A9 22 ."
  355. sta $0302 ; F410 8D 02 03 ...
  356. lda #$F9 ; F413 A9 F9 ..
  357. sta $0303 ; F415 8D 03 03 ...
  358. lda $1A ; F418 A5 1A ..
  359. sta $2000 ; F41A 8D 00 20 ..
  360. lda $1E ; F41D A5 1E ..
  361. and #$FC ; F41F 29 FC ).
  362. ora #$18 ; F421 09 18 ..
  363. sta $1E ; F423 85 1E ..
  364. dec $0469 ; F425 CE 69 04 .i.
  365. rts ; F428 60 `
RAW Paste Data