6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-11-18 15:05:14 +00:00
Code Issues Projects Releases Wiki Activity

implement DEFAULT_DEVICE support

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@2669 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cpg 2003-11-14 22:41:01 +00:00
parent 06d79d06df
commit 353b7e66a1
1 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
libsrc/atari/ucase_fn.s
View File

@ -18,6 +18,9 @@
.include "atari.inc"
.ifdef DEFAULT_DEVICE
.importzp tmp2
.endif
.importzp tmp3,ptr4,sp
.import _strupr,subysp
.export ucase_fn
@ -33,6 +36,19 @@
sta ptr4
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
ldy #0
loop: lda (ptr4),y
@ -59,6 +75,23 @@ loop2: lda (ptr4),y
dey
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
ldx sp+1
lda sp