mirror of
https://github.com/cc65/cc65.git
synced 2024-12-22 12:30:41 +00:00
implement DEFAULT_DEVICE support
git-svn-id: svn://svn.cc65.org/cc65/trunk@2669 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
parent
06d79d06df
commit
353b7e66a1
@ -18,6 +18,9 @@
|
|||||||
|
|
||||||
.include "atari.inc"
|
.include "atari.inc"
|
||||||
|
|
||||||
|
.ifdef DEFAULT_DEVICE
|
||||||
|
.importzp tmp2
|
||||||
|
.endif
|
||||||
.importzp tmp3,ptr4,sp
|
.importzp tmp3,ptr4,sp
|
||||||
.import _strupr,subysp
|
.import _strupr,subysp
|
||||||
.export ucase_fn
|
.export ucase_fn
|
||||||
@ -33,6 +36,19 @@
|
|||||||
sta ptr4
|
sta ptr4
|
||||||
stx ptr4+1
|
stx ptr4+1
|
||||||
|
|
||||||
|
.ifdef DEFAULT_DEVICE
|
||||||
|
ldy #1
|
||||||
|
sty tmp2 ; initialize flag: device present in passed string
|
||||||
|
lda #':'
|
||||||
|
cmp (ptr4),y
|
||||||
|
beq hasdev
|
||||||
|
iny
|
||||||
|
cmp (ptr4),y
|
||||||
|
beq hasdev
|
||||||
|
sta tmp2 ; set flag: no device is passed string
|
||||||
|
hasdev:
|
||||||
|
.endif
|
||||||
|
|
||||||
; now we need the length of the name
|
; now we need the length of the name
|
||||||
ldy #0
|
ldy #0
|
||||||
loop: lda (ptr4),y
|
loop: lda (ptr4),y
|
||||||
@ -59,6 +75,23 @@ loop2: lda (ptr4),y
|
|||||||
dey
|
dey
|
||||||
bpl loop2 ; bpl: this way we only support a max. length of 127
|
bpl loop2 ; bpl: this way we only support a max. length of 127
|
||||||
|
|
||||||
|
.ifdef DEFAULT_DEVICE
|
||||||
|
lda tmp2
|
||||||
|
cmp #1 ; was device present in passed string?
|
||||||
|
beq hasdev2 ; yes, don't prepend something
|
||||||
|
|
||||||
|
inc tmp3 ; no, prepend "D:"
|
||||||
|
inc tmp3 ; adjust stack size used
|
||||||
|
ldy #2
|
||||||
|
jsr subysp ; adjust stack pointer
|
||||||
|
ldy #1
|
||||||
|
lda #':'
|
||||||
|
sta (sp),y ; insert ':'
|
||||||
|
dey
|
||||||
|
lda #'D'
|
||||||
|
sta (sp),y ; insert 'D'
|
||||||
|
hasdev2:
|
||||||
|
.endif
|
||||||
; uppercase the temp. filename
|
; uppercase the temp. filename
|
||||||
ldx sp+1
|
ldx sp+1
|
||||||
lda sp
|
lda sp
|
||||||
|
Loading…
Reference in New Issue
Block a user