Apple-2-SW/Davex
1
0
Fork 0
mirror of https://github.com/david-schmidt/Davex.git synced 2024-06-17 01:29:29 +00:00
Code Issues Projects Releases Wiki Activity
master
Davex/src/xtn/2/lw.asm
David Schmidt 23a7881818 First drop from SF code base
2018-09-16 21:01:16 -04:00

751 lines
15 KiB
NASM
Raw Permalink Blame History

.include "Common/2/Globals2.asm"
.include "Common/2/Apple.Globals2.asm"
.include "Common/2/Mli.globals2.asm"
.include "Common/Macros.asm"
.segment "CODE_9000"
L0020 := $0020
LBF00 := $BF00
LF94A := $F94A
LFD8E := $FD8E
LFDED := $FDED
rts
inc $10EE
.byte $12
brk
.byte $1A
bcc L9009
L9009: bcc L9065
bcc L9010
brk
brk
brk
L9010: brk
.byte $04
inc $E600
php
.byte $E2
.byte $07
brk
brk
.byte $3F
cpx $A0F7
lda $A0AD
cpy $F3E9
.byte $F4
ldy #$C4
sbc #$F2
sbc $E3
.byte $F4
.byte $EF
.byte $F2
.byte $F9
.byte $A0
L9030: tay
.byte $D7
sbc #$E4
sbc $A9
ldy #$BA
ldy #$C5
sed
.byte $F4
sbc $F2
inc $ECE1
ldy #$C3
.byte $EF
sbc $E1ED
inc $A0E4
.byte $AF
ldy #$E2
sbc $CAA0,y
sbc $E6
inc $A0
iny
sbc ($EE,x)
.byte $F3
sbc $EE
nop
sty $E0
sta $E1
jsr L946F
bcc L9065
rts
L9065: lda #$00
jsr xredirect
sta $F3
.byte $64
.byte $F4
lda #$EE
jsr xgetparm_ch
bcs L9077
dec $F4
L9077: .byte $64
inc $E6A9
jsr xgetparm_ch
bcs L9084
sta $EF
dec $EE
L9084: .byte $64
beq L9030
.byte $E2
jsr xgetparm_ch
bcs L9093
dec $F0
and #$80
sta $F1
L9093: .byte $B2
cpx #$D0
jsr L0020
.byte $BF
.byte $C7
bit $95
bcc L90A2
jmp xProDOS_err
L90A2: ldy L9525
lda L9526
sty $E0
sta $E1
jsr L9405
sty L950F
sta L9510
.byte $80
ror $E0A5,x
sta L950F
lda $E1
sta L9510
jsr LBF00
cpy $0E
sta $90,x
.byte $03
jmp xProDOS_err
lda L9512
cmp #$0F
bne L90DE
lda L9515
cmp #$0F
beq L90E3
cmp #$0D
beq L90E3
L90DE: lda #$97
jmp xProDOS_err
L90E3: ldy $E0
lda $E1
jsr L9405
bcs L90F4
sty L950F
sta L9510
.byte $80
.byte $41
L90F4: lda $BF30
sta L9521
jsr LBF00
cmp L0020
sta $90,x
.byte $03
jmp xProDOS_err
lda #$AE
sta $E4
lda #$94
sta $E5
ldx #$00
ldy #$00
lda L94BE,x
and #$0F
.byte $1A
sta $EC
.byte $92
cpx $C8
lda #$2F
sta ($E4),y
L9120: inx
iny
lda L94BE,x
sta ($E4),y
cpy $EC
bne L9120
lda $E4
sta L950F
lda $E5
sta L9510
jsr LBF00
cpy $0E
sta $90,x
.byte $03
jmp xProDOS_err
lda #$02
sta $E2
lda #$1A
sta $E3
.byte $B2
cpx #$A8
lda ($E0),y
and #$7F
cmp #$2F
bne L9157
dey
tya
.byte $92
.byte $E0
L9157: jsr xpush_level
ldy $E0
lda $E1
jsr xdir_setup
ldx #$25
lda $1400,x
sta $EA
inx
lda $1400,x
sta $EB
.byte $64
sbc $8E20
sbc $F3A5,x
bmi L9182
jsr xmess
.byte $8F
.byte $9B
cld
cmp $8E98,y
ldy #$00
L9182: ldy $E0
lda $E1
jsr xprint_path
jsr xmess
ldy #$A0
ldy #$A0
tay
brk
ldy $EA
lda $EB
jsr xprdec_2
jsr xmess
ldy #$E6
sbc #$EC
sbc $00
ldy $EA
lda $EB
jsr xplural
jsr xmess
lda #$8D
brk
jsr L934B
.byte $64
inc $64,x
.byte $F7
L91B6: jsr xread1dir
bcs L91CD
ldx #$10
lda $1A02,x
jsr L9324
bpl L91B6
jsr L9296
bcc L91B6
jmp L928E
L91CD: jsr xdir_finish
lda $ED
beq L91D9
dec $ED
jmp L91B6
L91D9: jsr LFD8E
jsr L934B
jsr xmess
sbc $F3,x
sbc $E4
.byte $DF
.byte $E2
cpx $E3EF
.byte $EB
.byte $F3
tsx
brk
lda L9516
sta $61
lda L9517
sta $62
lda #$00
sta $63
ldy #$05
jsr xprdec_pady
jsr xmess
ldy #$A8
brk
lda L9516
sta $61
lda L9517
sta $62
lda #$00
sta $63
lda #$00
ldx L9514
ldy L9513
jsr xpercent
sta $61
.byte $64
.byte $62
.byte $64
.byte $63
ldy #$02
jsr xprdec_pady
jsr xmess
lda $A9
ldy #$A0
ldy #$E6
.byte $F2
sbc $E5
.byte $DF
.byte $E2
cpx $E3EF
.byte $EB
.byte $F3
tsx
brk
sec
lda L9513
sbc L9516
sta $E6
lda L9514
sbc L9517
sta $E7
lda $E6
sta $61
lda $E7
sta $62
lda #$00
sta $63
ldy #$05
jsr xprdec_pady
jsr xmess
ldy #$A0
ldy #$F4
.byte $EF
.byte $F4
sbc ($EC,x)
.byte $DF
.byte $E2
cpx $E3EF
.byte $EB
.byte $F3
tsx
brk
lda L9513
sta $61
lda L9514
sta $62
lda #$00
sta $63
ldy #$05
jsr xprdec_pady
jsr LFD8E
rts
L928E: jsr xdir_finish
dec $ED
bpl L928E
rts
L9296: lda $F7
cmp #$04
bne L92A9
jsr LFD8E
.byte $64
inc $64,x
.byte $F7
jsr xcheck_wait
bcc L92AE
rts
L92A9: lda $F6
jsr L94A7
L92AE: .byte $B2
.byte $E2
lsr a
lsr a
lsr a
lsr a
sta $F5
.byte $B2
.byte $E2
and #$0F
.byte $92
.byte $E2
tay
ldx #$10
lda $1A02,x
cmp #$1A
beq L92D0
cmp #$19
beq L92D0
cmp #$1B
beq L92D0
.byte $80
.byte $2D
L92D0: ldx #$1F
lda $1A02,x
sta $E8
inx
lda $1A02,x
sta $E9
tya
tax
ldy #$01
L92E1: asl $E9
rol $E8
lda ($E2),y
ora #$80
bcc L92EE
jsr xdowncase
L92EE: sta ($E2),y
iny
dex
bne L92E1
ldy $E2
lda $E3
jsr L93EB
.byte $80
.byte $07
ldy $E2
lda $E3
jsr xprint_path
lda #$12
sec
sbc $1A02
sta $F6
bit $F4
bmi L9320
ldx #$10
lda $1A02,x
cmp #$0F
bne L9320
lda #$AF
jsr LFDED
dec $F6
L9320: inc $F7
clc
rts
L9324: lda #$80
sta $F2
bit $EE
bpl L9335
lda $1A02,x
cmp $EF
beq L9335
.byte $64
.byte $F2
L9335: bit $F0
bpl L9348
ldx #$1E
lda $1A02,x
and #$20
asl a
asl a
cmp $F1
beq L9348
.byte $64
.byte $F2
L9348: lda $F2
rts
L934B: lda $F3
bmi L939E
jsr xmess
.byte $8F
.byte $9B
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
.byte $D3
tya
stx $8000
.byte $49
L939E: jsr xmess
lda $ADAD
lda $ADAD
lda $ADAD
lda $ADAD
lda $ADAD
lda $ADAD
lda $ADAD
lda $ADAD
lda $ADAD
lda $ADAD
lda $ADAD
lda $ADAD
lda $ADAD
lda $ADAD
lda $ADAD
lda $ADAD
lda $ADAD
lda $ADAD
lda $ADAD
lda $ADAD
lda $ADAD
lda $ADAD
lda $ADAD
brk
jsr LFD8E
rts
L93EB: sty $E0
sta $E1
txa
pha
ldy #$00
lda ($E0),y
beq L9402
tax
iny
L93F9: lda ($E0),y
jsr LFDED
iny
dex
bne L93F9
L9402: pla
tax
rts
L9405: .byte $DA
ldx $E0
.byte $DA
ldx $E1
.byte $DA
sta $E1
sty $E0
.byte $B2
cpx #$8D
ror $F094
.byte $37
cmp #$01
beq L944E
ldy #$01
lda ($E0),y
ora #$80
cmp #$AF
bne L944E
ldx #$01
sta L945E,x
L942A: inx
iny
lda ($E0),y
ora #$80
cmp #$AF
beq L943D
sta L945E,x
cpy L946E
bne L942A
inx
L943D: dex
stx L945E
lda #$94
ldy #$5E
.byte $FA
stx $E1
.byte $FA
stx $E0
.byte $FA
L944C: clc
rts
L944E: lda #$94
ldy #$5E
.byte $9C
lsr $FA94,x
stx $E1
.byte $FA
stx $E0
.byte $FA
sec
rts
L945E: ldy #$A0
sta $A0A0
sta ($A0,x)
tax
.byte $BF
ldy #$AA
.byte $80
ldy #$A0
.byte $F3
.byte $A0
L946E: .byte $A0
L946F: lda $FBB3
cmp #$38
beq L9484
cmp #$EA
beq L9484
lda $FBC0
cmp #$EA
beq L9484
clc
bne L94A6
L9484: jsr xbell
jsr xmess
tax
tax
tax
ldy #$E5
.byte $F2
.byte $F2
.byte $EF
.byte $F2
tsx
ldy #$B6
.byte $B5
L9497: .byte $C3
bcs L944C
ldy #$F2
sbc $F1
sbc $E9,x
.byte $F2
sbc $E4
sta $3800
L94A6: rts
L94A7: beq L94AD
tax
jsr LF94A
L94AD: rts
sbc $A0A0
.byte $80
ldy #$A0
lda $A0A0,y
ldy #$A0
ldy #$A0
ldy #$BB
.byte $A0
L94BE: sbc $A0
ldy #$A0
.byte $F4
ldy #$A0
ldy #$A0
cpy $A0
ldy #$AF
ldy #$A0
iny
lda $A0A0,y
ldy #$A0
ldy #$B4
ldy #$A0
ldy #$A0
ldy #$A0
ldy #$A0
.byte $B7
ldy #$AA
ldy #$A0
tax
ldy #$A0
ldy #$A0
ldy #$A0
ldy #$A0
.byte $BB
ldy $A0,x
ldy #$A0
ldy #$A0
.byte $B2
ldy #$AE
bcs L9497
sbc #$B0
ldy #$EB
sta $E4A0,y
sbc ($A0,x)
ldy #$A0
ldy #$A0
ldy #$E5
cpy $E3A0
ldy #$A0
.byte $BB
ldy #$A0
asl a
L950F: .byte $F0
L9510: ldy #$D3
L9512: tax
L9513: .byte $A0
L9514: .byte $A0
L9515: .byte $A0
L9516: .byte $D3
L9517: ldy #$A0
.byte $F2
tax
ldy #$80
ldy #$A0
ldy #$02
L9521: ldy #$BE
sty $01,x
L9525: .byte $CE
L9526: .byte $94
Reference in New Issue View Git Blame Copy Permalink