6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-06-12 14:29:54 +00:00
Code Issues Projects Releases Wiki Activity

Fill out more FORTH <-> PLASMA librariesP

Browse Source
This commit is contained in:
David Schmenk 2024-01-16 10:09:08 -08:00
parent 232ced8fe3
commit 3b3fc24246
3 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/scripts/conio.4th
View File

@ -1,10 +1,15 @@
' CONIOAPI ENDSRC
LOOKUP CONIO CONSTANT CONIOAPI
CONIOAPI 3 IFACE PLASMA _HOME : HOME _HOME DROP ;
CONIOAPI 4 IFACE PLASMA _GOTOXY : GOTOXY _GOTOXY DROP ;
CONIOAPI 7 IFACE PLASMA _TEXT : TEXT 40 _TEXT DROP ;
CONIOAPI 8 IFACE PLASMA _GR : GR 1 _GR DROP ;
CONIOAPI 9 IFACE PLASMA _COLOR : COLOR _COLOR DROP ;
CONIOAPI 10 IFACE PLASMA _PLOT : PLOT _PLOT DROP ;
CONIOAPI 11 IFACE PLASMA _TONE : TONE _TONE DROP ;
CONIOAPI 12 IFACE PLASMA RAND
CONIOAPI 3 IFACE PLASMA _HOME : HOME _HOME DROP ;
CONIOAPI 4 IFACE PLASMA _GOTOXY : GOTOXY _GOTOXY DROP ;
CONIOAPI 5 IFACE PLASMA _VIEWPORT : VIEWPORT _VIEWPORT DROP ;
CONIOAPI 6 IFACE PLASMA _TEXTTYPE
: NORMALTEXT $FF _TEXTTYPE DROP ;
: INVERSETEXT $3F _TEXTTYPE DROP ;
: FLASHTEXT $7F _TEXTTYPE DROP ;
CONIOAPI 7 IFACE PLASMA _TEXT : TEXT 40 _TEXT DROP ;
CONIOAPI 8 IFACE PLASMA _GR : GR 1 _GR DROP ;
CONIOAPI 9 IFACE PLASMA _COLOR : COLOR _COLOR DROP ;
CONIOAPI 10 IFACE PLASMA _PLOT : PLOT _PLOT DROP ;
CONIOAPI 11 IFACE PLASMA _TONE : TONE _TONE DROP ;
CONIOAPI 12 IFACE PLASMA RAND

1
src/scripts/fileio.4th
View File

@ -1,4 +1,5 @@
' FILEIOAPI ENDSRC
LOOKUP PERR CONSTANT PERR
LOOKUP FILEIO CONSTANT FILEIOAPI
FILEIOAPI 2 IFACE PLASMA GETFILEINFO
FILEIOAPI 3 IFACE PLASMA SETFILEINFO

2
src/vmsrc/apple/plvm802.s
View File

@ -531,7 +531,7 @@ JITINTRPX PHP
STA ESTKH,X
JSR JMPTMP
!AS ; RETURN IN EMULATION MODE
RETJIT PLA
PLA
STA TMPL
PLA
STA TMPH