; $CA3F: Build command
BCMD: jsr CDS ; clear disk status
ldx #$00
stx $025D ; counter for command-len
LCA47: lda DOS Command table,y
beq SCMD ; get command-chars
cmp #$80
beq SCMD ; send command-string
tax
dex
beq LCA72 ; drive 1 ?
dex
beq LCA78 ; drive 2 ?
dex
beq LCA7E ; REPLACE ?
dex
beq LCA85 ; filename 1 if exists
dex
beq LCA8D ; filename 1 ?
dex
beq LCA97 ; filename 2 if exists
dex
beq LCAA5 ; filename 2 ?
dex
beq LCAAF ; ID ?
dex
beq LCAD2
LCA6C: jsr LCAEB ; install command
LCA6F: iny
bne LCA47
;drive 1
LCA72: lda $82
and #$10 ; drive number present ?
beq LCA6F ; no
LCA78: lda $026F ; get drive number 1
jmp LCA81
;drive 2
LCA7E: lda $0273 ; get drive number 2
LCA81: ora #$30 ; to ASCII
bne LCA6C
; replace
LCA85: lda #$40 ; get replace code
bit $82 ; syntax flag ?
bmi LCA6C ; replace
bpl LCA6F
; filename 1
LCA8D: lda $026E ; get len of filename 1
beq LCA6F
lda #$3A ; get ":"
jsr LCAEB ; add to command-string
LCA97: tya
pha
lda $0270 ; get address
ldy $0271
ldx $026E ; get filename-len
jmp LCABA ; insert filenmae to command-string
; filename 2
LCAA5: lda $0272 ; get len of filename 2
beq LCA6F
lda #$3A ; get ":"
jsr LCAEB ; add to command-string
LCAAF: tya
pha
lda $0274 ; get address
ldy $0275
ldx $0272 ; get filename-len
; insert filenmae to command-string
LCABA: sta $22
sty $23
stx $80
ldy #$00
LCAC2: jsr L04B0 ; get char from $22,y
jsr LCAEB ; add char to command-string
iny
cpy $80 ; end of filename ?
bne LCAC2
pla
tay
jmp LCA6F
LCAD2: lda $0279 ; get present != 0
beq LCA6F
lda #$2C ; comma
jsr LCAEB ; add char to command-string
lda $0279 ;
jsr LCAEB ; add char to command-string
lda $027A ; get ID
jsr LCAEB ; add char to command-string
jmp LCA6F
; add to command-string
LCAEB: ldx $025D ; get offset
sta $027C,x ; adds char
inc $025D
rts
; DOS Command table
LCAF5:
DOS Command table:
.byte "$" ; DIRECTORY
.byte $07,$05,$00,$04,$02
.byte ":" ; DLOAD, DSAVE
.byte $06,$00
.byte "N" ; HEADER
.byte $02
.byte ":"
.byte $06,$09,$80
.byte "S" ; SCRATCH
.byte $02
.byte ":"
.byte $06,$80
.byte "V" ; COLLECT
.byte $02,$80
.byte "C" ; COPY
.byte $03,$07
.byte "="
.byte $02,$05,$80
.byte "R" ; RENAME
.byte $02
.byte ":"
.byte $08
.byte "="
.byte $06,$80
.byte "D" ; BACKUP
.byte $03
.byte "="
.byte $02,$80Letzte Änderung: 2019-01-06 09:50:59
