.org $2000
; da65 V2.16 - Git f5e9b401
; Created:    2017-09-27 19:43:21
; Input file: orig/DESKTOP2_s0_loader
; Page:       1


        .setcpu "65C02"

L02B4           := $02B4
L02B6           := $02B6
L02C3           := $02C3
L02C5           := $02C5
L02E6           := $02E6
L035F           := $035F
L0393           := $0393
L03B3           := $03B3
L03C1           := $03C1
L03E5           := $03E5
L0800           := $0800
L1031           := $1031
L1039           := $1039
L103B           := $103B
L1044           := $1044
L10F4           := $10F4
L1129           := $1129
L118B           := $118B
A2D             := $4000
L7ECA           := $7ECA
UNKNOWN_CALL    := $8E00
MLI             := $BF00
RAMRDOFF        := $C002
RAMRDON         := $C003
RAMWRTOFF       := $C004
RAMWRTON        := $C005
ALTZPOFF        := $C008
ALTZPON         := $C009
LCBANK1         := $C08B
LC300           := $C300
AUXMOVE         := $C311
XFER            := $C314
FSUB            := $E7A7
FADD            := $E7BE
FMULT           := $E97F
FDIV            := $EA66
ROUND           := $EB2B
FLOAT           := $EB93
FIN             := $EC4A
FOUT            := $ED34
LFC22           := $FC22
LFC58           := $FC58
COUT            := $FDED
LFE89           := $FE89
LFE93           := $FE93
L2000:  lda     $C083
L2003:  lda     $C083
        ldy     #$00
L2008:
L2009           := * + 1
L200A           := * + 2
        lda     L2027,y
L200B:
L200C           := * + 1
L200D           := * + 2
        sta     $D100,y
L200E:  lda     L2127,y
L2011:
L2013           := * + 2
        sta     $D200,y
L2014:  dey
        bne     L2008
        lda     $C082
        jsr     MLI
        .byte   $65
        .addr   L2020
L2020:  .byte   $04
L2021:  brk
L2022:  brk
        brk
        brk
        brk
        brk
L2027:  jmp     L1044

        .byte   $00,$4D,$6F,$75
L202E:  .byte   $73,$65,$20,$44,$65,$73,$6B,$00
        .byte   $18,$4C,$6F
L2039:  .byte   $61
L203A:  .byte   $64,$69,$6E,$67,$20,$41,$70,$70
        .byte   $6C,$65,$20
L2045:  .byte   $49,$49,$20,$44,$65,$73
L204B:  .byte   $6B,$54,$6F,$70,$08,$44,$65,$73
        .byte   $6B,$54,$6F,$70,$32,$04,$00,$00
        .byte   $1E,$00,$04,$00,$00,$01,$00,$01
        .byte   $90,$11,$03,$28,$10,$00,$1A,$00
        lda     $C082
        jsr     LFE93
        jsr     LFE89
        sta     $C00C
        sta     $C00F
        sta     $C000
        jsr     LC300
L2080:  jsr     LFC58
        lda     #$00
        sta     $C035
        lda     #$40
        sta     RAMWRTON
        sta     $0100
        sta     $0101
        sta     RAMWRTOFF
        lda     #$0C
        sta     $25
        jsr     LFC22
        lda     #$50
        sec
        sbc     $100F
        lsr     a
        sta     $24
        ldy     #$00
L20A8:  lda     $1010,y
        ora     #$80
        jsr     COUT
        iny
        cpy     $100F
        bne     L20A8
        jsr     MLI
        .byte   $CC
        .addr   L1039
        ldx     #$17
        lda     #$01
        sta     $BF58,x
        dex
        lda     #$00
L20C6:  sta     $BF58,x
        dex
        bpl     L20C6
        lda     #$CF
        sta     $BF58
        lda     $1003
        bne     L210F
L20D6:  jsr     MLI
        .byte   $C7
        .addr   L103B
L20DC:  .byte   $F0
L20DD:  .byte   $03
        jmp     L118B

L20E1:  lda     #$FF
        sta     $1003
        lda     $03FE
        sta     $1189
        lda     $03FF
        sta     $118A
        lda     $C083
        lda     $C083
        ldy     #$00
L20FA:  lda     $1000,y
        sta     $D100,y
        lda     $1100,y
        sta     $D200,y
        dey
        bne     L20FA
        lda     $C082
        jmp     L10F4

L210F:  lda     $1189
        sta     $03FE
        lda     $118A
        sta     $03FF
        jsr     MLI
        .byte   $C6
        .addr   L103B
        beq     L2126
        jmp     L1129

L2126:  .byte   $20
L2127:  brk
        bbs3    $C8,L2169
        .byte   $10
        .byte   $F0
L212D:  .byte   $03
L212E:  jmp     L118B

L2131:  lda     $1043
        sta     $1032
        jsr     MLI
        .byte   $CA
        .addr   L1031
        beq     L2142
        jmp     L118B

L2142:  jsr     MLI
        .byte   $CC
        .addr   L1039
        beq     L214D
        jmp     L118B

L214D:  jmp     L2000

        jsr     LC300
        jsr     LFC58
        lda     #$0C
        sta     $25
        jsr     LFC22
        lda     #$50
        sec
        sbc     $1160
        lsr     a
        sta     $24
        ldy     #$00
L2168:  .byte   $B9
L2169:  adc     ($11,x)
        ora     #$80
        jsr     COUT
        iny
        cpy     $1160
        bne     L2168
L2176:  sta     $C010
L2179:  lda     $C000
        bpl     L2179
        and     #$7F
        cmp     #$0D
        bne     L2176
        jmp     L1044

        .byte   $28,$49,$6E,$73,$65,$72,$74,$20
        .byte   $74,$68,$65,$20,$73,$79,$73,$74
        .byte   $65,$6D,$20,$64,$69,$73,$6B,$20
        .byte   $61,$6E,$64,$20,$50,$72,$65,$73
        .byte   $73,$20,$52,$65,$74,$75,$72,$6E
        .byte   $2E,$00,$00,$85,$06,$4C,$69,$FF
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$4C,$4C,$20,$03,$18,$20,$00
        .byte   $30,$00,$04,$00,$00,$00,$00,$00
        .byte   $00,$00,$01,$00,$02,$00,$80,$05
        .byte   $00,$08,$44,$65,$73,$6B,$54,$6F
        .byte   $70,$32,$00,$3F,$00,$40,$00,$40
        .byte   $00,$40,$00,$08,$90,$02,$00,$40
        .byte   $00,$D0,$00,$FB,$00,$40,$00,$08
        .byte   $90,$02,$00,$80,$00,$1D,$00,$05
        .byte   $00,$7F,$00,$08,$60,$01,$01,$02
        .byte   $02,$00,$00,$00,$06,$A2,$17,$A9
        .byte   $00
L2250:  sta     $BF59,x
        dex
        bpl     L2250
        php
        sei
        jsr     MLI
        .byte   $C8
        .addr   L2003
        plp
        and     #$FF
        beq     L2264
        brk
L2264:  lda     L2008
        sta     L2014
        sta     L200A
        php
        sei
        jsr     MLI
        .byte   $CE
        .addr   L2013
        plp
        and     #$FF
        beq     L227B
        brk
L227B:  lda     #$00
        sta     L20DC
        lda     L20DC
        cmp     L204B
        bne     L2299
        php
        sei
        jsr     MLI
        .byte   $CC
        .addr   L2011
        plp
        and     #$FF
        beq     L2296
        brk
L2296:  jmp     L0800

L2299:  asl     a
        tax
        lda     L2021,x
        sta     L200B
        lda     L2022,x
        sta     L200C
        lda     L2039,x
        sta     L200D
        lda     L203A,x
        sta     L200E
        php
        sei
        jsr     MLI
        .byte   $CA
        .addr   L2009
        plp
        and     #$FF
        beq     L22C1
        brk
L22C1:  ldx     L20DC
        lda     L2045,x
        beq     L22D6
        cmp     #$02
        beq     L22D3
        jsr     L212E
        jmp     L20D6

L22D3:  jsr     L20DD
L22D6:  inc     L20DC
        jmp     L2080

        brk
        sta     ALTZPON
        lda     LCBANK1
        lda     LCBANK1
        lda     #$80
        sta     $0100
        sta     $0101
        lda     #$00
        sta     $06
        sta     $08
        lda     L20DC
        asl     a
        tax
        lda     L202E,x
        sta     $09
        lda     L200C
        sta     $07
        clc
        adc     L203A,x
        sta     L212D
        lda     L2039,x
        beq     L2312
        inc     L212D
L2312:  ldy     #$00
L2314:  lda     ($06),y
        sta     ($08),y
        iny
        bne     L2314
        inc     $07
        inc     $09
        lda     $07
        cmp     L212D
        bne     L2314
        sta     ALTZPOFF
        lda     $C082
        rts

        brk
        lda     #$00
        sta     $06
        sta     $08
        lda     L20DC
        asl     a
        tax
        lda     L202E,x
        sta     $09
        lda     L200C
        sta     $07
        clc
        adc     L203A,x
        sta     L2168
        sta     RAMRDOFF
        sta     RAMWRTON
        ldy     #$00
L2352:  lda     ($06),y
        sta     ($08),y
        iny
        bne     L2352
        inc     $07
        inc     $09
        lda     $07
        cmp     L2168
        bne     L2352
        sta     RAMWRTOFF
        rts

        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        pha
        lda     $C061
        and     $C062
        bpl     L2410
        lda     $C000
        cmp     #$D0
        beq     L2414
L2410:  pla
        jmp     L7ECA

L2414:  sta     $C010
        sta     $C001
        sta     $C00D
        sta     $C05E
        lda     $C050
        lda     $C057
        sta     ALTZPOFF
        sta     $C082
        lda     #$00
        sta     $03C5
        jmp     L035F

        ldy     #$00
        lda     $03CF,y
        beq     L2442
        jsr     L03C1
        iny
        jmp     L02B6

L2442:  rts

        ldy     #$00
        lda     $03DE,y
        beq     L2451
        jsr     L03C1
        iny
        jmp     L02C5

L2451:  rts

        ldx     #$00
L2454:  lda     $02E0,x
        jsr     L03C1
        inx
        cpx     #$06
        bne     L2454
        rts

        .byte   $1B
        rmb4    $30
        and     $36,x
        bmi     L2487
        cmp     ($02)
        ldy     #$00
        sty     $03CC
        lda     #$01
        sta     $03C9
        lda     #$00
        sta     $03C6
        sta     $03C7
L247B:  lda     #$08
        sta     $03CB
        lda     $03C5
        sta     $03C8
L2486:  .byte   $AD
L2487:  iny
        .byte   $03
        jsr     L0393
        lda     $03CC
        lsr     a
        tay
        sta     $C054
        bcs     L2499
        sta     $C055
L2499:  lda     ($06),y
        and     $03C9
        cmp     #$01
        ror     $03CA
        inc     $03C8
        dec     $03CB
        bne     L2486
        lda     $03CA
        eor     #$FF
        sta     $C054
        jsr     L03C1
        lda     $03C6
        cmp     #$2F
        bne     L24C4
        lda     $03C7
        cmp     #$02
        beq     L24DB
L24C4:  asl     $03C9
        bpl     L24D1
        lda     #$01
        sta     $03C9
        inc     $03CC
L24D1:  inc     $03C6
        bne     L247B
        inc     $03C7
        bne     L247B
L24DB:  sta     $C054
        rts

        jsr     L03B3
        jsr     L02B4
L24E5:  jsr     L02E6
        lda     #$0D
        jsr     L03C1
        lda     #$0A
        jsr     L03C1
        lda     $03C8
        sta     $03C5
        cmp     #$C0
        bcc     L24E5
        lda     #$0D
        jsr     L03C1
        lda     #$0D
        jsr     L03C1
        jsr     L02C3
        sta     ALTZPON
        lda     LCBANK1
        lda     LCBANK1
        rts

        pha
        and     #$C7
        eor     #$08
        sta     $07
        and     #$F0
        lsr     a
        lsr     a
        lsr     a
        sta     $06
        pla
        and     #$38
        asl     a
        asl     a
        eor     $06
        asl     a
        rol     $07
        asl     a
        rol     $07
        eor     $06
        sta     $06
        rts

        lda     #$C1
        sta     $37
        lda     #$00
        sta     $36
        lda     #$8D
        jsr     L03E5
        rts

        jsr     COUT
        rts

        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$1B,$65,$1B,$54,$31,$36
        .byte   $09,$4C,$20,$44,$8D,$09,$5A,$8D
        .byte   $00,$1B,$4E,$1B,$54,$32,$34,$00
        .byte   $4C,$00,$C1,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00,$00,$00,$00,$00,$00
        .byte   $00,$00,$00