1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
|
;
; Christian Groessler, 2013-07-24
;
; unsigned char __fastcall__ _sysrename (const char* oldname, const char* newname);
;
.include "atari.inc"
.import findfreeiocb
.importzp tmp4, sp, ptr2, ptr3
.import incsp2, subysp, addysp, popax
.ifdef UCASE_FILENAME
.importzp tmp3
.import ucase_fn
.ifdef DEFAULT_DEVICE
.importzp tmp2
.endif
.endif
.export __sysrename
.proc __sysrename
pha ; save input parameter
txa
pha
jsr findfreeiocb
beq iocbok ; we found one
pla
pla ; fix up stack
jsr incsp2
lda #TMOF ; too many open files
rts
iocbok: stx tmp4 ; remember IOCB index
pla
sta ptr2+1 ; remember newname
pla
sta ptr2 ; ditto.
jsr popax ; get oldname
ldy #0
sty sspc+1 ; initialize stack space
.ifdef UCASE_FILENAME
; uppercase first (old) name and prepend device if needed
.ifdef DEFAULT_DEVICE
ldy #$80
sty tmp2 ; set flag for ucase_fn
.endif
jsr ucase_fn
bcc ucok1
lda #183 ; see oserror.s
rts
ucok1: sta ptr3
stx ptr3+1 ; remember pointer to uppercased old name
lda tmp3 ; # of bytes reserved on the stack
sta sspc ; remember...
; uppercase second (new) name and don't prepend device
.ifdef DEFAULT_DEVICE
ldy #0
sty tmp2 ; set flag for ucase_fn
.endif
lda ptr2
ldx ptr2+1
jsr ucase_fn
bcc ucok2
ldy tmp3 ; get size
jsr addysp ; free used space on the stack
lda #183 ; see oserror.s
rts
ucok2: sta ptr2 ; remember pointer to uppercased new name
stx ptr2+1
; update sspc -- # of bytes used on the stack
lda sspc
clc
adc tmp3
sta sspc
bcc ukok4
inc sspc+1
ukok4:
.else
sta ptr3
stx ptr3+1
sty sspc
.endif
; create a string on the stack with the old filename and the new filename separated by an invalid character (space in our case)
; ptr2 - pointer to new name
; ptr3 - pointer to old name
lda #128
tay
clc
adc sspc
sta sspc
bcc L1
inc sspc+1
L1: jsr subysp ; make room on the stack
; copy old name
ldy #0
con: lda (ptr3),y
sta (sp),y
beq copyend
iny
bne con
copyend:lda #$20 ; space
sta (sp),y
iny
tya ; get current offset (beyond old name)
clc
adc sp
sta ptr3
lda sp+1
adc #0
sta ptr3+1 ; ptr3 now contains pointer to space for new filename
; copy new name
ldy #0
cnn: lda (ptr2),y
sta (ptr3),y
beq copend2
iny
bne cnn
copend2:ldx tmp4
lda sp
sta ICBAL,x
lda sp+1
sta ICBAH,x
lda #RENAME
sta ICCOM,x
lda #0
sta ICAX1,x
sta ICAX2,x
sta ICBLL,x
sta ICBLH,x
jsr CIOV
tya
pha
; clean up stack
lda sp
clc
adc sspc
sta sp
lda sp+1
adc sspc+1
sta sp+1
; handle status
pla
tay
bmi cioerr
lda #0
rts
cioerr: tya
rts
.endproc ; __sysrename
.bss
sspc: .res 2 ; stack space used
|
