diff --git a/images/apple/PLEIADES-2.20-SYS.po b/images/apple/PLEIADES-2.20-SYS.po
index 86909b49..edebb2ab 100644
Binary files a/images/apple/PLEIADES-2.20-SYS.po and b/images/apple/PLEIADES-2.20-SYS.po differ
diff --git a/images/apple/PLEIADES-2.20.po b/images/apple/PLEIADES-2.20.po
index c68f2457..f006f4e9 100644
Binary files a/images/apple/PLEIADES-2.20.po and b/images/apple/PLEIADES-2.20.po differ
diff --git a/images/apple/PLFORTH.po b/images/apple/PLFORTH.po
index 862bb543..1f560866 100644
Binary files a/images/apple/PLFORTH.po and b/images/apple/PLFORTH.po differ
diff --git a/src/libsrc/apple/portio.pla b/src/libsrc/apple/portio.pla
index c6a805e5..ef76d986 100644
--- a/src/libsrc/apple/portio.pla
+++ b/src/libsrc/apple/portio.pla
@@ -53,7 +53,7 @@ end
 //export def portRead
 //  return (^FLAG0>>7)&1|(^FLAG1>>6)&2|(^FLAG2>>5)&4|(^FLAG3>>4)&8
 export asm portRead#1
-        INX
+        DEX
         LDA     #$00
         STA     ESTKH,X
         BIT     FLAG0
diff --git a/src/mk4th b/src/mk4th
index a5d1a740..82c034a0 100755
--- a/src/mk4th
+++ b/src/mk4th
@@ -21,6 +21,7 @@ cat rel/apple/CAT#FE1000           | java -jar ac.jar -p   PLFORTH.PO sys/CAT RE
 #cat rel/apple/NEWDIR#FE1000        | java -jar ac.jar -p   PLFORTH.PO sys/NEWDIR REL
 cat rel/apple/MATCHFILES#FE1000    | java -jar ac.jar -p   PLFORTH.PO sys/MATCHFILES REL
 cat rel/INT32#FE1000               | java -jar ac.jar -p   PLFORTH.PO sys/INT32 REL
+cat rel/apple/PORTIO#FE1000        | java -jar ac.jar -p   PLFORTH.PO sys/PORTIO REL
 #cat rel/FPSTR#FE1000               | java -jar ac.jar -p   PLFORTH.PO sys/FPSTR REL
 #cat rel/FPU#FE1000                 | java -jar ac.jar -p   PLFORTH.PO sys/FPU REL
 #cat rel/SANE#FE1000                | java -jar ac.jar -p   PLFORTH.PO sys/SANE REL
@@ -30,7 +31,6 @@ cat rel/ED#FE1000                  | java -jar ac.jar -p   PLFORTH.PO sys/ED REL
 cat rel/LINES#FE1000               | java -jar ac.jar -p   PLFORTH.PO sys/LINES REL
 cat rel/apple/HGRFONT#FE1000       | java -jar ac.jar -p   PLFORTH.PO sys/HGRFONT REL
 cat rel/apple/HGRTILE#FE1000       | java -jar ac.jar -p   PLFORTH.PO sys/HGRTILE REL
-cat rel/apple/HGRSPRITE#FE1000     | java -jar ac.jar -p   PLFORTH.PO sys/HGRSPRITE REL
 cat rel/apple/HGRLIB#FE1000        | java -jar ac.jar -p   PLFORTH.PO sys/HGRLIB REL
 cat rel/apple/GRLIB#FE1000         | java -jar ac.jar -p   PLFORTH.PO sys/GRLIB REL
 cat rel/apple/DGRLIB#FE1000        | java -jar ac.jar -p   PLFORTH.PO sys/DGRLIB REL
@@ -42,6 +42,7 @@ cat scripts/grlib.4th              | java -jar ac.jar -ptx PLFORTH.PO sys/script
 cat scripts/dgrlib.4th             | java -jar ac.jar -ptx PLFORTH.PO sys/scripts/DGRLIB.4TH TXT
 cat scripts/hgrlib.4th             | java -jar ac.jar -ptx PLFORTH.PO sys/scripts/HGRLIB.4TH TXT
 cat scripts/int32.4th              | java -jar ac.jar -ptx PLFORTH.PO sys/scripts/INT32.4TH TXT
+cat scripts/portio.4th             | java -jar ac.jar -ptx PLFORTH.PO sys/scripts/PORTIO.4TH TXT
 #cat scripts/fpu.4th                | java -jar ac.jar -ptx PLFORTH.PO sys/scripts/FPU.4TH TXT
 cat scripts/rod.4th                | java -jar ac.jar -ptx PLFORTH.PO scripts/ROD.4TH TXT
 cat scripts/bounce.4th             | java -jar ac.jar -ptx PLFORTH.PO scripts/BOUNCE.4TH TXT