Fix portRead

This commit is contained in:
David Schmenk committed 2025-10-30 14:30:16 -07:00
1 parent 3271c85306
commit 997ab30f44
5 files changed
+3 -2

No files matched your search

+1 -1
View File
@@ -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
+2 -1
View File
@@ -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