Compare commits
9 commits
master
...
revert-141
| Author | SHA1 | Date | |
|---|---|---|---|
|
e058e7b9b1 | ||
|
|
1569669e17 | ||
|
|
e1d5104882 | ||
|
|
b05a0b3bbc | ||
|
|
4f3842abeb | ||
|
|
ddd26ec3f7 | ||
|
|
467d0c5957 | ||
|
|
0aeff51dd0 | ||
|
|
b1cc22e1c5 |
2 changed files with 2 additions and 33 deletions
|
|
@ -10,7 +10,8 @@
|
||||||
|
|
||||||
|
|
||||||
initcwd:
|
initcwd:
|
||||||
BRK_TELEMON(XGETCWD)
|
ldx #PWD_PTR
|
||||||
|
BRK_TELEMON XVARS
|
||||||
|
|
||||||
sta ptr1
|
sta ptr1
|
||||||
sty ptr1+1
|
sty ptr1+1
|
||||||
|
|
|
||||||
|
|
@ -1,32 +0,0 @@
|
||||||
;
|
|
||||||
; Jede (jede@oric.org), 2021-02-22
|
|
||||||
;
|
|
||||||
; unsigned char _syschdir (const char* name, ...);
|
|
||||||
;
|
|
||||||
|
|
||||||
.export __syschdir
|
|
||||||
.import addysp, popax
|
|
||||||
.importzp tmp1
|
|
||||||
.import initcwd
|
|
||||||
|
|
||||||
.include "telestrat.inc"
|
|
||||||
.include "zeropage.inc"
|
|
||||||
|
|
||||||
|
|
||||||
__syschdir:
|
|
||||||
; Throw away all parameters except the name
|
|
||||||
dey
|
|
||||||
dey
|
|
||||||
jsr addysp
|
|
||||||
|
|
||||||
; Get name
|
|
||||||
jsr popax
|
|
||||||
|
|
||||||
stx tmp1
|
|
||||||
ldy tmp1
|
|
||||||
|
|
||||||
; Call telemon primitive
|
|
||||||
|
|
||||||
BRK_TELEMON(XPUTCWD)
|
|
||||||
|
|
||||||
jmp initcwd ; Update cwd
|
|
||||||
Loading…
Add table
Reference in a new issue