API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jan 24th, 2020
101
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 28.76 KB | None | 0 0
raw download clone embed print report
  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 `
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!