@@ -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
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Reference in New Issue
Block a user