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

Get VIDEX and //e 80 col to agree on cursor

Browse Source
This commit is contained in:
David Schmenk
2025-03-03 14:35:11 -08:00
parent f56784b275
commit 93af94055d
3 changed files with 18 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
images/apple/PLASMA-2.20.po
View File

Binary file not shown.

26
src/libsrc/apple/conio.pla
View File

@@ -669,19 +669,19 @@ def a2ctrl80v(code, param)#1
handled = TRUE
break
is ctrlcursor
if param == OFF
flags = flags & ~showcurs
^$C0B0 = $0A
^$C0B1 = $20
elsif param == INVERSE
flags = flags | showcurs
^$C0B0 = $0A
^$C0B1 = $00
else
flags = flags | showcurs
^$C0B0 = $0A
^$C0B1 = $C0
fin
when param
is OFF
^$C0B0 = $0A
^$C0B1 = $20
break
is INVERSE
^$C0B0 = $0A
^$C0B1 = $00
break
otherwise
^$C0B0 = $0A
^$C0B1 = $C0
wend
handled = TRUE
break
is ctrlscroll

8
src/toolsrc/ed.pla
View File

@@ -1072,13 +1072,15 @@ def keyin
underchr = curscol >= ^(txtlinbuf=>[cursrow]) ?? ' ' :: txtlinbuf=>[cursrow]->[curscol + 1]
curschr = flags & insmode ?? '+' :: '_'
conio:gotoxy(cursx, cursy)
repeat
conio:gotoxy(cursx, cursy)
conio:textctrl(ctrlattr, INVERSE)
conio:putchars(1, curschr)
conio:gotoxy(cursx, cursy)
conio:textctrl(ctrlattr, INVERSE)
conio:textctrl(ctrlcursor, INVERSE)
waitkey
conio:textctrl(ctrlattr, OFF)
conio:textctrl(ctrlcursor, OFF)
conio:textctrl(ctrlattr, NORMAL)
conio:putchars(1, underchr)
conio:gotoxy(cursx, cursy)
waitkey