TINYBASIC.S

; da65 V2.18 - Git N/A
; Created:    2020-07-23 22:01:38
; Input file: TINYBASIC.OUT
; Page:       1

L0727           := $0727
L090B           := $090B
L0AC4           := $0AC4
L0D38           := $0D38
L15E0           := $15E0
L1740           := $1740
L1B20           := $1B20
L1EA0           := $1EA0
L4145           := $4145
L5441           := $5441
L7080           := $7080
L9148           := $9148
LD445           := $D445
        org $0000
L0000:  brk
L0001:  brk
L0002:  brk
L0003:  brk
L0004:  brk
L0005:  brk
        brk
        brk
        brk
        brk
L000A:  brk
L000B:  brk
        brk
        brk
        brk
        brk
L0010:  brk
        brk
        brk
        brk
        brk
        brk
L0016:  brk
        brk
L0018:  brk
        brk
        brk
        brk
        brk
L001D:  brk
        brk
        brk
L0020:  brk
L0021:  brk
L0022:  brk
L0023:  brk
L0024:  brk
L0025:  brk
L0026:  brk
L0027:  brk
L0028:  brk
L0029:  brk
L002A:  brk
L002B:  brk
L002C:  brk
L002D:  brk
L002E:  brk
L002F:  brk
L0030:  brk
        brk
        brk
        brk
L0034:  brk
        brk
        brk
        brk
        brk
        brk
L003A:  brk
        brk
        brk
        brk
        brk
L003F:  brk
        brk
        brk
        brk
L0043:  brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
L004F:  brk
L0050:  brk
        brk
L0052:  brk
L0053:  brk
L0054:  brk
        brk
        brk
        brk
        brk
L0059:  brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
L0061:  brk
L0062:  brk
        brk
L0064:  brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
L0071:  brk
L0072:  brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
L0080:  brk
        brk
L0082:  brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
L008A:  brk
        brk
        brk
        brk
        brk
        brk
L0090:  brk
        brk
        brk
L0093:  brk
        brk
L0095:  brk
        brk
        brk
        brk
        brk
        brk
L009B:  brk
        brk
        brk
        brk
        brk
        brk
L00A1:  brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
L00AA:  brk
L00AB:  brk
L00AC:  brk
L00AD:  brk
        brk
L00AF:  brk
        brk
        brk
        brk
        brk
        brk
        brk
L00B6:  brk
L00B7:  brk
L00B8:  brk
L00B9:  brk
L00BA:  brk
L00BB:  brk
L00BC:  brk
L00BD:  brk
L00BE:  brk
L00BF:  brk
L00C0:  brk
L00C1:  brk
L00C2:  brk
L00C3:  brk
L00C4:  brk
L00C5:  brk
L00C6:  brk
L00C7:  brk
        brk
        brk
        brk
        brk
        brk
L00CD:  brk
L00CE:  brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
L00D8:  brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
L00E7:  brk
        brk
L00E9:  brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        brk
        lda     L1740
        clc
        bmi     L0114
L0106:  lda     L1740
        bpl     L0106
        jsr     L010E
L010E:  lda     #$FF
        jsr     L1EA0
        sec
L0114:  rts

        lda     #$01
        bit     $6E02
        clc
        beq     L012B
L011D:  bit     $6E02
        bne     L011D
        jsr     L0125
L0125:  lda     #$FF
        jsr     L2009
        sec
L012B:  rts
        .org    $2000
        jmp     L2085

        jmp     L20BD

L2006:  jmp     L2006

L2009:  jmp     L2009

L200C:  nop
        clc
        rts

L200F:  .byte   $5F
L2010:  clc
L2011:  .byte   $82
L2012:  .byte   $80
L2013:  .byte   $04
        stx     L00C3
        bcc     L201D
        stx     L00C3
        sta     (L00C2),y
        rts

L201D:  .byte   $B1
L201E:  .byte   $C2
L201F:  ldy     #$00
        rts

        .byte   $62
        and     (L0064,x)
        and     (L00D8,x)
        and     (L0005,x)
        .byte   $22
        .byte   $33
        .byte   $22
        sbc     $9F21,x
        .byte   $23
        .byte   $42
        .byte   $27
        .byte   $3F
        .byte   $27
        .byte   $7A
        .byte   $23
        .byte   $FC
        bit     L0095
        .byte   $23
        .byte   $9F
        .byte   $23
        .byte   $9F
        .byte   $23
        lda     $C126,x
        rol     L008A
        rol     L009B
        rol     L00E9
        rol     L0061
        .byte   $23
        eor     (L0023),y
        eor     (L0026,x)
        .byte   $52
        rol     L004F
        rol     L0062
        rol     L00E7
        and     L00CD
        .byte   $22
        asl     L0023
        .byte   $9F
        .byte   $23
        ora     L0024,x
        .byte   $A7
        .byte   $23
        .byte   $B7
        .byte   $22
        .byte   $BF
        .byte   $22
        .byte   $83
        bit     L00A1
        .byte   $22
        .byte   $9F
        .byte   $23
        .byte   $9F
        .byte   $23
        tay
        bit     L004F
        .byte   $27
        eor     L0727
        and     L00AA
        jsr     L2337
        lda     L1B20,x
        .byte   $27
        lda     (L0026),y
        jsr     L5441
        .byte   $20
        .byte   $80
L2083:  .byte   $70
L2084:  .byte   $27
L2085:  lda     #$00
        sta     L0020
        sta     L0022
        lda     #$29
        sta     L0021
        sta     L0023
        ldy     #$01
L2093:  lda     (L0022),y
        tax
        eor     #$FF
        sta     (L0022),y
        cmp     (L0022),y
        php
        txa
        sta     (L0022),y
        inc     L0022
        bne     L20A6
        inc     L0023
L20A6:  plp
        beq     L2093
        dey
        cld
        lda     L0020
        adc     L2013
        sta     L0024
        tya
        adc     L0021
        sta     L0025
        tya
        sta     (L0020),y
        iny
        sta     (L0020),y
L20BD:  lda     L0022
        sta     L00C6
        sta     L0026
        lda     L0023
        sta     L00C7
        sta     L0027
        jsr     L2487
L20CC:  lda     L2083
        sta     L002A
        lda     L2084
        sta     L002B
        lda     #$80
        sta     L00C1
        lda     #$30
        sta     L00C0
        ldx     #$00
        stx     L00BE
        stx     L00C2
        dex
        txs
L20E6:  cld
        jsr     L22F9
        jsr     L20F2
        jmp     L20E6

        .byte   $83
        .byte   $65
L20F2:  cmp     #$30
        bcs     L2171
        cmp     #$08
        bcc     L2106
        asl     a
        tax
L20FC:  lda     L201F,x
        pha
        lda     L201E,x
        pha
        php
        rti

L2106:  adc     L00C1
        tax
        lda     (L00C1),y
        pha
        lda     L0000,x
        sta     (L00C1),y
        pla
        sta     L0000,x
        rts

L2114:  jsr     L2487
        lda     #$21
        jsr     L2009
        lda     L002A
        sec
        sbc     L2083
        tax
        lda     L002B
        sbc     L2084
        jsr     L23A0
        lda     L00BE
        beq     L2141
        lda     #$7E
        sta     L002A
        lda     #$20
        sta     L002B
        jsr     L22A1
        ldx     L0028
        lda     L0029
        jsr     L23A0
L2141:  lda     #$07
        jsr     L2009
        jsr     L2487
L2149:  lda     L0026
        sta     L00C6
        lda     L0027
        sta     L00C7
        jmp     L20CC

L2154:  ldx     #$7C
L2156:  cpx     L00C1
L2158:  bcc     L2114
        ldx     L00C1
        inc     L00C1
        inc     L00C1
        clc
        rts

        dec     L00BD
L2164:  lda     L00BD
        beq     L2114
L2168:  lda     L00BC
        sta     L002A
        lda     L00BD
        sta     L002B
        rts

L2171:  cmp     #$40
        bcs     L21B8
        pha
        jsr     L22F9
        adc     L2083
        sta     L00BC
        pla
        pha
        and     #$07
        adc     L2084
        sta     L00BD
        pla
        and     #$08
        bne     L2168
        lda     L00BC
        ldx     L002A
        sta     L002A
        stx     L00BC
        lda     L00BD
        ldx     L002B
        sta     L002B
        stx     L00BD
L219C:  lda     L00C6
        sbc     #$01
        sta     L00C6
        bcs     L21A6
        dec     L00C7
L21A6:  cmp     L0024
        lda     L00C7
        sbc     L0025
        bcc     L2158
        lda     L00BC
        sta     (L00C6),y
        iny
        lda     L00BD
        sta     (L00C6),y
        rts

L21B8:  pha
        lsr     a
        lsr     a
        lsr     a
        lsr     a
        and     #$0E
        tax
        pla
        cmp     #$60
        and     #$1F
        bcs     L21C9
        ora     #$E0
L21C9:  clc
        beq     L21D3
        adc     L002A
        sta     L00BC
        tya
        adc     L002B
L21D3:  sta     L00BD
        jmp     L20FC

        lda     L002C
        sta     L00B8
        lda     L002D
        sta     L00B9
L21E0:  jsr     L2225
        jsr     L2214
        eor     (L002A),y
        tax
        jsr     L22F9
        txa
        beq     L21E0
        asl     a
        beq     L2204
        lda     L00B8
        sta     L002C
        lda     L00B9
        sta     L002D
L21FA:  jmp     L2164

        jsr     L2225
        cmp     #$0D
        bne     L21FA
L2204:  rts

        jsr     L2225
        cmp     #$5B
        bcs     L21FA
        cmp     #$41
        bcc     L21FA
        asl     a
        jsr     L2387
L2214:  ldy     #$00
        lda     (L002C),y
        inc     L002C
        bne     L221E
        inc     L002D
L221E:  cmp     #$0D
        clc
        rts

L2222:  jsr     L2214
L2225:  lda     (L002C),y
        cmp     #$20
        beq     L2222
        cmp     #$3A
        clc
        bpl     L2232
        cmp     #$30
L2232:  rts

        jsr     L2225
        bcc     L21FA
        sty     L00BC
        sty     L00BD
L223C:  lda     L00BC
        ldx     L00BD
        asl     L00BC
        rol     L00BD
        asl     L00BC
        rol     L00BD
        clc
        adc     L00BC
        sta     L00BC
        txa
        adc     L00BD
        asl     L00BC
        rol     a
        sta     L00BD
        jsr     L2214
        and     #$0F
        adc     L00BC
        sta     L00BC
        tya
        adc     L00BD
        sta     L00BD
        jsr     L2225
        bcs     L223C
        jmp     L2380

L226B:  jsr     L24FC
        lda     L00BC
        ora     L00BD
        beq     L22BC
L2274:  lda     L0020
        sta     L002C
        lda     L0021
        sta     L002D
L227C:  jsr     L236D
        beq     L2293
        lda     L0028
        cmp     L00BC
        lda     L0029
        sbc     L00BD
        bcs     L2293
L228B:  jsr     L2214
        bne     L228B
        jmp     L227C

L2293:  lda     L0028
        eor     L00BC
        bne     L229D
        lda     L0029
        eor     L00BD
L229D:  rts

L229E:  jsr     L22A6
L22A1:  jsr     L22F9
        bpl     L229E
L22A6:  inc     L00BF
        bmi     L22AD
        jmp     L2009

L22AD:  dec     L00BF
L22AF:  rts

L22B0:  cmp     #$22
        beq     L22AF
        jsr     L22A6
        jsr     L2214
        bne     L22B0
L22BC:  jmp     L2114

L22BF:  lda     #$20
        jsr     L22A6
        lda     L00BF
        and     #$87
        bmi     L22AF
        bne     L22BF
        rts

        ldx     #$7B
        jsr     L2156
        inc     L00C1
        inc     L00C1
        inc     L00C1
        sec
        lda     L0003,x
        sbc     L0000,x
        sta     L0000,x
        lda     L0004,x
        sbc     L0001,x
        bvc     L22E9
        eor     #$80
        ora     #$01
L22E9:  bmi     L22F5
        bne     L22F1
        ora     L0000,x
        beq     L22F3
L22F1:  lsr     L0002,x
L22F3:  lsr     L0002,x
L22F5:  lsr     L0002,x
        bcc     L2305
L22F9:  ldy     #$00
        lda     (L002A),y
        inc     L002A
        bne     L2303
        inc     L002B
L2303:  ora     #$00
L2305:  rts

        lda     L00BE
        beq     L2332
L230A:  jsr     L2214
        bne     L230A
        jsr     L236D
        beq     L232F
L2314:  jsr     L234C
        jsr     L200C
        bcs     L2325
        lda     L00C4
        sta     L002A
        lda     L00C5
        sta     L002B
        rts

L2325:  lda     L2083
        sta     L002A
        lda     L2084
        sta     L002B
L232F:  jmp     L2114

L2332:  sta     L00BF
        jmp     L2149

L2337:  lda     L0020
        sta     L002C
        lda     L0021
        sta     L002D
        jsr     L236D
        beq     L232F
        lda     L002A
        sta     L00C4
        lda     L002B
        sta     L00C5
L234C:  lda     #$01
        sta     L00BE
        rts

        jsr     L226B
        beq     L2314
L2356:  lda     L00BC
        sta     L0028
        lda     L00BD
        sta     L0029
        jmp     L2114

        jsr     L26FD
        jsr     L26F4
        jsr     L2274
        bne     L2356
        rts

L236D:  jsr     L2214
        sta     L0028
        jsr     L2214
        sta     L0029
        ora     L0028
        rts

        jsr     L24FC
        jsr     L2380
L2380:  lda     L00BD
L2382:  jsr     L2387
        lda     L00BC
L2387:  ldx     L00C1
        dex
        sta     L0000,x
        stx     L00C1
        cpx     L00C0
        bne     L239F
L2392:  jmp     L2114

L2395:  ldx     L00C1
        cpx     #$80
        bpl     L2392
        lda     L0000,x
        inc     L00C1
L239F:  rts

L23A0:  sta     L00BD
        stx     L00BC
        jmp     L23B8

        ldx     L00C1
        lda     L0001,x
        bpl     L23B5
        jsr     L2641
        lda     #$2D
        jsr     L22A6
L23B5:  jsr     L24FC
L23B8:  lda     #$1F
        sta     L00B8
        sta     L00BA
        lda     #$2A
        sta     L00B9
        sta     L00BB
        ldx     L00BC
        ldy     L00BD
        sec
L23C9:  inc     L00B8
        txa
        sbc     #$10
        tax
        tya
        sbc     #$27
        tay
        bcs     L23C9
L23D5:  dec     L00B9
        txa
        adc     #$E8
        tax
        tya
        adc     #$03
        tay
        bcc     L23D5
        txa
L23E2:  sec
L23E3:  inc     L00BA
        sbc     #$64
        bcs     L23E3
        dey
        bpl     L23E2
L23EC:  dec     L00BB
        adc     #$0A
        bcc     L23EC
        ora     #$30
        sta     L00BC
        lda     #$20
        sta     L00BD
        ldx     #$FB
L23FC:  stx     L00C3
        lda     L00BD,x
        ora     L00BD
        cmp     #$20
        beq     L240F
        ldy     #$30
        sty     L00BD
        ora     L00BD
        jsr     L22A6
L240F:  ldx     L00C3
        inx
        bne     L23FC
        rts

        lda     L002D
        pha
        lda     L002C
        pha
        lda     L0020
        sta     L002C
        lda     L0021
        sta     L002D
        lda     L0024
        ldx     L0025
        jsr     L245B
        beq     L242F
        jsr     L245B
L242F:  lda     L002C
        sec
        sbc     L00B6
        lda     L002D
        sbc     L00B7
        bcs     L247C
        jsr     L236D
        beq     L247C
        ldx     L0028
        lda     L0029
        jsr     L23A0
        lda     #$20
L2448:  jsr     L22A6
        jsr     L200C
        bcs     L247C
        jsr     L2214
        bne     L2448
        jsr     L2483
        jmp     L242F

L245B:  sta     L00B6
        inc     L00B6
        bne     L2462
        inx
L2462:  stx     L00B7
        ldy     L00C1
        cpy     #$80
        beq     L2482
        jsr     L226B
L246D:  lda     L002C
        ldx     L002D
        sec
        sbc     #$02
        bcs     L2477
        dex
L2477:  sta     L002C
        jmp     L2748

L247C:  pla
        sta     L002C
        pla
        sta     L002D
L2482:  rts

L2483:  lda     L00BF
        bmi     L2482
L2487:  lda     #$0D
        jsr     L2009
        lda     L2011
        and     #$7F
        sta     L00BF
        beq     L249C
L2495:  jsr     L2764
        dec     L00BF
        bne     L2495
L249C:  lda     #$0A
        jmp     L2761

L24A1:  ldy     L2012
L24A4:  sty     L00BF
        bcs     L24B3
        lda     #$30
        sta     L002C
        sta     L00C0
        sty     L002D
        jsr     L2380
L24B3:  eor     L0080
        sta     L0080
        jsr     L2006
        ldy     #$00
        ldx     L00C0
        and     #$7F
        beq     L24B3
        cmp     #$7F
        beq     L24B3
        cmp     #$13
        beq     L24A4
        cmp     #$0A
        beq     L24A1
        cmp     L2010
        beq     L24DC
        cmp     L200F
        bne     L24E2
        cpx     #$30
        bne     L24F2
L24DC:  ldx     L002C
        sty     L00BF
        lda     #$0D
L24E2:  cpx     L00C1
        bmi     L24EE
        lda     #$07
        jsr     L22A6
        jmp     L24B3

L24EE:  sta     L0000,x
        inx
        inx
L24F2:  dex
        stx     L00C0
        cmp     #$0D
        bne     L24B3
        jsr     L2483
L24FC:  jsr     L2395
        sta     L00BC
        jsr     L2395
        sta     L00BD
        rts

        jsr     L26D6
        jsr     L226B
        php
        jsr     L246D
        sta     L00B8
        stx     L00B9
        lda     L00BC
        sta     L00B6
        lda     L00BD
        sta     L00B7
        ldx     #$00
        plp
        bne     L252D
        jsr     L236D
        dex
        dex
L2527:  dex
        jsr     L2214
        bne     L2527
L252D:  sty     L0028
        sty     L0029
        jsr     L26D6
        lda     #$0D
        cmp     (L002C),y
        beq     L254B
        inx
        inx
        inx
L253D:  inx
        iny
        cmp     (L002C),y
        bne     L253D
        lda     L00B6
        sta     L0028
        lda     L00B7
        sta     L0029
L254B:  lda     L00B8
        sta     L00BC
        lda     L00B9
        sta     L00BD
        clc
        ldy     #$00
        txa
        beq     L25C7
        bpl     L2584
        adc     L002E
        sta     L00B8
        lda     L002F
        sbc     #$00
        sta     L00B9
L2565:  lda     (L002E),y
        sta     (L00B8),y
        ldx     L002E
        cpx     L0024
        bne     L2575
        lda     L002F
        cmp     L0025
        beq     L25BF
L2575:  inx
        stx     L002E
        bne     L257C
        inc     L002F
L257C:  inc     L00B8
        bne     L2565
        inc     L00B9
        bne     L2565
L2584:  adc     L0024
        sta     L00B8
        sta     L002E
        tya
        adc     L0025
        sta     L00B9
        sta     L002F
        lda     L002E
        sbc     L00C6
        lda     L002F
        sbc     L00C7
        bcc     L25A0
        dec     L002A
        jmp     L2114

L25A0:  lda     (L0024),y
        sta     (L002E),y
        ldx     L0024
        bne     L25AA
        dec     L0025
L25AA:  dec     L0024
        ldx     L002E
        bne     L25B2
        dec     L002F
L25B2:  dex
        stx     L002E
        cpx     L00BC
        bne     L25A0
        ldx     L002F
        cpx     L00BD
        bne     L25A0
L25BF:  lda     L00B8
        sta     L0024
        lda     L00B9
        sta     L0025
L25C7:  lda     L0028
        ora     L0029
        beq     L25E4
        lda     L0028
        sta     (L00BC),y
        iny
        lda     L0029
        sta     (L00BC),y
L25D6:  iny
        sty     L00B6
        jsr     L2214
        php
        ldy     L00B6
        sta     (L00BC),y
        plp
        bne     L25D6
L25E4:  jmp     L20CC

        jsr     L2154
        lda     L0003,x
        and     #$80
        beq     L25F2
        lda     #$FF
L25F2:  sta     L00BC
        sta     L00BD
        pha
        adc     L0002,x
        sta     L0002,x
        pla
        pha
        adc     L0003,x
        sta     L0003,x
        pla
        eor     L0001,x
        sta     L00BB
        bpl     L260B
        jsr     L2643
L260B:  ldy     #$11
        lda     L0000,x
        ora     L0001,x
        bne     L2616
        jmp     L2114

L2616:  sec
        lda     L00BC
        sbc     L0000,x
        pha
        lda     L00BD
        sbc     L0001,x
        pha
        eor     L00BD
        bmi     L262F
        pla
        sta     L00BD
        pla
        sta     L00BC
        sec
        jmp     L2632

L262F:  pla
        pla
        clc
L2632:  rol     L0002,x
        rol     L0003,x
        rol     L00BC
        rol     L00BD
        dey
        bne     L2616
        lda     L00BB
        bpl     L264E
L2641:  ldx     L00C1
L2643:  sec
        tya
        sbc     L0000,x
        sta     L0000,x
        tya
        sbc     L0001,x
        sta     L0001,x
L264E:  rts

        jsr     L2641
        jsr     L2154
        lda     L0000,x
        adc     L0002,x
        sta     L0002,x
        lda     L0001,x
        adc     L0003,x
        sta     L0003,x
        rts

        jsr     L2154
        ldy     #$10
        lda     L0002,x
        sta     L00BC
        lda     L0003,x
        sta     L00BD
L266F:  asl     L0002,x
        rol     L0003,x
        rol     L00BC
        rol     L00BD
        bcc     L2686
        clc
        lda     L0002,x
        adc     L0000,x
        sta     L0002,x
        lda     L0003,x
        adc     L0001,x
        sta     L0003,x
L2686:  dey
        bne     L266F
        rts

        jsr     L2395
        tax
        lda     L0000,x
        ldy     L0001,x
        dec     L00C1
        ldx     L00C1
        sty     L0000,x
        jmp     L2387

        ldx     #$7D
        jsr     L2156
        lda     L0001,x
        pha
        lda     L0000,x
        pha
        jsr     L2395
        tax
        pla
        sta     L0000,x
        pla
        sta     L0001,x
        rts

        jsr     L26FD
        lda     L00BC
        sta     L002A
        lda     L00BD
        sta     L002B
        rts

        ldx     #$2C
        bne     L26C3
        ldx     #$2E
L26C3:  lda     L0000,x
        cmp     #$80
        bcs     L26D6
        lda     L0001,x
        bne     L26D6
        lda     L002C
        sta     L002E
        lda     L002D
        sta     L002F
        rts

L26D6:  lda     L002C
        ldy     L002E
        sty     L002C
        sta     L002E
        lda     L002D
        ldy     L002F
        sty     L002D
        sta     L002F
        ldy     #$00
        rts

        lda     L0028
        sta     L00BC
        lda     L0029
        sta     L00BD
        jsr     L219C
L26F4:  lda     L00C6
        sta     L0026
        lda     L00C7
        sta     L0027
L26FC:  rts

L26FD:  lda     (L00C6),y
        sta     L00BC
        jsr     L2708
        lda     (L00C6),y
        sta     L00BD
L2708:  inc     L00C6
        bne     L270E
        inc     L00C7
L270E:  lda     L0022
        cmp     L00C6
        lda     L0023
        sbc     L00C7
        bcs     L26FC
        jmp     L2114

        jsr     L2724
        sta     L00BC
        tya
        jmp     L2382

L2724:  jsr     L24FC
        lda     L00BC
        sta     L00B6
        jsr     L24FC
        lda     L00BD
        sta     L00B7
        ldy     L00BC
        jsr     L24FC
        ldx     L00B7
        lda     L00B6
        clc
        jmp     (L00BC)

        jsr     L2742
L2742:  jsr     L22F9
        jmp     L2387

L2748:  stx     L002D
        cpx     #$00
        rts

L274D:  ldy     #$02
        sty     L00BC
        ldy     #$29
        sty     L00BD
        ldy     #$00
L2757:  lda     (L00BC),y
        cmp     #$08
        bne     L2760
        jmp     L2168

L2760:  rts

L2761:  jsr     L2009
L2764:  lda     #$FF
        bit     L2011
        bmi     L276D
        lda     #$00
L276D:  jmp     L2009

        bit     L003A
        .byte   $91
L2773:  .byte   $27
        bpl     L2757
        eor     $2AC5,y
        lsr     L0010,x
        ora     (L002C),y
        .byte   $8B
        .byte   $4C
        .byte   $45
L2780:  .byte   $D4
        ldy     #$80
        .byte   $BD
L2784:  bmi     L2742
        cpx     #$13
        ora     $4794,x
        .byte   $CF
        dey
        .byte   $54
        .byte   $CF
        bmi     L274D
L2791:  cpx     #$10
        ora     (L0016),y
        .byte   $80
        .byte   $53
        eor     L00C2,x
        bmi     L2757
        cpx     #$14
        asl     L0090,x
        bvc     L2773
L27A1:  .byte   $83
        eor     #$4E
        .byte   $D4
        sbc     L0071
        dey
        .byte   $BB
        sbc     (L001D,x)
        .byte   $8F
        ldx     #$21
        cli
        .byte   $6F
        .byte   $83
        ldy     $5522
        .byte   $83
        tsx
        bit     L0093
        cpx     #$23
        ora     $BC30,x
        jsr     L9148
        eor     #$C6
        bmi     L2780
        and     (L0034),y
        bmi     L2784
        sty     L0054
        pha
        eor     L00CE
        .byte   $1C
        ora     L0D38,x
        txs
        eor     #$4E
        bvc     L282B
        .byte   $D4
        ldy     #$10
        .byte   $E7
        bit     L003F
        jsr     L2791
        sbc     (L0059,x)
        sta     (L00AC,x)
        bmi     L27A1
        .byte   $13
        ora     (L0082),y
        ldy     $E04D
        ora     $5289,x
        eor     L0054
        eor     L0052,x
        dec     L15E0
        ora     $4585,x
        lsr     $E0C4
        and     $4C98
        eor     #$53
        .byte   $D4
        .byte   $EC
        .byte   $24
L2803:  brk
        brk
        brk
        brk
        asl     a
        .byte   $80
L2809:  .byte   $1F
        bit     L0093
        .byte   $23
L280D:  ora     $BC30,x
        sbc     (L0050,x)
        .byte   $80
L2813:  ldy     $8559
        .byte   $52
        eor     L00CE,x
        sec
        asl     a
        stx     L0043
        jmp     L4145

        .byte   $D2
        .byte   $2B
        sty     L0052
        eor     L00CD
        .byte   $1D
L2827:  ldy     #$80
        .byte   $BD
        sec
L282B:  .byte   $14
        sta     L00AD
        bmi     L2803
        .byte   $17
L2831:  .byte   $64
        sta     (L00AB,x)
        bmi     L2809
        sta     L00AB
        bmi     L280D
        clc
        .byte   $5A
        sta     L00AD
        bmi     L2813
        .byte   $19
        .byte   $54
L2842:  .byte   $2F
        bmi     L2827
        sta     L00AA
        bmi     L282B
        .byte   $1A
        .byte   $5A
        sta     L00AF
        bmi     L2831
        .byte   $1B
        .byte   $54
        .byte   $2F
        tya
L2853:  .byte   $52
        lsr     L0AC4
        .byte   $80
        .byte   $80
        .byte   $12
        asl     a
        ora     #$29
        .byte   $1A
        asl     a
        .byte   $1A
        sta     L0018
        .byte   $13
        ora     #$80
        .byte   $12
        ora     (L000B,x)
        and     (L0030),y
        adc     (L0072,x)
        .byte   $0B
        .byte   $04
        .byte   $02
        .byte   $03
        ora     L0003
        .byte   $1B
        .byte   $1A
        ora     L090B,y
        asl     L000A
        brk
        brk
        .byte   $1C
        .byte   $17
        .byte   $2F
        .byte   $8F
        eor     L0053,x
        .byte   $D2
        .byte   $80
        tay
        bmi     L2842
        and     (L002A),y
        and     (L002A),y
        .byte   $80
        lda     #$2E
        .byte   $2F
        ldx     #$12
        .byte   $2F
        cmp     (L002F,x)
        .byte   $80
        tay
        bmi     L2853
        .byte   $80
        lda     #$2F
        .byte   $83
        ldy     $BC38
        .byte   $0B
        .byte   $2F
        .byte   $80
        tay
        .byte   $52
        .byte   $2F
        sty     L00BD
        ora     #$02
        .byte   $2F
        stx     $84BC
        lda     $9309,x
        .byte   $2F
        sty     L00BE
        ora     #$05
        .byte   $2F
        ora     #$91
        .byte   $2F
        .byte   $80
        ldx     $BD84,y
        ora     #$06
        .byte   $2F
        sty     L00BC
        ora     #$95
        .byte   $2F
        ora     #$04
        .byte   $2F
        brk
        brk
        brk