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
|
;
; Oliver Schmidt, 15.04.2005
;
; unsigned char __fastcall__ _sysrename (const char* oldname, const char* newname);
;
.export __sysrename
.import pushname, popname
.import popax
.include "zeropage.inc"
.include "mli.inc"
__sysrename:
; Save newname
sta ptr2
stx ptr2+1
; Get and push oldname
jsr popax
jsr pushname
bne oserr1
; Save pushed oldname
lda sp
ldx sp+1
sta ptr3
stx ptr3+1
; Restore and push newname
lda ptr2
ldx ptr2+1
jsr pushname
bne oserr2
; Restore and set pushed oldname
lda ptr3
ldx ptr3+1
sta mliparam + MLI::RENAME::PATHNAME
stx mliparam + MLI::RENAME::PATHNAME+1
; Set pushed newname
lda sp
ldx sp+1
sta mliparam + MLI::RENAME::NEW_PATHNAME
stx mliparam + MLI::RENAME::NEW_PATHNAME+1
; Rename file
lda #RENAME_CALL
ldx #RENAME_COUNT
jsr callmli
; Cleanup newname
jsr popname ; Preserves A
; Cleanup oldname
oserr2: jmp popname ; Preserves A
oserr1: rts
|
