a2d/desktop/ovl1c.s
2018-04-01 20:36:02 -07:00

1511 lines
30 KiB
ArmAsm

.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
SELECT1 := $C08A ; Select drive 1
SELECT2 := $C08B ; Select drive 1
XMIT := $C08C ; Get/set bits to/from disk
TESTWP := $C08D ; Test WP mode (then WPRES has result)
DATA := $C08D ; Write data to buffer (then XMIT to send)
WPRES := $C08E ; WP mode test result
RDMODE := $C08E ; Turn off write mode
WRMODE := $C08F ; Turn on write mode
.org $800
.macro exit_with_result arg
lda #arg
jmp exit
.endmacro
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 TESTWP,x ; Check write protect???
lda WPRES,x
tay
lda RDMODE,x ; Activate read mode
lda XMIT,x
tya
bpl :+ ; WP mode?
exit_with_result 2 ; Yes
: jsr L0B63
bcc L08B5
lda #$01
ldy $D4
cpy L0C1F
bcs L08B2
lda #4
L08B2: jmp exit
L08B5: ldy $D4
cpy L0C1F
bcs L08C1
exit_with_result 4
L08C1: cpy L0C20
bcc L08CB
exit_with_result 3
L08CB: lda L0C22
sta L0C25
L08D1: dec L0C25
bne L08DB
exit_with_result 1
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 #0
;; fall through
.proc exit
pha
ldx L0C23
lda DISABLE,x ; Turn drive off
lda #0
jsr L0823
pla
rts
.endproc
;;; ============================================================
.proc L0907
ldy #$20
L0909: dey
beq return_with_carry_set
: lda XMIT,x
bpl :-
L0911: eor #$D5
bne L0909
nop
: lda XMIT,x
bpl :-
cmp #$AA
bne L0911
ldy #$56
: lda XMIT,x
bpl :-
cmp #$AD
bne L0911
lda #$00
L092C: dey
sty $D5
: lda XMIT,x
bpl :-
cmp #$96
bne return_with_carry_set
ldy $D5
bne L092C
L093C: sty $D5
: lda XMIT,x
bpl :-
cmp #$96
bne return_with_carry_set
ldy $D5
iny
bne L093C
: lda XMIT,x
bpl :-
cmp #$96
bne return_with_carry_set
: lda XMIT,x
bpl :-
cmp #$DE
bne return_with_carry_set
nop
: lda XMIT,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 XMIT,x
bpl :-
L097A: cmp #$D5
bne L096E
nop
: lda XMIT,x
bpl :-
cmp #$AA
bne L097A
ldy #$03
: lda XMIT,x
bpl :-
cmp #$96
bne L097A
lda #$00
L0995: sta $DB
: lda XMIT,x
bpl :-
rol a
sta $DD
: lda XMIT,x
bpl :-
and $DD
sta $D7,y
eor $DB
dey
bpl L0995
tay
bne return_with_carry_set
: lda XMIT,x
bpl :-
cmp #$DE
bne return_with_carry_set
nop
: lda XMIT,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 phase_on_table,y
jsr L0B3A
lda L0C39
clc
jsr motor
lda phase_off_table,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
;;; ============================================================
.proc format_sector
jsr rts2
lda TESTWP,x ; Check write protect ???
lda WPRES,x
lda #$FF ; Self-sync data
sta WRMODE,x ; Turn on write mode
cmp XMIT,x ; Start sending bits to disk
pha ; 32 cycles...
pla
nop
ldy #4
sync: pha
pla
jsr write2
dey
bne sync
;; Address marks
lda #$D5
jsr write
lda #$AA
jsr write
lda #$AD
jsr write
ldy #$56
nop
nop
nop
bne :+
;; Data
loop: jsr rts2
: nop
nop
lda #$96
sta DATA,x
cmp XMIT,x
dey
bne loop
;; Checksum
bit $00
nop
check: jsr rts2
lda #$96
sta DATA,x
cmp XMIT,x
lda #$96
nop
iny
bne check
;; Slip marks
jsr write
lda #$DE
jsr write
lda #$AA
jsr write
lda #$EB
jsr write
lda #$FF
jsr write
lda RDMODE,x ; Turn off write mode
lda XMIT,x
rts
;; Write with appropriate cycle counts
write: nop
write2: pha
pla
sta DATA,x
cmp XMIT,x
rts
.endproc
;;; ============================================================
.proc L0AAE
sec
lda TESTWP,x ; Check write protect
lda WPRES,x
bmi L0B15
lda #$FF
sta WRMODE,x ; Turn on write mode
cmp XMIT,x ; Start sending bits to disk
pha ; 32 cycles...
pla
loop: jsr rts1
jsr rts1
sta DATA,x
cmp XMIT,x
nop
dey
bne loop
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 DATA,x
lda XMIT,x
pla
ora #$AA
jsr L0B2C
lda #$DE
jsr L0B2D
lda #$AA
jsr L0B2D
lda #$EB
jsr L0B2D
clc
L0B15: lda RDMODE,x ; Turn off write mode
lda XMIT,x
rts1: rts
.endproc
;;; ============================================================
L0B1C: pha
lsr a
ora $D0
sta DATA,x
cmp XMIT,x
pla
nop
nop
nop
ora #$AA
L0B2C: nop
L0B2D: nop
pha
pla
sta DATA,x
cmp XMIT,x
rts
.byte 0
.byte 0
.byte 0
.proc L0B3A
start: ldx #$11
: dex
bne :-
inc16 $D9
sec
sbc #1
bne start
rts
.endproc
;;; Timing (100-usecs)
phase_on_table: .byte $01, $30, $28, $24, $20, $1E, $1D, $1C, $1C, $1C, $1C, $1C
phase_off_table: .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 rts2
L0B7E: ldx L0C23
jsr format_sector
inc $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 rts2
jsr rts2
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
rts2: rts
L0C0F: ldx #$D6
L0C11: jsr rts2
jsr rts2
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
;;; ============================================================
;;; Eject Disk via SmartPort
.proc eject_disk
sta L0D24
jsr L0D26 ; Point $06 at $Cn00
ldy #$07 ; Check firmware bytes
lda (L0006),y ; $Cn07 = $00 ??
bne done
ldy #$FB
lda (L0006),y ; $CnFB = $7F ??
and #$7F
bne done
ldy #$FF
lda (L0006),y
clc
adc #3 ; Locate dispatch routine (offset $CnFF + 3)
sta L0006
lda L0D24
jsr L0D51
sta control_params_unit_number
;; Do SmartPort call
jsr smartport_call
.byte $04 ; SmartPort: CONTROL
.addr $0D1D
done: rts
smartport_call:
jmp (L0006)
.proc control_params
param_count: .byte 3
unit_number: .byte 0
control_list: .addr L0D22
control_code: .byte $04 ; Control Code: Eject disk
.endproc
control_params_unit_number := control_params::unit_number
L0D22: .byte 0, 0
L0D24: .byte 0
.byte 0
.endproc
;;; ============================================================
L0D26: sta L0D50
ldx #$11
lda L0D50
and #$80
beq L0D34
ldx #$21
L0D34: stx load_addr
lda L0D50
and #$70
lsr a
lsr a
lsr a
clc
adc load_addr
sta load_addr
load_addr := * + 1
lda $BF00 ; self-modified
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
;;; ============================================================
L0D5F: 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
;;; ============================================================
L0DB5: 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
;;; ============================================================
L0EB2: 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
;;; ============================================================
L0ED7: 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
;;; ============================================================
L10FB: 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
;;; ============================================================
L127E: sta ALTZPOFF
sta ROMIN2
jsr BELL1
sta ALTZPON
lda LCBANK1
lda LCBANK1
rts
L1291: yax_call MLI_RELAY, ON_LINE, on_line_params2
rts
L129B: 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
.byte $FE
.byte 0
.byte 0
.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
L12DA: lda $D133
cmp $D18D
bne :+
jmp LDAEE
: cmp $D1C7
bne :+
jmp LDB55
: rts
lda $D18D
sta $D12D
jsr LE137
yax_call LDBE0, $46, $D12D