mirror of
https://github.com/PDP-10/its.git
synced 2026-04-03 04:37:53 +00:00
b467dcc16a
CLUDMP is the compiler, and is a normal ITS executable. It has a variety of commands documented in CLU ORDER, but normally just the file name can be passed on the JCL. The compiler emits an intermediate CLUMAC file which is then assembled with MIDAS, leavning a BIN file. The BIN file is not a normal ITS binary, but has to be loaded into the CLU runtime. The CLUSYS directory has files needed to assemble CLUMAC files. ALPHA and OMEGA are inserted at the top and bottom, respectively. ALPHA in turn needs PASS1, TYPES, and COMMON. It is not known how LOAD is used, but it's also necessary in the compilation process. TS CLUSYS is the runtime system. The procedure "fload" accepts a string specifying a file to be loaded. It's an open question whether the two executables can be rebuilt from source code found on the scattered ITS backups.
46 lines
893 B
Plaintext
46 lines
893 B
Plaintext
; This is CLUSYS;ALPHA >, a file to be inserted
|
|
; in front of CLUMAC files. It cooperates with the file
|
|
; CLUSYS;OMEGA >, which goes at the end of CLUMAC files.
|
|
|
|
sblk
|
|
nosyms
|
|
.mllit==1
|
|
if1 [
|
|
%its==0
|
|
%pits==1
|
|
printc /
|
|
**** Pass 1 ****
|
|
/]
|
|
if2 [
|
|
printc /
|
|
**** Pass 2 ****
|
|
/]
|
|
bugflg==0
|
|
|
|
if2 [ jlink== jsp xr,linker ]
|
|
|
|
if1 [ .insrt clusys;pass1
|
|
]
|
|
|
|
$init
|
|
|
|
usrflg==1 ; shows user-ness
|
|
|
|
if1 [ .insrt clusys;types
|
|
.insrt clusys;common
|
|
]
|
|
|
|
loc userlo
|
|
; ld.cod== 0 ; tvec+6
|
|
; ld.siz== 1 ; size of load file
|
|
; ld.low== 2 ; virtual low bound
|
|
; ld.ent== 3 ; ref to entry block vector
|
|
; ld.ver== 4 ; clu version number
|
|
; ld.ref== 5 ; ptr to ref area
|
|
start: tvec+6 ; to make this a proper object
|
|
finish-start ; the size of the file in words
|
|
start ; the lowest load address
|
|
tref+ents$ ; the entry blocks vector
|
|
myvers ; the current version number
|
|
tref+pur$lo ; ptr to reference area
|