From d83e8a3f0e8f71f627b20639c85e4e7a386cbb32 Mon Sep 17 00:00:00 2001 From: jede Date: Mon, 1 Mar 2021 22:49:20 +0100 Subject: [PATCH] add syschdir --- libsrc/telestrat/syschdir.s | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 libsrc/telestrat/syschdir.s diff --git a/libsrc/telestrat/syschdir.s b/libsrc/telestrat/syschdir.s new file mode 100644 index 000000000..1676f5c88 --- /dev/null +++ b/libsrc/telestrat/syschdir.s @@ -0,0 +1,34 @@ +; +; 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 + + +