empathicqubit/cc65
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add cputc & remove

Browse source
This commit is contained in:
jede 2018-04-14 21:52:11 +02:00
parent 4e0958eae6
commit e34ef0fc17
3 changed files with 34 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
asminc/telestrat.inc
View file

@ -172,7 +172,8 @@ XMUSIC = $45
XZAP = $46 XZAP = $46
XSHOOT = $47 XSHOOT = $47
XMKDIR = $4B ; create a folder. Only available in telemon 3.x 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 XRM = $4D ; remove a folder or a file. Only available in telemon 3.x
XSOUT = $67 ; send accumulator value (A) to RS232, available in telemon 2.4 & 3.x : if RS232 buffer is full, the Oric Telestrat freezes
XHRSSE = $8C ; set hires position cursor XHRSSE = $8C ; set hires position cursor
XDRAWA = $8D ; draw a line XDRAWA = $8D ; draw a line
XDRAWR = $8E ; draw a line XDRAWR = $8E ; draw a line

16
libsrc/telestrat/cputc.s Normal file
View file

@ -0,0 +1,16 @@
; 2018-04-13, Jede (jede@oric.org)
;
; void cputc (char c);
;
.export _cputc
.include "telestrat.inc"
.proc _cputc
BRK_TELEMON XWR0 ; macro send char to screen (channel 0 in telemon terms)
rts
.endproc

16
libsrc/telestrat/sysremove.s Normal file
View file

@ -0,0 +1,16 @@
;
; Jede, 10.11.2017
;
; unsigned char __fastcall__ _sysremove (const char* name);
;
.export __sysremove
.include "zeropage.inc"
.include "telestrat.inc"
__sysremove:
; Push name
BRK_TELEMON(XRM)
rts