bslathi19/cc65
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

test #2674

Browse Source
This commit is contained in:
mrdudz
2025-06-23 17:09:06 +02:00
parent 4863a3e29b
commit 5fc15a7a60
204 changed files with 915 additions and 912 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
libsrc/atari/sysrename.s
View File

@@ -6,7 +6,7 @@
.include "atari.inc"
.import findfreeiocb
.importzp tmp4, sp, ptr2, ptr3
.importzp tmp4, c_sp, ptr2, ptr3
.import incsp2, subysp, addysp, popax
.ifdef UCASE_FILENAME
.importzp tmp3
@@ -118,19 +118,19 @@ L1: jsr subysp ; make room on the stack
; copy old name
ldy #0
con: lda (ptr3),y
sta (sp),y
sta (c_sp),y
beq copyend
iny
bne con
copyend:lda #$20 ; space
sta (sp),y
sta (c_sp),y
iny
tya ; get current offset (beyond old name)
clc
adc sp
adc c_sp
sta ptr3
lda sp+1
lda c_sp+1
adc #0
sta ptr3+1 ; ptr3 now contains pointer to space for new filename
@@ -143,9 +143,9 @@ cnn: lda (ptr2),y
bne cnn
copend2:ldx tmp4
lda sp
lda c_sp
sta ICBAL,x
lda sp+1
lda c_sp+1
sta ICBAH,x
lda #RENAME
sta ICCOM,x
@@ -160,13 +160,13 @@ copend2:ldx tmp4
; clean up stack
lda sp
lda c_sp
clc
adc sspc
sta sp
lda sp+1
sta c_sp
lda c_sp+1
adc sspc+1
sta sp+1
sta c_sp+1
; handle status