6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-08-07 18:25:03 +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
Download Patch File Download Diff File Expand all files Collapse all files

5
src/scripts/conio.4th
View File

@@ -2,6 +2,11 @@
LOOKUP CONIO CONSTANT CONIOAPI
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 ;

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