a2d/desktop/ovl1c.s

        .setcpu "6502"

        .include "apple2.inc"
        .include "../macros.inc"
        .include "../inc/apple2.inc"
        .include "../inc/prodos.inc"

L0006           := $0006
LDAEE           := $DAEE
LDB55           := $DB55
LDBE0           := $DBE0
LDE9F           := $DE9F
LDF94           := $DF94
LE0FE           := $E0FE
LE137           := $E137
LE6AB           := $E6AB
LE6FD           := $E6FD
LE766           := $E766
LE7A8           := $E7A8

;;; Disk II / IWM I/O locations ($C0nX, n = slot + 8)
;;; c/o http://archive.li/ewHUL
PHASE0  := $C080                ; Stepper motor phase 0
PHASE1  := $C082                ; Stepper motor phase 1
PHASE2  := $C084                ; Stepper motor phase 2
PHASE3  := $C086                ; Stepper motor phase 3
DISABLE := $C088                ; Turn disk drive off
ENABLE  := $C089                ; Turn disk drive on
SELECT  := $C08A                ; Select drive 1 or 2 (at addr+1)
Q6      := $C08C                ;
CHECKWP := $C08D                ;
Q7      := $C08E                ;
WRMODE  := $C08F                ; Turn on write mode

        .org $800


L0800:  php
        sei
        jsr     L083A
        plp
        cmp     #$00
        bne     L080C
        clc
        rts

L080C:  cmp     #$02
        bne     L0815
        lda     #$2B
        jmp     L0821

L0815:  cmp     #$01
        bne     L081E
        lda     #$27
        jmp     L0821

L081E:  clc
        adc     #$30
L0821:  sec
        rts

L0823:  asl     a
        asl     current_track
        sta     seltrack_track
        txa
        lsr     a
        lsr     a
        lsr     a
        lsr     a
        tay
        lda     seltrack_track
        jsr     select_track
        lsr     current_track
        rts

L083A:  tax
        and     #$70
        sta     L0C23
        txa
        ldx     L0C23
        rol     a
        lda     #$00
        rol     a
        bne     :+
        lda     SELECT,x        ; Select drive 1 or 2
        jmp     L0853

:       lda     LCBANK1,x
L0853:  lda     ENABLE,x        ; Turn drive on
        lda     #$D7
        sta     $DA
        lda     #$50
        sta     current_track
        lda     #$00
        jsr     L0823
L0864:  lda     $DA
        beq     L086E
        jsr     L0B3A
        jmp     L0864

L086E:  lda     #$01
        sta     $D3
        lda     #$AA
        sta     $D0
        lda     L0C20
        clc
        adc     #$02
        sta     $D4
        lda     #$00
        sta     $D1
L0882:  lda     $D1
        ldx     L0C23
        jsr     L0823
        ldx     L0C23
        lda     CHECKWP,x       ; Check write protect
        lda     Q7,x
        tay
        lda     Q7,x            ; Activate read mode
        lda     Q6,x
        tya
        bpl     L08A2
        lda     #$02
        jmp     L08F9

L08A2:  jsr     L0B63
        bcc     L08B5
        lda     #$01
        ldy     $D4
        cpy     L0C1F
        bcs     L08B2
        lda     #$04
L08B2:  jmp     L08F9

L08B5:  ldy     $D4
        cpy     L0C1F
        bcs     L08C1
        lda     #$04
        jmp     L08F9

L08C1:  cpy     L0C20
        bcc     L08CB
        lda     #$03
        jmp     L08F9

L08CB:  lda     L0C22
        sta     L0C25
L08D1:  dec     L0C25
        bne     L08DB
        lda     #$01
        jmp     L08F9

L08DB:  ldx     L0C23
        jsr     L096A
        bcs     L08D1
        lda     $D8
        bne     L08D1
        ldx     L0C23
        jsr     L0907
        bcs     L08D1
        inc     $D1
        lda     $D1
        cmp     #$23
        bcc     L0882
        lda     #$00
L08F9:  pha
        ldx     L0C23
        lda     DISABLE,x       ; Turn drive off
        lda     #$00
        jsr     L0823
        pla
        rts

;;; ============================================================

.proc L0907
        ldy     #$20
L0909:  dey
        beq     return_with_carry_set
:       lda     Q6,x
        bpl     :-

L0911:  eor     #$D5
        bne     L0909
        nop
:       lda     Q6,x
        bpl     :-
        cmp     #$AA
        bne     L0911
        ldy     #$56
:       lda     Q6,x
        bpl     :-
        cmp     #$AD
        bne     L0911

        lda     #$00
L092C:  dey
        sty     $D5
:       lda     Q6,x
        bpl     :-
        cmp     #$96
        bne     return_with_carry_set
        ldy     $D5
        bne     L092C

L093C:  sty     $D5
:       lda     Q6,x
        bpl     :-
        cmp     #$96
        bne     return_with_carry_set
        ldy     $D5
        iny
        bne     L093C

:       lda     Q6,x
        bpl     :-
        cmp     #$96
        bne     return_with_carry_set
:       lda     Q6,x
        bpl     :-
        cmp     #$DE
        bne     return_with_carry_set
        nop
:       lda     Q6,x
        bpl     :-
        cmp     #$AA
        beq     return_with_carry_clear
.endproc
return_with_carry_set:
        sec
        rts

.proc L096A
        ldy     #$FC
        sty     $DC
L096E:  iny
        bne     :+
        inc     $DC
        beq     return_with_carry_set
:       lda     Q6,x
        bpl     :-

L097A:  cmp     #$D5
        bne     L096E
        nop
:       lda     Q6,x
        bpl     :-
        cmp     #$AA
        bne     L097A
        ldy     #$03
:       lda     Q6,x
        bpl     :-
        cmp     #$96
        bne     L097A

        lda     #$00
L0995:  sta     $DB
:       lda     Q6,x
        bpl     :-
        rol     a
        sta     $DD
:       lda     Q6,x
        bpl     :-
        and     $DD
        sta     $D7,y
        eor     $DB
        dey
        bpl     L0995

        tay
        bne     return_with_carry_set
:       lda     Q6,x
        bpl     :-
        cmp     #$DE
        bne     return_with_carry_set
        nop
:       lda     Q6,x
        bpl     :-
        cmp     #$AA
        bne     return_with_carry_set
.endproc
return_with_carry_clear:
        clc
        rts

;;; ============================================================
;;; Move head to track - A = track, X = slot * 16

.proc select_track
        stx     seltrack_slot
        sta     seltrack_track
        cmp     current_track
        beq     done
        lda     #$00
        sta     L0C38
L09D6:  lda     current_track
        sta     L0C39
        sec
        sbc     seltrack_track
        beq     L0A19
        bcs     L09EB
        eor     #$FF
        inc     current_track
        bcc     L09F0
L09EB:  adc     #$FE
        dec     current_track
L09F0:  cmp     L0C38
        bcc     L09F8
        lda     L0C38
L09F8:  cmp     #$0C
        bcs     L09FD
        tay
L09FD:  sec
        jsr     L0A1D
        lda     L0B4B,y
        jsr     L0B3A
        lda     L0C39
        clc
        jsr     motor
        lda     L0B57,y
        jsr     L0B3A
        inc     L0C38
        bne     L09D6
L0A19:  jsr     L0B3A
        clc
L0A1D:  lda     current_track

motor:  and     #$03            ; PHASE0 + 2 * phase
        rol     a
        ora     seltrack_slot
        tax
        lda     PHASE0,x
        ldx     seltrack_slot

done:   rts
.endproc

;;; ============================================================

L0A2E:  jsr     L0C0E
        lda     CHECKWP,x       ; Check write protect
        lda     Q7,x
        lda     #$FF
        sta     WRMODE,x        ; Write
        cmp     Q6,x
        pha
        pla
        nop
        ldy     #$04
L0A44:  pha
        pla
        jsr     write2
        dey
        bne     L0A44
        lda     #$D5
        jsr     write
        lda     #$AA
        jsr     write
        lda     #$AD
        jsr     write
        ldy     #$56
        nop
        nop
        nop
        bne     L0A65
L0A62:  jsr     L0C0E
L0A65:  nop
        nop
        lda     #$96
        sta     $C08D,x
        cmp     Q6,x
        dey
        bne     L0A62
        bit     $00
        nop
L0A75:  jsr     L0C0E
        lda     #$96
        sta     $C08D,x
        cmp     Q6,x
        lda     #$96
        nop
        iny
        bne     L0A75
        jsr     write
        lda     #$DE
        jsr     write
        lda     #$AA
        jsr     write
        lda     #$EB
        jsr     write
        lda     #$FF
        jsr     write
        lda     $C08E,x
        lda     Q6,x
        rts

;;; Write, with appropriate cycle counts
write:  nop
write2: pha
        pla
        sta     $C08D,x
        cmp     Q6,x
        rts

;;; ============================================================

L0AAE:  sec
        lda     $C08D,x
        lda     $C08E,x
        bmi     L0B15
        lda     #$FF
        sta     $C08F,x
        cmp     Q6,x
        pha
        pla
L0AC1:  jsr     L0B1B
        jsr     L0B1B
        sta     $C08D,x
        cmp     Q6,x
        nop
        dey
        bne     L0AC1
        lda     #$D5
        jsr     L0B2D
        lda     #$AA
        jsr     L0B2D
        lda     #$96
        jsr     L0B2D
        lda     $D3
        jsr     L0B1C
        lda     $D1
        jsr     L0B1C
        lda     $D2
        jsr     L0B1C
        lda     $D3
        eor     $D1
        eor     $D2
        pha
        lsr     a
        ora     $D0
        sta     $C08D,x
        lda     Q6,x
        pla
        ora     #$AA
        jsr     L0B2C
        lda     #$DE
        jsr     L0B2D
        lda     #$AA
        jsr     L0B2D
        lda     #$EB
        jsr     L0B2D
        clc
L0B15:  lda     $C08E,x
        lda     Q6,x
L0B1B:  rts

;;; ============================================================

L0B1C:  pha
        lsr     a
        ora     $D0
        sta     $C08D,x
        cmp     Q6,x
        pla
        nop
        nop
        nop
        ora     #$AA
L0B2C:  nop
L0B2D:  nop
        pha
        pla
        sta     $C08D,x
        cmp     Q6,x
        rts

        .byte   0
        .byte   0
        .byte   0

.proc L0B3A
start:  ldx     #$11
:       dex
        bne     :-
        inc16   $D9
        sec
        sbc     #1
        bne     start
        rts
.endproc

L0B4B:  .byte   $01, $30, $28, $24, $20, $1E, $1D, $1C, $1C, $1C, $1C, $1C
L0B57:  .byte   $70, $2C, $26, $22, $1F, $1E, $1D, $1C, $1C, $1C, $1C, $1C

L0B63:  lda     L0C21
        sta     $D6
L0B68:  ldy     #$80
        lda     #$00
        sta     $D2
        jmp     L0B73

L0B71:  ldy     $D4
L0B73:  ldx     L0C23
        jsr     L0AAE
        bcc     L0B7E
        jmp     L0C0E

L0B7E:  ldx     L0C23
        jsr     L0A2E
        .byte   $E6
L0B85:  .byte   $D2
        lda     $D2
        cmp     #$10
        bcc     L0B71
        ldy     #$0F
        sty     $D2
        lda     L0C22
        sta     L0C25
L0B96:  sta     L0C26,y
        dey
        bpl     L0B96
        lda     $D4
        sec
        sbc     #$05
        tay
L0BA2:  jsr     L0C0E
        jsr     L0C0E
        pha
        pla
        nop
        nop
        dey
        bne     L0BA2
        ldx     L0C23
        jsr     L096A
        bcs     L0BF3
        lda     $D8
        beq     L0BCE
        dec     $D4
        lda     $D4
        cmp     L0C1F
        bcs     L0BF3
        sec
        rts

L0BC6:  ldx     L0C23
        jsr     L096A
        bcs     L0BE8
L0BCE:  ldx     L0C23
        jsr     L0907
        bcs     L0BE8
        ldy     $D8
        lda     L0C26,y
        bmi     L0BE8
        lda     #$FF
        sta     L0C26,y
        dec     $D2
        bpl     L0BC6
        clc
        rts

L0BE8:  dec     L0C25
        bne     L0BC6
        dec     $D6
        bne     L0BF3
        sec
        rts

L0BF3:  lda     L0C22
        asl     a
        sta     L0C25
L0BFA:  ldx     L0C23
        jsr     L096A
        bcs     L0C08
        lda     $D8
        cmp     #$0F
        beq     L0C0F
L0C08:  dec     L0C25
        bne     L0BFA
        sec
L0C0E:  rts

L0C0F:  ldx     #$D6
L0C11:  jsr     L0C0E
        jsr     L0C0E
        bit     $00
        dex
        bne     L0C11
        jmp     L0B68

L0C1F:  .byte   $0E
L0C20:  .byte   $1B
L0C21:  .byte   $03
L0C22:  .byte   $10
L0C23:  .byte   0

current_track:
        .byte   0

L0C25:  .byte   0
L0C26:  .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0

seltrack_track:
        .byte   0
seltrack_slot:
        .byte   0

L0C38:  .byte   0
L0C39:  .byte   0

;;; ============================================================

        DEFINE_QUIT_PARAMS quit_params

        DEFINE_ON_LINE_PARAMS on_line_params2,, $1300

        DEFINE_ON_LINE_PARAMS on_line_params,, on_line_buffer
on_line_buffer:
        .res    16, 0

        DEFINE_READ_BLOCK_PARAMS block_params, $1C00, 0

;;; ============================================================

.proc MLI_RELAY
        sty     call
        stax    params
        php
        sei
        sta     ALTZPOFF
        lda     ROMIN2
        jsr     MLI
call:   .byte   0
params: .addr   0
        tax
        sta     ALTZPON
        lda     LCBANK1
        lda     LCBANK1
        plp
        txa
        rts
.endproc

;;; ============================================================

        rts

;;; ============================================================

        jsr     LDF94
        sta     ALTZPOFF
        lda     ROMIN2
        sta     DHIRESOFF
        sta     TXTCLR
        sta     CLR80VID
        sta     SETALTCHAR
        sta     CLR80COL
        jsr     SETVID
        jsr     SETKBD
        jsr     INIT
        jsr     HOME
        MLI_CALL QUIT, quit_params
        rts

;;; ============================================================

        ldx     $D418
        lda     $D3F7,x
        sta     L0CEC
        and     #$0F
        beq     L0CCC
        lda     $D3F7,x
        jsr     L0D26
        ldy     #$FF
        lda     (L0006),y
        beq     L0CCC
        cmp     #$FF
        bne     L0CD3
L0CCC:  lda     L0CEC
        jsr     L0800
        rts

L0CD3:  lda     L0CEC
        jsr     L0D26
        ldy     #$FF
        lda     (L0006),y
        sta     L0006
        lda     #$03
        sta     $42
        lda     L0CEC
        sta     $43
        jmp     (L0006)

        rts

L0CEC:  .byte   0

;;; ============================================================

        sta     L0D24
        jsr     L0D26
        ldy     #$07
        lda     (L0006),y
        bne     L0D19
        ldy     #$FB
        lda     (L0006),y
        and     #$7F
        bne     L0D19
        ldy     #$FF
        lda     (L0006),y
        clc
        adc     #$03
        sta     L0006
        lda     L0D24
        jsr     L0D51
        sta     L0D1E
        jsr     L0D1A
        .byte   $04
        .byte   $1D
        .byte   $0D
L0D19:  rts

L0D1A:  jmp     (L0006)

        .byte   $03
L0D1E:  .byte   0
        .byte   $22
        ora     a:$04
        .byte   0
L0D24:  .byte   0
        .byte   0
L0D26:  sta     L0D50
        ldx     #$11
        lda     L0D50
        and     #$80
        beq     L0D34
        ldx     #$21
L0D34:  stx     L0D47
        lda     L0D50
        and     #$70
        lsr     a
        lsr     a
        lsr     a
        clc
        adc     L0D47
        sta     L0D47
        .byte   $AD
L0D47:  .byte   0
        .byte   $BF
        sta     $07
        lda     #$00
        sta     L0006
        rts

L0D50:  .byte   0
L0D51:  pha
        rol     a
        pla
        php
        and     #$20
        lsr     a
        lsr     a
        lsr     a
        lsr     a
        plp
        adc     #$01
        rts

        ldx     $D417
        lda     $D3F7,x
        sta     block_params::unit_num
        lda     #$00
        sta     block_params::block_num
        sta     block_params::block_num+1
        jsr     L12AF
        bne     L0D8A
        lda     $1C01
        cmp     #$E0
        beq     L0D7F
        jmp     L0DA4

L0D7F:  lda     $1C02
        cmp     #$70
        beq     L0D90
        cmp     #$60
        beq     L0D90
L0D8A:  lda     #$81
        sta     $D44D
        rts

L0D90:  addr_call LDE9F, $1300
        addr_call LE0FE, $1300
        lda     #$C0
        sta     $D44D
        rts

L0DA4:  cmp     #$A5
        bne     L0D8A
        lda     $1C02
        cmp     #$27
        bne     L0D8A
        lda     #$80
        sta     $D44D
        rts

        lda     #$14
        jsr     L1133
        lda     $D417
        asl     a
        tax
        lda     $D407,x
        sta     L0EB0
        lda     $D408,x
        sta     L0EB1
        lsr16   L0EB0
        lsr16   L0EB0
        lsr16   L0EB0
        copy16  L0EB0, $D427
        bit     $D44D
        bmi     L0DF6
        lda     $D451
        bne     L0DF6
        jmp     L0E4D

L0DF6:  lda     #$FF
        clc
        adc     $D427
        sta     L0006
        lda     #$13
        adc     $D428
        sta     $07
        ldy     #$00
L0E07:  lda     #$00
        sta     (L0006),y
        dec     L0006
        lda     L0006
        cmp     #$FF
        bne     L0E15
        dec     $07
L0E15:  lda     $07
        cmp     #$14
        bne     L0E07
        lda     L0006
        cmp     #$00
        bne     L0E07
        lda     #$00
        sta     (L0006),y
        lda     $D428
        cmp     #$02
        bcs     L0E2D
        rts

L0E2D:  lda     #$14
        sta     L0006
        lda     $D428
        pha
L0E35:  inc     L0006
        inc     L0006
        pla
        sec
        sbc     #$02
        pha
        bmi     L0E46
        jsr     L0E47
        jmp     L0E35

L0E46:  pla
L0E47:  lda     L0006
        jsr     L1133
        rts

L0E4D:  copy16  #$0006, block_params::block_num
        ldx     $D417
        lda     $D3F7,x
        sta     block_params::unit_num
        copy16  #$1400, block_params::data_buffer
        jsr     L12AF
        beq     L0E70
        .byte   0
L0E70:  lda     L0EB0
        sec
        sbc     #$00
        sta     L0EB0
        lda     L0EB1
        sbc     #$02
        sta     L0EB1
        lda     L0EB1
        bpl     L0E87
        rts

L0E87:  lda     L0EB0
        bne     L0E8D
        rts

L0E8D:  add16   block_params::data_buffer, #$0200, block_params::data_buffer

        inc     block_params::block_num
        lda     block_params::data_buffer+1
        jsr     L1133
        jsr     L12AF
        beq     L0EAD
        .byte   0
L0EAD:  jmp     L0E70

L0EB0:  .byte   0
L0EB1:  .byte   0
        and     #$F0
        sta     L0ED6
        ldx     DEVCNT
L0EBA:  lda     DEVLST,x
        and     #$F0
        cmp     L0ED6
        beq     L0ECA
        dex
        bpl     L0EBA
L0EC7:  return  #$00

L0ECA:  lda     DEVLST,x
        and     #$0F
        cmp     #$0B
        bne     L0EC7
        return  #$80

L0ED6:  .byte   0
        bit     $C010
        sta     L0FE6
        and     #$FF
        bpl     L0EFF
        copy16  $D424, $D421
        lda     $D426
        sta     $D423
        ldx     $D418
        lda     $D3F7,x
        sta     block_params::unit_num
        jmp     L0F1A

L0EFF:  copy16  $D421, $D424
        lda     $D423
        sta     $D426
        ldx     $D417
        lda     $D3F7,x
        sta     block_params::unit_num
L0F1A:  lda     #$07
        sta     $D420
        lda     #$00
        sta     $D41F
        sta     L0FE4
        sta     L0FE5
L0F2A:  lda     $C000
        cmp     #$9B
        bne     L0F37
        jsr     LE6AB
        jmp     L0F6F

L0F37:  bit     L0FE4
        bmi     L0F6C
        bit     L0FE5
        bmi     L0F69
        jsr     L107F
        bcc     L0F51
        bne     L0F4C
        cpx     #$00
        beq     L0F6C
L0F4C:  ldy     #$80
        sty     L0FE4
L0F51:  stax    L0FE7
        jsr     L0FE9
        bcc     L0F72
        bne     L0F62
        cpx     #$00
        beq     L0F69
L0F62:  ldy     #$80
        sty     L0FE5
        bne     L0F72
L0F69:  return  #$80

L0F6C:  return  #$00

L0F6F:  return  #$01

L0F72:  stax    block_params::block_num
        ldx     L0FE8
        lda     L0FE7
        ldy     $D41F
        cpy     #$10
        bcs     L0F9A
        bit     L0FE6
        bmi     L0F92
        jsr     L1160
        bmi     L0F6F
        jmp     L0F2A

L0F92:  jsr     L11F7
        bmi     L0F6F
        jmp     L0F2A

L0F9A:  cpy     #$1D
        bcc     L0FB7
        cpy     #$20
        bcs     L0FCC
        bit     L0FE6
        bmi     L0FAF
        jsr     L1175
        bmi     L0F6F
        jmp     L0F2A

L0FAF:  jsr     L120C
        bmi     L0F6F
        jmp     L0F2A

L0FB7:  bit     L0FE6
        bmi     L0FC4
        jsr     LE766
        bmi     L0F6F
        jmp     L0F2A

L0FC4:  jsr     LE7A8
        bmi     L0F6F
        jmp     L0F2A

L0FCC:  bit     L0FE6
        bmi     L0FD9
        jsr     L11AD
        bmi     L0F6F
        jmp     L0F2A

L0FD9:  jsr     L123F
        bmi     L0FE1
        jmp     L0F2A

L0FE1:  jmp     L0F6F

L0FE4:  .byte   0
L0FE5:  .byte   0
L0FE6:  .byte   0
L0FE7:  .byte   0
L0FE8:  .byte   0
L0FE9:  jsr     L102A
        cpy     #$00
        bne     L0FF6
        pha
        jsr     L0FFF
        pla
        rts

L0FF6:  jsr     L0FFF
        bcc     L0FE9
        lda     #$00
        tax
        rts

L0FFF:  dec     $D423
        lda     $D423
        cmp     #$FF
        beq     L100B
L1009:  clc
        rts

L100B:  lda     #$07
        sta     $D423
        inc16   $D421
L1018:  lda     $D422
        cmp     $D428
        bne     L1009
        lda     $D421
        cmp     $D427
        bne     L1009
        sec
        rts

L102A:  lda     #$00
        clc
        adc     $D421
        sta     L0006
        lda     #$14
        adc     $D422
        sta     $07
        ldy     #$00
        lda     (L0006),y
        ldx     $D423
        cpx     #$00
        beq     L1048
L1044:  lsr     a
        dex
        bne     L1044
L1048:  and     #$01
        bne     L104F
        tay
        beq     L1051
L104F:  ldy     #$FF
L1051:  lda     $D422
        sta     L1076
        lda     $D421
        asl     a
        rol     L1076
        asl     a
        rol     L1076
        asl     a
        rol     L1076
        ldx     $D423
        clc
        adc     L1077,x
        pha
        lda     L1076
        adc     #$00
        tax
        pla
        rts

L1076:  .byte   0
L1077:  .byte   $07
        asl     $05
        .byte   $04
        .byte   $03
        .byte   $02
        ora     ($00,x)
L107F:  jsr     L10B2
        cpy     #$00
        beq     L108C
        pha
        jsr     L1095
        pla
        rts

L108C:  jsr     L1095
        bcc     L107F
        lda     #$00
        tax
        rts

L1095:  dec     $D420
        lda     $D420
        cmp     #$FF
        beq     L10A1
L109F:  clc
        rts

L10A1:  lda     #$07
        sta     $D420
        inc     $D41F
        lda     $D41F
        cmp     #$21
        bcc     L109F
        sec
        rts

L10B2:  ldx     $D41F
        lda     L12B9,x
        ldx     $D420
        cpx     #$00
        beq     L10C3
L10BF:  lsr     a
        dex
        bne     L10BF
L10C3:  and     #$01
        bne     L10CB
        ldy     #$00
        beq     L10CD
L10CB:  ldy     #$FF
L10CD:  lda     $D41F
        cmp     #$10
        bcs     L10E3
L10D4:  asl     a
        asl     a
        asl     a
        asl     a
        ldx     $D420
        clc
        adc     L10F3,x
        tax
        return  #$00

L10E3:  cmp     #$20
        bcs     L10ED
        sec
        sbc     #$10
        jmp     L10D4

L10ED:  sec
        sbc     #$13
        jmp     L10D4

L10F3:
        .byte   $0E, $0C, $0A, $08, $06, $04, $02, $00

        lda     #$14
        sta     L0006
        lda     #$00
        sta     L111E
L1104:  lda     L0006
        jsr     L111F
        inc     L0006
        inc     L0006
        inc     L111E
        inc     L111E
        lda     L111E
        cmp     $D428
        beq     L1104
        bcc     L1104
        rts

L111E:  .byte   0
L111F:  jsr     L1149
        tay
        sec
        cpx     #$00
        beq     L112C
L1128:  asl     a
        dex
        bne     L1128
L112C:  ora     L12B9,y
        sta     L12B9,y
        rts

L1133:  jsr     L1149
        tay
        sec
        cpx     #$00
        beq     L1140
L113C:  asl     a
        dex
        bne     L113C
L1140:  eor     #$FF
        and     L12B9,y
        sta     L12B9,y
        rts

L1149:  pha
        and     #$0F
        lsr     a
        tax
        lda     L1158,x
        tax
        pla
        lsr     a
        lsr     a
        lsr     a
        lsr     a
        rts

L1158:  .byte   $07
        asl     $05
        .byte   $04
        .byte   $03
        .byte   $02
        ora     ($00,x)
L1160:  stax    block_params::data_buffer
L1166:  jsr     L12AF
        beq     L1174
        ldx     #$00
        jsr     LE6FD
        bmi     L1174
        bne     L1166
L1174:  rts

L1175:  sta     L0006
        sta     $08
        stx     $07
        stx     $09
        inc     $09
        copy16  #$1C00, block_params::data_buffer
L1189:  jsr     L12AF
        beq     L119A
        ldx     #$00
        jsr     LE6FD
        beq     L119A
        bpl     L1189
        return  #$80

L119A:  ldy     #$FF
        iny
L119D:  lda     $1C00,y
        sta     (L0006),y
        lda     $1D00,y
        sta     ($08),y
        iny
        bne     L119D
        return  #$00

L11AD:  sta     L0006
        sta     $08
        stx     $07
        stx     $09
        inc     $09
        copy16  #$1C00, block_params::data_buffer
L11C1:  jsr     L12AF
        beq     L11D8
        ldx     #$00
        jsr     LE6FD
        beq     L11D8
        bpl     L11C1
        lda     LCBANK1
        lda     LCBANK1
        return  #$80

L11D8:  lda     $C083
        lda     $C083
        ldy     #$FF
        iny
L11E1:  lda     $1C00,y
        sta     (L0006),y
        lda     $1D00,y
        sta     ($08),y
        iny
        bne     L11E1
        lda     LCBANK1
        lda     LCBANK1
        return  #$00

L11F7:  stax    block_params::data_buffer
L11FD:  jsr     L12A5
        beq     L120B
        ldx     #$80
        jsr     LE6FD
        beq     L120B
        bpl     L11FD
L120B:  rts

L120C:  sta     L0006
        sta     $08
        stx     $07
        stx     $09
        inc     $09
        copy16  #$1C00, block_params::data_buffer
        ldy     #$FF
        iny
L1223:  lda     (L0006),y
        sta     $1C00,y
        lda     ($08),y
        sta     $1D00,y
        iny
        bne     L1223
L1230:  jsr     L12A5
        beq     L123E
        ldx     #$80
        jsr     LE6FD
        beq     L123E
        bpl     L1230
L123E:  rts

L123F:  bit     $C083
        bit     $C083
        sta     L0006
        sta     $08
        stx     $07
        stx     $09
        inc     $09
        copy16  #$1C00, block_params::data_buffer
        ldy     #$FF
        iny
L125C:  lda     (L0006),y
        sta     $1C00,y
        lda     ($08),y
        sta     $1D00,y
        iny
        bne     L125C
        lda     LCBANK1
        lda     LCBANK1
L126F:  jsr     L12A5
        beq     L127D
        ldx     #$80
        jsr     LE6FD
        beq     L127D
        bpl     L126F
L127D:  rts

        sta     ALTZPOFF
        sta     ROMIN2
        jsr     BELL1
        sta     ALTZPON
        lda     LCBANK1
        lda     LCBANK1
        rts

        yax_call MLI_RELAY, ON_LINE, on_line_params2
        rts

        yax_call MLI_RELAY, ON_LINE, on_line_params
        rts

L12A5:  yax_call MLI_RELAY, WRITE_BLOCK, block_params
        rts

L12AF:  yax_call MLI_RELAY, READ_BLOCK, block_params
        rts

L12B9:  .byte   0
        .byte   $3C
        .byte   0
        .byte   0
        .byte   $FF
        .byte   $FF
        .byte   $FF
        .byte   $FF
        .byte   $FF
        .byte   $FF
        .byte   $FF
        inc     a:$00,x
        .byte   0
        .byte   0
        .byte   $0F
        .byte   $FF
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   0
        .byte   $FF
        .byte   $FF
        .byte   $FF
        .byte   0
        .byte   0
        .byte   0
        .byte   $7F
        .byte   $FF
        lda     $D133
        cmp     $D18D
        bne     L12E5
        jmp     LDAEE

L12E5:  cmp     $D1C7
        bne     L12ED
        jmp     LDB55

L12ED:  rts

        lda     $D18D
        sta     $D12D
        jsr     LE137
        yax_call LDBE0, $46, $D12D