From 9aa0ab68ee37d10872f0150ae86160adba4360ce Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@sbcglobal.net>
Date: Thu, 28 Dec 2023 13:31:42 -0800
Subject: [PATCH] modkeep some libraries so PLFORTH can link to them

---
 src/libsrc/apple/conio.pla  |  1 +
 src/libsrc/apple/dgrlib.pla | 21 +++++++++++----------
 src/libsrc/apple/fileio.pla |  1 +
 src/libsrc/apple/grlib.pla  | 21 +++++++++++----------
 src/libsrc/lines.pla        |  7 ++++---
 5 files changed, 28 insertions(+), 23 deletions(-)

diff --git a/src/libsrc/apple/conio.pla b/src/libsrc/apple/conio.pla
index b62f058..2db6822 100644
--- a/src/libsrc/apple/conio.pla
+++ b/src/libsrc/apple/conio.pla
@@ -403,4 +403,5 @@ when MACHID & MACHID_MODEL
         break
     otherwise // MACHID_II        puts("Found MACHID_MODEL = $"); putb(MACHID & MACHID_MODEL); putln
 wend
+return modkeep
 done
diff --git a/src/libsrc/apple/dgrlib.pla b/src/libsrc/apple/dgrlib.pla
index 7e32aaf..7bf4a94 100755
--- a/src/libsrc/apple/dgrlib.pla
+++ b/src/libsrc/apple/dgrlib.pla
@@ -52,10 +52,10 @@ end
 //
 export asm dgrPlot(x, y)#0
         ; GET ROW BUFFER ADDRESSES
-		LDA     $3000
+                LDA     $3000
         STA     SRCL
         LDA     $3001
-		STA		SRCH
+                STA             SRCH
         STX     ESP
         LDA     ESTKL,X     ; Y COORD
         AND     #$FE
@@ -84,10 +84,10 @@ end
 //
 export asm dgrHLin(x1, x2, y)#0
         ; GET ROW BUFFER ADDRESSES
-		LDA     $3000
+                LDA     $3000
         STA     SRCL
         LDA     $3001
-		STA		SRCH
+                STA             SRCH
         STX     ESP
         LDA     ESTKL+1,X    ; X2 COORD
         STA     TMPH
@@ -126,10 +126,10 @@ end
 //
 export asm dgrVLin(y1, y2, x)#0
         ; GET ROW BUFFER ADDRESSES
-		LDA     $3000
+                LDA     $3000
         STA     SRCL
         LDA     $3001
-		STA		SRCH
+                STA             SRCH
         STX     ESP
         LDA     ESTKL+2,X   ; Y1 COORD
         PHP
@@ -165,10 +165,10 @@ end
 //
 export asm dgrBLT(x, y, width, height, src)#0
         ; GET ROW BUFFER ADDRESSES
-		LDA     $3000
+                LDA     $3000
         STA     DSTL
         LDA     $3001
-		STA		DSTH
+                STA             DSTH
         LDA     ESTKL,X     ; SPRITE
         STA     SRCL
         LDA     ESTKH,X
@@ -325,10 +325,10 @@ end
 //
 export asm dgrTile(x, y, src)#0
         ; GET ROW BUFFER ADDRESSES
-		LDA     $3000
+                LDA     $3000
         STA     DSTL
         LDA     $3001
-		STA		DSTH
+                STA             DSTH
         STX     ESP
         LDA     ESTKL,X       ; TILE
         STA     SRCL
@@ -607,4 +607,5 @@ dgrTile:1       = @drawbuff
 dgrTile:6       = @drawbuff+1
 // Put read AUX mem routine in scary location
 memcpy($0100, @auxRead, 9)
+return modkeep
 done
diff --git a/src/libsrc/apple/fileio.pla b/src/libsrc/apple/fileio.pla
index f3282e0..2b87e3e 100644
--- a/src/libsrc/apple/fileio.pla
+++ b/src/libsrc/apple/fileio.pla
@@ -479,4 +479,5 @@ when MACHID & MACHID_MODEL
         break
     otherwise // Apple ][
 wend
+return modkeep
 done
diff --git a/src/libsrc/apple/grlib.pla b/src/libsrc/apple/grlib.pla
index 739fb9d..7f328e7 100644
--- a/src/libsrc/apple/grlib.pla
+++ b/src/libsrc/apple/grlib.pla
@@ -45,10 +45,10 @@ end
 //
 export asm grPlot(x, y)#0
         ; GET ROW BUFFER ADDRESSES
-		LDA     $3000
+                LDA     $3000
         STA     SRCL
         LDA     $3001
-		STA		SRCH
+                STA             SRCH
         LDA     ESTKL,X     ; Y COORD
         AND     #$FE
         TAY
@@ -78,10 +78,10 @@ end
 //
 export asm grHLin(x1, x2, y)#0
         ; GET ROW BUFFER ADDRESSES
-		LDA     $3000
+                LDA     $3000
         STA     SRCL
         LDA     $3001
-		STA		SRCH
+                STA             SRCH
         LDA     ESTKL+1,X    ; X2 COORD
         STA     TMPH
         LDA     ESTKL+0,X    ; Y COORD
@@ -120,10 +120,10 @@ end
 //
 export asm grVLin(y1, y2, x)#0
         ; GET ROW BUFFER ADDRESSES
-		LDA     $3000
+                LDA     $3000
         STA     SRCL
         LDA     $3001
-		STA		SRCH
+                STA             SRCH
         LDA     ESTKL+2,X   ; Y1 COORD
 -       AND     #$FE
         TAY
@@ -160,10 +160,10 @@ end
 //
 export asm grBLT(x, y, width, height, src)#0
         ; GET ROW BUFFER ADDRESSES
-		LDA     $3000
+                LDA     $3000
         STA     DSTL
         LDA     $3001
-		STA		DSTH
+                STA             DSTH
         LDA     ESTKL,X     ; SPRITE
         STA     SRCL
         LDA     ESTKH,X
@@ -252,10 +252,10 @@ end
 //
 export asm grTile(x, y, src)#0
         ; GET ROW BUFFER ADDRESSES
-		LDA     $3000
+                LDA     $3000
         STA     DSTL
         LDA     $3001
-		STA		DSTH
+                STA             DSTH
         STX     ESP
         LDA     ESTKL,X     ; TILE
         STA     SRCL
@@ -513,4 +513,5 @@ grBLT:1        = @drawbuff
 grBLT:6        = @drawbuff+1
 grTile:1       = @drawbuff
 grTile:6       = @drawbuff+1
+return modkeep
 done
diff --git a/src/libsrc/lines.pla b/src/libsrc/lines.pla
index 39750b7..53198e8 100644
--- a/src/libsrc/lines.pla
+++ b/src/libsrc/lines.pla
@@ -249,7 +249,7 @@ asm     _hlineB
 end
 //def vline(y1, y2, dy2, x, dx2, sx)#0
 //    var dxy2, y
-//    
+//
 //    err  = dx2 - dy2 / 2
 //    dxy2 = dx2 - dy2
 //    for y = y1 to y2
@@ -386,7 +386,7 @@ def vmajorspans(x1, y1, x2, y2, dx, dy, sx)#0
 end
 export def linespans(x1, y1, x2, y2)#0
     var dx, dy, dx2, dy2, halflen, rem, sx, sy
-    
+
     sx = 1
     sy = 1
     dx = x2 - x1
@@ -430,7 +430,7 @@ export def setlineplot(p)#0
 end
 export def line(x1, y1, x2, y2)#0
     var sx, sy, dx2, dy2
-    
+
     sx = 1
     sy = 1
     dx2 = (x2 - x1) * 2
@@ -503,4 +503,5 @@ _vlineB:6       = @err
 _vlineB:9       = @err
 _vlineB:13      = @err.1
 _vlineB:16      = @err.1
+return modkeep
 done