github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-22 10:32:13 +00:00
Code Issues Releases Wiki Activity

VERSA: Fix XGP line height calculation.

Browse Source 
The default line height was 0, so empty lines came out as zero height.
Use the height of the current font instead.

If the last line of a page ended with the ^L, linfin was never called,
so its height was computed as 0 and it overlapped the previous line.
Ensure linfin always gets run in this case.
This commit is contained in:
Adam Sampson 2018-05-26 00:15:37 +01:00 committed by Adam Sampson
parent abfd92fa59
commit 38d534c320
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/dcp/versa.211
View File

@ -4512,8 +4512,10 @@ dopag1: call doline
jrst dopag1
doline: setzm outena ;disable output
setzm chrrct ;should really be current height??
setzm movdwn ;nothing forced us down yet
setzm chrrct
setzm movdwn
call normal ;initial line height based on
jfcl ; current font, in case line is empty
setzm count ;count of saved characters
move x,lftmar ;underline from left margin by default
movem x,stubit
@ -4544,7 +4546,7 @@ cl.top: ^@,,[aos (p) ? return] ;ignore
^H,,backsp
^I,,tab
^J,,linefd
^L,,[setom eopp ? return]
^L,,[setom eopp ? jrst linfin]
^M,,cretrn
177,,xgpesc
0,,0