mirror of
https://github.com/cc65/cc65.git
synced 2025-01-01 03:30:20 +00:00
add syschdir
This commit is contained in:
parent
1fc16cb9ed
commit
d83e8a3f0e
34
libsrc/telestrat/syschdir.s
Normal file
34
libsrc/telestrat/syschdir.s
Normal file
@ -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
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user