mirror of
https://github.com/david-schmidt/Davex.git
synced 2024-06-17 16:29:31 +00:00
112 lines
2.1 KiB
NASM
112 lines
2.1 KiB
NASM
.include "Common/2/Globals2.asm"
|
|
.include "Common/2/Apple.Globals2.asm"
|
|
.include "Common/2/Mli.globals2.asm"
|
|
.include "Common/Macros.asm"
|
|
|
|
.segment "CODE_9000"
|
|
|
|
LBF00 := $BF00
|
|
LFD8E := $FD8E
|
|
rts
|
|
|
|
inc $10EE
|
|
.byte $12
|
|
brk
|
|
.byte $14
|
|
bcc L9009
|
|
L9009: bcc L904B
|
|
bcc L900D
|
|
L900D: brk
|
|
brk
|
|
brk
|
|
brk
|
|
.byte $03
|
|
brk
|
|
brk
|
|
and #$CC
|
|
sbc #$F3
|
|
.byte $F4
|
|
ldy #$E4
|
|
sbc #$F2
|
|
sbc $E3
|
|
.byte $F4
|
|
.byte $EF
|
|
.byte $F2
|
|
sbc $A0AE,y
|
|
.byte $D7
|
|
.byte $F2
|
|
sbc #$F4
|
|
.byte $F4
|
|
sbc $EE
|
|
ldy #$E2
|
|
sbc $D0A0,y
|
|
inx
|
|
sbc ($E4,x)
|
|
sbc $A0
|
|
.byte $D3
|
|
.byte $EF
|
|
inc $F4
|
|
.byte $F7
|
|
sbc ($F2,x)
|
|
sbc $00
|
|
brk
|
|
jsr LBF00
|
|
.byte $C7
|
|
eor #$90
|
|
jmp L904C
|
|
|
|
ora ($00,x)
|
|
L904B: .byte $94
|
|
L904C: jsr LFD8E
|
|
lda #$94
|
|
ldy #$00
|
|
jsr xprint_path
|
|
jsr LFD8E
|
|
jsr LFD8E
|
|
nop
|
|
jsr xpush_level
|
|
lda #$94
|
|
ldy #$00
|
|
jsr xdir_setup
|
|
L9067: jsr xread1dir
|
|
bcc L9073
|
|
jsr xdir_finish
|
|
jsr LFD8E
|
|
rts
|
|
|
|
L9073: jsr L9083
|
|
lda #$1A
|
|
ldy #$02
|
|
jsr xprint_path
|
|
jsr xcheck_wait
|
|
jmp L9067
|
|
|
|
L9083: ldy #$00
|
|
L9085: lda $1A03,y
|
|
cmp #$00
|
|
beq L908F
|
|
jmp L9094
|
|
|
|
L908F: lda #$A0
|
|
sta $1A03,y
|
|
L9094: iny
|
|
cpy #$10
|
|
beq L909C
|
|
jmp L9085
|
|
|
|
L909C: lda #$A0
|
|
sta $1A12
|
|
lda #$10
|
|
sta $1A02
|
|
rts
|
|
|
|
brk
|
|
brk
|
|
brk
|
|
brk
|
|
brk
|
|
brk
|
|
brk
|
|
brk
|
|
brk
|