mirror of
https://github.com/PDP-10/its.git
synced 2026-02-02 06:51:04 +00:00
33 lines
426 B
Groff
Executable File
33 lines
426 B
Groff
Executable File
.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
|
||
|