6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2026-04-20 16:16:34 +00:00
Code Issues Projects Releases Wiki Activity

Fix gutter toggle redraw

Browse Source
This commit is contained in:
David Schmenk
2025-03-04 17:25:19 -08:00
parent 574c6e5964
commit e9a75048ef
5 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
images/apple/PLASMA-2.20.po
BIN
View File
Binary file not shown.
src/mk4th
+1
View File
@@ -5,6 +5,7 @@ cat rel/apple/CMD#061000 | ./ac.jar -p PLFORTH.PO CMD BIN $1000
cat rel/apple/PLASMA.SYSTEM#FF2000 | ./ac.jar -p PLFORTH.PO PLASMA.SYSTEM SYS
cat rel/apple/FILEIO#FE1000 | ./ac.jar -p PLFORTH.PO sys/FILEIO REL
cat rel/apple/CONIO#FE1000 | ./ac.jar -p PLFORTH.PO sys/CONIO REL
cat rel/apple/VBLANK#FE1000 | ./ac.jar -p PLFORTH.PO sys/VBLANK REL
cat rel/ARGS#FE1000 | ./ac.jar -p PLFORTH.PO sys/ARGS REL
cat rel/LONGJMP#FE1000 | ./ac.jar -p PLFORTH.PO sys/LONGJMP REL
cat rel/HRFORTH#FE1000 | ./ac.jar -p PLFORTH.PO sys/HRFORTH REL
src/mkbig
+1
View File
@@ -14,6 +14,7 @@ cat ../doc/Editor.md | ./ac.jar -ptx $PO_IMAGE EDITOR.README TXT
#mkdir sys
cat rel/apple/FILEIO#FE1000 | ./ac.jar -p $PO_IMAGE sys/FILEIO REL
cat rel/apple/CONIO#FE1000 | ./ac.jar -p $PO_IMAGE sys/CONIO REL
cat rel/apple/VBLANK#FE1000 | ./ac.jar -p $PO_IMAGE sys/VBLANK REL
cat rel/LINES#FE1000 | ./ac.jar -p $PO_IMAGE sys/LINES REL
cat rel/apple/HGRFONT#FE1000 | ./ac.jar -p $PO_IMAGE sys/HGRFONT REL
cat rel/apple/HGRTILE#FE1000 | ./ac.jar -p $PO_IMAGE sys/HGRTILE REL
src/mklisp
+1
View File
@@ -12,6 +12,7 @@ cat rel/apple/JIT#FE1000 | ./ac.jar -p $PO_IMAGE sys/JIT REL
cat rel/apple/JIT16#FE1000 | ./ac.jar -p $PO_IMAGE sys/JIT16 REL
cat rel/apple/FILEIO#FE1000 | ./ac.jar -p $PO_IMAGE sys/FILEIO REL
cat rel/apple/CONIO#FE1000 | ./ac.jar -p $PO_IMAGE sys/CONIO REL
cat rel/apple/VBLANK#FE1000 | ./ac.jar -p $PO_IMAGE sys/VBLANK REL
cat rel/ARGS#FE1000 | ./ac.jar -p $PO_IMAGE sys/ARGS REL
cat rel/LONGJMP#FE1000 | ./ac.jar -p $PO_IMAGE sys/LONGJMP REL
cat rel/INT32#FE1000 | ./ac.jar -p $PO_IMAGE sys/INT32 REL
src/toolsrc/ed.pla
+4 -2
View File
@@ -1416,10 +1416,10 @@ def cmdmode#0
word cmdptr, line
var i, freepool
conio:clear(cls)
conio:gotoxy(0, scrnheight - 1)
conio:clear(cleol)
conio:textctrl(ctrlecho, ON)
conio:textctrl(ctrlcursor, ON)
puts("PLASMA Editor, Version 2.20\n")
while not (flags & exit)
puts(@filename)
cmdptr = gets($BA)
@@ -1436,6 +1436,7 @@ def cmdmode#0
is 'G' // Gutter view
flags = flags ^ gutter
viewwidth = scrnwidth - (flags & gutter) - 1
curshpos(curscol)
break
is 'C' // Lower case chip (Apple ][/][+ only)
conio:textctrl(ctrlcase, 0)
@@ -1556,6 +1557,7 @@ if scrnwidth > 80 // Lookup UltraTerm screen dimensions
scrnheight = UltraTermHeight[scrnwidth - 81]
scrnwidth = UltraTermWidth[scrnwidth - 81]
fin
puts("PLASMA Editor, Version 2.20\n")
inittxtbuf
puts(@filename)
readtxt(@filename, 0)