         DEF      JIT:,JITLOC:
JIT:     EQU      JIT
JITLOC:  EQU      JITLOC
MONSIM   SET      0                 SIMULATOR OFF
*         CREATED 12/27/71
*
*************************************
*        JIT                        *
*
*        EXTERNAL REFS
*
         REF      :BIG,:BIGX512
*
*        EXTERNAL DEFS
*
         DEF      J:OVRLY
         DEF      COCLN
         DEF      J:USER
         DEF      JIT
         DEF      J:JIT
         DEF      J:UN
         DEF      J:ACCN
         DEF      J:UNAME
         DEF      J:CTIME
         DEF      J:PTIME
         DEF      J:UTIME
         DEF      J:DELTAT
         DEF      J:MRT
         DEF      SYSID
         DEF      JACCN
         DEF      ACCN
         DEF      JUNAME
         DEF      UNAME
         DEF      CEXT
         DEF      OVHTIME
         DEF      IOTIME
         DEF      TPEXT
         DEF      TPOVT
         DEF      TPIOT
         DEF      TUEXT
         DEF      TUOVT
         DEF      TUIOT
         DEF      TIMTMP
         DEF      MRT
         DEF      J:ABC
         DEF      JABC
         DEF      J:CASSIN
         DEF      J:INTENT
         DEF      J:EXTENT
         DEF      J:FDDA
         DEF      CCLTFLGS
         DEF      CCLFLAGS
         DEF      MJCFLG
         DEF      J:DWSK
         DEF      ERLFLAGS
         DEF      ERRLFLGS
         DEF      CASSIGN
         DEF      INTENT
         DEF      J:TIMENT
         DEF      J:UTIMER
         DEF      J:USENT
         DEF      J:TCB
         DEF      J:TREE
         DEF      J:LMN
         DEF      JSPBFLG
         DEF      JB:FBUC,JBFBUC
         DEF      JB:FBUL
         DEF      JBFBFP
         DEF      JBCBLL
         DEF      JB:CBUC,JBCBUC
         DEF      JBNFPOOL,JB:NFPOOL
         DEF      J:IDELTAT
         DEF      TCBADR
         DEF      JITREE
         DEF      JITUSCDX
         DEF      J:DCBLINK
         DEF      PRT
         DEF      SS
         DEF      J:RNST
         DEF      RUNFLAG
         DEF      BAABC
         DEF      TIMENT
         DEF      XSL
         DEF      RNST
         DEF      BARNST
         DEF      PUF
         DEF      UTIMER
         DEF      TRPFLAGS
         DEF      USRENT
         DEF      JRNST
         DEF      CCBEF
         DEF      J:ASSIGN
         DEF      J:EXLY
         DEF      CIC
         DEF      J:NRS,NSWAPS,HANSWAPS
         DEF      JASSIGN
         DEF      CPE
         DEF      J:CPPO
         DEF      J:TRAP
         DEF      J:JIP
         DEF      J:INTER
         DEF      J:RWECB
         DEF      CPO
         DEF      ERO
         DEF      MPO
         DEF      ABO
         DEF      JCPPO
         DEF      CPPO
         DEF      MPPO
         DEF      ALOCCT
         DEF      CUPO
         DEF      MUPO
         DEF      CDPO
         DEF      MDPO
         DEF      MSLET
         DEF      NSVT
         DO1      1-MONSIM
         DEF      M:UC
         DEF      J:START
         DEF      J:CFLGS
         DEF      J:CPROCS
         DEF      J:CLM
         DEF      J:ABUF
         DEF      J:PUF
         DEF      JPUF
         DEF      JRESOPT
         DEF      JSTDOPT
         DEF      JB:PCD
         DEF      FPMC
         DEF      J:OPT
         DEF      JOPT
         DEF      J:TELFLGS
         DEF      JB:LPP
         DEF      JB:LC
         DEF      JB:PCW
         DEF      JB:CUR,JB:MAX,JH:LDCF
         DEF      TSTACK
         DEF      J:CCBUF
         DEF      J:TELBUF
         DEF      J:TITLE
         DEF      JTELFLGS
         DEF      ATITLE
         DEF      J:VLCS
         DEF      JB:BCP
         DEF      JX:CMAP
         DEF      JB:LMAP
         DEF      JB:MNPA
         DEF      JB:PCC
         DEF      JB:PCDD
         DEF      JB:PCP
         DEF      JB:PPC
         DEF      JX:PPH
         DEF      JX:PPT
         DEF      JB:PRIV
         DEF      JB:TDP
         DEF      JB:VLH
         DEF      JB:VLT
         DEF      JH:DA
         DEF      JAJ
         DEF      JBBCP
         DEF      JXCMAP
         DEF      JBNRG
         DEF      JB:NRG
         DEF      JBLMAP
         DEF      JBMNPA
         DEF      JBNASP
         DEF      JBPCC
         DEF      JBPCP
         DEF      JBPPC
         DEF      JXPPH
         DEF      JXPPT
         DEF      JBVLH
         DEF      JBTDP
         DEF      JBUP
         DEF      JCL
         DEF      JCLE
         DEF      JCLP
         DEF      JCLPA
         DEF      JDA
         DEF     JEUP
         DEF      JJAC
         DEF      JXBUFVP,JEUPVP
         DEF      JSBUF1VP,SBUF1VPA
         DEF      JSBUF2VP,SBUF2VPA
         DEF      JCO2VPA,JBUPVPA
         DEF      JJITVP,JAJITVP
         DEF      JLMAP,JCMAP
         DEF      JCOVP
         DEF      JCOVPA
         DEF      JBUPVP
         DEF      JSPVP
         DEF      SPPBASE
         DEF      SPDBASE
         DEF      JOVVP
         DEF      JOVVPA
         DEF      JPCP
         DEF      JPLL
         DEF      JPUL
         DEF      JPPH,JPPT,JPPC
         DEF      JVLCS
         DEF      JVLH,JVLT
         DEF      M:XX
         DEF      J:BUP
         DEF      J:EUP
         DEF      J:CLL
         DEF      J:CUL
         DEF      J:DLL
         DEF      J:DUL
         DEF      J:PLL
         DEF      J:PUL
         DEF      J:DDLL
         DEF      J:DCBLL
         DEF      J:DCBUL
         DEF      JDCBLL
         DEF      JDCBUL
         DEF      J:DDUL
         DEF      J:AJ
         DEF      J:AJIT
         DEF      J:JAC
         DEF      J:CLE
         DEF      JCLT
         DEF      J:CLS
         DEF      J:STAR
         DEF      J:CL
         DEF      J:CLPA
         DEF      JCCL
         DEF      J:AMR
         DEF      JB:PROMPT
         DEF      J:T
         DEF      J:TIC
         DEF      J:CALCNT
         DEF      J:OVHTIM
         DEF      JDDLL
         DEF      JDDUL
         DEF      DCBLINK
         DEF      JDUL
         DEF      JBPCDD
         DEF      JDLL
         DEF      JTSTACKSZ
         DEF      :LOGSZ            LOGON RECORD SIZE
         DEF      :AMHED            ASSIGN-MERGE RECORD HEAD
         DEF      MXFPL             LMN IN M:XX
         DEF      JB:STEP,JB:ORG
         DEF      JB:SLNK,JB:XLNK
:LOGSZ   EQU      126               :USERS RECORD SIZE
:AMHED   EQU      22                ASSIGN-MERGE RECORD HEAD
         DEF      DPACCESS,DCACCESS,TPACCESS
         DEF      PPMD
         DEF      J:ASPIN
         DEF      J:ALB
         DEF      J:XP
         DEF      JRBID
         DEF      JB:PNR
         DEF      JB:PEAK
         DEF      PRDCRM,PRDPRM,TMDCRM,TMDPRM
         DEF      JB:STEPCC,JB:TMTS,JB:PMTS
         DEF      J:BASE
         DEF      J:ICBHDR
         DEF      TMPDCPK,TMPDPPK
         DEF      JB:PCDCB
         DO       MONSIM
MUC      EQU      M:UC
MXX      EQU      M:XX
         DEF      MUC,MXX
         FIN
         PAGE
        DEF      UTS
*************************************
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
         DEF      JITLOC
JITLOC   EQU      %
         DO       1-MONSIM
JJJ      ASECT
         ORG      JITLOC
         LOC      JJJ+X'8C00'
         ELSE
JJJ      EQU      %
         FIN
*************************************
FPMC     EQU      X'20'
JIT      RES      0
A(1)     SET      :BIG
I        DO       64
A(I+1)   SET      A(I)+:BIG
         FIN
J:JIT    RES      0
J:UN     RES      0
SYSID    EQU      %-J:JIT
         DATA     0
J:ACCN   RES      0
JACCN    EQU      %-J:JIT
ACCN     EQU      %-J:JIT
         DATA     0
         DATA     0
J:UNAME  RES      0
JUNAME   EQU      %-J:JIT
UNAME    EQU      %-J:JIT
         DATA     0
         DATA     0
         DATA     0
J:CTIME  RES      0
CEXT     EQU      %-J:JIT
         DATA     0
J:OVHTIM EQU      %
OVHTIME  EQU      %-J:JIT
         DATA     0
J:CALCNT EQU      %
IOTIME   EQU      %-J:JIT
         DATA     0
J:PTIME  RES      0
TPEXT    EQU      %-J:JIT
         DATA     0
TPOVT    EQU      %-J:JIT
         DATA     0
TPIOT    EQU      %-J:JIT
         DATA     0
J:UTIME  RES      0
TUEXT    EQU      %-J:JIT
         DATA     0
TUOVT    EQU      %-J:JIT
         DATA     0
TUIOT    EQU      %-J:JIT
         DATA      0
J:DELTAT RES      0
TIMTMP   EQU      %-J:JIT
         DATA     0
J:MRT    RES      0
MRT      EQU      %-J:JIT
         DATA     0
J:ABC    RES      0
BAABC    EQU      BA(%)-BA(JIT)
JABC     EQU      %-J:JIT
PRT      EQU      %-J:JIT
SS       EQU      %-J:JIT
ABC      EQU      %-J:JIT
           DATA     X'80700000'
J:RNST   RES      0
RUNFLAG  EQU      %-J:JIT
JRNST    EQU      %-J:JIT
JRST     EQU      %-J:JIT
CCBEF    EQU      %-J:JIT
XSL      EQU      %-J:JIT
RNST     EQU      %-J:JIT
PUF      EQU      %-J:JIT
LNKCNTR  EQU      %-J:JIT
BARNST   EQU      4*RNST
         DATA     0
CIC      EQU      %-J:JIT
J:NRS    RES      0
NSWAPS   EQU      %-J:JIT
HANSWAPS EQU      HA(J:NRS)-HA(J:JIT)+1
         DATA     0
J:ASSIGN RES      0
JASSIGN  EQU      %-J:JIT
CPE      EQU      %-J:JIT
SPPS     EQU      %-J:JIT
ALL      EQU      %-J:JIT
PPMD     EQU      %-J:JIT
J:EXLY   EQU      %
         DATA     0
CPO      EQU      %-J:JIT
ERO      EQU      %-J:JIT
         DATA     0
MPO      EQU      %-J:JIT
ABO      EQU      %-J:JIT
         DATA     0
J:CPPO   RES      0
JCPPO    EQU      %-J:JIT
CPPO     EQU      %-J:JIT
         DATA     0
J:TRAP   RES      0
MPPO     EQU      %-J:JIT
         DATA     0
ALOCCT   EQU      %-J:JIT
CUPO     EQU      %-J:JIT
         DATA     0
J:JIP    RES      0
MUPO     EQU      %-J:JIT
         GEN,15,17 X'7FF',0         GHOST1 NEEDS TO PRINT
J:INTER  RES      0
CDPO     EQU      %-J:JIT
         DATA     0
J:RWECB  RES      0
MDPO     EQU      %-J:JIT
         DATA     0
JB:STEP  DATA,1   0
JB:ORG   DATA,1   0
NTRW     EQU      %-J:JIT
MSLET    EQU      %-J:JIT
TPACCESS EQU      %-JIT
         DATA,2   0
J:ASPIN  DATA     0,0
J:ALB    DATA     0                 X560 ADDRESS OF LAST BRANCH
J:TELFLGS  RES    0
TFILFLGS EQU      %-J:JIT
CCLTFLGS EQU      %-J:JIT
CCLFLAGS EQU      %-J:JIT
MJCFLG   EQU      %-J:JIT
MDFLAG   EQU      %-J:JIT
DMFLAG   EQU      %-JIT
JTELFLGS EQU      %-JIT
         DATA     0
J:CASSIN RES      0
ERLFLAGS EQU      %-J:JIT
ERRLFLGS EQU      %-J:JIT
CASSIGN  EQU      %-J:JIT
JRBID    EQU      %-J:JIT
BACASSIGN  EQU    BA(%)-BA(JIT)
         DATA     X'2000000'
J:INTENT RES      0
INTENT   EQU      %-J:JIT
         DATA     0
J:TIMENT RES      0
TIMENT   EQU      %-JIT
         DATA     0
J:UTIMER RES      0
UTIMER   EQU      %-JIT
         DATA     0
J:USENT  RES      0
USRENT   EQU      %-JIT
TRPFLAGS EQU      %-JIT
         DATA     0
J:TCB    RES      0
JTCB     EQU      %-J:JIT
TCBADR   EQU      %-J:JIT
         DATA     0
JITREE   EQU      %-J:JIT
J:TREE   RES      0
         DATA     0
SIZE     SET      1
         DO       SIZE=1
TMPDPPK  EQU      %-J:JIT
      DATA   0
         FIN
         DEF      J:USCDX
J:USCDX  RES      0
JITUSCDX EQU      %-J:JIT
         DATA     0
COCLN             EQU      1
DCBLINK  EQU      %-J:JIT
J:DCBLINK DATA    0
M:UC EQU %
J:TITLE  EQU      %+1
ATITLE   EQU      %+1-J:JIT
         DATA     3,X'1E4C3'
         DO       20
         DATA     0
         FIN
JH:PC    EQU      %-1               ON LINE PAGE COUNT
         DEF      JH:PC
J:XP     DATA     0
JB:PRIV  DATA,1   0
         DATA,1   0
UNUSED2  DATA,1   0
JBNFPOOL EQU      BA(%)-BA(J:JIT)
JB:NFPOOL  DATA,1  0
J:ABUF   RES      0
         DATA     0
J:PUF    RES      0
JPUF     EQU      %-J:JIT
         DATA     X'F'
JB:LPP   DATA,1   54                NR OF PRINTABLE LINDS / PG
JB:LC    DATA,1   49                LINE COUNT ON CURRENT PAGE,
*                                   TO CAUSE LEADER
JB:PCW   DATA,1   72                BYTE CONTAINING PLATEN WIDTH
JB:PROMPT DATA,1  0                 CURRENT PROMPT CHARACTER
         BOUND    4
J:IDELTAT DATA    0
J:EXTENT EQU      %                 EXIT CONTROL ADDRESS
         DATA     0                 AND CONTROL BITS IN BYTE 0
TMPDCPK  EQU      %-J:JIT
         DATA     0
         BOUND    8
*        ORG      J:JIT+X'1A0'
UTS      EQU      TSTACK
***      TEMP STACK                 ***
JTSTACKSZ EQU     121
*  UTS-75         MTS-196
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
J:OVRLY  RES      1
J:CPROCS RES      1
J:CFLGS  RES      1
          BOUND   8
J:CCBUF  RES      13
J:CLM    RES      7
J:DWSK   DATA     0,0
JRESOPT  EQU      %-J:JIT
         DATA     0
J:TELBUF DATA     0
JOPT     EQU      %-J:JIT
J:OPT    DATA     0
JSTDOPT  EQU      %-J:JIT
         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)
M:XX     DATA     1,0,0,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
***     FOR MEM MGMT               ***
*  MAY BE EXTRA WD WASTED
         BOUND    8
JBUP     EQU      %-J:JIT
J:BUP    EQU      %             DBLE BEG OF USER'S PROG
         DATA     JBUPVP            BUP
JEUP     EQU      %-J:JIT
J:EUP    EQU      %                  END OF USER'S PROG
         DATA     JEUPVP
JPLL     EQU      %-J:JIT
J:PLL    EQU      %             DBLE PURE P LOWER LIMIT     1ST
         DATA     JBUPVP
JPUL     EQU      %-J:JIT
J:PUL    EQU      %                  PURE P UPPER LIMIT
         DATA     JBUPVP-1
JDLL     EQU      %-J:JIT
J:DLL    EQU      %             D    DATA LOWER LIMIT       2ND
         DATA     JBUPVP
JDUL     EQU      %-J:JIT
J:DUL    EQU      %                  DATA UPPER LIMIT
         DATA     JBUPVP-1
JDDLL    EQU      %-J:JIT
J:DDLL   EQU      %             D    DYN DATA LOWER LIMIT   3RD
         DATA     JBUPVP
JDDUL    EQU      %-J:JIT
J:DDUL   EQU      %                  DYN DATA UPPER LIMIT
         DATA     JEUPVP
JCLL     EQU      %-J:JIT
J:CLL    EQU      %             D    CONTEXT LOWER LIMIT    4TH
         DATA     JJITVP            CLL
JCUL     EQU      %-J:JIT
J:CUL    EQU      %                  CONTEXT UPPER LIMIT
         DATA     JBUPVP-1
JDCBLL   EQU      %-J:JIT
J:DCBLL  EQU      %
         DATA     JBUPVP
JDCBUL   EQU      %-J:JIT
J:DCBUL  EQU      %
         DATA     JBUPVP-1
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
JB:PCDCB EQU      %
         DATA,1   0
JSPBFLG  EQU      %-J:JIT
J:SPBFLG EQU      %
         DATA,1   0
UNUSED   DATA,1   0
JB:FBUC  EQU      %
JBFBUC   EQU      BA(%)-BA(J:JIT)
         DATA,1   0
JB:FBUL  EQU      %
JBFBUL   EQU      BA(%)-BA(J:JIT)
         DATA,1   0
JB:FBFP  EQU      %
JBFBFP   EQU      BA(%)-BA(J:JIT)
         DATA,1   0
JB:CBLL  EQU      %
JBCBLL   EQU      BA(%)-BA(J:JIT)
         DATA,1   JOVVP
JB:CBUC  EQU      %
JBCBUC   EQU      BA(%)-BA(J:JIT)
         DATA,1   0
JBTDP    EQU      BA(%)-BA(J:JIT)
JTDP     EQU      %-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
         DEF      JB:FRS
JB:FRS   DATA,1   0                 FINAL RUN STATUS
JBNASP   EQU      BA(%)-BA(J:JIT)
JB:NASP  EQU      %             B                           ANY
         DATA,1   0
         BOUND    4
J:USER   DATA,8   0                 AVAIL. FOR INSTALLATION DEFINITION
J:CLS    DATA     0                 CLOSE STATUS INFO
DPACCESS EQU   %-J:JIT
         DATA     0
DCACCESS EQU      %-J:JIT
NDRW     EQU      %-J:JIT
         DATA     0
JB:MAX   EQU      %
         DATA,1   0
JBMNPA   EQU      BA(%)-BA(JIT)
JB:MNPA  EQU      %                 B
         DATA,1   0,0,0
         DATA     0,0,0
JB:CUR   DATA     0,0,0,0
JXPPH    EQU      BA(%)-BA(J:JIT)
JPPH     EQU      %-J:JIT
JX:PPH   EQU      %
         DATA,2   0
JH:LDCF DATA,2 0            PERIPH   FLAGS
         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
         BOUND    4
JBPPC    EQU      BA(%)-BA(J:JIT)
JPPC     EQU      %-J:JIT
NSVT     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
BANSVT   EQU      BA(%)-BA(J:JIT)
         DATA,1   0
         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
         DATA,1   0
         DATA,1   0
         BOUND    4
JBVLT    EQU      BA(%)-BA(J:JIT)
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
         BOUND    4
PRDCRM   EQU      %-J:JIT
         DATA     0
PRDPRM   EQU      %-J:JIT
         DATA     0
TMDCRM   EQU      %-J:JIT
         DATA     0
TMDPRM   EQU      %-J:JIT
         DATA     0
JVLCS    EQU      %-J:JIT
J:VLCS   EQU      %             W    VIRTUAL LINK CHAIN STOP
         DATA     X'FF'
JAJ      EQU      %-J:JIT
J:AJ     EQU      %             W    ADDITIONAL JIT'S PHY ADR
         DATA     0
JCLPA    EQU      %-J:JIT
J:CLPA   EQU      %             W    CL PHY ADR
         DATA     0
JCLE     EQU      %-J:JIT
J:CLE    EQU      %             W    # OF WDS IN CL
         DATA     0
JCLP     EQU      %-J:JIT
J:CLP    EQU      %             W    POINTER TO DESTROYED WD OF CL
         DATA     0
JCLT     EQU      %-J:JIT
J:CLT    EQU      %                 SAVED WORD OF COMMAND LIST
         DATA     0                 WHERE TIC WENT
J:FDDA   DATA     0                 FILE DIRECTORY DISC ADDRESS
J:T      DATA     0
J:JAC    EQU      %-JOVVP/16
JJAC     EQU      J:JAC-J:JIT
         DATA     X'FFFBFFFF'
         DO       (X'100'-JBUPVP)/16
         DATA     X'FFFFFFFF'
         FIN
J:STAR   DATA     0,0,0,0,0
         DATA     0    JIT LOC FOR IDN * FILE USED BY LNKTRC
         BOUND    8
JSPIL    EQU      %-JIT
J:BASE   RES      12
J:TIC    DATA     0
J:AMR    DATA     0
J:ICBHDR DATA     0
         BOUND    8
JBLMAP   EQU      BA(%)-BA(J:JIT)-JXBUFVP
JLMAP    EQU      %-J:JIT-JXBUFVP/4
JB:LMAP  EQU      %-JXBUFVP/4
         DO       X'100'-JXBUFVP
         DATA,1   0
         FIN
*
         BOUND    4
JX:CMAP  EQU      %-JXBUFVP/4-A(JXBUFVP/4)
JCMAP    EQU      JX:CMAP-J:JIT
JXCMAP   EQU      BA(JX:CMAP)-BA(J:JIT)
JH:DA    EQU      JX:CMAP+64+:BIGX512+A(8)
JDA      EQU      JH:DA-J:JIT-:BIGX512
*  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
*
         RES     J:JIT+512-%    ALLOCATE REMAINDER OF PAGE
J:AJIT   EQU      J:JIT+X'200'
JITSZ    EQU      %-JIT
         END

