SHARE
TWEET

Untitled

a guest Jan 24th, 2020 62 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
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
Top