*M*      JIT      JOB INFORMATION TABLE
*P*      NAME:    JIT
*P*      PURPOSE: THE JIT PROVIDES A CENTRAL RECEPTACLE
*P*               FOR THE RETENTION OF JOB DEPENDENT INFORMATION
*P*               THAT IS USED BY THE MONITOR AND SEVERAL PROCESSORS
*P*               IN RUNNING A JOB.
*********************************************************************
*D*      NAME:    JIT
*D*      USAGE:   THE LABELS OF THE ITEMS IN JIT ARE CONSTRUCTED
*D*               using the following conventions.  These conventions
*D*               allow the user to determine from the label itself
*D*               whether it is an address or a displacement within
*D*               JIT and whether it has byte, halfword or word
*D*               resolution.  items in jit should always be
*D*               referenced by label rather than absolutely
*D*               because the internal structure of JIT may change.
*D*      JIT LABELING CONVENTIONS:  All the labels defined in JIT
*D*                ARE CONSTRUCTED USING THE FOLLOWING
*D*               conventions.  These conventions allow the user
*D*               to determine whether the label is an address
*D*               or a displacement from J:JIT and its resolution from
*D*               the label itself.
*D*
*D*               1.)  A colon (:) indicates that the label is an
*D*                    address.
*D*                    Example: J:TCB, JH:PC, JB:VLH
*D*               2.)  No colon indicates that the label is a
*D*                    displacement from J:JIT.
*D*                    Example: JTCB, PRDCRM, JBVLH
*D*               3.)  If the label starts with JH:, JH or HA, it has
*D*                    JB or BA, it has byte resolution.  If it starts
*D*                    with JX: or JX, it may be either byte or half-
*D*                    word, depending on value assigned by :BIG during
*D*                    sysgen.  Any other characters indicate word
*D*                    resolution.
*D*                    Examples: Word - J:UNAME, JUNAME, UNAME
*D*                              Halfword - JH:PC, JHDA
*D*                              Byte - JB:VLH, JBVLH, BAABC
*D*               4.)  In some cases several labels will reference the
*D*                    same item giving address and displacement with
*D*                    different resolution for the same item.
*D*                    Example: The I/O abort code - word 17, byte 0 -
*D*                             J:ABC, JABC, ABC and BAABC
*D*      DESCRIPTION:    Each user receives an initialized JIT when the
*D*               job or terminal session begins.  This JIT stays with
*D*               the job until it is logged off.  The JIT is the first
*D*               page of a job that is swapped in and the last to be
*D*               swapped out.
*D*
*D*               A user's JIT contains his accounting data, resource
*D*               usage limitations, various flags describing the status
*D*               of his job, some loader data, the M:UC and M:XX DCBs,
*D*               memory management data, a temp stack for monitor use,
*D*               pointers and addresses of data in his context block,
*D*               his map and access code images and swapper data, as
*D*               well as many other items too numerous to mention.
*D*               The JIT is 512 words long (1 page) and is always
*D*               loaded at .8C00 (virtual).
*D*
*D*               The seek addresses (JH:DA) and the command list (J:CL)
*D*               used by the swapper to swap a user in or out are
*D*               contained in JIT.  There is enough space in JIT to
*D*               contain this data for a user whose size is no greater
*D*               than 20 pages on Sigma 7 and small memory Sigma 9/560
*D*               systems.  If a user's size exceeds 20 pages, he is
*D*               allocated an AJIT, "additional JIT", and the swapper
*D*               command list is moved into AJIT.  The space in JIT
*D*               that was formerly used for the command list is then
*D*               used for the seek addresses, i.e., JH:DA spills over
*D*               INTO J:CL.  ON LARGE MEMORY SYSTEMS (GREATER
*D*               than 128K), all users receive an AJIT at the time
*D*               they receive the JIT.  The AJIT contains both the
*D*               swapper command list and the seek address table,
*D*               JH:DA.
*C* D00  MOVE ALL BOUND 8 TO BEFORE THE RES 0
*
*        EXTERNAL REFERENCES
*
         REF      :BIG              0 IF LESS OR EQ 128; 1 IF GT 128K
         REF      :BIGX512          :BIG  TIMES 512
*
*        EXTERNAL DEFINITIONS
*    TABS 10,14,25    FOR DEFS
*
         DEF :AMHED     ASSIGN/MERGE RECORD HEAD
         DEF :LOGSZ     :USERS RECORD SIZE
         DEF ABO        I/O ABNORMAL OVERRIDE ADDR.
         DEF ACCN       (SEE J:ACCN)
         DEF ALOCCT     ADDR OF LOCCT TABLE BUILT BY CCI.
         DEF ATITLE     (SEE J:TITLE)
         DEF BAABC      (SEE J:ABC)
         DEF BARNST     (SEE J:RNST)
         DEF CCBEF      (SEE J:RNST)
         DEF CCLFLAGS   (SEE J:TELFLGS)
         DEF CCLTFLGS   (SEE J:TELFLGS)
         DEF CDPO       (SEE J:INTER)
         DEF CEXT       (SEE J:CTIME)
         DEF CIC        (SEE J:NRS)
         DEF COCLN      DISPLACEMENT IN M:UC TO LINE #
         DEF CPE        (SEE J:ASSIGN)
         DEF CPO         TOTAL # OF CARDS PUNCHED FOR JOB.
         DEF CPPO       (SEE J:CPPO)
         DEF CUPO       CURRENT # OF USER PAGES OUT.
         DEF DCACCESS   TOTAL # OF DISC READS AND WRITES FOR JOB.
         DEF DCBLINK    (SEE J:DCBLINK)
         DEF DPACCESS   TOTAL # OF PACK READS AND WRITES FOR THE JOB.
         DEF ERLFLAGS   (SEE J:CASSIN)
         DEF ERO        I/O ERROR OVERRIDE ADDR.
         DEF ERRLFLGS   (SEE J:CASSIN)
         DEF FPMC       FREE PAGE MAP CONSTANT
         DEF HANSWAPS   HALFWORD ADDR OF # OF SWAPS PRIOR TO A TRAP
         DEF INTENT     (SEE J:INTENT)
         DEF IOTIME     (SEE J:CALCNT)
         DEF J:ABC      BITS 0-7: I/O ABORT CODE
*,*                     BITS 8-11: JOB PRIORITY
*,*                     BIT 23: ENQUE(S) OUTSTANDING.
*,*                     BITS 26-31: PSEUDO SENSE SWITCHES
         DEF J:ABUF     LOCATION OF ASSIGN-MERGE BUFFER IF IN CORE,
*,*                     ZERO IF NOT IN CORE.
         DEF J:ACCN     ACCOUNT # FOR THIS JOB (EBCDIC-2 WORDS).
         DEF J:AJ       PHYS PAGE # OF AJIT (ADDITIONAL JIT)
         DEF J:AJIT     ADDR OF ADDITIONAL JIT.  AJIT NEEDED IF J:CL
*,*                     TOO LARGE FOR JIT PAGE. ALWAYS NEEDED
*,*                     FOR BIG SYSTEM.
         DEF J:ALB      ADDR OF LAST BRANCH (FOR 560 ONLY).
         DEF J:AMR      DISC ADDR OF THE ASSIGN-MERGE RECORD.
         DEF J:ASPIN    TWO WORD BIT TABLE USED TO MARK THE DCT
*,*                     INDICES OF DEVICES ALLOCATED TO THIS JOB.
*,*                     THE BITS PARALLEL THE DCT TABLES RUNNING FROM
*,*                     RIGHT TO LEFT AND WORD TO WORD. (E.G., WORD 0,
*,*                     BIT 0 MARKS A DCT INDEX OF 31.
*,*                     WORD 1, BIT 31 MARKS A DCT INDEX OF 32)
         DEF J:ASSIGN   BIT 0: ASSIGNS HAVE BEEN MERGED.
*,*                     BIT 1: NO BUFFER CHECK.
*,*                     BIT 2: SWAP PURE PROCEDURE.
*,*                     BIT 3: READ ACCOUNTS = 'NONE'.
*,*                     BIT 4: FLUSH JOB FOR BAD CONTROL CMND (CCI).
*,*                     BIT 5: J:EXLY-EXECUTE ONLY.
*,*                     BIT 6: :SYS RESIDENT PROCESSOR RESTRICTION
*,*                     BIT 7: RESTRICTED PROCESSOR LIST
*,*                     BIT 8: RESERVED-SPECIAL SYSTEMS.
*,*                     BIT 9: QUE MANAGER CALLED.
*,*                     BIT 13: PROCESSOR PMDS.
*,*                     BIT 14: USER PMDS.
*,*                     BIT 15: DEBUG FILE PRESENT.
*,*                     BIT 22: ASSIGN-MERGE RECORD HAS BEEN WRITTEN.
*,*                     BIT 23: NET PERM DISC GRANULE ALLOCATION.
*,*                     BIT 24: CPU TIME.
*,*                     BIT 25: SCRATCH TAPES.
*,*                     BIT 26: TEMP DISC GRANULES ACQUIRED.
*,*                     BIT 27: PERM DISC GRANULES ACQUIRED.
*,*                     BIT 28: DIAGNOSTIC PRINT PAGES OUT.
*,*                     BIT 29: USER-GENERATED PAGES OUT.
*,*                     BIT 30: PROCESSOR-GENERATED PRINT PAGES OUT.
*,*                     BIT 31: PUNCH CARDS OUTPUT.
         DEF J:BASE     SCRATCH STORAGE (12 WORDS)
*,*                     USED FOR 30 MILLION DIFFERENT THINGS.
*,*                     FREQUENTLY IS LOCATION OF REGISTERS IN TSTACK.
         DEF J:BUP      PAGE # OF LOWER LIMIT OF USER AREA (1ST PAGE #).
         DEF J:CALCNT   COUNT OF CAL1 CALLS EXECUTED.
         DEF J:CASSIN   BITS 8-15: WORK-STATION OF ORIGIN.
*,*                     THE FOLLOWING BITS INDICATE WHICH DEVICES CCI
*,*                     IS TO OUTPUT ERROR MESSAGES ON.
*,*                     BIT 25: AL (ACCOUNTING LOG) DEVICE.
*,*                     BIT 26: PO (PUNCH OUTPUT) DEVICE.
*,*                     BIT 27: DO (DIAGNOSTIC OUTPUT) DEVICE.
*,*                     BIT 28: LO (LISTING OUTPUT) DEVICE.
*,*                     BIT 29: SL (SYSTEM LOG) DEVICE.
*,*                     BIT 30: LL (LISTING LOG) DEVICE.
*,*                     BIT 31: OC (OPERATORS CONSOLE) DEVICE.
         DEF JB:CCARS   ACTUAL RECORED SIZE OF CONTROL CMND.
         DEF J:CCBUF    CONTROL CMND BUFFER USED BY TEL AND CCI
         DEF JB:CCDISP  DISPLACEMENT INTO CONTROL CMND.
         DEF J:CFLGS    THIS FIELD IS SET UP BY THE SAVE CAL.
*,*                     BITS 16-31: UH:FLG AT TIME OF SAVE.
         DEF J:CL       START OF SWAPPER CMND LIST IF NO AJIT.
         DEF J:CLE      # OF WORDS IN SWAPPER CMND LIST.
         DEF J:CLL      PAGE # OF LOWER LIMIT OF JOB CONTEXT AREA
*,*                     (JIT'S PAGE #)
*C* D00  DELETE   J:CLM
         DEF J:CLPA     PHYS ADDR OF SWAPPER CMND LIST.
         DEF J:CLS      CLOSE STATUS INFORMATION.
*,*                     =0 IF NOT PROCESSING M:CLOSE FOR FILE DCB.
*,*                     =X'9' IF NO ERRORS DETECTED. OTHERWISE, LARGEST
*,*                     ERROR CODE FOR THIS CLOSE.
*,*                       BITS 0-7: SUB CODE.
*,*                       BITS 24-31: MAJOR CODE.
         DEF J:COCOPT   COC OPTIONS (M:UC+8)                                   X
*C* D00  CREATE J:COCOPT
         DEF J:CPPO     BITS 0-14: CURRENT PROCESSOR PAGES OUT.
*,*                     BITS 15-31: FILE EXTENSION BIT TABLE,
*,*                               PARALLEL TO SH:OPNM.
         DEF J:CPROCS   PROCESSORS ASSOCIATED AT TIME OF SAVE CAL.
*,*                     BITS 0-7: UB:APR
*,*                     BITS 8-15: UB:APO
*,*                     BITS 16-23: UB:ASP
*,*                     BITS 24-31: UB:DB
         DEF J:CTIME    # OF I/O OPERATIONS IN CURRENT QUANTUM * SL:IOTA.
         DEF J:CUL      PAGE # OF UPPER LIMIT OF JOB CONTEXT AREA.
         DEF JB:CUN     CURRENT USER NUMBER
         DEF J:DCBLINK  ADDR OF DCB TABLE.
         DEF J:DCBLL    PAGE # OF DCB LOWER LIMIT.
         DEF J:DCBUL    PAGE # OF DCB UPPER LIMIT.
         DEF J:DDLL     PAGE # OF LOWER LIMIT OF DYNAMIC DATA AREA.
         DEF J:DDUL     PAGE # OF UPPER LIMIT OF DYNAMIC DATA AREA
*,*                     (LAST PAGE ALLOCATED).
         DEF J:DELTAT   NEGATIV VALUE OF QUANTUM REMAINING,INC BY CLOCK4.
         DEF J:DLL      PAGE # OF LOWER LIMIT OF PROGRAM DATA AREA.
         DEF J:DUL      PAGE # OF UPPER LIMIT OF PROGRAM DATA AREA.
         DEF J:DWSK     RESERVED FOR D00.
         DEF J:EUP      PAGE # OF UPPER LIMIT OF USER AREA
*,*                     (LAST PAGE ALLOCATABLE).
         DEF J:EXLY     CURRENTLY EXECUTING AN EXECUTE-ONLY LOAD MODULE.
         DEF J:EXTENT   BIT 0: OPERATOR ABORT OR LINE HANGUP.
*,*                     BIT 1: SOME LIMIT EXCEEDED.
*,*                     BIT 2: EXIT CONTROL IN PROGRESS.
*,*                     BIT 3: EXIT CONTROL ESTABLISHED BY CMND
*,*                            PROCESSOR.
*,*                     BIT 4: M:LINK OR M:LDTRC EXIT CONDITION.
*,*                     BIT 6: EXIT CONTROL ESTABLISHED;
*,*                            CONTROL-Y AND QUIT.
*,*                     BIT 7: STEP CONDITION CODE.
*,*                     BIT 8: 'LAST' OPTION SPECIFIED FOR EXIT CONTROL.
*,*                     BITS 15-31: ADDR OF EXIT CONTROL ROUTINE.
         DEF J:FDDA     FILE DIRECTORY DISC ADDR FOR THIS ACCOUNT.
         DEF J:ICBHDR   BIT 0: USER HAS ISSUED REAL-TIME CAL1.
*,*                     BITS 16-31: ADDR OF ICB ASSOCIATED WITH
*,*                     MOST RECENTLY ACTIVATED INTERRUPT.
         DEF J:IDELTAT  INITIAL VALUE OF J:DELTAT (NEGATIVE QUANTUM).
         DEF J:INTENT   BIT 0: CMND PROCESSOR BREAK CONTROL FLAG.
*,*                     BITS 15-31: BREAK CONTROL ROUTINE ADDR.
         DEF J:INTER    BITS 0-14: CURRENT DIAGNOSTIC PAGES OUT.
*,*                     BITS 15-31: # OF TERMINAL INTERACTIONS
*,*                               FOR THIS JOB.
         DEF J:JAC      TABLE OF THE TWO BIT ACCESS PROTECTION CODES
*,*                     FOR THE USER AREA.
         DEF J:JIP      BITS 0-14: MAXIMUM USER PAGES OUT.
*,*                     BITS 15-31: DCB DOUBLEWORD ADDR (T:JOBENT).
         DEF J:JIT      JIT START ADDR, CURRENTLY X'8C00'.
*,*                     BIT 0: JOB IS ON-LINE, BITS 24-41
*,*                            CONTAIN USER #.
*,*                     BIT 1: JOB IS GHOST, BITS 24-31
*,*                            CONTAIN USER #.
*,*                     IF BITS 0-1 RESET, BITS 16-31 CONTAIN
*,*                                       BATCH JOB SYSTEM ID.
*,*                     BIT 2: REMOTE ASSIST                                   X
*,*                     BIT 3: JOB IS A SUB TASK(RESERVED)                     X
*,*                            BIT 16-31 CONTAIN SYSTEM ID                     X
*,*                     BIT 4: COMMAND PROCESSOR EXECUTE                       X
*C* D00  DEFINE BITS 2,3,4 OF J:JIT
         DEF J:LDCF     PERIPHERAL AUTHORIZATION FLAGS, PARELLEL TO            X
*,*                       SH:SYMT, THE AUTHORIZABLE DEVICE NAME TABLE.         X
*,*                        VALUE OF 1 MEANS USER IS AUTHORIZED.                X
*C* D00  ADD DEF  J:LDCF
         DEF J:LMN      NAME OF LAST LOAD MODULE FORMED
*,*                     BY THE OVERLAY LOADER FOR THIS JOB.
*,*                     IN TEXTC FORMAT-3 WORDS.
         DEF J:MRT      MAXIMUM RUN TIME. ZERO IMPLIES NO MAXIMUM.
         DEF J:NRS      BITS 0-14: TOTAL # OF CARDS READ FOR JOB.
*,*                     BITS 15-31: # OF SWAPS FOR CURRENT JOB.
*C* D00  DEFINE BIT 0 IN JOPT
         DEF  J:OPT     BITS REPRESENTING NON-STANDARD OPTIONS                 X
*,*                     USED AND MAY BE MODIFIED BY USER PROCESSORS.           X
*,*                     BITS AVAILABLE ARE OTHER THAN JSTDOPT.                 X
*,*                        BIT 0: ECHO ON-LINE COMMAND FILE                    X
*,*                        BIT 01: RESERVED FOR SYSTEMS.(JOB STEP              X
*,*                                ACCOUNTING)                                 X
*,*                        BIT 15: DEBUG SPECIFICATION IN EFFECT               X
*,*                        BIT 23: DO ASSIGNMENT IN EFFECT.                    X
*,*                        BIT 24; GO ASSIGNMENT IN EFFECT.                    X
*,*                        BIT 27: SI ASSIGNMENT IN EFFECT.                    X
*,*                        BIT 31: LO ASSIGNMENT IN EFFECT.                    X
         DEF J:OVHTIM   OVERHEAD TIME FOR CURRENT QUANTUM.
         DEF J:OVRLY    OVERLAY ENTRY POINT ADDR.
*,*                     APPLICABLE ONLY IF OVERLAY CALL USED MREF
*,*                     CAPABILITY.
         DEF J:PLL      PAGE # OF LOWER LIMIT OF
*,*                     PROGRAM AREA (PURE PROCEDURE).
         DEF J:PPRIV    PRIVILEGED PROCESSOR FLAGS                             X
*C* D00  ADD      J:PPRIV
         DEF J:PTIME    TOTAL PROCESSOR EXECUTION TIME FOR JOB.
*C* D00  DELETE   J:PUF
         DEF J:PUL      PAGE # OF UPPER LIMIT PROGRAM PURE PROCEDURE.
         DEF J:RNST     BIT 0: M:ERR.
*,*                     BIT 1: M:XXX.
*,*                     BIT 2: 'E' KEYIN.
*,*                     BIT 3: 'X' KEYIN.
*,*                     BIT 4: TERMINAL HANGUP.
*,*                     BIT 5: LIMIT EXCEEDED.
*,*                     BIT 6: I/O ERROR.
*,*                     BIT 7: ILLEGAL TRAP.
*,*                     BITS 0-7:ALL RESET IF JOB IS EXECUTING NORMALLY.
*,*                     BIT 8: CONTROL CMND BUFFER FULL.
*,*                     BIT 9: CMND FOR PROCESSOR IN J:CCBUF.
*,*                     BIT 10: PROCESSOR RUNNING.
*,*                     BIT 11: USER RUNNING.
*,*                     BIT 12: OVERLAY LOADER RUNNING.
*,*                     BITS 10-12: IF ALL RESET, MONITOR RUNNING.
*,*                     BIT 13: UNUSED                                         X
*,*                     BIT 14: UNUSED                                         X
*,*                     BIT 15-16: SAVE/RES J:CCBUF ON M:LINK/M:LDTRC          X
*,*                     BIT 17: RETURN ON M:ERR/M:XXX AFTER M:LINK             X
*,*                     BIT 18: RETURN ON M:EXIT AFTER M:LINK                  X
*,*                     BITS 20-23: EXECUTION SEVERITY LEVEL.
*C* D00  DEFINE BITS 14,16,17,18 OF J:RNST
         DEF J:RWECB    ECB ADDR
         DEF J:STAR     LIST OF STAR FILE FIT DISC ADDRESS(6 WORDS)
*,*                     THE STAR FILES APPEAR IN THE FOLLOWING ORDER:
*,*                     *B, *D, *G, *L, *T, AND *N.
         DEF J:START    START ADDR OF CURRENT PROGRAM.
         DEF J:T        USED FOR PERFORMANCE MEASUREMENT.
         DEF J:TCB      TCB ADDR OF THE EXECUTING USER
*,*                     OR PROCESSOR PROGRAM.
*C* D00  DEFINE BITS 3,8,16, OF J:TELFLGS
*C* E00  DEFINE BITS 1,7 OF J:TELFLGS
         DEF J:TELFLGS  FLAGS USED BY TEL AND CCI
*,*               CCI FLAGS
*,*                     BIT 9 : PROCESSING SINGLE USR ABORT
*,*                     BIT 13: CALL SHOW ON LIMIT EXCEEDED ABORT
*,*                     BIT 14: RUN CONTROL CMND READ
*,*                     BIT 15: LOAD CONTROL CMND READ
*,*                     BIT 16: BAD WORK-STATION.
*,*                     BIT 17: LDEV CALLED.
*,*                     BIT 18: NOT FIRST TIME THROUGH CCI.
*,*                     BIT 19: OUTPUT 'MISSING JOB CMND'.
*,*                     BIT 20: OUTPUT 'DATA INFORMATION IGNORED'.
*,*                     BIT 22: OUTPUT ERROR INDICATOR BEFORE
*,*                             CURRENT COMMAND
*,*                     BIT 23: OUTPUT ERROR INDICATOR AFTER
*,*                             CURRENT COMMAND
*,*                     BIT 24: DON'T OUTPUT CONTROL COMMAND
*,*                     BITS 25-31 INDICATE WHICH DEVICES TO OUTPUT
*,*                                COMMANDS ON.
*,*                     BIT 25: AL(ACCOUNTING LOG) DEVICE.
*,*                     BIT 26: PO(PUNCHED OUTPUT) DEVICE.
*,*                     BIT 27: DO(DIAGNOSTIC OUT) DEVICE.
*,*                     BIT 28: LO(LIST OUTPUT) DEVICE.
*,*                     BIT 29: SL(SYSTEM LOG) DEVICE.
*,*                     BIT 30: LL(LISTING LOG) DEVICE.
*,*                     BIT 31: OC(OPERATORS CONSOLE) DEVICE.
*,*               TEL FLAGS
*,*                     BIT 1: ABORTED PROGRAM STILL PRESENT
*,*                     BIT 2: INFORM USER OF COUPLE ATTEMPT
*,*                     BIT 3: T/S USER REQUESTED TP                           X
*,*                     BIT 7: SET IF CONTROL-Y PERMITTED ON CASES
*,*                            REQUIRING OPERATOR INTERVENTION.
*,*                     BIT 8: DEFERRED MESSAGE TO BE PRINTED                  X
*,*                     BIT 9: PROCESSING SINGLE USER ABORT (SET BY
*,*                            INITRCVR).
*,*                     BIT 10: USER HAS REQUESTED EXTENDED MEMORY MODE.
*,*                     BIT 11: UNRECOGNIZED LOAD MODULE.
*,*                     BIT 12: UNDER DELTA IMPLIED FOR NEXT CMND.
*,*                     BIT 13: IMPLIED QUIT FLAG.
*,*                     BIT 14: ALLOW NO FOLLOWING MESSAGE TEXT.
*,*                     BIT 16: N.A.P. HAS BEEN PROCESSED                      X
*,*                             DURING PARSE
*,*                     BIT 17: LMN WAS DETECTED BY START CMND
*,*                              (SYSERR PROCESS).
*,*                     BIT 18: RE-PROCESS CURRENT BUFFER IMAGE.
*,*                     BIT 19: 'DONT' ADVERB IN EFFECT.
*,*                     BIT 20: 'LIST', 'OUTPUT', 'COMMENT' CMND IN
*,*                             PROGRESS.
*,*                     BIT 21: UNIQUE 'COMMENT' CMND INDICATOR.
*,*                     BIT 22: DEFAULT FOR % ROM IN PROGRESS.
*,*                     BIT 23: LOAD UNDER FDP REQUIRED.
*,*                     BIT 24: LOAD UNDER DELTA REQUIRED.
*,*                     BIT 25: 'OVER' SPECIFIED AS CMND MODIFIER.
*,*                     BIT 26: 'ON' SPECIFIED AS CMND MODIFIER.
*,*                     BIT 27: SI HAS BEEN ASSIGNED, CHAIN REMAIN FIDS.
*,*                     BIT 28: DO NOT RELEASE SI ENTRIES IN A/M TABLE.
*,*                     BIT 29: PARSE PHASE FLAG, 0 = BUILD GO DCB;
*,*                             1 = BUILD LO DCB.
*,*                     BIT 30: BREAK RECEIVED.
*,*                     BIT 31: SET IF AT JOB STEP.
         DEF J:TIC      USED FOR PERFORMANCE MEASUREMENT.
         DEF J:TIMENT   ADDR OF ROUTINE TO BE ENTERED
*,*                     WHEN TIME INTERVAL SPECIFIED IN M:STIMER ENDS.
*,*                     SET BY M:STIMER CAL.
*C* D00  DEFINE 5 WORDS OF SUB  TASK INFO IN J:TITLE
         DEF J:TITLE    JOB TITLE IN TEXTC FORMAT IF BATCH;
*,*                     M:UC DCB IF ONLINE.  (21 WORDS)
*,*                     SUB TASK CONTROL INFO, IF SUB TASK      RESERVED       X
*,*                      WORD 0: HOST TASK ECB VIRT. ADDR.                     X
*,*                      WORD 1: PP OF TCF, SET 0 WHEN RELEASED                X
*,*                      WORD 2: PP OF INITIAL DATA, SET 0 WHEN                X
*,*                              RELEASED                                      X
*,*                      WORD 3: HOST TASK USERNUMBER                          X
*,*                      WORD 4: SUB TASK RUNDOWN INFO:                        X
*,*                              =0 IF HOST HAS TERMINATED                     X
*,*                              =1 IF HOST ACTIVE                             X
         DEF J:TRAP     BITS 0-14: MAXIMUM PROCESSOR PAGES OUT.
*,*                     BITS 20-23: CONDITION CODES SET BY LAST TRAP.
*,*                     BITS 24-28: LOCATION OF LAST TRAP.
         DEF J:TREE     TREE TABLE ADDR OF EXECUTING
*,*                     USER OR PROCESSOR PROGRAM.
         DEF J:UN       (SEE J:JIT)
         DEF J:UNAME    USER'S NAME (EBCDIC-3 WORDS).
         DEF J:UPRIV    USER PRIVILEGE FLAGS                                   X
*C* D00  ADD      J:UPRIV
         DEF J:USCDX    ADDR OF USED CONTEXT DATA
*,*                     BUFFER CHAIN (ADDR OF FIRST BUFFER IN CHAIN).
         DEF J:USENT    BIT 7: RSVRD.-TRAP CONTROL
*,*                     BIT 8: NON-ALLOWED OPERATION TRAP CONTROL
*,*                     BIT 9: UN-IMPLEMENTED INSTRUCTION TRAP CONTROL.
*,*                     BIT 10: STACK TRAP CONTROL
*,*                     BIT 11: FLOATING POINT TRAP CONTROL.
*,*                     BIT 12: DECIMAL TRAP CONTROL.
*,*                     BIT 13: FIXED POINT TRAP CONTROL
*,*                     BIT 14: BAD CAL TRAP CONTROL.
*,*                     BITS 15-31:ADDR OF USER TRAP CONTROL ROUTINE.
         DEF J:USER     AVAILABLE FOR INSTALLATION DEFINITION.
*,*                            (2 WORDS, BOUND 8)                              X
         DEF J:UTIME    TOTAL USER EXECUTION TIME FOR CURRENT JOB.
         DEF J:UTIMER   TIME INTERVAL SPECIFIED BY M:STIMER CAL.
         DEF J:VLCS     VIRTUAL PAGE LINK STOP.
         DEF J:XP       BITS 0-15: DEFAULT FILE EXPIRATION PARAMETERS.
*,*                     BITS 16-31:MAXIMUM FILE EXPIRATION PARAMETERS.
         DEF J:XPSD     XPSD BLOCK FOR CAL3                                    X
*C* D00  CREATE J:XPSD
         DEF JABC       (SEE J:ABC)
         DEF JACCN      (SEE J:ACCN)
         DEF JAJ        (SEE J:AJ)
         DEF JAJITVP    VIRTUAL PAGE # OF AJIT
         DEF JASSIGN    (SEE J:ASSIGN)
         DEF JB:ALN     ACTUAL LINE NUMBER; USED WHEN A SAVED IMAGE
*,*                     TIMES OUT, TO CONVEY THE ACTUAL LINE NUMBER
*,*                     THRU TO THE ACCOUNTING RECORD.
         DEF JB:BCP     PAGE # OF BASE OF COMMON PAGE
         DEF JB:CBUC    COOP SPARE BUFFER USE COUNT.
         DEF JB:COCOPT2 COC OPTIONS
         DEF JB:CUR     BYTE TABLE GIVING THE # OF
*,*                     RESOURCES ALLOCATED TO THE JOB.  PARALLEL TO
*,*                     SH:RNM.  BYTE 0 IS UNUSED.
         DEF JB:DPROMPT DEFAULT PROMPT CHARACTER
         DEF JB:FBUC    FILE MANAGEMENT SPARE BUFFER USE COUNT
         DEF JB:FBUL    FILE MANAGEMENT SPARE BUFFER UPPER LIMIT.
         DEF JB:FRS     FINAL RUN STATUS.
         DEF      JB:LAPH           LINES AFTER PAGE HEADING, INITIALLY 6
         DEF      JB:LBPH           LINES BEFORE PAGE HEADING, INITIALLY 5
*C* E00  CREATE JB:LAPH AND JB:LBPH
         DEF JB:LC      COUNT OF LINES OUTPUT ON CURRENT PAGE.
         DEF JB:LMAP    BYTE  TABLE INDEXED BY VIRTUAL PAGE
*,*                     # AND GIVING NEXT VIRTUAL PAGE IN USER CHAIN.
*,*                     JB:VLH POINTS TO FIRST PAGE IN CHAIN, JB:VLT TO
*,*                     LAST.  SEE JX:CMAP FOR THE PHYS PAGE
*,*                     CORRESPONDENCES.
         DEF JB:LPP     # OF USER LINES PER PAGE ON TERMINAL.
         DEF JB:MAX     BYTE TABLE CONTAINING THE MAXIMUM
*,*                     RESOURCES THE JOB MAY ATTAIN.
         DEF JB:MNPA    MAXIMUM # OF PAGES AVAILABLE.
         DEF JB:NFPOOL  MAX # FILE BUFFERS FOR THIS JOB                        X
         DEF JB:NRG     # OF REMAINING GRANULES.
*C* D00  DEFINE BITS IN JB:ORG
         DEF JB:ORG     JOB ORIGIN                                             X
*,*                     BITS 0-7:  JOB ORIGIN; 0 = LOCAL BATCH,                X
*,*                      BIT 0=1 IF SUB TASK OF ON-LINE USER (RESERVED)        X
*,*                      BIT 1=1 IF SUB TASK OF GHOST JOB                      X
*,*                      BIT 2=1  IF SUB TASK OF BATCH JOB                     X
*,*                      BIT 6=1  IF ON-LINE SUBMITTED BATCH JOB               X
*,*                      BIT 7=1  IF REMOTE BATCH SUBMITTED BATCH JOB          X
         DEF JB:OTEL    SP. SHRD PROC. NUMBER OVERLAY TEL.                     X
         DEF JB:PCC     PAGE COUNT OF CONTEXT
         DEF JB:PCD     PAGE COUNT OF DATA.
         DEF JB:PCDCB   PAGE COUNT OF DCBS.
         DEF JB:PCDD    PAGE COUNT OF DYNAMIC DATA.
         DEF JB:PCP     PAGE COUNT OF PURE PROCEDURE.
         DEF JB:PCPWP   PAGE CNT OF ASSIGNED PHY. PGS.                         X
*C* D00  ADD DEF OF JB:PCPWP
         DEF JB:PCW     PLATEN WIDTH (# OF CHARACTERS PER LINE).
         DEF JB:PEAK    PEAK # OF CORE PAGES INCURRED
*,*                     DURING EXECUTION OF THIS JOB.
         DEF JB:PMTS    # OF DISK PACKS MOUNTED FOR THIS JOB
         DEF JB:PNR     PARTITION # UNDER WHICH THE JOB IS RUNNING.
         DEF JB:PPC     PHYS PAGE CHAIN COUNT.
         DEF JB:PRIV    BITS 0-7 CONTAIN THE PRIVILEGE
*,*                     LEVEL OF THE JOB.
         DEF JB:PROMPT  CURRENT PROMPT CHARACTER.
         DEF JB:SLNK    USED TO LINK THE SERIAL #S OF
*,*                     SHARABLE DISK PACKS ASSOCIATED WITH THE JOB.
         DEF JB:STEP    BITS 0-7: COUNT OF JOB STEPS.                          X
         DEF JB:STEPCC  STEP CONDITION CODE FOR THIS JOB STEP.
         DEF JB:TDP     PAGE # OF TOP OF DYNAMIC DATA.
         DEF JB:TMTS    # OF TAPES MOUNTED FOR JOB.
         DEF JB:VLH     VIRTUAL PAGE LINK HEAD.
         DEF JB:VLT     VIRTUAL PAGE LINK TAIL.
         DEF JB:XLNK    USED TO LINK THE SERIAL #S
*,*                     OF EXCLUSIVE DISK PACKS ASSOCIATED WITH JOB.
         DEF JBBCP      BYTE DISPLACEMENT OF JB:BCP.
         DEF JBCBLL     COOP SPARE BUFFER LOWER LIMIT.
         DEF JBCBUC     COOP SPARE BUFFER USE COUNT.
         DEF JBFBFP     FILE MANAGEMENT FREE BUFFER POOL HEAD
         DEF JBFBUC     FILE MANAGEMENT SPARE BUFFER USE COUNT
         DEF JBLMAP     BYTE DISPLACEMENT OF JB:LMAP
         DEF JBMNPA     BYTE DISPLACEMENT OF JB:MNPA.
         DEF JBNASP     BYTE DISPLACEMENT OF JB:NASP.
         DEF JBNFPOOL   MAXIMUM # OF FILE BUFFERS FOR THIS JOB.
         DEF JBNRG      BYTE DISPLACEMENT OF JB:NRG.
         DEF JBPCC      BYTE DISPLACEMENT OF JB:PCC.
         DEF JBPCDD     BYTE DISPLACEMENT OF JB:PCDD.
         DEF JBPCP      BYTE DISPLACEMENT OF JB:PCP.
         DEF JBPPC      BYTE DISPLACEMENT OF JB:PPC.
         DEF JBTDP      BYTE DISPLACEMENT OF JB:TDP.
         DEF JBUP       (SEE J:BUP)
         DEF JBUPVP     VP # OF USERS BEGINNING PAGE.
         DEF JBUPVPA    WORD ADDR OF USERS BEGINNING PAGE
         DEF JBVLH      BYTE DISPLACEMENT OF JB:VLH.
         DEF JCCL       MAXIMUM JIT CMND LIST LENGTH.
         DEF JCL        (SEE J:CL)
         DEF JCLE       (SEE J:CLE)
         DEF JCLP       (SEE J:CLP)
         DEF JCLPA      (SEE J:CLPA)
         DEF JCLT       (SEE J:CLT)
         DEF JCMAP      (SEE JB:CMAP)
         DEF JCOVP      VP # OF FIRST COOP BUFFER.
         DEF JCOVPA     WORD ADDR EQUIVALENT OF JCOVP.
         DEF JCO2VPA    WORD ADDR OF SECOND COOP BUFFER.
         DEF JCPPO      (SEE J:CPPO)
         DEF JDA        (SEE J:DA)
         DEF JDCBLL     PAGE # OF DCB LOWER LIMIT.
         DEF JDCBUL     PAGE # OF DCB UPPER LIMIT.
         DEF JDDLL      (SEE J:DDLL)
         DEF JDDUL      (SEE J:DDUL)
         DEF JDLL       (SEE J:DLL)
         DEF JDUL       (SEE J:DUL)
         DEF JEUP       (SEE J:EUP)
         DEF JEUPVP     VP # OF END USERS PAGE
         DEF JH:DA      HALFWORD TABLE OF SEEK ADDRESSES
*,*                     USED BY SWAPPER.
         DEF JH:LDCF    PERIPHERAL AUTHORIZATION FLAGS, PARALLEL TO
*,*                     SH:SYMT, THE AUTORIZABLE DEVICE NAME TABLE
*,*                     VALUE OF 1 MEANS USER IS AUTHORIZED FOR DEVICE.
*,*                      FIRST IS BIT 1, BIT 0 IS NOT USED.
         DEF JH:PC      ON-LINE PAGE COUNT.
         DEF JIT        (SEE J:JIT)
         DEF JIT:
         DEF JITLOC
         DEF JITLOC:
         DEF JITREE     TREE TABLE ADDRES OF EXECUTING
*,*                     USER OR PROCESSOR PROGRAM.
         DEF JJAC       (SEE J:JAC)
         DEF JJITVP     VP # OF JIT.
         DEF JLMAP      (SEE JB:LMAP)
         DEF JOPT       BITS REPRESENTING NON-STANDARD OPTIONS(SEE J:OPT)      X
         DEF JOVVP      VP # START OF MAP IMAGE WHICH
*,*                     IS LOADED FOR THE USER.
         DEF JOVVPA     WORD ADDR EQUIVALENT OF JOVVP.
         DEF JPCP       (SEE JB:PCP)
         DEF JPLL       (SEE J:PLL)
         DEF JPPC       (SEE JB:PPC)
         DEF JPPH       (SEE JX:PPH)
         DEF JPPT       (SEE JX:PPT)
*C* D00  DELETE   JPUF
         DEF JPUL       (SEE J:PUL)
         DEF JRBID      REMOTE BATCH JOB ID.
*C* D00  DELETE   JRESOPT
         DEF JRNST      (SEE J:RNST)
         DEF JSBUF1VP   VP # OF FIRST SPECIAL BUFFER
         DEF JSBUF2VP   VP # OF SECOND SPECIAL BUFFER.
         DEF JSPBFLG    SPARE BUFFER SWAP FLAG.
         DEF JSPVP      VP # OF SPECIAL SHARED PROCESSOR.
*C* D00  DELETE   JSTDOPT
         DEF JTELFLGS   (SEE J:TELFLGS)
         DEF JTSTACKSZ  LENGTH OF TSTACK.
         DEF JUNAME     USER'S NAME (EBCDIC - 3 WORDS).
         DEF JVLCS      (SEE J:VLCS)
         DEF JVLH       (SEE JB:VLH)
         DEF JVLT       (SEE JB:VLT)
         DEF JX:CMAP    BYTE/HALFWORD TABLE INDEXED BY
*,*                     VIRTUAL PAGE #.  THE PHYS PAGE # OBTAINED
*,*                     BY USING A GIVEN VIRTUAL PAGE AS THE INDEX
*,*                     IS THE ONE ONTO WHICH THE VIRTUAL PAGE IS MAPPED.
         DEF JX:PPH     PHYSICAL PAGE CHAIN HEAD
         DEF JX:PPT     PHYSICAL PAGE CHAIN TAIL
         DEF JXBUFVP    VP # START OF JIT MAP IMAGE.
         DEF JXCMAP     BYTE DISPLACEMENT (SEE JX:CMAP).
         DEF JXPPH      BYTE DISPLACEMENT OF JX:PPH.
         DEF JXPPT      BYTE DISPLACEMENT OF JX:PPT.
         DEF M:UC       M:UC DCB IF ONLINE (JOB TITLE IF
*,*                     BATCH) (SEE J:TITLE). 22 WORDS.
         DEF M:XX       A SYSTEM DCB USED BY DELTA AND
*,*                     OTHER PROCESSORS.
         DEF MDPO       MAXIMUM DIAGNOSTIC PAGES OUT.
         DEF MJCFLG     (SEE J:TELFLGS)
         DEF MPO        MAXIMUM CARD PUNCH OUT.
         DEF MPPO       MAXIMUM PROCESSOR PAGES OUT.
         DEF MRT        MAXIMUM RUN TIME FOR BATCH JOB.
*,*                     ZERO FOR ONLINE USER.  A BATCH JOB IS ABORTED
*,*                     WHEN THE SPECIFIED TIME EXPIRES.
         DEF MUPO       MAXIMUM USER PAGES OUT.
         DEF MXFPL      M:XX FUNCTION PARAMETER LIST (10 WORDS)
         DEF MXKB       M:XX KEY BUFFER (8 WORDS)
         DEF NSWAPS     # OF SWAPS.
         DEF OVHTIME    OVERHEAD TIME FOR PROCESSOR OR USER
*,*                     CURRENTLY RUNNING.
         DEF PPMD       (SEE J:ASSIGN)
         DEF PRDCRM     PERM RAD SPACE THAT CAN BE USED FOR THIS JOB.
         DEF PRDPRM     PERM DISK SPACE THAT CAN BE USED FOR THIS JOB.
         DEF PRT        (SEE J:ABC)
         DEF PUF        (SEE J:RNST)
         DEF RNST       (SEE J:RNST)
         DEF RUNFLAG    (SEE J:RNST)
         DEF SBUF1VPA   WORD ADDR EQUIVALENT TO JSBUF1VP.
         DEF SBUF2VPA   WORD ADDR EQUIVALENT TO JSBUF2VP.
         DEF SEED       SEED FOR PASSWORD SCRAMBLING ALGORITHM
         DEF SPDBASE    SPECIAL SHARED PROCESSOR DATA ADDRESS.
         DEF SPPBASE    DELTA'S PROCEDURE ADDR.
         DEF SS         (SEE J:ABC)
         DEF SYSID      SYSTEM ID FOR THIS BATCH JOB.
         DEF TCBADR     (SEE J:TCB)
         DEF TIMENT     (SEE J:TIMENT)
         DEF TIMTMP     (SEE J:DELTAT)
         DEF TMDCRM     TEMPROARY RAD SPACE THAT CAN BE
*,*                     USED FOR THIS JOB.
         DEF TMDPRM     TEMP DISK PACK SPACE THAT CAN
*,*                     BE USED FOR THIS JOB.
         DEF TMPDCPK    MIMINUM OF TEMP RAD SPACE
*,*                     REMAINING FOR THIS JOB.
         DEF TMPDPPK    MINIMUM OF TEMP PACK SPACE
*,*                     REMAINING FOR THIS JOB.
         DEF TPACCESS   # OF TAPE READS AND WRITES FOR THIS JOB.
*,*                     (RIGHT HALF WORD)                                      X
         DEF TPEXT      TOTAL PROCESSOR EXECUTION TIME FOR THIS JOB.
         DEF TPIOT      PORCESSOR MEMORY USE FACTOR
*,*                     (PROCESSOR PAGES*TIME).
         DEF TPOVT      TOTAL PROCESSOR OVERHEAD TIME FOR THIS JOB.
         DEF TRPFLAGS   (SEE J:USENT)
         DEF TSTACK     USER'S MAPPED TEMP STACK. (X'7A' WORDS)
         DEF TUEXT      TOTAL USER EXECUTION TIME FOR THIS JOB
         DEF TUIOT      USER MEMORY USE FACTOR (USER PAGES*TIME).
         DEF TUOVT      TOTAL USER OVERHEAD TIME FOR THIS JOB
         DEF UNAME      (SEE J:UNAME)
         DEF USRENT     (SEE J:USENT)
         DEF UTIMER     TIME INTERVAL SPECIFIED BY M:STIMER CAL.
         DEF UTS        (SEE TSTACK)
         PAGE
*************************************
*             SYSTEM EQUATES NOT NECESSARILY NEEDED BY JIT.
JXBUFVP  EQU      X'2C'
JOVVP    EQU      X'40'
JOVVPA   EQU      JOVVP**9
JJITVP   EQU      X'46'
JAJITVP  EQU      X'47'
JSBUF1VP EQU      X'48'
SBUF1VPA EQU      JSBUF1VP**9
JSBUF2VP EQU      X'49'
SBUF2VPA EQU      JSBUF2VP**9
JCOVP    EQU      X'4E'
JCOVPA   EQU      JCOVP**9
JCO2VP   EQU      X'4F'
JCO2VPA  EQU      JCO2VP**9
JBUPVP   EQU      X'50'
JBUPVPA  EQU      JBUPVP**9
JEUPVP   EQU      X'DF'
JSPVP    EQU      X'E0'
SPPBASE  EQU      JSPVP**9+X'200'
SPDBASE  EQU      JSPVP**9
FPMC     EQU      X'20'
COCLN    EQU      1
:LOGSZ   EQU 126        :USERS RECORD SIZE
:AMHED   EQU 22         ASSIGN-MERGE RECORD HEAD
SEED     EQU X'5CF301DA'            SEED FOR SCRAMBLER
JIT:     EQU JIT
JITLOC:  EQU JITLOC
JITLOC   EQU      %
JJJ      ASECT
*D*****  IN ORDER TO PROVIDE FOR SMALL MACHINE JITS AND LARGE
*D*****  MACHINE JITS, THE FUNCTION 'A' DEFINES
*D*****  A VALUE OF THE PARAMETER TIMES :BIG, I.E. A ZERO
*D*****  FOR SMALL MACHINE AND THE PARAMETER FOR LARGE.
A(1)     SET      :BIG
I        DO       64
A(I+1)   SET      A(I)+:BIG
         FIN
*********************************************************
         ORG      JITLOC
         LOC      JJJ+X'8C00'
* THE RES 0 BEFORE ALL *D* GROUPS GIVES EXTRACT ADDRESS OF SYMBOL
*************************************
***TABS ARE 5,17,28,37,39,50,61,64               FOR PICTURE
         RES      0
*D*             0  1 2 3 4            16                    31                 X
*D*             ---------------------------------------------
*D* J:JIT, JIT  | | | | | |           |          SYSID      |  SYSID
*D* J:UN        | | | | | |           |                     |
*D*             ---------------------------------------------
*D*              | | | | |
*D*              | | | | - COMMAND PROC. EXEC.                                 X
*D*              | | | --- SUB TASK                                            X
*D*              | | ----- REMOTE ASSIST                                       X
*D*              |  ------ GHOST
*D*              --------- ON-LINE
*C* D00  DEFINE BITS 2,3,4 OF J:JIT
JIT      RES      0
J:JIT    RES      0
J:UN     RES      0
SYSID    EQU      %-J:JIT
         DATA     0
         RES      0
*D*             ---------------------------------------------
*D* J:ACCN      |          ACCOUNT NUMBER-- 2 WORDS         |  JACCN
*D*             ---------------------------------------------  ACCN
*D*             |                                           |
*D*             ---------------------------------------------
J:ACCN   RES      0
JACCN    EQU      %-J:JIT
ACCN     EQU      %-J:JIT
         DATA     0,0
         RES      0
*D*             ---------------------------------------------
*D* J:UNAME     |          USER NAME-- 3 WORDS              |  JUNAME
*D*             ---------------------------------------------  UNAME
*D*             |                                           |
*D*             ---------------------------------------------
*D*             |                                           |
*D*             ---------------------------------------------
J:UNAME  RES      0
JUNAME   EQU      %-J:JIT
UNAME    EQU      %-J:JIT
         DATA     0,0,0
         RES      0
*D*             ---------------------------------------------
*D* J:CTIME     | # OF I/O OPS * SL:IOTA IN CURRENT QUANTUM |  CEXT
*D*             ---------------------------------------------
J:CTIME  RES      0
CEXT     EQU      %-J:JIT
         DATA     0
         RES      0
*D*             ---------------------------------------------
*D* J:OVHTIM    |          CURRENT OVERHEAD TIME            |  OVHTIME
*D*             ---------------------------------------------
J:OVHTIM EQU      %
OVHTIME  EQU      %-J:JIT
         DATA     0
         RES      0
*D*             ---------------------------------------------
*D* J:CALCNT    |          COUNT OF CAL1 CALLS              |  IOTIME
*D*             ---------------------------------------------
J:CALCNT EQU      %
IOTIME   EQU      %-J:JIT
         DATA     0
         RES      0
*D*             ---------------------------------------------
*D* J:PTIME     |          PROCESSOR EXECUTION TIME         |   TPEXT
*D*             ---------------------------------------------
J:PTIME  RES      0
TPEXT    EQU      %-J:JIT
         DATA     0
         RES      0
*D*             ---------------------------------------------
*D*             |          PROCESSOR OVERHEAD TIME          |  TPOVT
*D*             ---------------------------------------------
TPOVT    EQU      %-J:JIT
         DATA     0
         RES      0
*D*             ---------------------------------------------
*D*             |  PROCESSOR PAGE * TIME MEMORY USE FACTOR  |  TPIOT
*D*             ---------------------------------------------
TPIOT    EQU      %-J:JIT
         DATA     0
         RES      0
*D*             ---------------------------------------------
*D* J:UTIME     |          USER EXECUTION TIME              |  TUEXT
*D*             ---------------------------------------------
J:UTIME  RES      0
TUEXT    EQU      %-J:JIT
         DATA     0
         RES      0
*D*             ---------------------------------------------
*D*             |          USER OVERHEAD TIME               |  TUOVT
*D*             ---------------------------------------------
TUOVT    EQU      %-J:JIT
         DATA     0
         RES      0
*D*             ----------------------------------------------
*D*             |  USER PAGE * TIME MEMORY USE FACTOR       |  TUIOT
*D*             ---------------------------------------------
TUIOT    EQU      %-J:JIT
         DATA      0
         RES      0
*D*             ---------------------------------------------
*D* J:DELTAT    |  -- TIME QUANTUM LEFT (INC BY CLOCK4)     |  TIMTMP
*D*             ---------------------------------------------
J:DELTAT RES      0
TIMTMP   EQU      %-J:JIT
         DATA     0
         RES      0
*D*             ---------------------------------------------
*D* J:MRT       |  MAX RUN TIME. IF ZERO, NO MAX            |  MRT
*D*             ---------------------------------------------
J:MRT    RES      0
MRT      EQU      %-J:JIT
         DATA     0
         RES      0
*D*             0          8     11             23   26     31
*D*             ---------------------------------------------
*D* J:ABC       | ABORT    | JOB   |            | | | SENSE |  JABC,PRT
*D*             |  CODE    |PRIOR  |            | | |SWITCHS|  SS,BAABC
*D*             ---------------------------------------------
*D*                                              |
*D*                                              -ENQ'S OUTSTANDING
J:ABC    RES      0
BAABC    EQU      BA(%)-BA(JIT)
JABC     EQU      %-J:JIT
PRT      EQU      %-J:JIT
SS       EQU      %-J:JIT
           DATA     X'80700000'
         RES      0
*D*             0          8   9 10 14 161718 20 24         31                 X
*D*             ---------------------------------------------
*D* J:RNST      |RUN       |  | | RUN |  | | ||X | LINK     |   RUNFLAG
*D*             |STATUS    |  | | FLAG|  | | ||S |          |  JRNST,PUF
*D*             |          |  | |     |  | | ||L |COUNTER   | CCBEF,RNST
*D*             ---------------------------------------------  BARNST
*D*                         |  |       | | |   |
*D*                         |  |       | | |   - EXEC. SEV. LEVEL
*D*                         |  |       | | - RETURN M:EXIT AFTER M:LINK        X
*D*                         |  |       | - RETURN M:ERR/M:XXX AFTER M:LINK     X
*D*                         |  |       - SAVE/RES J:CCBUF ON M:LINK/M:LDTRC    X
*D*                         |  -------------COMMAND IN J:CCBUF
*D*                         ----------------CONTROL CMND BUF FULL
J:RNST   RES      0
RUNFLAG  EQU      %-J:JIT
JRNST    EQU      %-J:JIT
CCBEF    EQU      %-J:JIT
RNST     EQU      %-J:JIT
PUF      EQU      %-J:JIT
BARNST   EQU      4*RNST
         DATA     0
         RES      0
*D*             0                   15                      31
*D*             ---------------------------------------------
*D* J:NRS       | CARD INPUT COUNT  | # OF SWAPS            | CIC,NSWAPS
*D*             ---------------------------------------------  HANSWAPS
CIC      EQU      %-J:JIT
J:NRS    RES      0
NSWAPS   EQU      %-J:JIT
HANSWAPS EQU      HA(J:NRS)-HA(J:JIT)+1
         DATA     0
         RES      0
*D*             0  1 2 3 4 5 6 7 8 9      13 1415           31
*D*             ---------------------------------------------
*D* J:ASSIGN    | | | | | | | | | | | | | | | | LIMIT       |  JASSIGN
*D* J:EXLY      | | | | | | | | | | | | | | | | EXCEEDED FLG|  CPE,PPMD
*D*             ---------------------------------------------
*D*              | | | | | | | | | | | | | | |
*D*              | | | | | | | | | |       | -USER PMDS
*D*              | | | | | | | | | |       --PROCESSOR PMDS
*D*              | | | | | | | | | -----------QUE MANAGER CALLED
*D*              | | | | | | | | ------------RESERVED
*D*              | | | | | | | --------------RESTRICTED PROC LIST
*D*              | | | | | | ----------------:SYS RESIDENT
*D*              | | | | | ------------------EXECUTE ONLY
*D*              | | | | --------------------FLUSH, BAD CONTROL CMND
*D*              | | | ----------------------READ ACCT NONE
*D*              | | ------------------------SWAP PURE PROCEDURE
*D*              | --------------------------NO BUFFER CHECK
*D*              ----------------------------ASSIGNS HAVE BEEN MERGED
J:ASSIGN RES      0
JASSIGN  EQU      %-J:JIT
CPE      EQU      %-J:JIT
PPMD     EQU      %-J:JIT
J:EXLY   EQU      %
         DATA     0
         RES      0
*D*             0                   15                      31
*D*             ---------------------------------------------
*D*             | CARD PNCH COUNT   | ERROR      : ERROR    |
*D*             |                   |OVRIDE ADDR :SUBCODE   |  CPO,ERO
*D*             ---------------------------------------------
CPO      EQU      %-J:JIT
ERO      EQU      %-J:JIT
         DATA     0
         RES      0
*D*             ---------------------------------------------
*D*             | MAX PUNCH LIMIT   | ABNORMAL ADDRESS      |  MPO,ABO
*D*             ---------------------------------------------
MPO      EQU      %-J:JIT
ABO      EQU      %-J:JIT
         DATA     0
         RES      0
*D*             ---------------------------------------------
*D* J:CPPO      |CURRENT PROCESSOR  | FILE EXTENSION BITS   |  CPPO
*D*             |PAGE OUT COUNT     |                       |  JCPPO
*D*             ---------------------------------------------
J:CPPO   RES      0
JCPPO    EQU      %-J:JIT
CPPO     EQU      %-J:JIT
         DATA     0
         RES      0
*D*             ---------------------------------------------
*D* J:TRAP      | MAX PROC PAGES    | CC OF LAST | LAST TRAP|  MPPO
*D*             |      OUT          |    TRAP    |EXECUTED  |
*D*             ---------------------------------------------
J:TRAP   RES      0
MPPO     EQU      %-J:JIT
         DATA     0
         RES      0
*D*             ---------------------------------------------
*D*             |USER PAGE COUNT    |ADDRESS OF CCI'S LOADER|  ALOCCT
*D*             |                   |COMMAND TABLE          |  CUPO
*D*             ---------------------------------------------
ALOCCT   EQU      %-J:JIT
CUPO     EQU      %-J:JIT
         DATA     0
         RES      0
*D*             ---------------------------------------------
*D* J:JIP       |MAX USER LP PAGES  | JOB IN PROGRESS FLAG  |  MUPO
*D*             ---------------------------------------------
J:JIP    RES      0
MUPO     EQU      %-J:JIT
         GEN,15,17 X'7FF',0         GHOST1 NEEDS TO PRINT
         RES      0
*D*             ---------------------------------------------
*D* J:INTER     |DIAGNOSTIC PAGE CNT| # OF INTERACTIONS     |  CDPO
*D*             ---------------------------------------------
J:INTER  RES      0
CDPO     EQU      %-J:JIT
         DATA     0
         RES      0
*D*             ---------------------------------------------
*D* J:RWECB     | MAX DO PAGES OUT  | ECB ADDRESS           |  MDPO
*D*             ---------------------------------------------
J:RWECB  RES      0
MDPO     EQU      %-J:JIT
         DATA     0
         RES      0
*D*             ---------------------------------------------
*D* JB:STEP     |# OF STEPS|JOB ORIGIN|# TAPE READ & WRITES |  TPACCESS
*D* JB:ORG      |          |          |                     |
*D*             ---------------------------------------------
JB:STEP  DATA,1   0
JB:ORG   DATA,1   0
TPACCESS EQU      %-JIT
         DATA,2   0
         RES      0
*D*             ---------------------------------------------
*D* J:ASPIN     |          ACTIVE SPINDLES                  |
*D*             ---------------------------------------------
*D*             |                                           |
*D*             ---------------------------------------------
J:ASPIN  DATA     0,0
         RES      0
*D*             ---------------------------------------------
*D* J:ALB       |  UNUSED           |   CAL3  *J:ALB        |                  X
*D*             ---------------------------------------------
J:ALB    DATA     0                 X560 ADDRESS OF LAST BRANCH
         RES      0
*D*             ---------------------------------------------  CCLTFLGS
*D* J:TELFLGS   |                                           |  CCLFLAGS
*D*             |    CCI AND TEL FLAGS (SEE DEF)            |  MJCFLG
*D*             ---------------------------------------------  JTELFLGS
J:TELFLGS  RES    0
CCLTFLGS EQU      %-J:JIT
CCLFLAGS EQU      %-J:JIT
MJCFLG   EQU      %-J:JIT
JTELFLGS EQU      %-JIT
         DATA     0
         RES      0
*D*             0          8                     25         31
*D*             ---------------------------------------------
*D* J:CASSIN    | REMOTE   |  REMOTE  |UNUSED    | FLAGS    |  ERLFLAGS        X
*D*             |BATCH FLAG| BATCH ID |          |          |  ERRLFLGS
*D*             ---------------------------------------------  JRBID
J:CASSIN RES      0
ERLFLAGS EQU      %-J:JIT
ERRLFLGS EQU      %-J:JIT
JRBID    EQU      %-J:JIT
         DATA     X'2000000'
         RES      0
*D*             0                   15                      31
*D*             ---------------------------------------------
*D* J:INTENT    | |0--------------0 | USER CONSOLE INTERUPT |  INTENT
*D*             | |                 | ENTRY ADDRESS         |
*D*             ---------------------------------------------
*D*              |
*D*              |--  COMMAND PROCESSOR BREAK CONTROL
J:INTENT RES      0
INTENT   EQU      %-J:JIT
         DATA     0
         RES      0
*D*             ---------------------------------------------
*D* J:TIMENT    |0-----------------0|  ENTRY ADDRESS FOR    |  TIMENT
*D*             |                   |  M:STIMER             |
*D*             ---------------------------------------------
J:TIMENT RES      0
TIMENT   EQU      %-JIT
         DATA     0
         RES      0
*D*             ---------------------------------------------
*D* J:UTIMER    |   INTERVAL SET BY M:STIMER                |  UTIMER
*D*             ---------------------------------------------
J:UTIMER RES      0
UTIMER   EQU      %-JIT
         DATA     0
         RES      0
*D*                 7 8 910 1112 14 15                      31
*D*             ---------------------------------------------
*D*             |  | TRAP FLAGS    |                        |
*D* J:USENT     |  | | | | | | | | |    ADD.  OF USER TRAP  |
*D*             |  | | | | | | | | |  | ROUTINES BY M:TRAP  |  TRPFLAGS
*D*             ---------------------------------------------
*D*                 | | | | | | | |
*D*                 | | | | | | | --BAD CAL TRAP CONTROL
*D*                 | | | | | | ----FIXED POINT TRAP CONTROL
*D*                 | | | | | ------DECIMAL TRAP CONTROL
*D*                 | | | | --------FLOATING POINT TRAP CONTROL
*D*                 | | | ----------STACK TRAP CONTROL
*D*                 | | ------------UNIMPLEMENTED INSTR TRAP CONTROL
*D*                 | --------------NON-ALLOWED OPERATION TRAP CNTRL
*D*                 ----------------RSVRD. - TRAP CONTROL
J:USENT  RES      0
USRENT   EQU      %-JIT
TRPFLAGS EQU      %-JIT
         DATA     0
         RES      0
*D*             ---------------------------------------------
*D* J:TCB       | 0---------------0 |  TCB ADDRESS          |  TCBADR
*D*             ---------------------------------------------
J:TCB    RES      0
TCBADR   EQU      %-J:JIT
         DATA     0
         RES      0
*D*             ---------------------------------------------
*D* J:TREE      | 0---------------0 | TREE TABLE ADDRESS    |  JITREE
*D*             ---------------------------------------------
JITREE   EQU      %-J:JIT
J:TREE   RES      0
         DATA     0
         RES      0
*D*             ---------------------------------------------
*D*             | MIN TEMP PACK SPACE REMAINING             |  TMPDPPK
*D*             ---------------------------------------------
SIZE     SET      1
         DO       SIZE=1
TMPDPPK  EQU      %-J:JIT
      DATA   0
         FIN
         RES      0
*D*             ---------------------------------------------
*D* J:USCDX     | 0---------------0 | ADDR CONTEXT DATA     |
*D*             |                   |   BUFFER CHAIN        |
*D*             ---------------------------------------------
J:USCDX  RES      0
         DATA     0
         RES      0
*D*             ---------------------------------------------
*D* J:DCBLINK   | 0----------------0 |ADDR REST OF DCB NAMES|  DCBLINK
*D*             ---------------------------------------------
DCBLINK  EQU      %-J:JIT
J:DCBLINK DATA    0
         RES      0
*D*             ---------------------------------------------
*D* M:UC        |                                           |
*D* J:COCOPT    :  COC OPTIONS IN M:UC+8                    :                  X
*D*             ---------------------------------------------
*D*             ---------------------------------------------
*D* J:TITLE     | IF BATCH, JOB TITLE IN TEXTC (21 WORDS)   |  ATITLE
*D*             | IF ONLINE, M:UC (22 WORDS)                |
*D*             |  IF SUB TASK, CONTROL INFO(SEE DEF)(RSRVD) |                 X
*D*             ---------------------------------------------
*C* D00  DEFINE 5 WORDS OF SUB  TASK INFO IN J:TITLE
M:UC EQU %
J:COCOPT EQU M:UC+8                                                            X
JB:COCOPT2 EQU    BA(M:UC+14)
JB:DPROMPT EQU    BA(M:UC+14)+1
JB:ALN   EQU      BA(M:UC+14)+2
*C* E00  DEFINE JB:LBPH AND JB:LAPH
JB:LBPH  EQU      BA(M:UC+14)+3
JB:LAPH  EQU      BA(M:UC+21)+3
*C* D00  DEFINE J:COCOPT
J:TITLE  EQU      %+1
ATITLE   EQU      %+1-J:JIT
         DATA     3,X'1E4C3'
         DATA,1   10                RETRIES
         DATA,3
         DO       19
         DATA     0
         FIN
         RES      0
*C* D00  ADD      J:UPRIV
*D*             0                                           31                 X
*D*             ---------------------------------------------                  X
*D* J:UPRIV     |  USER PRIVILEGE FLAGS                     |                  X
*D*             ---------------------------------------------                  X
J:UPRIV  EQU      %-1                                                          X
         RES      0
*D*             ---------------------------------------------
*D* J:XP        | DEFAULT FILE EXPIRE.| MAX FILE EXPIRATION |
*D*             ---------------------------------------------
J:XP     DATA     0
         RES      0
*D*             0          8          16         24         31
*D*             ---------------------------------------------
*D* JB:PRIV     |  JOB     | CUL-(CLL | RESERVED | NFPOOL   |  JBNFPOOL
*D* JB:NFPOOL   |PRIVILEGE |       +2)|          |          |
*D*             |          |  IN PAGES|          |          |
*D*             ---------------------------------------------
JB:PRIV  DATA,1   0
         DATA,1   0
RESERVD  DATA,1   0
JBNFPOOL EQU      BA(%)-BA(J:JIT)
JB:NFPOOL  DATA,1  0
         RES      0
*D*             0                   15                      31
*D*             ---------------------------------------------
*D* J:ABUF      | 0----------------0|ADR OF ASSIGN-MERGE BUF|
*D*             ---------------------------------------------
J:ABUF   RES      0
         DATA     0
         RES      0
*D*             0          8          16         24         31
*D* JB:CCARS    ---------------------------------------------
*D* JB:DISP     |RECORD SZ |DISPLACE. | CURRENT  |SPEC SHRD |
*D* JB:CUN      | C.C.     | IN C.C.  | USER #   |PROC. #   |
*D* JB:OTEL     ---------------------------------------------
JB:CCARS DATA,1   0
JB:CCDISP DATA,1  0
JB:CUN   DATA,1   0
JB:OTEL  DATA,1   0
         RES      0
*D* JB:LPP      ---------------------------------------------
*D* JB:LC       |# OF LINES|CURRENT # | PLATEN   | PROMPT   |
*D* JB:PCW      |PER PAGE  |OF LINES  |WIDTH     |  BYTE    |
*D* JB:PROMPT   | DEF=0    | DEF=0    | DEF=0    | DEF=0    |
*D*             ---------------------------------------------
JB:LPP   DATA,1   0
JB:LC    DATA,1   0
JB:PCW   DATA,1   0
JB:PROMPT DATA,1 0
         RES      0
*D*             ---------------------------------------------
*D* J:IDELTAT   |    INITIAL VALUE OF J:DELTAT              |
*D*             ---------------------------------------------
         BOUND    4
J:IDELTAT DATA    0
         RES      0
*D*              0 1 2 3 4 5 6 7 8  15                      31
*D*             ---------------------------------------------
*D* J:EXTENT    | | | | | | | | | | | ADDR OF EXIT CONTROL  |
*D*             ---------------------------------------------
*D*              | | | | | | | | |
*D*              | | | | | | | | --'LAST' OP ON EXIT CNTRL
*D*              | | | | | | | ----STEP CONDITION CODE
*D*              | | | | | | ------EXIT CNTRL;C-Y AND QUIT
*D*              | | | | | --------UNUSED
*D*              | | | | ----------M:LINK OR M:LDTRC EXIT CONDITION
*D*              | | | ------------EXIT CNTRL BY CMND PROC
*D*              | | --------------EXIT CNTRL IN PROGRESS
*D*              | ----------------SOME LIMIT EXCEEDED
*D*              ------------------OPERATOR ABORT OR LINE HNGUP
J:EXTENT DATA     0
         RES      0
*D*             ---------------------------------------------
*D*             | MIN TEMP RAD SPACE REMAINING              |  TMPDCPK
*D*             ---------------------------------------------
TMPDCPK  EQU      %-J:JIT
         DATA     0
         BOUND    8                                                            X
*D*             ---------------------------------------------                  X
*D*             |          OLD PSD                          |                  X
*D* J:XPSD      |                                           |                  X
*D*             ---------------------------------------------                  X
*D*             |          CAL3 HANDLER PSD                 |                  X
*D*             |                                           |                  X
*D*             ---------------------------------------------                  X
*C* D00  CREATE 4 WORD PSD FOR CAL3                                            X
J:XPSD   DATA      0,0,0,0                                                     X
         BOUND     8                                                           X
         RES      0
*D*             ---------------------------------------------
*D* TSTACK      |  TEMPORARY STACK DOUBLEWORD (BOUND 8)     |
*D* UTS         ---------------------------------------------
*D*             |                                           |
*D*             ---------------------------------------------
*D*             |  TEMPORARY STACK OF SIZE=JTSTACKSZ=121    |
*D*             :                                           :
*D*             :                                           :
*D*             ---------------------------------------------
*        ORG      J:JIT+X'1A0'
UTS      EQU      TSTACK
JTSTACKSZ EQU     121
TSTACK   DATA     TSTACK+20
         GEN,16,16 JTSTACKSZ-19,19
         DATA     X'C0000F'
         DATA     X'10000000',0     GOOD WRITE KEY
         DATA     0,0,0,0,0         REGS 0-5
         DATA     0
         DATA     0,0
         DATA     0,0,0,0,0
         TEXT     ':SYS    '
         DATA     X'04900001'       CAL1,9  1      REG. 15
         DO       JTSTACKSZ-19
         DATA     X'BAD'
         FIN
         RES      0
*D*             ---------------------------------------------
*D* J:OVRLY     | OVERLAY ENTRY POINT ADDRESS               |
*D*             ---------------------------------------------
J:OVRLY  RES      1
         RES      0
*D*             0          8          16         24         31
*D*             ---------------------------------------------
*D* J:CPROCS    | UB:APR   | UB:APO   | UB:ASP   | UB:DB    |
*D*             ---------------------------------------------
J:CPROCS RES      1                 SAVE CAL - PROCESSOR ASSOC.
         RES      0
*D*             0                     16                    31
*D*             ---------------------------------------------
*D* J:CFLGS     |  GARBAGE          |  UH:FLG    AT SAVE    |                  X
*D*             ---------------------------------------------
*C* D00  SHIFT J:CFLGS TO LEFT HALF WORD
J:CFLGS  DATA     0                                                            X
          BOUND   8                                                            X
         RES    0
*D*             ---------------------------------------------
*D* J:CCBUF     |          CONTROL COMMAND BUFFER           |
*D*             :          FOR CCI AND TEL                  :
*D*             :          20 WORDS FOR TEL                 :
*D*             :          30 WORDS FOR CCI                 :
*D*             :                                           :
*D*             :                                           :
*D* J:DWSK(20)  :                                           :
*D*             :                                           :
*D*             :                                           :(24)JOPT
*D* J:LMN(26)   : LAST LM FORMED - 3 WORDS, TEXTC           :
*D* J:START(29) :  START ADDRESS OF CURRENT PROGRAM         :
*D*             ---------------------------------------------
*C* D00  DELETE   JRESOPT
*C* D00  DELETE   JSTDOPT
J:CCBUF  RES      20
J:DWSK   DATA     0,0
         DATA     0
         DATA     0
JOPT     EQU      %-J:JIT
J:OPT    DATA     0
         DATA     0
J:LMN    DATA     0,0,0
J:START  DATA     0
*  MTS SIMPLY WIPES OUT WHAT FOLLOWS (OR COMPLEXLY AS THE CASE MAY BE)
         RES      0
*D*             ---------------------------------------------
*D* M:XX        |          M:XX DCB                         |
*D*             :          22 WORDS                         :
*D*             :                                           :
*D*             ---------------------------------------------
*D* MXFPL       :          M:XX FUNCTION PARAMETER LIST     :
*D*             :          10 WORDS                         :
*D*             :                                           :
*D*             ---------------------------------------------
*D* MXKB        :          M:XX KEY BUFFER                  :
*D*             :          8 WORDS                          :
*D*             :                                           :
*D*             ---------------------------------------------
M:XX     DATA     1,0,X'A000000',0,0,0,MXFPL
         DATA     0,0,0,MXKB
         DO       11
         DATA     0
         FIN
MXFPL    DATA     X'01000003',0,0,0
         DATA     X'02000002',0,0
         DATA     X'03010002'
MXPASS   RES      0
         DATA     0
         DATA     0
MXKB     DATA     0,0,0,0,0,0,0,0
         BOUND    8                                                            X
         RES      0
*D*             0                   24                      31
*D*             ---------------------------------------------
*D* J:BUP       | 0---------------0 |BEGIN USER PAGE #      |  JBUP
*D*             ---------------------------------------------
JBUP     EQU      %-J:JIT
J:BUP    EQU      %             DBLE BEG OF USER'S PROG
         DATA     JBUPVP            BUP
         RES      0
*D*             ---------------------------------------------
*D* J:EUP       | 0---------------0 |ENDING USER PAGE #     |  JEUP
*D*             ---------------------------------------------
JEUP     EQU      %-J:JIT
J:EUP    EQU      %                  END OF USER'S PROG
         DATA     JEUPVP
         RES      0
*D*             ---------------------------------------------
*D* J:PLL       | 0---------------0 |PAGE # PROG LOWER LIMIT|  JPLL
*D*             ---------------------------------------------
JPLL     EQU      %-J:JIT
J:PLL    EQU      %             DBLE PURE P LOWER LIMIT     1ST
         DATA     JBUPVP
*D*             ---------------------------------------------
*D* J:PUL       | 0---------------0 |PAGE # PROG UPPER LIMIT|  JPUL
*D*             ---------------------------------------------
JPUL     EQU      %-J:JIT
J:PUL    EQU      %                  PURE P UPPER LIMIT
         DATA     JBUPVP-1
         RES      0
*D*             ---------------------------------------------
*D* J:DLL       | 0---------------0 |PAGE # DATA LOWER LIMIT|   JDLL
*D*             ---------------------------------------------
JDLL     EQU      %-J:JIT
J:DLL    EQU      %             D    DATA LOWER LIMIT       2ND
         DATA     JBUPVP
         RES      0
*D*             ---------------------------------------------
*D* J:DUL       | 0---------------0 |PAGE # DATA UPPER LIMIT| JDUL
*D*             ---------------------------------------------
JDUL     EQU      %-J:JIT
J:DUL    EQU      %                  DATA UPPER LIMIT
         DATA     JBUPVP-1
         RES      0
*D*             ---------------------------------------------
*D* J:DDLL      | 0---------------0 |PAGE # DYNAMIC DATA    |  JDDLL
*D*             |                   |  LOWER LIMIT          |
*D*             ---------------------------------------------
JDDLL    EQU      %-J:JIT
J:DDLL   EQU      %             D    DYN DATA LOWER LIMIT   3RD
         DATA     JBUPVP
         RES      0
*D*             ---------------------------------------------
*D* J:DDUL      | 0---------------0 | PAGE # DYNAMIC DATA   |  JDDUL
*D*             |                   |  UPPER LIMIT          |
*D*             ---------------------------------------------
JDDUL    EQU      %-J:JIT
J:DDUL   EQU      %                  DYN DATA UPPER LIMIT
         DATA     JEUPVP
         RES      0
*D*             ---------------------------------------------
*D* J:CLL       | 0---------------0 |PAGE # CONTEXT LOW LIMIT|
*D*             ----------------------------------------------
J:CLL    EQU      %             D    CONTEXT LOWER LIMIT    4TH
         DATA     JJITVP            CLL
         RES      0
*D*             ---------------------------------------------
*D*             | 0---------------0 |PAGE # CONTEXT UP LIMIT|
*D*             ---------------------------------------------
J:CUL    EQU      %                  CONTEXT UPPER LIMIT
         DATA     JBUPVP-1
         RES      0
*D*             ---------------------------------------------
*D* J:DCBLL     | 0---------------0 | PAGE # DCB LOW LIMIT  |  JDCBLL
*D*             ---------------------------------------------
JDCBLL   EQU      %-J:JIT
J:DCBLL  EQU      %
         DATA     JBUPVP
         RES      0
*D*             ---------------------------------------------
*D* J:DCBUL     | 0------------0    |PAGE # DCB UPPER LIMIT |  JDCBUL
*D*             ---------------------------------------------
JDCBUL   EQU      %-J:JIT
J:DCBUL  EQU      %
         DATA     JBUPVP-1
         RES      0
*D* JB:PCP      ---------------------------------------------  JPCP
*D* JB:PCD      |PG CNT OF |PG CNT OF |PG CNT OF |PG CNT OF |  JBPCP
*D* JB:PCDD     |PROCEDURE |  DATA    |DYNM DATA | CONTEXT  |  JBPCDD
*D* JB:PCC      ---------------------------------------------  JBPCC
JBPCP    EQU      BA(%)-BA(J:JIT)
JPCP     EQU      %-J:JIT
JB:PCP   EQU      %             BYTE PG CNT OF PURE P       1ST
         DATA,1   0
JB:PCD   EQU      %             B    PG CNT OF DATA         2ND
         DATA,1   0
JBPCDD   EQU      BA(%)-BA(J:JIT)
JB:PCDD  EQU      %             B    PG CNT OF DYN DATA     3RD
         DATA,1   0
JB:PCC   EQU      %             B    PG CNT OF CONTEXT      4TH
JBPCC    EQU      BA(%)-BA(J:JIT)
         DATA,1   0
         RES      0
*D*             ----------------------------------------------
*D* JB:PCDCB    |PG CNT OF |SPARE BUF | PG CNT   |FILE MNGT |
*D* JB:PCPWP    |   DCBS   |SWAP FLAG | ASSIGNED |SPARE BUF |  JSPBFLG
*D* JB:FBUC     |          |          | PHYS.PGS |USE CNT   |  JBFBUC
*D*             ---------------------------------------------
JB:PCDCB EQU      %
         DATA,1   0
JSPBFLG  EQU      %-J:JIT
         DATA,1   0
JB:PCPWP DATA,1   0
JB:FBUC  EQU      %
JBFBUC   EQU      BA(%)-BA(J:JIT)
         DATA,1   0
         RES      0
*D*             ---------------------------------------------
*D* JB:FBUL     |FILE MNGT |FILE MNGT*| COOP     | COOP     |  JBFBFP
*D*             |SPARE BUF |FREE BUF  |SPARE BUF |SPARE BUF |  JBCBLL
*D* JB:CBUC     |UPPER LIM |POOL HEAD |LOW LIMIT |USE CNT   |  JBCBUC
*D*             ---------------------------------------------
*D*                      * INTERRUPT ALTERED
JB:FBUL  EQU      %
         DATA,1   JXBUFVP+3         ALLOW 4 FPOOLS
JB:FBFP  EQU      %
JBFBFP   EQU      BA(%)-BA(J:JIT)
         DATA,1   0
JBCBLL   EQU      BA(%)-BA(J:JIT)
         DATA,1   JOVVP
JB:CBUC  EQU      %
JBCBUC   EQU      BA(%)-BA(J:JIT)
         DATA,1   0
         RES      0
*D*             ---------------------------------------------  JBTDP
*D* JB:TDP      |PG # TOP  |PG # BOTTM|FINAL RUN |NEXT AVAIL|  JBBCP
*D* JB:BCP      |DYMN DATA | COMMON   | STATUS   |SECTOR POS|  JBNASP
*D* JB:FRS      ---------------------------------------------
JBTDP    EQU      BA(%)-BA(J:JIT)
JB:TDP   EQU      %             B    TOP OF DYN PG,NXT AVAL ANY
         DATA,1   JBUPVP            TDP
JBBCP    EQU      BA(%)-BA(J:JIT)
JB:BCP   EQU      %             B    BOT OF COMMON NXT AVAL ANY
         DATA,1   JEUPVP            BCP
JB:FRS   DATA,1   0                 FINAL RUN STATUS
JBNASP   EQU      BA(%)-BA(J:JIT)
         DATA,1   0
         BOUND    8                                                            X
         RES      0
*D*             ---------------------------------------------
*D* J:USER      |  2 WORDS FOR INSTALLATION USE             |
*D*             ---------------------------------------------
*D*             |                                           |
*D*             ---------------------------------------------
J:USER   DATA,8   0                 AVAIL. FOR INSTALLATION DEFINITION
         RES      0
*D*             ---------------------------------------------
*D* J:CLS       |  CLOSE STATUS INFO                        |
*D*             ---------------------------------------------
J:CLS    DATA     0                 CLOSE STATUS INFO
         RES      0
*D*             ---------------------------------------------
*D*             | NUMBER OF PACK READS AND WRITES           |  DPACCESS
*D*             ---------------------------------------------
DPACCESS EQU   %-J:JIT
         DATA     0
         RES      0
*D*             ---------------------------------------------
*D*             |  NUMBER OF DISC READS AND WRITES          |  DCACCESS
*D*             ---------------------------------------------
DCACCESS EQU      %-J:JIT
         DATA     0
         RES      0
*D*             0          8          16         24         31
*D*             ---------------------------------------------
*D* JB:MAX      |  MAXIMUM RESOURCES ALLOWED TO USER        |JBMNPA
*D*             ---------------------------------------------
*D* JB:MNPA     |     4 WORD BYTE TABLE                     |
*D*             ---------------------------------------------
*D*             |                                           |
*D*             ---------------------------------------------
*D*             |                                           |
*D*             ---------------------------------------------
JB:MAX   EQU      %
         DATA,1   0
JBMNPA   EQU      BA(%)-BA(JIT)
JB:MNPA  EQU      %                 B
         DATA,1   0,0,0
         DATA     0,0,0
         RES      0
*D*             0                     16                    31
*D*             ---------------------------------------------
*D*             | PHYSICAL PAGE       |  UNUSED             |  JXPPH           X
*D* JX:PPH      |  CHAIN HEAD         |                     |  JPPH
*D*             ---------------------------------------------
JXPPH    EQU      BA(%)-BA(J:JIT)
JPPH     EQU      %-J:JIT
JX:PPH   DATA     0                                                            X
         RES      0
*D*             0                     16         24         31
*D*             ---------------------------------------------
*D* JX:PPT      | PHYSICAL PAGE       | SLNK     | XLNK     |  JPPT
*D* JB:SLNK     |  CHAIN TAIL         |          |          |  JXPPT
*D* JB:XLNK     ---------------------------------------------
         BOUND    4
JPPT     EQU      %-J:JIT
JXPPT    EQU      BA(%)-BA(J:JIT)
JX:PPT   EQU      %                 HALFWORD PHY PG TAIL
         DATA,2   0
JB:SLNK  DATA,1   0
JB:XLNK  DATA,1   0
         RES      0
*D*             0          8          16         24         31
*D*             ---------------------------------------------
*D* JB:PPC      |PHYS PAGE |PARTITION |# REMAIN  |UNUSED    |  JPPC            X
*D* JB:NRG      |CHAIN CNT |    #     |GRANULES  |          |  JBPPC
*D* JB:PNR      ---------------------------------------------  JBNRG
         BOUND    4
JBPPC    EQU      BA(%)-BA(J:JIT)
JPPC     EQU      %-J:JIT
JB:PPC   EQU      %             BYTE PHY PG COUNT
         DATA,1   0
JB:PNR   DATA,1   0
JBNRG    EQU      BA(%)-BA(J:JIT)
JB:NRG   EQU      %
         DATA,1   0
         DATA,1   0
         RES      0
*D*             ---------------------------------------------
*D* JB:VLH      |VIRT. PG  |PEAK CORE |  ON-LINE PAGE       |  JBVLH           X
*D* JB:PEAK     |LINK HEAD |          |     COUNT           |  JVLH            X
*D* JH:PC       ---------------------------------------------
*C* D00  RELOCATE JB:PC
         BOUND    4
JBVLH    EQU      BA(%)-BA(J:JIT)
JVLH     EQU      %-J:JIT
JB:VLH   EQU      %             BYTE VIRTUAL LINK HEAD
         DATA,1   0
JB:PEAK  DATA,1   0
JH:PC    DATA,2   0                                                            X
         RES      0
*D* JB:STEPCC   ---------------------------------------------
*D* JB:VLT      |VIRT PG   |STEP COND.|# DISC    |# TAPES   |  JVLT
*D* JB:PMTS     |LINK TAIL | CODES    |PACK MOUNT| MOUNTS   |
*D* JB:TMTS     ---------------------------------------------
         BOUND    4
JVLT     EQU      %-J:JIT
JB:VLT   EQU      %             BYTE VIRTUAL LINK TAIL
         DATA,1   0
JB:STEPCC  DATA,1  0
JB:PMTS  DATA,1   0
JB:TMTS  DATA,1   0
         RES      0
*D*             ---------------------------------------------
*D*             | PERMANENT RAD SPACE REMAINING             |  PRDCRM
*D*             ---------------------------------------------
         BOUND    4
PRDCRM   EQU      %-J:JIT
         DATA     0
         RES      0
*D*             ---------------------------------------------
*D*             | PERMANENT PACK SPACE REMAINING            |  PRDPRM
*D*             ---------------------------------------------
PRDPRM   EQU      %-J:JIT
         DATA     0
         RES      0
*D*             ---------------------------------------------
*D*             | TEMPORARY RAD SPACE REMAINING             |  TMDCRM
*D*             ---------------------------------------------
TMDCRM   EQU      %-J:JIT
         DATA     0
         RES      0
*D*             ---------------------------------------------
*D*             | TEMPORARY PACK SPACE REMAINING            |  TMDPRM
*D*             ---------------------------------------------
TMDPRM   EQU      %-J:JIT
         DATA     0
         RES      0
*D*             ---------------------------------------------
*D* J:VLCS      |   VIRTUAL LINK CHAIN STOP                 |  JVLCS
*D*             ---------------------------------------------
JVLCS    EQU      %-J:JIT
J:VLCS   EQU      %             W    VIRTUAL LINK CHAIN STOP
         DATA     X'FF'
         RES      0
*D*             ---------------------------------------------
*D* J:AJ        |   ADDITIONAL JIT PHYSICAL PAGE NUMBER     |  JAJ
*D*             ---------------------------------------------
JAJ      EQU      %-J:JIT
J:AJ     EQU      %             W    ADDITIONAL JIT'S PHY ADR
         DATA     0
         RES      0
*D*             ---------------------------------------------
*D* J:CLPA      |   COMMAND LIST PHYSICAL ADDRESS           |   JCLPA
*D*             ---------------------------------------------
JCLPA    EQU      %-J:JIT
J:CLPA   EQU      %             W    CL PHY ADR
         DATA     0
         RES      0
*D*             ---------------------------------------------
*D* J:CLE       |   NUMBER OF WORDS IN COMMAND LIST         |  JCLE
*D*             ---------------------------------------------
JCLE     EQU      %-J:JIT
J:CLE    EQU      %             W    # OF WDS IN CL
         DATA     0
         RES      0
*D*             ---------------------------------------------
*D*             |  POINTER TO TRANSFER IN CHANNEL IN J:CL   |  JCLP
*D*             ---------------------------------------------
JCLP     EQU      %-J:JIT
         DATA     0
         RES      0
*D*             ---------------------------------------------
*D*             | SAVED WORD OF COMMAND LIST WHERE TIC WENT|  JCLT
*D*             --------------------------------------------
JCLT     EQU      %-J:JIT
         DATA     0                 WHERE TIC WENT
         RES      0
*D*             --------------------------------------------
*D* J:FDDA      |    FILE DIRECTORY DISC ADDRESS            |
*D*             ---------------------------------------------
J:FDDA   DATA     0                 FILE DIRECTORY DISC ADDRESS
         RES      0
*D*             0                     16                    31
*D*             ---------------------------------------------
*D* J:T         |READ COMP TIME       | READ CURRENT TIME   |
*D*             ---------------------------------------------
J:T      DATA     0
         RES      0
*D*             ---------------------------------------------
*D* J:JAC       |  ACCESS CODES FOR USER                    |  JJAC
*D*             :     2 BITS PER PAGE - 12 WORDS            :
*D*             :                                           :
*D*             ---------------------------------------------
J:JAC    EQU      %-JOVVP/16
JJAC     EQU      J:JAC-J:JIT
         DATA     X'FFFBFFFF'
         DO       (X'100'-JBUPVP)/16
         DATA     X'FFFFFFFF'
         FIN
         RES      0
*D*             ---------------------------------------------
*D* J:STAR      |   FDA OF *B                               |
*D*             ---------------------------------------------
*D*             |          *D                               |
*D*             ---------------------------------------------
*D*             |          *G                               |
*D*             ---------------------------------------------
*D*             |          *L                               |
*D*             ---------------------------------------------
*D*             |          *T                               |
*D*             ---------------------------------------------
*D*             |          *N (LNKTRC)                      |
*D*             ---------------------------------------------
J:STAR   DATA     0,0,0,0,0,0
         BOUND    8                                                            X
         RES      0
*D*             ---------------------------------------------
*D* J:BASE      |  SPILL BUFFER FOR INDEX BUFFERS.          |
*D*             :  ALSO USED BY OTHER MONITOR ROUTINES      :
*D*             :  AS TEMPORARY STORAGE.    12 WORDS        :
*D*             ---------------------------------------------
J:BASE   RES      12
         RES      0
*D*             0                     16                    31
*D*             ---------------------------------------------
*D* J:TIC       |RESPONSE TIME,2MS OR 0|TURNAROUND TIME OR 0|
*D*             ---------------------------------------------
J:TIC    DATA     0
         RES      0
*D*             ---------------------------------------------
*D* J:AMR       | DISC ADDRESS OF ASSIGN-MERGE RECORD       |
*D*             ---------------------------------------------
J:AMR    DATA     0
         RES      0
*D*             0                   15                      31
*D*             ---------------------------------------------
*D* J:ICBHDR    | | |               |HEAD OF ACTIVE ICB CHAIN|
*D*             ----------------------------------------------
*D*              | |
*D*              | --M:IOEX CAL ISSUED
*D*              ----REAL TIME CAL ISSUED
J:ICBHDR DATA     0
         RES      0
*D*             ----------------------------------------------                 X
*D* J:PPRIV     |          PROCESSOR PRIVILEGE FLAGS        |                  X
*D*             --------------------------------------------                   X
*C* D00  ADD      J:PPRIV
J:PPRIV  DATA   0                                                              X
         BOUND    8                                                            X
         RES    0                                                              X
*D*             ---------------------------------------------
*D* JB:LMAP     |  VIRTUAL PAGE # CHAIN                     |  JBLMAP
*D*             :      BYTE TABLE BY VIRTUAL PAGE #         :  JLMAP
*D*             :      53 WORDS                             :                  X
*D*             ---------------------------------------------
JBLMAP   EQU      BA(%)-BA(J:JIT)-JXBUFVP
JLMAP    EQU      %-J:JIT-JXBUFVP/4
JB:LMAP  EQU      %-JXBUFVP/4
         DO       5                                                            X
         DATA     0                                                            X
         FIN                                                                   X
         RES      0                                                            X
*D*             ---------------------------------------------                  X
*D* JB:CUR      |  CURRENT RESOURCES ALLOCATED TO USER      |                  X
*D*             ---------------------------------------------                  X
*D*             |      4 WORD BYTE TABLE                    |                  X
*D*             ---------------------------------------------                  X
*D*             |                                           |                  X
*D*             ---------------------------------------------                  X
*D*             |                                           |                  X
*D*             ---------------------------------------------                  X
JB:CUR   DATA     0,0,0,0                                                      X
         DO       64-JXBUFVP/4-9                                               X
         DATA     0                                                            X
         FIN
         RES      0
*D*             ---------------------------------------------
*D* JX:CMAP     |  PHYSICAL PAGE # CHAIN                    |  JXCMAP
*D*             :      HALF-WORD OR BYTE                    |  JCMAP
*D*             :       INDEXED BY VIRTUAL PAGE #           :
*D*             :       53 WORDS OR 106 ON BIG 9            :                  X
*D*             ---------------------------------------------
         BOUND    4
JX:CMAP  EQU      %-JXBUFVP/4-A(JXBUFVP/4)
JCMAP    EQU      JX:CMAP-J:JIT
JXCMAP   EQU      BA(JX:CMAP)-BA(J:JIT)
         RES      0                                                            X
*D*             0                                           31                 X
*D*             ---------------------------------------------                  X
*D* J:LDCF      |          PERIPHERAL FLAGS                 |                  X
*D* JH:LDCF     ---------------------------------------------                  X
*C* D00  ADD DEF  J:LDCF                                                       X
J:LDCF  EQU      JX:CMAP+64+A(64)                                              X
JH:LDCF  EQU      HA(J:LDCF)+1                                                 X
         RES      0
*D*             ---------------------------------------------
*D* JH:DA       |  SEEK ADDRESS USED BY J:CL                |  JDA
*D*             :       (SIGMA 7 AND SMALL SIGMA 9)         :
*D*             :       LOCATED AT END OF AJIT IF BIG SYSTEM:
*D*             ---------------------------------------------
JH:DA    EQU      JX:CMAP+64+:BIGX512+A(10)+1
JDA      EQU      JH:DA-J:JIT-:BIGX512
         RES      0
*D*             ---------------------------------------------
*D* J:CL        |  COMMAND LIST USED BY SWAPPER             |  JCL
*D*             :                                           :
*D*             :          SEEK IOCD BA(JH:DA(0))           :
*D*             :          READ/WRITE IOCD                  :
*D*             :          READ/WRITE IOCD                  :
*D*             :          READ/WRITE IOCD                  :
*D*             :          READ/WRITE IOCD                  :
*D*             :          SEEK BA(JH:DA(1))                :
*D*             :          READ/WRITE IOCD                  :
*D*             :            :     :                        :
*D*             ---------------------------------------------
*  FIGURE OUT WHERE DISC ADDRESS AND CLIST GO.
M7       EQU      %-JXBUFVP/4+64
D7       EQU      (3+(8*(J:JIT+511-M7)/21))/4
C7       EQU      JJJ+(ABSVAL((((D7+1)/2+M7)+1))&X'1FFFE')
L7       SET      ABSVAL(J:JIT+510-C7)
 DO1   ((L7/10)*10-L7)-2=0
L7       SET      L7-2
*
J:CL     EQU     C7
JCL      EQU     J:CL-J:JIT
*
JCCL     EQU      L7-A(L7)          MAX JIT CL LENGTH
UNUSED   EQU   X'8DFF'                                                         X
         RES     J:JIT+512-%    ALLOCATE REMAINDER OF PAGE
         RES      0
*D*             ---------------------------------------------
*D* J:AJIT      |ADDR OF AJIT IF J:CL TOO BIG FOR JIT       |
*D*             ---------------------------------------------
J:AJIT   EQU      J:JIT+X'200'
JITSZ    EQU      %-JIT
         END

