mirror of
https://github.com/a2stuff/prodos-path.git
synced 2024-06-05 13:29:31 +00:00
Compare commits
2 Commits
4bdb0808a2
...
af1c8f1865
Author | SHA1 | Date | |
---|---|---|---|
|
af1c8f1865 | ||
|
3360d44dd7 |
12
copy.cmd.s
12
copy.cmd.s
|
@ -197,6 +197,18 @@ read: lda FN1REF
|
||||||
|
|
||||||
|
|
||||||
finish: jsr CloseFiles
|
finish: jsr CloseFiles
|
||||||
|
|
||||||
|
;; Apply FN1 info to FN2 to preserve modification date
|
||||||
|
ldx #$D - 3
|
||||||
|
: lda FN1INFO+3,x
|
||||||
|
sta SSGINFO+3,x
|
||||||
|
dex
|
||||||
|
bpl :-
|
||||||
|
lda #$7
|
||||||
|
sta SSGINFO
|
||||||
|
lda #SET_FILE_INFO
|
||||||
|
jsr GOSYSTEM
|
||||||
|
|
||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
7
path.s
7
path.s
|
@ -171,16 +171,15 @@ nxtchr: jsr ToUpperASCII
|
||||||
lda #>execute
|
lda #>execute
|
||||||
sta XTRNADDR+1
|
sta XTRNADDR+1
|
||||||
|
|
||||||
;; Mark command as external (zero).
|
|
||||||
lda #0
|
|
||||||
sta XCNUM
|
|
||||||
|
|
||||||
;; Set accepted parameter flags (optional name)
|
;; Set accepted parameter flags (optional name)
|
||||||
lda #PBitsFlags::FNOPT | PBitsFlags::FN1
|
lda #PBitsFlags::FNOPT | PBitsFlags::FN1
|
||||||
sta PBITS
|
sta PBITS
|
||||||
lda #0
|
lda #0
|
||||||
sta PBITS+1
|
sta PBITS+1
|
||||||
|
|
||||||
|
;; Mark command as external (zero).
|
||||||
|
sta XCNUM ; A=0 from above
|
||||||
|
|
||||||
clc ; Success (so far)
|
clc ; Success (so far)
|
||||||
rts ; Return to BASIC.SYSTEM
|
rts ; Return to BASIC.SYSTEM
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user