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:
|
||||
BRK_TELEMON(XGETCWD)
|
||||
ldx #PWD_PTR
|
||||
BRK_TELEMON XVARS
|
||||
|
||||
sta ptr1
|
||||
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