1
0
mirror of https://github.com/dschmenk/PLASMA.git synced 2026-01-22 18:15:59 +00:00

Break out HGR libraries into separate includes for memory savings

This commit is contained in:
David Schmenk
2025-12-02 09:59:34 -08:00
parent ca87c5b678
commit 43c5ed5839
7 changed files with 19 additions and 14 deletions

View File

@@ -73,6 +73,8 @@ cp scripts/fileio.4th prodos/sys/scripts/FILEIO.4TH.TXT
cp scripts/grlib.4th prodos/sys/scripts/GRLIB.4TH.TXT
cp scripts/dgrlib.4th prodos/sys/scripts/DGRLIB.4TH.TXT
cp scripts/hgrlib.4th prodos/sys/scripts/HGRLIB.4TH.TXT
cp scripts/hgrtile.4th prodos/sys/scripts/HGRTILE.4TH.TXT
cp scripts/hgrfont.4th prodos/sys/scripts/HGRFONT.4TH.TXT
cp scripts/turtle.4th prodos/sys/scripts/TURTLE.4TH.TXT
cp scripts/grafix.4th prodos/sys/scripts/GRAFIX.4TH.TXT
cp scripts/int32.4th prodos/sys/scripts/INT32.4TH.TXT

4
src/scripts/hgrfont.4th Normal file
View File

@@ -0,0 +1,4 @@
' HGRPUTSTR ?ENDSRC
" HGRTILE" LOADMOD" "
" HGRFONT" LOADMOD" "
LOOKUP HGRPUTSTR PLASMA HGRPUTSTR

View File

@@ -1,8 +1,6 @@
' HGRMODE ?ENDSRC
" HGRLIB" LOADMOD" "
" LINES" LOADMOD" "
" HGRTILE" LOADMOD" "
" HGRFONT" LOADMOD" "
LOOKUP HGRPLOT PLASMA HGRPLOT
LOOKUP HGRORPLOT PLASMA HGRORPLOT
LOOKUP HGRXORPLOT PLASMA HGRXORPLOT
@@ -24,14 +22,6 @@ LOOKUP HGRSHOW PLASMA HGRSHOW
LOOKUP HGRSWAP PLASMA HGRSWAP
LOOKUP HGRDRAWBUF PLASMA HGRDRAWBUF
LOOKUP HGRCOLOR PLASMA HGRCOLOR
LOOKUP HGRPUTSTR PLASMA HGRPUTSTR
LOOKUP SETLINESPANS PLASMA SETLINESPANS
LOOKUP LINESPANS PLASMA HGRLINE
LOOKUP HGRHLIN LOOKUP HGRVLIN SETLINESPANS
LOOKUP TILEDRAW PLASMA TILEDRAW
LOOKUP TILEXORDRAW PLASMA TILEXORDRAW
LOOKUP TILEORDRAW PLASMA TILEORDRAW
LOOKUP TILEANDDRAW PLASMA TILEANDDRAW
LOOKUP TILEDRAWSTR PLASMA TILEDRAWSTR
LOOKUP TILEFROMTEXT PLASMA TILEFROMTEXT
LOOKUP TILEDRAWBUF PLASMA TILEDRAWBUF

9
src/scripts/hgrtile.4th Normal file
View File

@@ -0,0 +1,9 @@
' TILEDRAW ?ENDSRC
" HGRTILE" LOADMOD" "
LOOKUP TILEDRAW PLASMA TILEDRAW
LOOKUP TILEXORDRAW PLASMA TILEXORDRAW
LOOKUP TILEORDRAW PLASMA TILEORDRAW
LOOKUP TILEANDDRAW PLASMA TILEANDDRAW
LOOKUP TILEDRAWSTR PLASMA TILEDRAWSTR
LOOKUP TILEFROMTEXT PLASMA TILEFROMTEXT
LOOKUP TILEDRAWBUF PLASMA TILEDRAWBUF

View File

@@ -5,6 +5,7 @@ OR NOT ?ABORT" Must run with HRFORTH."
SRC" PLASMA.4TH"
SRC" CONIO.4TH"
SRC" HGRLIB.4TH"
SRC" HGRFONT.4TH"
5 VARIABLE BALLCLR
10 VARIABLE BALLX

View File

@@ -8,11 +8,10 @@ FORGET MACHID
SRC" PLASMA.4TH"
SRC" FPU.4TH"
SRC" CONIO.4TH"
SRC" HGRLIB.4TH"
: DRAWAXIS
0 HGRMODE HGRDRAWBUF TILEDRAWBUF DROP
0 HGRMODE HGRDRAWBUF DROP
1 HGRCOLOR
0 96 279 96 HGRLINE
139 0 139 191 HGRLINE

View File

@@ -9,7 +9,7 @@ JITCOMP = $03E2
JITCODE = $03E4
!SOURCE "vmsrc/plvmzp.inc"
;*
;* MOVE CMD DOWN TO $1000-$2000
;* MOVE CMD DOWN TO $0C00-$1C00
;*
LDA #<_CMDBEGIN
STA SRCL
@@ -26,7 +26,7 @@ JITCODE = $03E4
BNE -
INC SRCH
INC DSTH
DEX ; STOP WHEN DST=$2000 REACHED
DEX ; STOP WHEN DST=$1C00 REACHED
BNE -
;
; INIT VM ENVIRONMENT STACK POINTERS