API tools faq
paste
Advertisement
brunovalads

YI Pinwheel code, I guess

brunovalads
Sep 25th, 2016
311
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
6502 Kick Assembler 36.01 KB | None | 0 0
raw download clone embed print report
  1. ; all of them
  2. main_pinwheel:
  3.   STZ $04                                   ; $04C2F6 |
  4.   LDA $7360,x                               ; $04C2F8 |
  5.   CMP #$0056                                ; $04C2FB |
  6.   BEQ CODE_04C30D                           ; $04C2FE |
  7.   CMP #$0064                                ; $04C300 |
  8.   BNE CODE_04C311                           ; $04C303 |
  9.   LDA $7182,x                               ; $04C305 |
  10.   AND #$0010                                ; $04C308 |
  11.   BNE CODE_04C311                           ; $04C30B |
  12.  
  13. CODE_04C30D:
  14.   INC $04                                   ; $04C30D |
  15.   INC $04                                   ; $04C30F |
  16.  
  17. CODE_04C311:
  18.   JSR CODE_04C332                           ; $04C311 |
  19.   JSL $03AF23                               ; $04C314 |
  20.   LDA $7362,x                               ; $04C318 |
  21.   BMI CODE_04C331                           ; $04C31B |
  22.   LDY $74A2,x                               ; $04C31D |
  23.   BMI CODE_04C331                           ; $04C320 |
  24.   JSR CODE_04C530                           ; $04C322 |
  25.   JSR CODE_04C776                           ; $04C325 |
  26.   JSR CODE_04C574                           ; $04C328 |
  27.   JSR CODE_04C66A                           ; $04C32B |
  28.   JSR CODE_04C7F4                           ; $04C32E |
  29.  
  30. CODE_04C331:
  31.   RTL                                       ; $04C331 |
  32.  
  33. CODE_04C332:
  34.   LDA $7362,x                               ; $04C332 |
  35.   BMI CODE_04C33C                           ; $04C335 |
  36.   LDY $74A2,x                               ; $04C337 |
  37.   BPL CODE_04C33D                           ; $04C33A |
  38.  
  39. CODE_04C33C:
  40.   RTS                                       ; $04C33C |
  41.  
  42. CODE_04C33D:
  43.   LDY $04                                   ; $04C33D |
  44.   JSR CODE_04C433                           ; $04C33F |
  45.   LDA !gsu_r7                               ; $04C342 |
  46.   STA $0C                                   ; $04C345 |
  47.   LDA !gsu_r8                               ; $04C347 |
  48.   STA $0E                                   ; $04C34A |
  49.   LDA $7680,x                               ; $04C34C |
  50.   CLC                                       ; $04C34F |
  51.   ADC #$0008                                ; $04C350 |
  52.   STA $08                                   ; $04C353 |
  53.   LDA $7682,x                               ; $04C355 |
  54.   STA $0A                                   ; $04C358 |
  55.   REP #$10                                  ; $04C35A |
  56.   LDY $7362,x                               ; $04C35C |
  57.   LDA $08                                   ; $04C35F |
  58.   CLC                                       ; $04C361 |
  59.   ADC !gsu_r8                               ; $04C362 |
  60.   SEC                                       ; $04C365 |
  61.   SBC $00                                   ; $04C366 |
  62.   STA $6000,y                               ; $04C368 |
  63.   CLC                                       ; $04C36B |
  64.   ADC $02                                   ; $04C36C |
  65.   STA $6008,y                               ; $04C36E |
  66.   LDA $08                                   ; $04C371 |
  67.   CLC                                       ; $04C373 |
  68.   ADC !gsu_r7                               ; $04C374 |
  69.   SEC                                       ; $04C377 |
  70.   SBC $00                                   ; $04C378 |
  71.   STA $6010,y                               ; $04C37A |
  72.   CLC                                       ; $04C37D |
  73.   ADC $02                                   ; $04C37E |
  74.   STA $6018,y                               ; $04C380 |
  75.   LDA $08                                   ; $04C383 |
  76.   SEC                                       ; $04C385 |
  77.   SBC !gsu_r8                               ; $04C386 |
  78.   SEC                                       ; $04C389 |
  79.   SBC $00                                   ; $04C38A |
  80.   STA $6020,y                               ; $04C38C |
  81.   CLC                                       ; $04C38F |
  82.   ADC $02                                   ; $04C390 |
  83.   STA $6028,y                               ; $04C392 |
  84.   LDA $08                                   ; $04C395 |
  85.   SEC                                       ; $04C397 |
  86.   SBC !gsu_r7                               ; $04C398 |
  87.   SEC                                       ; $04C39B |
  88.   SBC $00                                   ; $04C39C |
  89.   STA $6030,y                               ; $04C39E |
  90.   CLC                                       ; $04C3A1 |
  91.   ADC $02                                   ; $04C3A2 |
  92.   STA $6038,y                               ; $04C3A4 |
  93.   LDA $0A                                   ; $04C3A7 |
  94.   SEC                                       ; $04C3A9 |
  95.   SBC !gsu_r7                               ; $04C3AA |
  96.   STA $6002,y                               ; $04C3AD |
  97.   STA $600A,y                               ; $04C3B0 |
  98.   LDA $0A                                   ; $04C3B3 |
  99.   CLC                                       ; $04C3B5 |
  100.   ADC !gsu_r8                               ; $04C3B6 |
  101.   STA $6012,y                               ; $04C3B9 |
  102.   STA $601A,y                               ; $04C3BC |
  103.   LDA $0A                                   ; $04C3BF |
  104.   CLC                                       ; $04C3C1 |
  105.   ADC !gsu_r7                               ; $04C3C2 |
  106.   STA $6022,y                               ; $04C3C5 |
  107.   STA $602A,y                               ; $04C3C8 |
  108.   LDA $0A                                   ; $04C3CB |
  109.   SEC                                       ; $04C3CD |
  110.   SBC !gsu_r8                               ; $04C3CE |
  111.   STA $6032,y                               ; $04C3D1 |
  112.   STA $603A,y                               ; $04C3D4 |
  113.   JSR CODE_04C4C7                           ; $04C3D7 |
  114.   LDA $04                                   ; $04C3DA |
  115.   BEQ CODE_04C40B                           ; $04C3DC |
  116.   LDA $6004,y                               ; $04C3DE |
  117.   AND #$F1FF                                ; $04C3E1 |
  118.   ORA #$0800                                ; $04C3E4 |
  119.   STA $6004,y                               ; $04C3E7 |
  120.   STA $6014,y                               ; $04C3EA |
  121.   STA $6024,y                               ; $04C3ED |
  122.   STA $6034,y                               ; $04C3F0 |
  123.   LDA $600C,y                               ; $04C3F3 |
  124.   AND #$F1FF                                ; $04C3F6 |
  125.   ORA #$0800                                ; $04C3F9 |
  126.   STA $600C,y                               ; $04C3FC |
  127.   STA $601C,y                               ; $04C3FF |
  128.   STA $602C,y                               ; $04C402 |
  129.   STA $603C,y                               ; $04C405 |
  130.   SEP #$10                                  ; $04C408 |
  131.   RTS                                       ; $04C40A |
  132.  
  133. CODE_04C40B:
  134.   LDA !gsu_r9                               ; $04C40B |
  135.   CLC                                       ; $04C40E |
  136.   ADC !gsu_r9                               ; $04C40F |
  137.   STA !gsu_r9                               ; $04C412 |
  138.   LDA !gsu_r10                              ; $04C415 |
  139.   CLC                                       ; $04C418 |
  140.   ADC !gsu_r10                              ; $04C419 |
  141.   STA !gsu_r10                              ; $04C41C |
  142.   TYA                                       ; $04C41F |
  143.   CLC                                       ; $04C420 |
  144.   ADC #$0020                                ; $04C421 |
  145.   TAY                                       ; $04C424 |
  146.   JSR CODE_04C4C7                           ; $04C425 |
  147.   SEP #$10                                  ; $04C428 |
  148.   RTS                                       ; $04C42A |
  149.  
  150.   db $10, $10, $0C, $08, $28, $00, $18, $00 ; $04C42B |
  151.  
  152. CODE_04C433:
  153.   LDA $C42B,y                               ; $04C433 |
  154.   AND #$00FF                                ; $04C436 |
  155.   STA $00                                   ; $04C439 |
  156.   LDA $C42C,y                               ; $04C43B |
  157.   AND #$00FF                                ; $04C43E |
  158.   STA $02                                   ; $04C441 |
  159.   LDA $C42F,y                               ; $04C443 |
  160.   STA !gsu_r6                               ; $04C446 |
  161.   LDA #$0003                                ; $04C449 |
  162.   STA !gsu_r9                               ; $04C44C |
  163.   CPY #$00                                  ; $04C44F |
  164.   BEQ CODE_04C456                           ; $04C451 |
  165.   DEC !gsu_r9                               ; $04C453 |
  166.  
  167. CODE_04C456:
  168.   LDY $79,x                                 ; $04C456 |
  169.   TYA                                       ; $04C458 |
  170.   ASL A                                     ; $04C459 |
  171.   STA !gsu_r1                               ; $04C45A |
  172.   LDX #$0B                                  ; $04C45D |
  173.   LDA #$85D0                                ; $04C45F |
  174.   JSL $7EDE44                               ; $04C462 | GSU init
  175.   LDX $12                                   ; $04C466 |
  176.   LDA $7360,x                               ; $04C468 |
  177.   CMP #$015E                                ; $04C46B |
  178.   BNE CODE_04C4C6                           ; $04C46E |
  179.   LDA $70E2,x                               ; $04C470 |
  180.   CLC                                       ; $04C473 |
  181.   ADC #$0008                                ; $04C474 |
  182.   STA $06                                   ; $04C477 |
  183.   LDA $7182,x                               ; $04C479 |
  184.   STA $08                                   ; $04C47C |
  185.   LDA $06                                   ; $04C47E |
  186.   CLC                                       ; $04C480 |
  187.   ADC !gsu_r8                               ; $04C481 |
  188.   STA $0FFB                                 ; $04C484 |
  189.   LDA $06                                   ; $04C487 |
  190.   CLC                                       ; $04C489 |
  191.   ADC !gsu_r7                               ; $04C48A |
  192.   STA $0FFD                                 ; $04C48D |
  193.   LDA $06                                   ; $04C490 |
  194.   SEC                                       ; $04C492 |
  195.   SBC !gsu_r8                               ; $04C493 |
  196.   STA $0FFF                                 ; $04C496 |
  197.   LDA $06                                   ; $04C499 |
  198.   SEC                                       ; $04C49B |
  199.   SBC !gsu_r7                               ; $04C49C |
  200.   STA $1001                                 ; $04C49F |
  201.   LDA $08                                   ; $04C4A2 |
  202.   SEC                                       ; $04C4A4 |
  203.   SBC !gsu_r7                               ; $04C4A5 |
  204.   STA $1003                                 ; $04C4A8 |
  205.   LDA $08                                   ; $04C4AB |
  206.   CLC                                       ; $04C4AD |
  207.   ADC !gsu_r8                               ; $04C4AE |
  208.   STA $1005                                 ; $04C4B1 |
  209.   LDA $08                                   ; $04C4B4 |
  210.   CLC                                       ; $04C4B6 |
  211.   ADC !gsu_r7                               ; $04C4B7 |
  212.   STA $1007                                 ; $04C4BA |
  213.   LDA $08                                   ; $04C4BD |
  214.   SEC                                       ; $04C4BF |
  215.   SBC !gsu_r8                               ; $04C4C0 |
  216.   STA $1009                                 ; $04C4C3 |
  217.  
  218. CODE_04C4C6:
  219.   RTS                                       ; $04C4C6 |
  220.  
  221. CODE_04C4C7:
  222.   LDA $08                                   ; $04C4C7 |
  223.   CLC                                       ; $04C4C9 |
  224.   ADC !gsu_r10                              ; $04C4CA |
  225.   SEC                                       ; $04C4CD |
  226.   SBC #$0004                                ; $04C4CE |
  227.   STA $6048,y                               ; $04C4D1 |
  228.   LDA $08                                   ; $04C4D4 |
  229.   CLC                                       ; $04C4D6 |
  230.   ADC !gsu_r9                               ; $04C4D7 |
  231.   SEC                                       ; $04C4DA |
  232.   SBC #$0004                                ; $04C4DB |
  233.   STA $6050,y                               ; $04C4DE |
  234.   LDA $08                                   ; $04C4E1 |
  235.   SEC                                       ; $04C4E3 |
  236.   SBC !gsu_r10                              ; $04C4E4 |
  237.   SEC                                       ; $04C4E7 |
  238.   SBC #$0004                                ; $04C4E8 |
  239.   STA $6058,y                               ; $04C4EB |
  240.   LDA $08                                   ; $04C4EE |
  241.   SEC                                       ; $04C4F0 |
  242.   SBC !gsu_r9                               ; $04C4F1 |
  243.   SEC                                       ; $04C4F4 |
  244.   SBC #$0004                                ; $04C4F5 |
  245.   STA $6060,y                               ; $04C4F8 |
  246.   LDA $0A                                   ; $04C4FB |
  247.   SEC                                       ; $04C4FD |
  248.   SBC !gsu_r9                               ; $04C4FE |
  249.   CLC                                       ; $04C501 |
  250.   ADC #$0004                                ; $04C502 |
  251.   STA $604A,y                               ; $04C505 |
  252.   LDA $0A                                   ; $04C508 |
  253.   CLC                                       ; $04C50A |
  254.   ADC !gsu_r10                              ; $04C50B |
  255.   CLC                                       ; $04C50E |
  256.   ADC #$0004                                ; $04C50F |
  257.   STA $6052,y                               ; $04C512 |
  258.   LDA $0A                                   ; $04C515 |
  259.   CLC                                       ; $04C517 |
  260.   ADC !gsu_r9                               ; $04C518 |
  261.   CLC                                       ; $04C51B |
  262.   ADC #$0004                                ; $04C51C |
  263.   STA $605A,y                               ; $04C51F |
  264.   LDA $0A                                   ; $04C522 |
  265.   SEC                                       ; $04C524 |
  266.   SBC !gsu_r10                              ; $04C525 |
  267.   CLC                                       ; $04C528 |
  268.   ADC #$0004                                ; $04C529 |
  269.   STA $6062,y                               ; $04C52C |
  270.   RTS                                       ; $04C52F |
  271.  
  272. CODE_04C530:
  273.   LDA $75E0,x                               ; $04C530 |
  274.   CMP #$8000                                ; $04C533 |
  275.   BNE CODE_04C56B                           ; $04C536 |
  276.   STZ $75E0,x                               ; $04C538 |
  277.   LDA $7360,x                               ; $04C53B |
  278.   CMP #$0064                                ; $04C53E |
  279.   BEQ CODE_04C562                           ; $04C541 |
  280.   CMP #$015E                                ; $04C543 |
  281.   BEQ CODE_04C562                           ; $04C546 |
  282.   REP #$10                                  ; $04C548 |
  283.   LDA $7902,x                               ; $04C54A |
  284.   TAX                                       ; $04C54D |
  285.   LDA $700006,x                             ; $04C54E |
  286.   SEP #$10                                  ; $04C552 |
  287.   LDX $12                                   ; $04C554 |
  288.   AND #$FF00                                ; $04C556 |
  289.   CMP #$8700                                ; $04C559 |
  290.   BNE CODE_04C562                           ; $04C55C |
  291.   INC $77,x                                 ; $04C55E |
  292.   BRA CODE_04C56B                           ; $04C560 |
  293.  
  294. CODE_04C562:
  295.   LDA $6FA2,x                               ; $04C562 |
  296.   AND #$FFE0                                ; $04C565 |
  297.   STA $6FA2,x                               ; $04C568 |
  298.  
  299. CODE_04C56B:
  300.   RTS                                       ; $04C56B |
  301.  
  302.   dw $0010, $000C                           ; $04C56C |
  303.  
  304.   dw $6B6A, $6B6C                           ; $04C570 |
  305.  
  306. CODE_04C574:
  307.   LDY $77,x                                 ; $04C574 |
  308.   BNE CODE_04C5B9                           ; $04C576 |
  309.   LDY $04                                   ; $04C578 |
  310.   LDA $C56C,y                               ; $04C57A |
  311.   STA $6028                                 ; $04C57D |
  312.   LDA $7CD6,x                               ; $04C580 |
  313.   STA $602A                                 ; $04C583 |
  314.   LDA $7CD8,x                               ; $04C586 |
  315.   STA $602C                                 ; $04C589 |
  316.   LDA $78,x                                 ; $04C58C |
  317.   STA !gsu_r6                               ; $04C58E |
  318.   LDA $19,x                                 ; $04C591 |
  319.   STA !gsu_r5                               ; $04C593 |
  320.   LDA $0C                                   ; $04C596 |
  321.   STA $603C                                 ; $04C598 |
  322.   LDA $0E                                   ; $04C59B |
  323.   STA $603E                                 ; $04C59D |
  324.   LDX #$0A                                  ; $04C5A0 |
  325.   LDA #$E864                                ; $04C5A2 |
  326.   JSL $7EDE91                               ; $04C5A5 | GSU init
  327.   LDX $12                                   ; $04C5A9 |
  328.   LDA !gsu_r1                               ; $04C5AB |
  329.   STA $7860,x                               ; $04C5AE |
  330.   BEQ CODE_04C60D                           ; $04C5B1 |
  331.   LDY #$00                                  ; $04C5B3 |
  332.   STY $19,x                                 ; $04C5B5 |
  333.   BRA CODE_04C60D                           ; $04C5B7 |
  334.  
  335. CODE_04C5B9:
  336.   LDA $16,x                                 ; $04C5B9 |
  337.   SEC                                       ; $04C5BB |
  338.   SBC #$4000                                ; $04C5BC |
  339.   EOR $18,x                                 ; $04C5BF |
  340.   BMI CODE_04C5E5                           ; $04C5C1 |
  341.   LDA $16,x                                 ; $04C5C3 |
  342.   CLC                                       ; $04C5C5 |
  343.   ADC #$8000                                ; $04C5C6 |
  344.   STA $16,x                                 ; $04C5C9 |
  345.   LDA $75E0,x                               ; $04C5CB |
  346.   LDY $7900,x                               ; $04C5CE |
  347.   CPY #$02                                  ; $04C5D1 |
  348.   BPL CODE_04C5DE                           ; $04C5D3 |
  349.   CLC                                       ; $04C5D5 |
  350.   ADC #$0100                                ; $04C5D6 |
  351.   AND #$01FE                                ; $04C5D9 |
  352.   BRA CODE_04C5E2                           ; $04C5DC |
  353.  
  354. CODE_04C5DE:
  355.   EOR #$FFFF                                ; $04C5DE |
  356.   INC A                                     ; $04C5E1 |
  357.  
  358. CODE_04C5E2:
  359.   STA $75E0,x                               ; $04C5E2 |
  360.  
  361. CODE_04C5E5:
  362.   LDA $70E2,x                               ; $04C5E5 |
  363.   STA $00                                   ; $04C5E8 |
  364.   LDA $7182,x                               ; $04C5EA |
  365.   STA $02                                   ; $04C5ED |
  366.   JSL $04A9FD                               ; $04C5EF |
  367.   LDA $70E2,x                               ; $04C5F3 |
  368.   SEC                                       ; $04C5F6 |
  369.   SBC $00                                   ; $04C5F7 |
  370.   CLC                                       ; $04C5F9 |
  371.   ADC $72C0,x                               ; $04C5FA |
  372.   STA $72C0,x                               ; $04C5FD |
  373.   LDA $7182,x                               ; $04C600 |
  374.   SEC                                       ; $04C603 |
  375.   SBC $02                                   ; $04C604 |
  376.   CLC                                       ; $04C606 |
  377.   ADC $72C2,x                               ; $04C607 |
  378.   STA $72C2,x                               ; $04C60A |
  379.  
  380. CODE_04C60D:
  381.   LDY $19,x                                 ; $04C60D |
  382.   TYA                                       ; $04C60F |
  383.   CPY #$00                                  ; $04C610 |
  384.   BPL CODE_04C617                           ; $04C612 |
  385.   ORA #$FF00                                ; $04C614 |
  386.  
  387. CODE_04C617:
  388.   STA $00                                   ; $04C617 |
  389.   ASL A                                     ; $04C619 |
  390.   CLC                                       ; $04C61A |
  391.   ADC $78,x                                 ; $04C61B |
  392.   STA $78,x                                 ; $04C61D |
  393.   LDA $7360,x                               ; $04C61F |
  394.   CMP #$0064                                ; $04C622 |
  395.   BEQ CODE_04C65B                           ; $04C625 |
  396.   CMP #$015E                                ; $04C627 |
  397.   BEQ CODE_04C65B                           ; $04C62A |
  398.   LDA $00                                   ; $04C62C |
  399.   BPL CODE_04C634                           ; $04C62E |
  400.   EOR #$FFFF                                ; $04C630 |
  401.   INC A                                     ; $04C633 |
  402.  
  403. CODE_04C634:
  404.   CLC                                       ; $04C634 |
  405.   ADC $7BB6,x                               ; $04C635 |
  406.   CMP #$0600                                ; $04C638 |
  407.   BMI CODE_04C657                           ; $04C63B |
  408.   PHA                                       ; $04C63D |
  409.   LDA $7BB8,x                               ; $04C63E |
  410.   INC A                                     ; $04C641 |
  411.   AND #$0003                                ; $04C642 |
  412.   STA $7BB8,x                               ; $04C645 |
  413.   TAY                                       ; $04C648 |
  414.   LDA $C570,y                               ; $04C649 |
  415.   TAY                                       ; $04C64C |
  416.   TYA                                       ; $04C64D |
  417.   JSL push_sound_queue                      ; $04C64E |
  418.   PLA                                       ; $04C652 |
  419.   SEC                                       ; $04C653 |
  420.   SBC #$0600                                ; $04C654 |
  421.  
  422. CODE_04C657:
  423.   STA $7BB6,x                               ; $04C657 |
  424.   RTS                                       ; $04C65A |
  425.  
  426. CODE_04C65B:
  427.   LDY $19,x                                 ; $04C65B |
  428.   BEQ CODE_04C665                           ; $04C65D |
  429.   LDA #$00E0                                ; $04C65F |
  430.   STA $0051                                 ; $04C662 |
  431.  
  432. CODE_04C665:
  433.   RTS                                       ; $04C665 |
  434.  
  435.   dw $0014, $0010                           ; $04C666 |
  436.  
  437. CODE_04C66A:
  438.   LDY $04                                   ; $04C66A |
  439.   LDA $C666,y                               ; $04C66C |
  440.   STA !gsu_r0                               ; $04C66F |
  441.   ASL A                                     ; $04C672 |
  442.   STA !gsu_r1                               ; $04C673 |
  443.   LDA $0C                                   ; $04C676 |
  444.   EOR #$FFFF                                ; $04C678 |
  445.   INC A                                     ; $04C67B |
  446.   STA $08                                   ; $04C67C |
  447.   LDA $0E                                   ; $04C67E |
  448.   EOR #$FFFF                                ; $04C680 |
  449.   INC A                                     ; $04C683 |
  450.   STA $0A                                   ; $04C684 |
  451.   STZ $06                                   ; $04C686 |
  452.   LDA $0C                                   ; $04C688 |
  453.   STA $00                                   ; $04C68A |
  454.   LDA $0E                                   ; $04C68C |
  455.   JSR CODE_04C6B3                           ; $04C68E |
  456.   INC $06                                   ; $04C691 |
  457.   LDA $0E                                   ; $04C693 |
  458.   STA $00                                   ; $04C695 |
  459.   LDA $08                                   ; $04C697 |
  460.   JSR CODE_04C6B3                           ; $04C699 |
  461.   INC $06                                   ; $04C69C |
  462.   LDA $08                                   ; $04C69E |
  463.   STA $00                                   ; $04C6A0 |
  464.   LDA $0A                                   ; $04C6A2 |
  465.   JSR CODE_04C6B3                           ; $04C6A4 |
  466.   INC $06                                   ; $04C6A7 |
  467.   LDA $0A                                   ; $04C6A9 |
  468.   STA $00                                   ; $04C6AB |
  469.   LDA $0C                                   ; $04C6AD |
  470.   JSR CODE_04C6B3                           ; $04C6AF |
  471.   RTS                                       ; $04C6B2 |
  472.  
  473. CODE_04C6B3:
  474.   STA $02                                   ; $04C6B3 |
  475.   CPX $61B6                                 ; $04C6B5 |
  476.   BEQ CODE_04C6F9                           ; $04C6B8 |
  477.   LDY $60AB                                 ; $04C6BA |
  478.   BMI CODE_04C6F8                           ; $04C6BD |
  479.   LDA $7C16,x                               ; $04C6BF |
  480.   CLC                                       ; $04C6C2 |
  481.   ADC $00                                   ; $04C6C3 |
  482.   CLC                                       ; $04C6C5 |
  483.   ADC !gsu_r0                               ; $04C6C6 |
  484.   CMP !gsu_r1                               ; $04C6C9 |
  485.   BCS CODE_04C6F8                           ; $04C6CC |
  486.   LDA $7C18,x                               ; $04C6CE |
  487.   CLC                                       ; $04C6D1 |
  488.   ADC $02                                   ; $04C6D2 |
  489.   SEC                                       ; $04C6D4 |
  490.   SBC $6122                                 ; $04C6D5 |
  491.   SEC                                       ; $04C6D8 |
  492.   SBC #$0008                                ; $04C6D9 |
  493.   CMP #$FFF6                                ; $04C6DC |
  494.   BCC CODE_04C6F8                           ; $04C6DF |
  495.   LDY $61B6                                 ; $04C6E1 |
  496.   BNE CODE_04C6F8                           ; $04C6E4 |
  497.   STX $61B6                                 ; $04C6E6 |
  498.   SEC                                       ; $04C6E9 |
  499.   ADC $6090                                 ; $04C6EA |
  500.   INC A                                     ; $04C6ED |
  501.   STA $6090                                 ; $04C6EE |
  502.   LDY $06                                   ; $04C6F1 |
  503.   STY $18,x                                 ; $04C6F3 |
  504.   JMP CODE_04C766                           ; $04C6F5 |
  505.  
  506. CODE_04C6F8:
  507.   RTS                                       ; $04C6F8 |
  508.  
  509. CODE_04C6F9:
  510.   LDY $18,x                                 ; $04C6F9 |
  511.   CPY $06                                   ; $04C6FB |
  512.   BNE CODE_04C6F8                           ; $04C6FD |
  513.   LDY $60AB                                 ; $04C6FF |
  514.   BMI CODE_04C758                           ; $04C702 |
  515.   LDY $0D94                                 ; $04C704 |
  516.   BNE CODE_04C758                           ; $04C707 |
  517.   LDY $76,x                                 ; $04C709 |
  518.   TYA                                       ; $04C70B |
  519.   CPY #$00                                  ; $04C70C |
  520.   BPL CODE_04C713                           ; $04C70E |
  521.   ORA #$FF00                                ; $04C710 |
  522.  
  523. CODE_04C713:
  524.   STA !gsu_r2                               ; $04C713 |
  525.   LDA $00                                   ; $04C716 |
  526.   SEC                                       ; $04C718 |
  527.   SBC !gsu_r2                               ; $04C719 |
  528.   CLC                                       ; $04C71C |
  529.   ADC $72C0,x                               ; $04C71D |
  530.   STA !gsu_r2                               ; $04C720 |
  531.   CLC                                       ; $04C723 |
  532.   ADC $608C                                 ; $04C724 |
  533.   STA $608C                                 ; $04C727 |
  534.   LDA !gsu_r2                               ; $04C72A |
  535.   CLC                                       ; $04C72D |
  536.   ADC $7C16,x                               ; $04C72E |
  537.   STA $7C16,x                               ; $04C731 |
  538.   LDA $7C18,x                               ; $04C734 |
  539.   CLC                                       ; $04C737 |
  540.   ADC $02                                   ; $04C738 |
  541.   SEC                                       ; $04C73A |
  542.   SBC $6122                                 ; $04C73B |
  543.   SEC                                       ; $04C73E |
  544.   SBC #$0008                                ; $04C73F |
  545.   SEC                                       ; $04C742 |
  546.   ADC $6090                                 ; $04C743 |
  547.   STA $6090                                 ; $04C746 |
  548.   LDA $7C16,x                               ; $04C749 |
  549.   CLC                                       ; $04C74C |
  550.   ADC $00                                   ; $04C74D |
  551.   CLC                                       ; $04C74F |
  552.   ADC !gsu_r0                               ; $04C750 |
  553.   CMP !gsu_r1                               ; $04C753 |
  554.   BCC CODE_04C766                           ; $04C756 |
  555.  
  556. CODE_04C758:
  557.   CPX $61B6                                 ; $04C758 |
  558.   BNE CODE_04C760                           ; $04C75B |
  559.   STZ $61B6                                 ; $04C75D |
  560.  
  561. CODE_04C760:
  562.   LDY #$00                                  ; $04C760 |
  563.   STY $18,x                                 ; $04C762 |
  564.   PLA                                       ; $04C764 |
  565.   RTS                                       ; $04C765 |
  566.  
  567. CODE_04C766:
  568.   INC $61B4                                 ; $04C766 |
  569.   LDY $00                                   ; $04C769 |
  570.   STY $76,x                                 ; $04C76B |
  571.   STZ $60AA                                 ; $04C76D |
  572.   PLA                                       ; $04C770 |
  573.  
  574. CODE_04C771:
  575.   RTS                                       ; $04C771 |
  576.  
  577.   db $00, $40, $80, $C0                     ; $04C772 |
  578.  
  579. CODE_04C776:
  580.   LDA $7360,x                               ; $04C776 |
  581.   CMP #$0064                                ; $04C779 |
  582.   BEQ CODE_04C771                           ; $04C77C |
  583.   CMP #$015E                                ; $04C77E |
  584.   BEQ CODE_04C771                           ; $04C781 |
  585.   CPX $61B6                                 ; $04C783 |
  586.   BNE CODE_04C7D1                           ; $04C786 |
  587.   LDY $18,x                                 ; $04C788 |
  588.   LDA $C772,y                               ; $04C78A |
  589.   AND #$00FF                                ; $04C78D |
  590.   CLC                                       ; $04C790 |
  591.   ADC $79,x                                 ; $04C791 |
  592.   AND #$00FF                                ; $04C793 |
  593.   ASL A                                     ; $04C796 |
  594.   STA !gsu_r1                               ; $04C797 |
  595.   LDA #$FFF0                                ; $04C79A |
  596.   STA !gsu_r6                               ; $04C79D |
  597.   LDX #$0B                                  ; $04C7A0 |
  598.   LDA #$8595                                ; $04C7A2 |
  599.   JSL $7EDE44                               ; $04C7A5 | GSU init
  600.   LDX $12                                   ; $04C7A9 |
  601.   LDA !gsu_r0                               ; $04C7AB |
  602.   INC A                                     ; $04C7AE |
  603.   CMP #$0002                                ; $04C7AF |
  604.   BCC CODE_04C7D1                           ; $04C7B2 |
  605.   LDY $19,x                                 ; $04C7B4 |
  606.   TYA                                       ; $04C7B6 |
  607.   CPY #$00                                  ; $04C7B7 |
  608.   BPL CODE_04C7BE                           ; $04C7B9 |
  609.   ORA #$FF00                                ; $04C7BB |
  610.  
  611. CODE_04C7BE:
  612.   CLC                                       ; $04C7BE |
  613.   ADC !gsu_r0                               ; $04C7BF |
  614.   TAY                                       ; $04C7C2 |
  615.   CLC                                       ; $04C7C3 |
  616.   ADC #$0080                                ; $04C7C4 |
  617.   CMP #$0100                                ; $04C7C7 |
  618.   BCC CODE_04C7CE                           ; $04C7CA |
  619.   LDY $19,x                                 ; $04C7CC |
  620.  
  621. CODE_04C7CE:
  622.   STY $19,x                                 ; $04C7CE |
  623.   RTS                                       ; $04C7D0 |
  624.  
  625. CODE_04C7D1:
  626.   LDY $19,x                                 ; $04C7D1 |
  627.   TYA                                       ; $04C7D3 |
  628.   CPY #$00                                  ; $04C7D4 |
  629.   BPL CODE_04C7E1                           ; $04C7D6 |
  630.   ORA #$FF00                                ; $04C7D8 |
  631.   CLC                                       ; $04C7DB |
  632.   ADC #$0002                                ; $04C7DC |
  633.   BRA CODE_04C7E5                           ; $04C7DF |
  634.  
  635. CODE_04C7E1:
  636.   SEC                                       ; $04C7E1 |
  637.   SBC #$0002                                ; $04C7E2 |
  638.  
  639. CODE_04C7E5:
  640.   TAY                                       ; $04C7E5 |
  641.   CLC                                       ; $04C7E6 |
  642.   ADC #$0002                                ; $04C7E7 |
  643.   CMP #$0004                                ; $04C7EA |
  644.   BCS CODE_04C7F1                           ; $04C7ED |
  645.   LDY #$00                                  ; $04C7EF |
  646.  
  647. CODE_04C7F1:
  648.   STY $19,x                                 ; $04C7F1 |
  649.   RTS                                       ; $04C7F3 |
  650.  
  651. CODE_04C7F4:
  652.   SEP #$20                                  ; $04C7F4 |
  653.   LDA $19,x                                 ; $04C7F6 |
  654.   PHP                                       ; $04C7F8 |
  655.   BPL CODE_04C7FE                           ; $04C7F9 |
  656.   EOR #$FF                                  ; $04C7FB |
  657.   INC A                                     ; $04C7FD |
  658.  
  659. CODE_04C7FE:
  660.   TAY                                       ; $04C7FE |
  661.   REP #$20                                  ; $04C7FF |
  662.   TYA                                       ; $04C801 |
  663.   STA $7A37,x                               ; $04C802 |
  664.   SEP #$20                                  ; $04C805 |
  665.   STZ $7A39,x                               ; $04C807 |
  666.   PLP                                       ; $04C80A |
  667.   BPL CODE_04C810                           ; $04C80B |
  668.   DEC $7A39,x                               ; $04C80D |
  669.  
  670. CODE_04C810:
  671.   REP #$20                                  ; $04C810 |
  672.   LDY $77,x                                 ; $04C812 |
  673.   BNE CODE_04C832                           ; $04C814 |
  674.   LDA $7360,x                               ; $04C816 |
  675.   CMP #$0064                                ; $04C819 |
  676.   BEQ CODE_04C832                           ; $04C81C |
  677.   CMP #$015E                                ; $04C81E |
  678.   BEQ CODE_04C832                           ; $04C821 |
  679.   LDA $7A37,x                               ; $04C823 |
  680.   LDY $7A39,x                               ; $04C826 |
  681.   BNE CODE_04C82F                           ; $04C829 |
  682.   EOR #$FFFF                                ; $04C82B |
  683.   INC A                                     ; $04C82E |
  684.  
  685. CODE_04C82F:
  686.   STA $7220,x                               ; $04C82F |
  687.  
  688. CODE_04C832:
  689.   RTS                                       ; $04C832 |
  690.  
  691.   LDY $18,x                                 ; $04C833 |
  692.   LDA $6F00,y                               ; $04C835 |
  693.   CMP #$0010                                ; $04C838 |
  694.   BNE CODE_04C84D                           ; $04C83B |
  695.   LDA $7360,y                               ; $04C83D |
  696.   CMP #$015E                                ; $04C840 |
  697.   BNE CODE_04C84D                           ; $04C843 |
  698.   LDA $0FF9                                 ; $04C845 |
  699.   CMP $7900,x                               ; $04C848 |
  700.   BEQ CODE_04C853                           ; $04C84B |
  701.  
  702. CODE_04C84D:
  703.   PLY                                       ; $04C84D |
  704.   PLA                                       ; $04C84E |
  705.   JML $03A31E                               ; $04C84F |
  706.  
  707. CODE_04C853:
  708.   LDY $78,x                                 ; $04C853 |
  709.   LDA $0FF9,y                               ; $04C855 |
  710.   SEC                                       ; $04C858 |
  711.   SBC $7A36,x                               ; $04C859 |
  712.   CLC                                       ; $04C85C |
  713.   ADC $70E2,x                               ; $04C85D |
  714.   STA $70E2,x                               ; $04C860 |
  715.   LDA $1001,y                               ; $04C863 |
  716.   SEC                                       ; $04C866 |
  717.   SBC $7A38,x                               ; $04C867 |
  718.   CLC                                       ; $04C86A |
  719.   ADC $7182,x                               ; $04C86B |
  720.   STA $7182,x                               ; $04C86E |
  721.   LDA $1001,y                               ; $04C871 |
  722.   SEC                                       ; $04C874 |
  723.   SBC #$0010                                ; $04C875 |
  724.   CMP $7182,x                               ; $04C878 |
  725.   BPL CODE_04C886                           ; $04C87B |
  726.   STA $7182,x                               ; $04C87D |
  727.   STZ $7222,x                               ; $04C880 |
  728.   STZ $7542,x                               ; $04C883 |
  729.  
  730. CODE_04C886:
  731.   LDA $0FF9,y                               ; $04C886 |
  732.   STA $7A36,x                               ; $04C889 |
  733.   LDA $1001,y                               ; $04C88C |
  734.   STA $7A38,x                               ; $04C88F |
  735.   LDY $77C2,x                               ; $04C892 |
  736.   TYA                                       ; $04C895 |
  737.   STA $7400,x                               ; $04C896 |
  738.   RTL                                       ; $04C899 |
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!