changed "spc" to "c_sp"
This commit is contained in:
@@ -24,7 +24,7 @@
|
||||
.importzp tmp2
|
||||
.import __defdev
|
||||
.endif
|
||||
.importzp tmp3,ptr4,spc
|
||||
.importzp tmp3,ptr4,c_sp
|
||||
.import subysp,addysp
|
||||
.export ucase_fn
|
||||
|
||||
@@ -63,13 +63,13 @@ hasdev:
|
||||
ldy #0
|
||||
|
||||
loop2: lda (ptr4),y
|
||||
sta (spc),y
|
||||
sta (c_sp),y
|
||||
beq copy_end
|
||||
bmi L1 ; Not lowercase (also, invalid, should reject)
|
||||
cmp #'a'
|
||||
bcc L1 ; Not lowercase
|
||||
and #$DF ; make upper case char, assume ASCII chars
|
||||
sta (spc),y ; store back
|
||||
sta (c_sp),y ; store back
|
||||
L1:
|
||||
iny
|
||||
bpl loop2 ; bpl: this way we only support a max. length of 127
|
||||
@@ -93,15 +93,15 @@ copy_end:
|
||||
jsr subysp ; adjust stack pointer
|
||||
dey
|
||||
cpdev: lda __defdev,y
|
||||
sta (spc),y ; insert device name, number and ':'
|
||||
sta (c_sp),y ; insert device name, number and ':'
|
||||
dey
|
||||
bpl cpdev
|
||||
hasdev2:
|
||||
.endif
|
||||
|
||||
; leave A and X pointing to the modified filename
|
||||
lda spc
|
||||
ldx spc+1
|
||||
lda c_sp
|
||||
ldx c_sp+1
|
||||
clc ; indicate success
|
||||
rts
|
||||
|
||||
|
||||
Reference in New Issue
Block a user