FNT - Font loader daemon for SITS.

build/misc.tcl

@@ -1646,6 +1646,10 @@ expect ":KILL"
 respond "*" ":palx ddt\r"
 expect ":KILL"
 
+# Font loader daemon for SITS.
+respond "*" ":palx fnt\r"
+expect ":KILL"
+
 # TORTIS
 respond "*" ":midas;324 radia;_tortis\r"
 expect ":KILL"

build/timestamps.txt

@@ -1904,13 +1904,18 @@ share/tekplt.171 198307151358.48
 shrdlu/demo.flick 197110311951.55
 shrdlu/ts.twdemo 197110311544.38
 sits/-read-.-this- 197503032229.00
+sits/bigf.7 197703090139.50
+sits/bigf.ast 197507300444.54
 sits/conven.3 197503051957.44
 sits/ddt.73 197706301928.57
 sits/docum.66 197607010317.17
+sits/fnt.8 197705191238.47
+sits/medfnt.11 197703191737.16
 sits/salv.175 197711241704.25
 sits/sitmac.6 197609212250.40
 sits/sits.119 197712281629.08
 sits/sitss.syms 197711281648.44
+sits/smallf.5 197703090139.11
 sits/styi.207 197702231829.55
 sits/sysspr.238 197706031415.49
 sits/todo.23 197509192206.00

src/sits/fnt.8

@@ -0,0 +1,33 @@
+.TITLE FONT LOADER DAEMON
+P==%6
+.INSRT SITS;SITMAC >
+.INSRT SITS;SITSS SYMS
+
+FSTRT=40000
+FSTRT0=FSTRT
+.INSRT SITS; BIGF >
+FSTRT=100000
+FSTRT2=FSTRT
+.INSRT SITS;MEDFNT >
+FSTRT=60000
+FSTRT1=FSTRT
+.INSRT SITS; SMALLF >
+
+GO:	MOV #PDL,P
+;	SAVE <#FSTRT0,#.PRWRT*400>
+;	$FONT
+	SAVE <#FSTRT1,#.PRWRT*400+1>
+	$FONT
+;	SAVE <#FSTRT2,#.PRWRT*400+2>
+	SAVE <#FSTRT2,#.PRWRT*400+0>
+	$FONT
+	BPT
+	JMP GO
+
+PAT:
+PATCH:	.BLKW 100
+PDL:
+
+
+.END GO
+