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

Maybe it was my //e 80 column bug.

Browse Source
This commit is contained in:
David Schmenk
2025-03-05 07:42:25 -08:00
parent 6b691dcdc5
commit bde32b9c39
3 changed files with 17 additions and 22 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/libsrc/apple/conio.pla
+8 -8
View File
@@ -201,8 +201,10 @@ end
// return ^CURSH
//end
asm a2putchars(cnt, chrs)
LDA ESTKL+1,X ; CNT
BEQ EXA2PC
LDA ESTKH+1,X ; CNTH
BNE EXA2PC ; > 255
LDA ESTKL+1,X ; CNTL
BEQ EXA2PC ; == 0
BIT ROMEN
LDA ESTKH,X
BEQ ++
@@ -235,8 +237,10 @@ EXA2PC INX
end
asm a2putuprchars(cnt, chrs)
TXTATTR = $32
LDA ESTKL+1,X ; CNT
BEQ EXA2PC
LDA ESTKH+1,X ; CNTH
BEQ EXA2PC ; > 255
LDA ESTKL+1,X ; CNTL
BEQ EXA2PC ; == 0
BIT ROMEN
LDA ESTKH,X
BEQ ++
@@ -634,8 +638,6 @@ def a2ctrl80e(code, param)#1
handled = TRUE
break
is ctrlscroll
^IOUdis = 0
^store80ena = 0
if param > 0
for row = ^WNDTOP to ^WNDBOTTOM - param - 1
vidxcpy(txt1scrn[row], txt1scrn[row + param])
@@ -645,8 +647,6 @@ def a2ctrl80e(code, param)#1
vidxcpy(txt1scrn[row], txt1scrn[row + param])
next
fin
^store80dis = 0
^IOUena = 0
handled = TRUE
break
wend
src/toolsrc/ed.pla
+9 -14
View File
@@ -444,10 +444,10 @@ end
// Screen routines
//
def drawstr(row, strptr)#0
byte numchars
word numchars
conio:gotoxy(flags & gutter, row)
numchars = viewleft >= ^strptr ?? 0 :: ^strptr - viewleft
numchars = ^strptr - viewleft
if numchars >= viewwidth
conio:putchars(viewwidth, strptr + viewleft + 1)
else
@@ -523,8 +523,8 @@ def drawgutter#0
fin
end
def drawrows(toprow, bottomrow)#0
byte row, seperator, huns, tens, ones, numchars
word scrnrow, strptr
byte row, seperator, huns, tens, ones
word scrnrow, strptr, numchars
char gutterchars[3]
//
@@ -554,17 +554,12 @@ def drawrows(toprow, bottomrow)#0
conio:textctrl(ctrlattr, NORMAL)
fin
strptr = txtlinbuf=>[scrnrow]
if viewleft >= ^strptr
conio:putchars(1, ' ') // Fix a bug in //e output when cleol directly follows gotoxy
conio:clear(cleol)
numchars = ^strptr - viewleft
if numchars >= viewwidth
conio:putchars(viewwidth, strptr + viewleft + 1)
else
numchars = ^strptr - viewleft
if numchars >= viewwidth
conio:putchars(viewwidth, strptr + viewleft + 1)
else
conio:putchars(numchars, strptr + viewleft + 1)
conio:clear(cleol)
fin
conio:putchars(numchars, strptr + viewleft + 1)
conio:clear(cleol)
fin
fin
next