6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-12-28 06:30:16 +00:00
Code Issues Projects Releases Wiki Activity

Now mkdir is working

Browse Source
This commit is contained in:
jede 2017-10-28 00:37:47 +02:00
parent 7435c2f3ca
commit 807b55862d
3 changed files with 48 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
asminc/telestrat.inc
View File

@ -171,6 +171,7 @@ XSOUND = $44
XMUSIC = $45 XMUSIC = $45
XZAP = $46 XZAP = $46
XSHOOT = $47 XSHOOT = $47
XMKDIR = $4B ; create a folder. Only available in telemon 3.x
XSOUT = $67 ; send A register to RS232, available in telemon 2.4 & 3.x XSOUT = $67 ; send A register to RS232, available in telemon 2.4 & 3.x
XHRSSE = $8C ; set hires position cursor XHRSSE = $8C ; set hires position cursor
XDRAWA = $8D ; draw a line XDRAWA = $8D ; draw a line

17
libsrc/telestrat/oserror.s Normal file
View File

@ -0,0 +1,17 @@
;
; Jede, 2017-10-27
;
; int __fastcall__ _osmaperrno (unsigned char oserror);
; /* Map a system specific error into a system independent code */
;
.include "errno.inc"
.export __osmaperrno
.proc __osmaperrno
lda #<EUNKNOWN
ldx #>EUNKNOWN
rts
.endproc

30
libsrc/telestrat/sysmkdir.s Normal file
View File

@ -0,0 +1,30 @@
;
; Jede (jede@oric.org), 2017-10-27
;
; unsigned char _sysmkdir (const char* name, ...);
;
.export __sysmkdir
.import addysp, popax
.include "telestrat.inc"
.include "zeropage.inc"
__sysmkdir:
; Throw away all parameters except the name
dey
dey
jsr addysp
; Get name
jsr popax
; Call telemon primitive
BRK_TELEMON(XMKDIR)
rts