Build SAIL; JOBDAT REL from source code.

build/build.tcl

@@ -1089,6 +1089,10 @@ expect ":KILL"
 respond "*" ":fail sail;stktrn rel_sail;stktrn >\r"
 respond "*" "\032:kill\r"
 
+# jobdat
+respond "*" ":fail sail;jobdat rel_sail;jobdat >\r"
+respond "*" "\032:kill\r"
+
 # fail
 respond "*" ":fail sail;fail rel_sail;fail >\r"
 respond "*" "\032:kill\r"

src/sail/jobdat.16

@@ -0,0 +1,84 @@
+TITLE JOBDAT
+
+INTERNAL JOBDAC,JOBD16,JOBUUO,JOB41,JOBENB,JOBREL,JOBPD1,JOBPRT,JOBHCU,JOBPC,JOBDDT
+INTERNAL JOBSAV,JOBJDA,JOBLO,JOBSV,JOBSVM,JOBSDD,JOBPFI,JOBHI,JOBHRL,JOBSYM,JOBSA
+INTERNAL JOBFF,JOBS41,JOBREN,JOBAPR,JOBCNI,JOBTPC,JOBOPC,JOBCOR,JOBVER,JOBDA
+
+INTERNAL .JBREL,.JBFF,.JBSA,.JBAPR,.JBTPC,.JBCNI,.JBDDT,.JBOPC,.JBENB,.JBS41,.JBCOR
+INTERNAL .JBSAV,.JB41,.JBHRL,.JBSYM
+
+JOBDAC__20
+JOBD16__JOBDAC+16
+
+JOBUUO__40		;UUO LOCATION
+JOB41__41		;USER UUO JSR LOCATION
+JOBENB__43		;JOB ARR TRAPS ENABLE BITS
+JOBREL__44		;LH=0, RH=HIGHEST REL. ADR. IN USER AREA
+			; (IE LOW SEGMENT).  SET BY MONITOR EACH TIME JOB CHANGES
+			; CORE SIZE.
+JOBPD1__45
+JOBPRT__72		;FIRST LOC PROTECTED
+JOBHCU__72
+JOBPC__JOBHCU+1
+JOBDDT__74		;LH UNUSED
+			;RH=STARTING ADDRESS OF USER DDT
+JOBSAV__JOBDDT-1	;FIRST LOC-1 WRITTEN BY SAVE COMMAND
+JOBJDA__JOBDDT+1	;JOB DEVICE ASSIGNMENT TABLE
+			; LH=UUO'S DONE SO FAR
+			; RH=ADR. OF DEVICE DATA BLOCK IN MONITOR
+JOBLO__JOBJDA		;FIRST LOC TO ZERO OUT DURING A RESET UUO
+JOBSV__JOBJDA+1		;FIRST LOC READ INTO OR WRITTEN FROM BY NEW
+			; SAVGET WHICH ZERO-COMPRESSES.  THIS LOC CONTAINS
+			; THE FIRST IOWD W/NO. OF DATA WORDS IN LH, FIRST ADR-1
+			; IN RH.
+JOBSVM__JOBSV-1		;FIRST LOC-1 USED FOR SETTING UP DUMP MODE
+			; COMMAND LIST FOR SAVGET
+JOBSDD__JOBJDA+17	;PLACE TO SAVE JOBDDT ON SAVE
+JOBPFI__JOBJDA+17	;HIGHEST LOC IN JOB DATA AREA PROTECTED FROM IO
+JOBHI__JOBJDA+17	;LAST LOC TO ZERO OUT DURING A RESET UUO (C.F. USRHI)
+JOBHRL__115		;LH IS FIRST FREE LOC IN HIGH SEG RELATIVE TO ORIGIN.
+JOBSYM__116		;POINTER TO JOB SYMBOLS
+			; ANALAGOUS TO LH OF JOBSA FOR LOW SEG.  (IE LH=LENGTH TO
+			; SAVE ON SAVE COMMAND).  SET BY LOADER.
+			; RH ANALAGOUS TO JOBREL, IE HIGHEST LEGAL USER ADDRESS IN HIGH SEG.
+JOBSA__120		;LH=INITIAL FIRST FREE LOCATION IN LOW SEG (SET BY LOADER)
+			;RH=STARTING ADDRESS OF USER PROGRAM
+			;(SET FROM HIGH DATA AREA ON GET IF NO LOW FILE)
+JOBFF__121		;CURRENT FIRST FREE LCATION IN LOW SEG USED
+			; AND UPDATED BY MONITOR TO ASSIGN IO BUFFERS IN TOP OF USER
+			; AREA.
+			;  USER MAY CHANGE CONTENTS IN ORDER TO AFFECT PLACEMENT OF
+			; BUFFERS BY MONITOR
+JOBS41__122		;C(JOB41) SAVED HERE ON SAVE COMMAND.
+			; RESTORE FROM HERE ON GET.
+JOBREN__124		;REENTER ADDRESS FOR REENTER COMMAND.
+			; (SET FROM HIGH DATA AREA ON GET IF NO SAVE FILE)
+JOBAPR__125		;PLACE TO TRAP TO IN USER AREA ON APR TRAP.
+			; ENABLED BY APRENB UUO.
+JOBCNI__126		;APR IS CONI'ED INTO C(JOBCNI) ON APR TRAP
+JOBTPC__127		;PC IS STORED HERE ON USER APR TRAP
+JOBOPC__130		;OLD PC IS STORED HERE ON START, DDT, REENTER,
+			; STARTC COMMANDS.
+JOBCOR__133		;(SET FOM HIGH DATA AREA IN NO LOW FILE)
+			; LH=HIGHEST LOCATION LOADED (LOW SEG) W/PROG OR DATA.
+			;  (BLOCK STATEMENTS DO NO COUNT HERE).  SAVE WILL NOT
+			;  WRITE THE LOWSEG OF A 2 SEG PROG IF LH IS <= 137
+			;  AND GET WILL NOT READ.
+			; RH=SIZE OF CORE FROM LOW SEG ON RUN, SAVE, GET COMMANDS.
+			;  (SET FROM HIGH DATA AREA ON GET IF NOT LOW FILE)
+			;  SET BY SAVE TO CORE ASSIGNMENT TO BE USED ON GET (UNLESS USER
+			;  TYPES A LARGER ARG TO GET) TO FRIST FREE LOC-1 (OR TOP
+			;  OF USER DDT) OR TO USER'S CORE ARG TO SAVE IF BIFFER.
+			; GET ALWAYS SET RH TO INITIAL CORE ASSIGNMENT SO THAT PROG
+			;  CAN RESTORE CORE TO ORIGINAL ASSIGNMENT ON RESTARTING.
+JOBVER__137		;CONTAINS VERSION # (OCTAL) OF CUSP BEING RUN IN RH
+JOBDA__140		;FIRST LOC NOT USED BY JOB DATA AREA
+
+;THE NEW REGIME COMETH
+
+FOR @! NAM IN (REL,FF,SA,APR,TPC,CNI,DDT,OPC,ENB,S41,COR,SAV,41,HRL,SYM)
+<.JB!NAM__JOB!NAM
+>
+	RELOC 40
+END
+