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

VERSA: Load the XGP's default font if there's no ;KSET.

Browse Source 
@ doesn't emit ;KSET unless you explicitly specify fonts with the /F
switch; VERSA used to complain about this.
This commit is contained in:
Adam Sampson 2018-05-30 21:35:43 +01:00 committed by Adam Sampson
parent d8d517ea2d
commit 71541561ba
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/dcp/versa.211
View File

@ -4344,13 +4344,14 @@ scrloo: cain x,^L ;find first ^L
jrst scrmor
jrst scrloo
scrfin: skipn ksetok
jrst [ movei x,[ [asciz "~%~T XGP: File error: no ;KSET command (no fonts)"]]
call log"log ;"
movei x,string"badreq ;"
call util"throw ;"
]
movei 1
scrfin: skipe ksetok ;have we seen a ;KSET?
jrst scrfi2
call font"getrdy ;"no - load the XGP's default font
movei x,0
movei y,[sixbit /dsk/ ? sixbit /25fg/
sixbit /kst/ ? sixbit /fonts/]
call font"xgpfnt ;"
scrfi2: movei 1
came nskip
jrst [ movei x,[ [asciz "~%~T XGP: File error: must have ;SKIP 1"]]
call log"log ;"