parent
d6f2fda575
commit
f122837955
1 changed files with 0 additions and 34 deletions
|
@ -1,34 +0,0 @@
|
|||
;
|
||||
; Jede (jede@oric.org), 2021-02-22
|
||||
;
|
||||
; unsigned char _syschdir (const char* name, ...);
|
||||
;
|
||||
|
||||
.export __syschdir
|
||||
.import addysp, popax
|
||||
.importzp tmp1
|
||||
|
||||
.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)
|
||||
|
||||
rts
|
||||
|
||||
|
||||
|
Loading…
Add table
Reference in a new issue