Advertisement
Guest User

Untitled

a guest
Jul 17th, 2019
245
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Launcher            →$080b 784 SYS2061
  2.                     →$0000
  3.                    
  4. Sys2061             lda $01
  5.                     sta $10d8
  6.                     and #$f8
  7.                     ora #$06
  8.                     sta $01
  9.                     tsx
  10.                     stx $10d9
  11.                     jsr S1112
  12.                     jsr S1064
  13.                     jsr S0c1a
  14.                     pha
  15.                     jsr S0c31
  16.                     ldx #$19
  17. L082b               lda $10da,x
  18.                     sta $02,x
  19.                     dex
  20.                     bpl L082b
  21.                     pla
  22.                     sta $90
  23.                     ldx $10d9
  24.                     txs
  25.                     ldx $10d8
  26.                     stx $01
  27.                     rts
  28.                    
  29.                     60 20 f5 0f a0 05 20 e0 0c 20 f5 0f a0 03 20 e0
  30.                     0c 20 f5 0f a0 0b 20 e0 0c 20 f5 0f a0 09 20 e0
  31.                     0c 20 5e 10 d0 03 4c 71 08 a0 0b 20 e0 0c 4c 76
  32.                     08 a0 07 20 e0 0c 20 c4 0e 20 f5 0f a0 01 20 e0
  33.                     0c e0 00 d0 02 c9 00 20 98 0e d0 03 4c 97 08 a0
  34.                     01 20 e0 0c 4c d6 08 a0 09 20 e0 0c 20 f5 0f a0
  35.                     07 20 e0 0c 20 5e 10 d0 03 4c b3 08 a2 ff a9 ff
  36.                     4c d6 08 a0 09 20 e0 0c 20 f5 0f a0 07 20 e0 0c
  37.                     20 56 10 d0 03 4c cf 08 a2 00 a9 01 4c d6 08 a2
  38.                     00 a9 00 4c d6 08 a0 0a 20 00 0c 60
  39. S08dc               jsr S0ff5
  40.                     ldy #$68
  41.                     jsr S1045
  42.                     ldx #$d0
  43.                     lda #$20
  44.                     ldy #$54
  45.                     jsr S1027
  46.                     ldy #$55
  47.                     jsr S0ce0
  48.                     ldy #$52
  49.                     jsr S1027
  50.                     ldy #$53
  51.                     jsr S0ce0
  52.                     ldy #$64
  53.                     jsr S1027
  54.                     ldx #$d0
  55.                     lda #$21
  56.                     ldy #$50
  57.                     jsr S1027
  58.                     ldy #$51
  59.                     jsr S0ce0
  60.                     ldy #$4e
  61.                     jsr S1027
  62.                     ldx #$04
  63.                     lda #$00
  64.                     ldy #$4c
  65.                     jsr S1027
  66.                     ldy #$4d
  67.                     jsr S0ce0
  68.                     ldy #$4a
  69.                     jsr S1027
  70.                     ldy #$4b
  71.                     jsr S0ce0
  72.                     ldy #$62
  73.                     jsr S1027
  74.                     ldx #$d8
  75.                     lda #$00
  76.                     ldy #$48
  77.                     jsr S1027
  78.                     ldy #$49
  79.                     jsr S0ce0
  80.                     ldy #$60
  81.                     jsr S1027
  82.                     ldy #$53
  83.                     jsr S0ce0
  84.                     jsr S0ff5
  85.                     ldx #$00
  86.                     lda #$0a
  87.                     ldy #$00
  88.                     jsr S100f
  89.                     ldy #$4f
  90.                     jsr S0ce0
  91.                     jsr S0ff5
  92.                     ldx #$00
  93.                     lda #$00
  94.                     ldy #$00
  95.                     jsr S100f
  96.                     ldy #$4b
  97.                     jsr S0ce0
  98.                     jsr S0ff5
  99.                     ldx #$00
  100.                     lda #$20
  101.                     jsr S0ff5
  102.                     ldx #$03
  103.                     lda #$e8
  104.                     jsr S0f8e
  105.                     lda #$87
  106.                     ldx #$10
  107.                     ldy #$5e
  108.                     jsr S1027
  109.                     ldx #$00
  110.                     lda #$00
  111.                     ldy #$5c
  112.                     jsr S1027
  113. L098e               ldy #$5d
  114.                     jsr S0ce0
  115.                     jsr S0c0d
  116.                     jsr S0db4
  117.                     ldx #$00
  118.                     stx $04
  119.                     stx $05
  120.                     lda #$28
  121.                     jsr S0d37
  122.                     ldy #$43
  123.                     jsr S1027
  124.                     ldy #$44
  125.                     jsr S0ce0
  126.                     jsr S0ff5
  127.                     ldy #$5f
  128.                     jsr S0ce0
  129.                     jsr S0be5
  130.                     ldy #$45
  131.                     jsr S1027
  132.                     ldy #$46
  133.                     jsr S0ce0
  134.                     ldy #$5a
  135.                     jsr S1027
  136.                     ldy #$5f
  137.                     jsr S0ce0
  138.                     ldy #$41
  139.                     jsr S1027
  140.                     ldy #$42
  141.                     jsr S0ce0
  142.                     ldy #$3d
  143.                     jsr S1027
  144.                     ldx #$00
  145.                     lda #$0f
  146.                     ldy #$3f
  147.                     jsr S1027
  148.                     ldy #$40
  149.                     jsr S0ce9
  150.                     ldy #$39
  151.                     jsr S1032
  152.                     ldy #$3c
  153.                     jsr S0ce9
  154.                     ldy #$18
  155.                     jsr S1032
  156.                     ldy #$19
  157.                     jsr S0ce0
  158.                     ldy #$37
  159.                     jsr S1027
  160.                     ldy #$63
  161.                     jsr S0ce0
  162.                     ldy #$16
  163.                     jsr S1027
  164.                     ldy #$17
  165.                     jsr S0ce0
  166.                     jsr S0ff5
  167.                     ldy #$48
  168.                     jsr S0ce0
  169.                     jsr S0be5
  170.                     ldy #$14
  171.                     jsr S1027
  172.                     ldy #$15
  173.                     jsr S0ce0
  174.                     ldy #$12
  175.                     jsr S1027
  176.                     ldy #$5f
  177.                     jsr S0ce0
  178.                     ldy #$35
  179.                     jsr S1027
  180.                     ldy #$36
  181.                     jsr S0ce0
  182.                     ldy #$31
  183.                     jsr S1027
  184.                     ldx #$00
  185.                     lda #$0f
  186.                     ldy #$33
  187.                     jsr S1027
  188.                     ldy #$34
  189.                     jsr S0ce9
  190.                     ldy #$2d
  191.                     jsr S1032
  192.                     ldy #$30
  193.                     jsr S0ce9
  194.                     ldy #$0c
  195.                     jsr S1032
  196.                     ldy #$0f
  197.                     jsr S0ce0
  198.                     ldy #$10
  199.                     jsr S1027
  200.                     ldy #$13
  201.                     jsr S0ce0
  202.                     jsr S0ff5
  203.                     ldy #$3a
  204.                     jsr S0ce0
  205.                     jsr S0ff5
  206.                     ldy #$15
  207.                     jsr S0ce0
  208.                     jsr S0f36
  209.                     ldy #$61
  210.                     jsr S0ce0
  211.                     ldy #$0a
  212.                     jsr S1027
  213.                     ldy #$0b
  214.                     jsr S0ce0
  215.                     jsr S0ff5
  216.                     ldy #$5d
  217.                     jsr S0ce0
  218.                     jsr S0be5
  219.                     ldy #$08
  220.                     jsr S1027
  221.                     ldy #$09
  222.                     jsr S0ce0
  223.                     ldy #$06
  224.                     jsr S1027
  225.                     ldy #$5f
  226.                     jsr S0ce0
  227.                     ldy #$2a
  228.                     jsr S1027
  229.                     ldy #$2b
  230.                     jsr S0ce0
  231.                     ldy #$26
  232.                     jsr S1027
  233.                     ldx #$00
  234.                     lda #$0f
  235.                     ldy #$28
  236.                     jsr S1027
  237.                     ldy #$29
  238.                     jsr S0ce9
  239.                     ldy #$22
  240.                     jsr S1032
  241.                     ldy #$25
  242.                     jsr S0ce9
  243.                     ldy #$00
  244.                     jsr S1032
  245.                     ldy #$03
  246.                     jsr S0ce0
  247.                     ldy #$04
  248.                     jsr S1027
  249.                     ldy #$05
  250.                     jsr S0ce0
  251.                     cpx #$00
  252.                     bne L0aee
  253.                     cmp #$00
  254. L0aee               jsr S0e98
  255.                     bne L0af6
  256.                     jmp L0b15
  257.                    
  258. L0af6               ldy #$07
  259.                     jsr S0ce0
  260.                     jsr S0ff5
  261.                     ldy #$67
  262.                     jsr S0ce0
  263.                     ldy #$00
  264.                     jsr S0cd5
  265.                     ldx #$00
  266.                     jsr S0ff5
  267.                     ldy #$09
  268.                     jsr S0ce0
  269.                     jsr S0f8e
  270. L0b15               ldy #$5d
  271.                     jsr S0ce0
  272.                     jsr S0c0d
  273.                     ldy #$01
  274.                     jsr S0cfa
  275.                     ldy #$1d
  276.                     jsr S1027
  277.                     ldy #$1e
  278.                     jsr S0ce0
  279.                     jsr S0c0d
  280.                     jsr S0db4
  281.                     ldx #$00
  282.                     stx $04
  283.                     stx $05
  284.                     lda #$19
  285.                     jsr S0d17
  286.                     ldy #$1f
  287.                     jsr S1027
  288.                     ldy #$20
  289.                     jsr S0ce0
  290.                     ldy #$5c
  291.                     jsr S1027
  292.                     ldx #$00
  293.                     stx $04
  294.                     stx $05
  295.                     lda #$00
  296.                     ldy #$56
  297.                     jsr S1032
  298. L0b59               ldy #$59
  299.                     jsr S0ce9
  300.                     jsr S0db4
  301.                     ldx #$00
  302.                     stx $04
  303.                     stx $05
  304.                     lda #$3f
  305.                     jsr S0d0b
  306.                     ldx #$00
  307.                     ldy #$1c
  308.                     sta ($02),y
  309.                     ldy #$1c
  310.                     lda ($02),y
  311.                     bne L0b7b
  312.                     jmp L0b92
  313.                    
  314. L0b7b               pha
  315.                     lda $1097
  316.                     clc
  317.                     adc $02
  318.                     sta $02
  319.                     lda $1098
  320.                     adc $03
  321.                     sta $03
  322.                     pla
  323.                     jmp L0b98
  324.                    
  325.                     4c 95 0b
  326. L0b92               jmp L098e
  327.                    
  328.                     20 40 08
  329. L0b98               ldy #$65
  330.                     jsr S0ce0
  331.                     jsr S0ff5
  332.                     ldy #$67
  333.                     jsr S0ce0
  334.                     ldy #$00
  335.                     jsr S0cd5
  336.                     jsr S0c78
  337.                     ldx #$00
  338.                     ldy #$00
  339.                     jsr S100f
  340.                     ldy #$59
  341.                     jsr S0ce9
  342.                     ldy #$01
  343.                     jsr S0cfa
  344.                     ldy #$56
  345.                     jsr S1032
  346.                     jmp L0b59
  347.                    
  348.                     a0 6c 20 00 0c 60
  349. L0bcc               ldy #$03
  350.                     jsr S0ce0
  351.                     jsr S0ff5
  352.                     ldy #$03
  353.                     jsr S0ce0
  354.                     jsr S08dc
  355.                     jmp L0bdf
  356.                    
  357. L0bdf               jsr S0c95
  358.                     rts
  359.                    
  360.                     a2 00
  361. S0be5               clc
  362.                     ldy #$00
  363.                     adc ($02),y
  364.                     iny
  365.                     sta $12
  366.                     txa
  367.                     adc ($02),y
  368.                     tax
  369.                     clc
  370.                     lda $02
  371.                     adc #$02
  372.                     sta $02
  373.                     bcc L0bfc
  374.                     inc $03
  375. L0bfc               lda $12
  376.                     rts
  377.                    
  378. L0bff               iny
  379. L0c00               pha
  380.                     clc
  381.                     tya
  382.                     adc $02
  383.                     sta $02
  384.                     bcc L0c0b
  385.                     inc $03
  386. L0c0b               pla
  387.                     rts
  388.                    
  389. S0c0d               ldy #$ff
  390.                     cpx #$80
  391.                     bcs L0c15
  392.                     ldy #$00
  393. L0c15               sty $04
  394.                     sty $05
  395.                     rts
  396.                    
  397. S0c1a               lda $1099
  398.                     ldx $109a
  399.                     jsr S0ff5
  400.                     lda $109b
  401.                     ldx $109c
  402.                     jsr S0ff5
  403.                     ldy #$04
  404.                     jmp L0bcc
  405.                    
  406. S0c31               ldy #$00
  407.                     beq L0c3c
  408.                     lda #$99
  409.                     ldx #$10
  410.                     jmp L109d
  411.                    
  412. L0c3c               rts
  413.                    
  414. S0c3d               lda $02
  415.                     sec
  416.                     sbc #$04
  417.                     sta $02
  418.                     bcc L0c47
  419.                     rts
  420.                    
  421. L0c47               dec $03
  422.                     rts
  423.                    
  424.                                                   a2 00 85 04 86 05
  425.                     a0 00 b1 02 aa e6 02 d0 02 e6 03 b1 02 e6 02 d0
  426.                     02 e6 03 38 e5 05 d0 09 e4 04 f0 04 69 ff 09 01
  427.                     60 50 fd 49 ff 09 01 60
  428. S0c78               clc
  429.                     adc #$01
  430.                     bcc L0c7e
  431.                     inx
  432. L0c7e               rts
  433.                    
  434. S0c7f               ldy #$01
  435.                     lda ($02),y
  436.                     tax
  437.                     dey
  438.                     lda ($02),y
  439. L0c87               inc $02
  440.                     beq L0c90
  441.                     inc $02
  442.                     beq L0c92
  443.                     rts
  444.                    
  445. L0c90               inc $02
  446. L0c92               inc $03
  447.                     rts
  448.                    
  449. S0c95               ldy #$04
  450.                     jmp L0c00
  451.                    
  452. S0c9a               sta $0a
  453.                     stx $0b
  454.                     ldy #$03
  455.                     lda ($02),y
  456.                     sec
  457.                     sbc $05
  458.                     bne L0cc9
  459.                     dey
  460.                     lda ($02),y
  461.                     cmp $04
  462.                     bne L0cba
  463.                     dey
  464.                     lda ($02),y
  465.                     cmp $0b
  466.                     bne L0cba
  467.                     dey
  468.                     lda ($02),y
  469.                     cmp $0a
  470. L0cba               php
  471.                     jsr S0c95
  472.                     plp
  473.                     beq L0cc5
  474.                     bcs L0cc6
  475.                     lda #$ff
  476. L0cc5               rts
  477.                    
  478. L0cc6               lda #$01
  479.                     rts
  480.                    
  481. L0cc9               bvc L0ccf
  482.                     eor #$ff
  483.                     ora #$01
  484. L0ccf               php
  485.                     jsr S0c95
  486.                     plp
  487.                     rts
  488.                    
  489. S0cd5               sta $0a
  490.                     stx $0b
  491.                     ldx #$00
  492.                     lda ($0a),y
  493.                     rts
  494.                    
  495.                     a0 01
  496. S0ce0               lda ($02),y
  497.                     tax
  498.                     dey
  499.                     lda ($02),y
  500.                     rts
  501.                    
  502.                     a0 03
  503. S0ce9               lda ($02),y
  504.                     sta $05
  505.                     dey
  506.                     lda ($02),y
  507.                     sta $04
  508.                     dey
  509.                     lda ($02),y
  510.                     tax
  511.                     dey
  512.                     lda ($02),y
  513.                     rts
  514.                    
  515. S0cfa               sty $10
  516.                     clc
  517.                     adc $10
  518.                     bcc L0d0a
  519.                     inx
  520.                     bne L0d0a
  521.                     inc $04
  522.                     bne L0d0a
  523.                     inc $05
  524. L0d0a               rts
  525.                    
  526. S0d0b               jsr S0c9a
  527.                     jmp L0ea7
  528.                    
  529.                     a0 00 84 04 84 05
  530. S0d17               jsr S0dcc
  531.                     jsr S0e53
  532.                     lda $0c
  533.                     ldx $0d
  534.                     ldy $14
  535.                     sty $04
  536.                     ldy $15
  537.                     sty $05
  538.                     bit $12
  539.                     bpl L0d30
  540.                     jmp L0d8d
  541.                    
  542. L0d30               rts
  543.                    
  544.                     a0 00 84 04 84 05
  545. S0d37               sta $0a
  546.                     stx $0b
  547.                     ldy #$00
  548.                     lda ($02),y
  549.                     iny
  550.                     sta $0e
  551.                     lda ($02),y
  552.                     sta $0f
  553.                     iny
  554.                     lda ($02),y
  555.                     sta $10
  556.                     iny
  557.                     lda ($02),y
  558.                     sta $11
  559.                     jsr L0bff
  560.                     lda #$00
  561.                     sta $15
  562.                     sta $14
  563.                     sta $13
  564.                     ldy #$20
  565. L0d5d               lsr $15
  566.                     ror $14
  567.                     ror $13
  568.                     ror a
  569.                     ror $05
  570.                     ror $04
  571.                     ror $0b
  572.                     ror $0a
  573.                     bcc L0d85
  574.                     clc
  575.                     adc $0e
  576.                     pha
  577.                     lda $0f
  578.                     adc $13
  579.                     sta $13
  580.                     lda $10
  581.                     adc $14
  582.                     sta $14
  583.                     lda $11
  584.                     adc $15
  585.                     sta $15
  586.                     pla
  587. L0d85               dey
  588.                     bpl L0d5d
  589.                     lda $0a
  590.                     ldx $0b
  591.                     rts
  592.                    
  593. L0d8d               clc
  594.                     eor #$ff
  595.                     adc #$01
  596.                     pha
  597.                     txa
  598.                     eor #$ff
  599.                     adc #$00
  600.                     tax
  601.                     lda $04
  602.                     eor #$ff
  603.                     adc #$00
  604.                     sta $04
  605.                     lda $05
  606.                     eor #$ff
  607.                     adc #$00
  608.                     sta $05
  609.                     pla
  610.                     rts
  611.                    
  612.                     a9 00 aa a0 00 84 04 84 05
  613. S0db4               pha
  614.                     jsr S0c3d
  615.                     ldy #$03
  616.                     lda $05
  617.                     sta ($02),y
  618.                     dey
  619.                     lda $04
  620.                     sta ($02),y
  621.                     dey
  622.                     txa
  623.                     sta ($02),y
  624.                     pla
  625.                     dey
  626.                     sta ($02),y
  627.                     rts
  628.                    
  629. S0dcc               jsr S0e2f
  630.                     lda $05
  631.                     sta $12
  632.                     bpl L0df6
  633.                     clc
  634.                     lda $0a
  635.                     eor #$ff
  636.                     adc #$01
  637.                     sta $0a
  638.                     lda $0b
  639.                     eor #$ff
  640.                     adc #$00
  641.                     sta $0b
  642.                     lda $04
  643.                     eor #$ff
  644.                     adc #$00
  645.                     sta $04
  646.                     lda $05
  647.                     eor #$ff
  648.                     adc #$00
  649.                     sta $05
  650. L0df6               lda $11
  651.                     sta $13
  652.                     bpl L0e1d
  653.                     clc
  654.                     lda $0e
  655.                     eor #$ff
  656.                     adc #$01
  657.                     sta $0e
  658.                     lda $0f
  659.                     eor #$ff
  660.                     adc #$00
  661.                     sta $0f
  662.                     lda $10
  663.                     eor #$ff
  664.                     adc #$00
  665.                     sta $10
  666.                     lda $11
  667.                     eor #$ff
  668.                     adc #$00
  669.                     sta $11
  670. L0e1d               rts
  671.                    
  672.                                                               a0 00
  673.                     84 04 84 05 20 2f 0e 20 53 0e a5 0a a6 0b 60
  674. S0e2f               sta $0e
  675.                     stx $0f
  676.                     lda $04
  677.                     sta $10
  678.                     lda $05
  679.                     sta $11
  680.                     ldy #$00
  681.                     lda ($02),y
  682.                     iny
  683.                     sta $0a
  684.                     lda ($02),y
  685.                     sta $0b
  686.                     iny
  687.                     lda ($02),y
  688.                     sta $04
  689.                     iny
  690.                     lda ($02),y
  691.                     sta $05
  692.                     jmp L0bff
  693.                    
  694. S0e53               lda #$00
  695.                     sta $0d
  696.                     sta $14
  697.                     sta $15
  698.                     ldy #$20
  699. L0e5d               asl $0a
  700.                     rol $0b
  701.                     rol $04
  702.                     rol $05
  703.                     rol a
  704.                     rol $0d
  705.                     rol $14
  706.                     rol $15
  707.                     pha
  708.                     cmp $0e
  709.                     lda $0d
  710.                     sbc $0f
  711.                     lda $14
  712.                     sbc $10
  713.                     lda $15
  714.                     sbc $11
  715.                     bcc L0e91
  716.                     sta $15
  717.                     pla
  718.                     sbc $0e
  719.                     pha
  720.                     lda $0d
  721.                     sbc $0f
  722.                     sta $0d
  723.                     lda $14
  724.                     sbc $10
  725.                     sta $14
  726.                     inc $0a
  727. L0e91               pla
  728.                     dey
  729.                     bne L0e5d
  730.                     sta $0c
  731.                     rts
  732.                    
  733. S0e98               bne L0ea0
  734.                     ldx #$00
  735.                     txa
  736.                     rts
  737.                    
  738.                     d0 fa
  739. L0ea0               ldx #$00
  740.                     lda #$01
  741.                     rts
  742.                    
  743.                     f0 f9
  744. L0ea7               bmi L0ea0
  745.                     ldx #$00
  746.                     txa
  747.                     rts
  748.                    
  749.                                                            f0 02 10
  750.                     ef a2 00 8a 60 f0 e9 90 e7 a2 00 8a 60 f0 db a2
  751.                     00 8a 2a 60 49 ff 85 0e 8a 49 ff 85 0f 20 7f 0c
  752.                     85 0c 86 0d 20 e3 0f a6 0e e8 f0 0f b1 0a d1 0c
  753.                     d0 10 c8 d0 f4 e6 0b e6 0d d0 ee e6 0f d0 ed 4c
  754.                     0b 10 b0 03 a2 ff 60 a2 01 60 20 23 0f
  755. L0efd               ldx $0f
  756.                     beq L0f14
  757. L0f01               lda ($0a),y
  758.                     sta ($0c),y
  759.                     iny
  760.                     lda ($0a),y
  761.                     sta ($0c),y
  762.                     iny
  763.                     bne L0f01
  764.                     inc $0b
  765.                     inc $0d
  766.                     dex
  767.                     bne L0f01
  768. L0f14               ldx $0e
  769.                     beq L0f20
  770. L0f18               lda ($0a),y
  771.                     sta ($0c),y
  772.                     iny
  773.                     dex
  774.                     bne L0f18
  775. L0f20               jmp S0c7f
  776.                    
  777. S0f23               sta $0e
  778.                     stx $0f
  779.                     jsr S0fe3
  780.                     iny
  781.                     lda ($02),y
  782.                     tax
  783.                     stx $0d
  784.                     dey
  785.                     lda ($02),y
  786.                     sta $0c
  787.                     rts
  788.                    
  789. S0f36               jsr S0f23
  790.                     cmp $0a
  791.                     txa
  792.                     sbc $0b
  793.                     bcs L0f43
  794.                     jmp L0efd
  795.                    
  796. L0f43               lda $0b
  797.                     clc
  798.                     adc $0f
  799.                     sta $0b
  800.                     lda $0d
  801.                     clc
  802.                     adc $0f
  803.                     sta $0d
  804.                     ldy $0e
  805.                     bne L0f5b
  806.                     beq L0f62
  807. L0f57               lda ($0a),y
  808.                     sta ($0c),y
  809. L0f5b               dey
  810.                     bne L0f57
  811.                     lda ($0a),y
  812.                     sta ($0c),y
  813. L0f62               ldx $0f
  814.                     beq L0f83
  815. L0f66               dec $0b
  816.                     dec $0d
  817.                     dey
  818. L0f6b               lda ($0a),y
  819.                     sta ($0c),y
  820.                     dey
  821.                     lda ($0a),y
  822.                     sta ($0c),y
  823.                     dey
  824.                     lda ($0a),y
  825.                     sta ($0c),y
  826.                     dey
  827.                     bne L0f6b
  828.                     lda ($0a),y
  829.                     sta ($0c),y
  830.                     dex
  831.                     bne L0f66
  832. L0f83               jmp S0c7f
  833.                    
  834.                     85 0e 86 0f a2 00 f0 08
  835. S0f8e               sta $0e
  836.                     stx $0f
  837.                     jsr S0c7f
  838.                     tax
  839.                     ldy #$01
  840.                     lda ($02),y
  841.                     sta $0b
  842.                     dey
  843.                     lda ($02),y
  844.                     sta $0a
  845.                     lsr $0f
  846.                     ror $0e
  847.                     bcc L0fb0
  848.                     txa
  849.                     sta ($0a),y
  850.                     inc $0a
  851.                     bne L0fb0
  852.                     inc $0b
  853. L0fb0               lda $0a
  854.                     clc
  855.                     adc $0e
  856.                     sta $0c
  857.                     lda $0b
  858.                     adc $0f
  859.                     sta $0d
  860.                     txa
  861.                     ldx $0f
  862.                     beq L0fd5
  863. L0fc2               sta ($0a),y
  864.                     sta ($0c),y
  865.                     iny
  866.                     sta ($0a),y
  867.                     sta ($0c),y
  868.                     iny
  869.                     bne L0fc2
  870.                     inc $0b
  871.                     inc $0d
  872.                     dex
  873.                     bne L0fc2
  874. L0fd5               ldy $0e
  875.                     beq L0fe0
  876. L0fd9               dey
  877.                     sta ($0a),y
  878.                     sta ($0c),y
  879.                     bne L0fd9
  880. L0fe0               jmp S0c7f
  881.                    
  882. S0fe3               ldy #$01
  883.                     lda ($02),y
  884.                     sta $0b
  885.                     dey
  886.                     lda ($02),y
  887.                     sta $0a
  888.                     jmp L0c87
  889.                    
  890.                     a9 00 a2 00
  891. S0ff5               pha
  892.                     lda $02
  893.                     sec
  894.                     sbc #$02
  895.                     sta $02
  896.                     bcs L1001
  897.                     dec $03
  898. L1001               ldy #$01
  899.                     txa
  900.                     sta ($02),y
  901.                     pla
  902.                     dey
  903.                     sta ($02),y
  904.                     rts
  905.                    
  906.                     a9 00 aa 60
  907. S100f               pha
  908.                     sty $12
  909.                     ldy #$01
  910.                     lda ($02),y
  911.                     sta $0b
  912.                     dey
  913.                     lda ($02),y
  914.                     sta $0a
  915.                     ldy $12
  916.                     pla
  917.                     sta ($0a),y
  918.                     jmp L0c87
  919.                    
  920.                     a0 00
  921. S1027               sta ($02),y
  922.                     iny
  923.                     pha
  924.                     txa
  925.                     sta ($02),y
  926.                     pla
  927.                     rts
  928.                    
  929.                     a0 00
  930. S1032               sta ($02),y
  931.                     iny
  932.                     pha
  933.                     txa
  934.                     sta ($02),y
  935.                     iny
  936.                     lda $04
  937.                     sta ($02),y
  938.                     iny
  939.                     lda $05
  940.                     sta ($02),y
  941.                     pla
  942.                     rts
  943.                    
  944. S1045               tya
  945.                     eor #$ff
  946.                     sec
  947.                     adc $02
  948.                     sta $02
  949.                     bcs L1051
  950.                     dec $03
  951. L1051               rts
  952.                    
  953.                           a9 00 a2 00 20 4c 0c 4c bd 0e a2 00 20 4c
  954.                     0c 4c b7 0e
  955. S1064               lda #$06
  956.                     sta $0a
  957.                     lda #$11
  958.                     sta $0b
  959.                     lda #$00
  960.                     tay
  961.                     ldx #$00
  962.                     beq L107d
  963. L1073               sta ($0a),y
  964.                     iny
  965.                     bne L1073
  966.                     inc $0b
  967.                     dex
  968.                     bne L1073
  969. L107d               cpy #$04
  970.                     beq L1086
  971.                     sta ($0a),y
  972.                     iny
  973.                     bne L107d
  974. L1086               rts
  975.                    
  976.                                          48 45 4c 4c 4f 20 46 52 4f
  977.                     4d 20 52 55 53 54 00 00 00 00 00 00 00
  978. L109d               sta $10ab
  979.                     stx $10ac
  980.                     sta $10b2
  981.                     stx $10b3
  982. L10a9               dey
  983.                     lda $ffff,y
  984.                     sta $10bc
  985.                     dey
  986.                     lda $ffff,y
  987.                     sta $10bb
  988.                     sty $10be
  989.                     jsr $ffff
  990.                     ldy #$ff
  991.                     bne L10a9
  992.                     rts
  993.                    
  994.                           f5 10 00 00 00 00 00 00 00 00 00 00 00 00
  995.                     00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
  996.                     00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
  997.                     00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
  998.                     00 00 00 00 00 00
  999. L1106               ldy #$02
  1000.                     beq L1111
  1001.                     lda #$95
  1002.                     ldx #$11
  1003.                     jmp L109d
  1004.                    
  1005. L1111               rts
  1006.                    
  1007. S1112               ldx #$19
  1008. L1114               lda $02,x
  1009.                     sta $10da,x
  1010.                     dex
  1011.                     bpl L1114
  1012.                     lda #$00
  1013.                     ldx #$d0
  1014.                     sta $02
  1015.                     stx $03
  1016.                     lda #$0e
  1017.                     jsr kCHROUT
  1018.                     jmp L1106
  1019.                    
  1020.                                                         a9 00 a4 b7
  1021.                     c0 11 90 06 a0 10 d0 02 b1 bb 99 f5 10 88 10 f8
  1022.                     ee 99 10 a2 00 bd 00 02 f0 40 e8 c9 8f d0 f6 a0
  1023.                     02 bd 00 02 f0 34 e8 c9 20 f0 f6 c9 22 f0 03 ca
  1024.                     a9 20 8d f4 10 8a 99 c2 10 c8 a9 02 99 c2 10 c8
  1025.                     ee 99 10 bd 00 02 f0 12 e8 cd f4 10 d0 f5 a9 00
  1026.                     9d ff 01 ad 99 10 c9 0a 90 c7 a9 c2 a2 10 8d 9b
  1027.                     10 8e 9c 10 60 2c 11
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement