Compare commits

...
Sign in to create a new pull request.

9 commits

Author SHA1 Message Date
Oliver Schmidt
e058e7b9b1 Revert "Now getchar works"
This reverts commit 1fc16cb9ed.
2021-03-06 11:56:22 +01:00
Oliver Schmidt
1569669e17 Revert "add syschdir"
This reverts commit d83e8a3f0e.
2021-03-06 11:56:22 +01:00
Oliver Schmidt
e1d5104882 Revert "revert read.s"
This reverts commit 65d5786da5.
2021-03-06 11:56:22 +01:00
Oliver Schmidt
b05a0b3bbc Revert "remove extra line"
This reverts commit 973a5337ac.
2021-03-06 11:56:22 +01:00
Oliver Schmidt
4f3842abeb Revert "Now we update __cwd"
This reverts commit d417baf826.
2021-03-06 11:56:22 +01:00
Oliver Schmidt
ddd26ec3f7 Revert "Fix tab"
This reverts commit 17ca09ba9a.
2021-03-06 11:56:22 +01:00
Oliver Schmidt
467d0c5957 Revert "Fix another tab"
This reverts commit 9b36565485.
2021-03-06 11:56:22 +01:00
Oliver Schmidt
0aeff51dd0 Revert "Fix tab"
This reverts commit 2ae41e0a55.
2021-03-06 11:56:22 +01:00
Oliver Schmidt
b1cc22e1c5 Revert "Fix tab and jmp"
This reverts commit bf9d4ac3bb.
2021-03-06 11:56:22 +01:00
2 changed files with 2 additions and 33 deletions

View file

@ -10,7 +10,8 @@
initcwd:
BRK_TELEMON(XGETCWD)
ldx #PWD_PTR
BRK_TELEMON XVARS
sta ptr1
sty ptr1+1

View file

@ -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