*COMDECK  PPSYS  PPU SYSTEM DEFINITIONS 
          CTEXT  PPSYS - PPU SYSTEM DEFINITIONS 
          SPACE  3
***       THE PPSYS COMMON DECK PROVIDES DEFINITIONS OF MACROS, 
*         MICROS, AND SYMBOLS USED BY PPU PROGRAMS IN THE 
*         CDC CYBER OPERATING SYSTEM. 
          SPACE  3
***       THE SYMBOLS ARE LISTED IN THE ORDER THAT THEY APPEAR
*     IN THE TABLE SECTION OF THE SYSTEM PROGRAMMERS REFERENCE MANUAL.  000260
          SPACE  3
***       SYSTEM SYMBOL DEFINITIONS 
          SPACE  3
****
POINTER   SPACE  5,10 
**        POINTERS
          SPACE  3
P.AAZ     = 0             ABSOLUTE ADDRESS ZERO, NORMALLY CONTAINS ZEROS
  
P.LIB     = 1             LIBRARY DIRECTORY POINTER 
 C.DIRFWA = 0             FWA OF LIBRARY DIRECTORY
 C.DSFLAG = 4             DEADSTART PARAMETER BYTE
 S.ACTION = 10D           ACTION
 S.SYSLVL = 8D            SYSTEM LEVEL
 S.IOLVL  = 6             I/O QUEUE LEVEL 
 S.USETS  = 5             USER SET LEVEL
 S.ECSLVL = 4             ECS LEVEL 
 S.CMU    = 3             COMPARE/MOVE UNIT (CMU) INDICATOR 0=N/,1=YES
 S.MFLVL  = 2             MAINFRAME D/S LEVEL 
 S.EDTRUN = 1             SET NONZERO EACH TIME EDITLIB RUNS
 S.SYSEDT = 0             SET NONZERO TO BYPASS MDI GO/DROP 
  
P.RBR     = 2             RBR POINTER 
 C.RBRAD  = 0             FWA OF THE RBR AREA 
P.RBT     = 2             RBT POINTER 
 C.RBTEC  = 2             EMPTY CHAIN POINTER IN P.RBT
P.CMLWA   = 2             CMR LWA POINTER 
 C.CMLWA  = 4             (LWA+1)/100B OF CM
  
P.DFB     = 3             DAYFILE BUFFER POINTER
P.NPP     = 3             NUMBER OF PPUS
 C.NPP    = 3             NUMBER OF PPS 
P.NCP     = 3             NUMBER OF CONTROL POINTS
 C.NCP    = 4             NUMBER OF CONTROL POINTS
  
P.FNT     = 4             FNT POINTER 
 C.FNT    = 0             FNT FWA POINTER 
 C.FNTFWA = C.FNT 
 C.FNTLWA = 1 
P.SEQ     = 4             DIAGNOSTIC SEQUENCER POINTER
 C.SEQ    = 2             FWA/100B OF SEQUENCER TABLE 
 C.SEQL   = 3             LENGTH OF SEQUENCER TABLE 
P.HEC     = 4             HARDWARE ERROR COUNT
 C.HEC    = 4             HARDWARE ERROR COUNT
  
P.EST     = 5             EST POINTER 
 C.EST    = 0             EST FWA POINTER 
P.CST     = 5             CHANNEL STATUS TABLE POINTER
 C.CST    = 2             FWA OF CHANNEL STATUS TABLE 
 C.CSTL   = 3             LWA+1 OF CHANNEL STATUS TABLE 
P.PCOM    = 5             ADDRESS OF PP COMMUNICATION AREA
 C.PCOM   = 4             ADDRESS OF PP1 COMMUNICATION AREA 
  
P.PFM1    = 6             PERMANENT FILE POINTER WORD (WORD 1)
 C.SDTL   = 0             NUMBER OF SUBDIRECTORIES
 C.APFL   = 1             MAXIMUM NUMBER OF APF ENTRIES 
 C.PFACT  = 2             PERMANENT FILE ACTIVITY COUNT 
 C.APF    = 3             LOWER 12 BITS OF 18 BIT FWA OF APF
 C.PFMCH  = 4             PFC FULL FLAG 
 S.PFCIOQ = 11            PFC FULL FLAG OFFSET
  
P.DSMO    = 7             DEFAULT SET MST ORDINAL 
 C.DSMO   = 0             DEFAULT SET MST ORDINAL 
P.DDT     = 7             DDT POINTER WORD
 C.NDDT   = 1             NUMBER OF DDT ENTRIES 
 S.FDDT   = 6             SHIFT FOR NO OF FIXED DDT ENTRIES 
 C.DDT    = 2             FWA/8 OF DDT
P.MST     = 7             MST POINTER WORD
 C.NMST   = 3             NUMBER OF MST ENTRIES 
 C.MST    = 4             FWA/8 OF MST
  
P.INS     = 10B           INSTALLATION AREA POINTER 
  
P.EIRPR   = 11B           ECS POINTERS
 C.LEPAGE = 0             LWA+1  OF ECS EMPTY PAGE STACK TABLE
 C.ECSPRM = 2             FWA OF ECS PARAMETER TABLE (T.ECSPRM) 
  
P.ELBST   = 12B           ECS EMPTY PAGE STACK POINTER
  
P.DAT     =      13B         DEVICE ACTIVITY TABLE POINTER
 C.DAT    = 0             FWA OF DEVICE ACTIVITY TABLE
 C.DATL   = 1             LENGTH OF DEVICE ACTIVITY TABLE 
P.RQS     =      13B         REQUEST STACK AREA POINTER 
 C.RQSFS  = 2             FWA/2 OF REQUEST STACK TABLE
P.DST     =      13B         DEVICE STATUS TABLE POINTER
 C.DST    =      4           FWA/8 OF DEVICE STATUS TABLE 
  
P.TAPES   = 14B           TAPES TABLE POINTER/LENGTH
 C.TAPES  = 0             FWA OF TAPES TABLE
P.DPT     = 14B           DEVICE POOL TABLE POINTER 
 C.DPT    = 4             FWA/8 OF DEVICE POOL TABLE (T.DPT)
  
P.STG     = 15B           TAPE SCHEDULING POINTER WORD
 C.STG    = 4             FWA OF TAPE STAGING TABLE (T.STG) 
P.URT     = 15B           UNIT RECOVERY TABLE POINTER WORD
 C.URT    = 0             FWA UNIT RECOVERY TABLE ADDRESS/8 
 C.URTL   = 1             LENGTH OF URT 
  
P.INT     = 16B           INTERCOM COMMUNICATION AREA POINTER 
 C.INT    = 0             INTERCOM UP FLAG
 C.IFL    = 0             LWA+1/100 OF INTERCOM BUFFER AREA 
 C.ITABL  = 1             FWA OF INTERCOM MULTIPLEXOR TABLE 
 C.IBUFF  = 2             FWA OF INTERCOM BUFFER AREA 
 S.IRCVR  = 6             INTERCOM DEADSTART RECOVERY FLAG
 C.ILTABL = 4             LENGTH OF INTERCOM TABLE
  
*         THE FOLLOWING SIX SYMBOL DEFINITIONS ARE FOR SCOPE 3.3
*         ASSEMBLY OF ROUTINE PFD - THEY ARE NOT OTHERWISE USED.
  
P.PFM3    = 17B           PERMANENT FILE POINTER WORD  (WORD 3) 
 C.RBTC1  = 0             THESE BYTES IN P.PFM3 CONTAIN 
 C.RBTC2  = 1              THE CURRENT END-OF-INFORMATION 
 C.RBTC3  = 2               POINTER FOR THE RBTC USED 
 C.RBTCL  = 3             NUMBER OF PRU/16 IN RBTC
 C.PFFNT  = 4             FWA OF PERMANENT FILE FNT AREA
  
P.MFL     = 17B           MAXIMUM JOB FIELD LENGTH POINTER
 C.MFL    = 4             MAXIMUM JOB FIELD LENGTH / 100B 
  
T.JDATE   = 20B           JULIAN DATE 
  
P.NRBR    = 21B           RBR AND REQ-STACK SIZES 
 C.NRQS   = 0             NUMBER OF REQUEST STACK ENTRIES 
 C.NRBR   = 1             NUMBER OF RBR HEADERS 
 C.LRBR   = 3             TOTAL SIZE OF RBR AREA
  
T.BJDT    = 22B           BINARY JDATE + TIME (YYYD DD00 0000 00HH MMSS)
  
P.TAF     = 23B           DISK SPACE THRESHOLD FLAGS
 C.TAF    = 0 
P.SXDT    = 23B           1SX COMMUNICATION POINTER 
P.EVICT   = 23B           EVICT-TRACE POINTER 
P.RMSBUF  = 23B           RMS ERROR BUFFER WORD 
 C.RMSBUF = 3             FWA OF T.RMSBUF 
P.SSCT    = 23B                    SUB-SYSTEM CONTROL TABLE 
 C.SSCT   = 2 
P.ELST    = 23B                    ERROR LOGGING STATUS TABLE POINTER 
 C.ELST   = 1                      FWA/8 OF ELST
  
*         NOTE -- THE FOLLOWING WORD IS W.CPFL FOR CONTROL POINT ZERO 
*         AS SUCH IT IS REFERENCED BY R.RAFL IN PPRES FOR PP ROUTINES 
*         AT CONTROL POINT ZERO - HANDLE ACCORDINGLY
  
P.CMFL    = 24B           MACHINE FL/100B 
  
T.CPJOBN  = 26B           JOB SEQ NO. AND COUNT 
P.SPDROP  = 26B           STACK PROCESSOR DROP FLAG 
 C.SPDROP = 1             STACK PROCESSOR DROP FLAG 
P.PJT     = 26B           PERIPHERAL JOB TABLE POINTER
 C.PJTFWA = 3             FWA OF PERIPHERAL JOB DELAY STACK PARAM 
 C.PJTLWA = 4             LWA OF PJT
  
T.EPBL    = 27B           ECS PAGE AND BUFFER LENGTH
 C.ECSPL  = 0             LEFT BYTE OF PAGE LENGTH IN T.EPBL
 C.ECSBL  = 2             LEFT BYTE OF BUFFER LENGTH IN T.EPBL
P.ECSFL   = 27B           MACHINE ECS FL
  
T.CLK     = 30B           CLOCK LOCATION
  
T.DATE    = 31B           TODAYS DATE 
T.SLAB1   = 31B           LOCATIONS 
T.SLAB2   = T.SLAB1+1      CONTAINING SYSTEM
T.SLAB3   = T.SLAB2+1       LABEL DISPLAYED 
T.SLAB4   = T.SLAB3+1        ON TOP 
T.SLAB5   = T.SLAB4+1         LINE OF 
T.SLAB6   = T.SLAB5+1          LEFT SCOPE 
  
T.MSP     = 37B           MONITOR STEP FLAG 
  
T.MSC     = 40B           TIME SINCE DEADSTART, ALSO COUNT OF PP JOB
*                         QUEUE ENTRIES 
  
P.CHRQ    = 41B           HARDWARE CHANNEL REQUEST BYTES
 C.CHRQ   = 3             HARDWARE CHANNELS BITS (CHANNELS 0 - 13B) 
 C.CHRQ2  = 4             HARDWARE CHANNEL BITS (CHANNELS 20 - 33B) 
  
P.PPLIB   = 42B           PP LIBRARY PROGRAM NAME TABLE POINTER 
  
P.VRNBUF  = 43B           POINTER TO T.VRNBUF 
 C.VRNFWA = 0             FWA OF VRNBUF/10B (T.VRNBUF)
 C.VRNFIN = 1             RA WITHIN VRNBUF
 C.STGFLG = 2             TAPE SCHEDULING OPERATOR OPTION ON/OFF
 C.VRNINT = 3             VRN BUFFER INTERLOCK
 C.VRNFUL = 4             VRN BUFFER FULL FLAG
  
T.CPSTA   = 44B           CPU A CONTROL WORD
 C.CPUOFF = 3             FLAG BYTE TO OFF CPU-A OR CPU-B 
  
T.CPSTB   = 45B           CPU B CONTROL WORD
  
T.MXNCTL  = 46B           MXN CONTROL WORD
  
T.PPID    = 47B           PP IDENTIFICATION FOR MXN TO CPMTR
  
T.PPIP    = 50B           PPMTR FUNCTION POINTER
  
T.CMPID   = 51B           COMPUTER ID FOR ECS PARTITIONING
  
T.ENGR    = 52B              ENGINEERING MODE WORD
 C.ENGR   = 3                ENGINEERING MODE BYTE
  
T.2XPP    =  52B             2XPP BIT FROM STATUS AND CONTROL REG.
 C.2XPP   =  4               2XPP BYTE
 S.2XPP   =  0               TEST BIT 0 = 1X SPEED, 1 = 2X
  
T.SPF     = 53B           STATION CONTROL WORD
 C.SNTLWA = 2             LENGTH OF SPOT NAME TABLE 
 C.SNTFWA = 3             FWA OF SPOT NAME TABLE
 C.CPN    = 4             STATION CONTROL POINT NUMBER BYTE 
  
T.SIDLE   = 54B           SYSTEM IDLE CONTROL WORD
 C.SIFLG  = 0             SYSTEM IDLE FLAGS 
 S.SICPOF = 59            CPU TURNED OFF
 S.SITDS  = 58            TDS CALLED TO PROCESS ZZZZCKP 
 S.SICPM  = 57            SYSIDLE INITIATED BY CPMTR
 S.SISR   = 55            OUTSTANDING STACK REQUESTS (2 BITS) 
 S.SISTEP = 54            SYSTEM STEPPED BY SYSIDLE 
 S.SICMPL = 48            CHECKPOINT COMPLETE FLAG
 C.SIFST  = 1             ZZZZCKP FST(1) ADDRESS
 C.SIDS   = 2             SYSTEM IDLE PSEUDO-PPOR ADDRESS 
 C.SIST   = 4             SYSTEM IDLE STATUS BYTE 
  
T.RCHN    = 55B           FIRST RBT WORD PAIR TO BE RELEASED
  
T.UAS     = 56B           UNASSIGNED STORAGE LENGTH 
  
T.CPT1    = 56B           CPU ACTIVITY STATUS 
T.STATCP  = 56B           CURRENT STATUS OF CPU 
  
P.EPAGE   = 57B           ECS EMPTY PAGE STACK TABLE POINTER
 C.EPAGE  = 1             FWA OF ECS EMPTY PAGE STACK TABLE  (T.EPAGE)
T.ECSPAR  = 57B           ECS MOVE, PARITY ERROR INDICATOR
  
P.SCH     = 60B           SCHEDULER POINTER WORD
 C.LEJDT  = 0             LENGTH OF ENTRY IN JDT
 C.SRS    = 1             FWA/10B SCHEDULER EXCHANGE PACKAGE
 C.JCA    = 2             FWA/10B OF JOB CONTROL AREA  (T.SCHJCA) 
 C.LJDT   = 3             LENGTH OF JOB DESCRIPTOR TABLE
 C.JDT    = 4             FWA/10B OF JOB DESCRIPTOR TABLE  (T.SCHJDT) 
  
P.STR     = 61B           SCHEDULER/MTR COMMUNICATION WORD
 C.NFL    = 0             NEEDED FL (SCH) 
 C.JQP    = 1             JOB QUEUE PRIORITY
 C.RFL    = 2             RESERVED FL (SCH) 
 C.RCL    = 3             SCHEDULER RECALL PERIOD (NO. OF MTR CYCLES) 
 C.STMF   = 3             (SCH) 
 C.AFL    = 4             AVAILABLE FL(SCH) 
  
T.SCHCP   = 62B           SCHEDULER INTERLOCK WORD
  
T.SCHPP   = 63B           PP INTERLOCK WORD 
  
T.176     = 64B           CYBER 176 PARAM WORD
 C.176TY  = 0             TYPE FIELD(CANT SPAN A BYTE BOUNDRY)
 S.176CF  = 6             CYBER 176 FLAG(SET INDICATES CYBER 176) 
 S.176LO  = 7             LOWER BIT OF TYPE FIELD 
 S.176UP  = 11B           UPPER BIT OF TYPE FIELD 
  
P.MAIL    = 65B           MESSAGE MAIL BOX
 C.MAILF  = 0             FWA/10B OF MAILBOX  (T.MAIL)
 C.MAILL  = 1             LENGTH OF MAILBOX 
  
P.SWPECS  = 65B           SWAP TO ECS FLAGS 
 C.SWPECS = 2             ECS SWAP FLAGS
P.SCHPT   = 65B           POINTER TO CMR STATISTICS TABLE 
 C.SCHPT  = 3             FWA/10B OF CMR STATISTICS TABLE   (T.SCHPT) 
  
P.IDT     = 66B           ID TABLE POINTER
P.LNK     = 66B           ECS LINK DRIVER CONTROL 
 C.ECSLNK = 0             ECS LINK RESTART TIME CYCLE CONTROL 
 C.LIDT   = 3             LENGTH OF IDT 
 C.IDT    = 4             BYTE CONTAINING T.IDT/10B 
  
P.AREA    = 67B           AREA TABLE POINTER
P.ENTRY   = 67B           ENTRY TABLE POINTER 
  
P.ZERO    = 70B           CM WORD CONTAINING ALL ZEROES 
P.FDD     = 77B           SYSTEM DYNAMIC DUMP FLAGS/FNT POINTER 
 C.FDDCT  = 0             COUNT OF DUMPS ON SYSTEM DYNAMIC DUMP FILE
 C.FDDLOK = 1             DYNAMIC DUMP RECALL FLAG
 S.FDDLOK = 0             SET IF A PROGRAM IS WAITING FOR 1DD TO FINISH 
 C.FDD    = 2             POINTER TO SYSTEM DYNAMIC DUMP FNT
P.PPOVL   = 77B           PP RESIDENT SEGMENT TABLE POINTER 
 C.PPOVL  = 3            FWA OF PP RESIDENT SEGMENT TABLE 
CST       SPACE  5,10 
**        CHANNEL STATUS TABLE SYMBOLS   (T.CST)
          SPACE  3
 C.CSTCN  = 1             CST CHANNEL NUMBER
 C.CSTCB  = 2             CST MMTC CONVERT TABLE
 S.CSNC   = 2             CST BIT FOR NO I/O CHARGE 
  
CH.FST    = 14B           FILE STATUS TABLE PSEUDO CHANNEL
CH.FNT    = 15B           FILE NAME TABLE PSEUDO CHANNEL
CH.DDT    = 16B           DISMOUNTABLE DEVICE TABLE PSEUDO CHANNEL
CH.RBT    = 17B           RECORD BLOCK TABLE PSEUDO CHANNEL 
CH.CPA    = 34B           CONTROL POINT INTERLOCK PSEUDO CHANNEL
CH.PFM    = 35B           PFM PSEUDO CHANNEL
CH.APF    = 35B           ATTACHED PERM FILE TABLE PSEUDO CHANNEL 
CH.INS    = 36B           INSTALLATION PSEUDO CHANNEL 
CH.MMST   = 37B           MOUNTED SET TABLE PSEUDO CHANNEL
CH.MST    = 37B           MOUNTED SET TABLE PSEUDO CHANNEL
CH.EST    = 40B           EQUIPMENT STATUS TABLE PSEUDO CHANNEL 
CH.TAPE   = 40B           TAPES TABLE PSEUDO CHANNEL (=CH.EST)
CH.ICOM   = 41B           INTERCOM/OPSYS INTERLOCK PSEUDO CHANNEL 
CH.IEMBF  = 42B           INTERCOM LOW SPEED EMPTY CHAIN PSEUDO CHANNEL 
CH.IUSER  = 43B           INTERCOM LOW SPEED USER TABLES PSEUDO CHANNEL 
CH.SCH    = 44B           SCHEDULER PSEUDO CHANNEL
CH.IHUSR  = 45B           INTERCOM HIGH SPEED USER TABLES PSUEDO CHANNEL
CH.IHSMT  = 46B           INTERCOM HIGH SPEED EMPTY CHAIN PSEUDO CHANNEL
PPSTAT    SPACE  5,10 
**        PP STATUS WORDS       (T.PPS1)
          SPACE  3
T.PPS1    = 154B          PP STATUS WORD
 C.PPFAF  = 2             FIELD ACCESS FLAG 
CPAREA    SPACE  5,10 
**        CONTROL POINT AREA    (T.CPA1)
          SPACE  3
T.CPA1    = 200B          ADDRESS OF CONTROL POINT ONE
  
W.CPUST   = 20B           CPU STATUS WORD 
 C.CPSTAT = 0             CONTROL POINT STATUS
 S.CPUSTZ = 11D           SUSPENDED BY MTR BECAUSE OF EXCESSIVE ACTIVITY
 S.CPUSTP = 10D           SUSPENDED FOR CHECKPOINT
 S.CPUSTS = 9D            SUSPENDED FOR SWAP OUT
 S.CPUSTD = 8D            CURRENTLY ASSIGNED - CPU B
 S.CPUSTC = 7             CURRENTLY ASSIGNED - CPU A
 S.CPUSTR = 6             REAL TIME STATUS
 S.CPUSTW = 5             WAITING FOR CPU (UNLESS SUSPENDED)
 S.CPUSTX = 4             RECALL STATUS 
 S.CPUSTB = 3             RUN IN CPU B ONLY 
 S.CPUSTA = 2             RUN IN CPU A ONLY 
 S.CPUSTY = 1             AUTOMATIC RECALL STATUS 
 S.CPUSTM = 0             SUSPEND FOR STORAGE MOVE
W.CPSLIC  = 20B           MAX CPU SLICE ALLOTTED
 C.CPSLIC = 1             MAX CPU TIME SLICE ALLOTTED JOB 
W.CPLINK  = 20B           ACTIVE CONTROL POINT LINK WORD
 C.CPLINK = 3             ACTIVE CONTROL POINT TWO-WAY LINK 
 C.CPUPRI = 3             CPU PRIORITY
  
W.CPTIME  = 21B           CPU A TOTAL TIME ACCRUED FOR JOB
 C.CPUQS  = 0             CP QUANTUM SECS 
 C.CPUQMS = 1             CP QUANTUM MSECS
 C.CPUAS  = 2             CPUA TIME SECS
  
W.CPTIMB  = 22B           CPU B TOTAL TIME ACCRUED FOR JOB
 C.CPUBS  = 2             CPUB TIME SECS
  
W.CPPTM   = 23B           TOTAL PPU TIME ACCRUED FOR JOB
 C.CPPQS  = 0             PP QUANTUM SECS 
 C.CPPQMS = 1             PP QUANTUM MSECS
 C.CPPTS  = 2             PP TIME SECONDS 
W.PPTIME  = 23B           TOTAL PP TIME ACCRUED FOR JOB 
  
W.CPEF    = 24B           ERROR FIELD 
  
 C.CPMEMO = 0             ERROR MEMO
 F.ERMEMO = -77B          ENTER MEMO MODE 
 F.ERTMM  = -0            TERMINATE MEMO MODE 
  
 C.CPEF   = 1             ERROR FLAG
 F.ERTL   = 1             ERROR FLAG FOR CP TIME LIMIT ABORT
 F.ERAR   = 2             ERROR FLAG FOR ARITHMETIC ERROR 
 F.ERPP   = 3             ERROR FLAG FOR PP ABORT 
 F.ERCP   = 4             ERROR FLAG FOR CP ABORT 
 F.ERPCE  = 5             ERROR FLAG FOR PP CALL ERROR ABORT
 F.EROD   = 6             ERROR FLAG SET AFTER DROP TYPE-IN 
 F.ERK    = 7             ERROR FLAG SET AFTER N.KILL TYPE-IN 
 F.ERRN   = 10B           ERROR FLAG SET AFTER N.RERUN TYPE-IN
 F.ERCC   = 11B           ERROR FLAG FOR CONTROL CARD ERROR 
 F.EREX   = 11B           ERROR FLAG FOR CONTROL CARD ERROR 
 F.ERECP  = 12B           ERROR FLAG FOR PERMANENT PARITY IN ECS
 F.ERJC   = 13B           ERROR FLAG FOR JOB CARD ERROR 
 F.ERPA   = 14B           ERROR FLAG FOR PRE-ABORTED JOB
 F.ERRCL  = 15B           ERROR FLAG FOR BAD PP CALL (AUTO-REC SET) 
 F.ERHANG = 16B           ERROR FLAG FOR JOB HUNG IN AUTO RECALL
 F.ERMSL  = 17B           ERROR FLAG FOR MASS STOR. EXCEEDED
 F.EROVL  = 20B           ERROR FLAG FOR PP OVERLAY NOT FOUND 
 F.ERIOL  = 21B           ERROR FLAG FOR I/O TIME LIMIT 
 F.ERRMS  = 22B           EEROR FLAG FOR DAYFILE LOST ON IDLED DEVICE 
 F.ERTI   = 40B           ERROR FLAG FOR TERMINAL INTERRUPT 
 F.ERPARF = 61B           ERROR FLAG FOR SWAPIN PARITY ERROR
 C.CPSM   = 2             STORAGE MOVE FLAG 
 C.CPRA   = 3             (RA)/100B OF CONTROL POINT
W.CPFL    = 24B           FIELD LENGTH
 C.CPFL   = 4             CM FL/100B
W.CPSTAT  = 24B           CP STATUS WORD
  
W.CPJNAM  = 25B           JOB NAME
 C.CPJNAM = 0             JOB NAME (7 CHARACTERS) 
  
W.CPRPV   = 26B           REPRIEVE WORD 
 C.CPRPV  = 0             REPRIEVE FUNCTION VALUE 
 C.CPRPA  = 1             REPRIEVE FUNCTION ADDRESS (REL TO RA) 
W.CPCC    = 26B           NEXT CONTROL STATEMENT POINTER
 C.CPNFL  = 3             JOB NOMINAL FL/100B 
 C.CPNCSP = 4             POINTER TO NEXT CONTROL STATEMENT 
  
W.CPECS   = 27B           ECS RA/FL 
 C.CPECRA = 3             ECS DIRECT ACCESS RA/1000B
 C.CPECFL = 4             ECS DIRECT ACCESS FIELD LENGTH/1000B
  
W.CPDFM   = 30B           DAYFILE MESSAGE ON B DISPLAY
  
W.CPJCP   = 40B           JOB CARD PARAMETERS 
W.CPTIML  = 40B           TIME LIMIT
 C.CPTIML = 0             CURRENT TIME LIMIT (15 BITS)
W.CPIOL   = 40B           I/O TIME LIMIT
 C.CPIOL  = 1             I/O TIME LIMIT
W.CPPRI   = 40B           PRIORITY
 C.CPRPRI = 2             RERUN PRIORITY
 C.CPPRI  = 2             CLASS QUANTUM FOR THIS JOB
 C.CPECSI = 3             ECS FIELD LENGTH IF JOB IS RERUN
 C.CPFLI  = 4             CM FL IF JOB IS RERUN 
  
W.CPSWP   = 41B           SWAPPER WORD
 C.CPQNT  = 0             SCHEDULER QUANTUM (ACCRUED CP/PP TIME)
W.CPINT   = 41B           INTERCOM USER TABLE ADDRESS 
 C.CPUTA  = 2             SCHEDULER USER TABLE ADDRESS
 C.CPEVNT = 4             SWAPPER EVENT BYTE
 S.CPEVNT = 6             SWAPPER EVENT BIT 
 C.CPORG  = 4             SCHEDULER JOB ORIGIN
  
W.CPSCH   = 42B           SCHEDULER WORD
W.CPRO    = 42B           ROLLOUT FLAG WORD 
 C.CPFLG  = 0             SWAPPER FLAG BYTE 
 S.CPSWC  = 73B           SWAPOUT COMPLETE
 S.CPSOP  = 72B           SWAPOUT IN PROGRESS 
 S.CPSIP  = 71B           SWAP IN IN PROGRESS 
 S.CPROP  = 70B           ROLLOUT IN PROGRESS 
 S.CPRFL  = 67B           STORAGE REQUEST IN PROGRESS 
 S.CPCLR  = 66B           CONTROL POINT CLEAR REQUEST 
 S.CPEOJ  = 65B           END OF JOB
 S.CPFFL  = 64B           FNTS IN POSITIVE FL FLAG
 S.CP1IB  = 63B           1IB AT CONTROL POINT FLAG 
 C.CPJQP  = 1             SCHEDULER JOB QUEUE PRIORITY
 C.CPRFL  = 2             SCHEDULER RESERVED FL 
 C.CPJDA  = 3             JOB DESCRIPTOR ADDRESS
  
W.CPLOF   = 43B           LIST OF FILES ADDRESS 
 C.CPLOF  = 3             LIST OF FILES ADDRESS (BITS 17-0) 
W.SSW     = 43B           SENSE SWITCH SETTINGS 
W.CPSSW   = 43B           SENSE SWITCHES
 C.CPSSW  = 3             SENSE SWITCH BYTE (BITS 23-18)
  
W.CPCCL1  = 44B           CYBER CONTROL LANGUAGE WORD 1 
 C.CPCLEG = 0             CYBER CONTROL LANGUAGE ERROR FLAG (EFG) 
 C.CPCLRG = 0             CYBER CONTROL LANGUAGE REGISTER (R1G) 
 C.CPCLCD = 2             CYBER CONTROL LANGUAGE DATA BYTE (CCL DATA) 
W.CPITI   = 44B           INTERRUPTED TERMINAL INPUT WORD 
 C.CPITI  = 3             INTERRUPTED TERMINAL INPUT FET ADDRESS
  
W.CPCSF   = 45B           CORE SECONDS FACTOR,FLOATING POINT
  
W.CPACS   = 46B           ACCUMULATED CORE SECONDS
  
W.CPACSE  = 47B           ACCUMULATED ECS CORE SECONDS
  
W.CPFACT  = 50B           PERM. FILE ACCOUNTING PARAMETER 
  
W.CPFST   = 51B           FST ENTRY FOR JOB INPUT FILE
W.FSTCC   = 51B           FST ENTRY FOR JOB INPUT FILE
  
W.CPID    = 52B           STATION IDENTIFICATION WORD 
 C.CPDID  = 0             DESTINATION ID (BITS 59-42) 
 C.CPSID  = 1             SOURCE ID (BITS 41-24)
W.CPCKP   = 52B           CHECKPOINT PARAMETER WORD 
 C.CPCON  = 3             CONSOLE CHECKPOINT FLAG 
 C.CPCKP  = 4             NUMBER OF CHECKPOINTS TAKEN 
  
W.CPOAE   = 53B           OPER ASSIGNMENTS
 C.CPREQ  = 0             USED BY DSD TO CALL REQ 
S.RDY     = 1                      SET BY DSD ON READY RESPONSE 
S.NO      = 0                      SET BY DSD ON NO RESPONSE
 C.CPOAE  = 4             EST EQUIP ORD ASSIGNED BY OPERATOR
  
W.CPVRNO  = 54B           PRIVATE PACK VISUAL REEL NO STORAGE 
  
W.CPLDR1  = 55B           LOADER WORD 
 C.CPLP   = 0             SYSTEM ROUTINE PROTECTION BYTE
 C.CPLM   = 0             MAP BITS BYTE 
 C.CPLR   = 0             REDUCE FLAG BYTE
 C.CPLW   = 0             WHICH LOADER FLAG BYTE
 C.CPLT   = 0             DEBUGGING AIDS (TRAP) FLAG
 S.CPLV   = 11D           BIT FOR MAP VALIDITY                           LDR0153
 S.CPLM   = 6             MAP BITS OFFSET 
 S.CPLR   = 5             REDUCE FLAG OFFSET
 S.CPLT   = 4             DEBUGGING AIDS (TRAP) FLAG OFFSET 
 S.CPLP   = 1             SYSTEM ROUTINE PROTECTION OFFSET
  
W.CPLDR2  = 56B           GLOBAL LIBRARY SET INFORMATION (WORD 1) 
  
W.CPLDR3  = 57B           GLOBAL LIBRARY SET INFORMATION (WORD 2) 
  
W.CPAR    = 60B           AUTO RECALL REGISTER
 C.CPAR   = 3             AUTO RECALL ADDRESS 
  
W.CPSTG   = 61B           TAPE STAGING PARAMETERS 
W.CPTAPE  = 61B           AVAILABLE TAPE STATUS 
 C.CPTMT  = 0             7 TRACK TAPES 
 C.CPTNT  = 1             9 TRACK TAPES 
 C.CPTHD  = 1             NT 800 BPI TAPE REQUEST COUNT 
 C.CPTPE  = 2             NT 1600 BPI TAPE REQUEST COUNT
 C.CPTGE  = 3             NT 6250 BPI TAPE REQUEST COUNT
  
W.CPIOQ   = 62B           PFC POINTER FOR INPUT FILE
 C.CPIOQ  = 2             PFC POINTER FOR INPUT FILE
W.CPDFMC  = 62B           DAYFILE  MESSAGE COUNT
 C.CPDFMC = 0             DAYFILE MESSAGE COUNT BYTE
W.CPDSMO  = 62B           CONTROL PT. DEFAULT SET MST ORDINAL 
 C.CPDSMO = 1             CONTROL PT. DEFAULT SET MST ORDINAL 
W.CPDPV   = 62B           DEPENDENCY COUNT ID 
 C.CPDPV  = 4             DEPENDENCY IDENTIFIER 
  
W.CPFLAG  = 63B           CONTROL POINT FLAGS 
 C.CPFLAG = 0             GENERAL FLAG BYTE JANUS/NO RERUN
 S.MSL    = 6             MS LIMIT PREVIOUSLY SET 
 S.CPL    = 5             CP LIMIT PREVIOUSLY SET 
 S.IOL    = 4             IO LIMIT PREVIOUSLY SET 
 S.CPNFNT = 3             1AJ SHOULD SKIP FNT SEARCH
 S.CPRK   = 2             KILL PREVIOUSLY REPRIEVED 
 S.CPLDAF = 0             DIRECTORY ACCESS FLAG OFFSET
 S.CPXTS  = 7             LOOK FOR EXIT(S) CARD 
 S.CPDMPX = 8             GIVE NO DMPX
 S.CPCMM  = 9             CMM ACTIVE BIT (1 = ACTIVE) 
 C.CPRERN = 3             RERUN PRIORITY
W.CPIRB   = 63B           INTERCOM USER ID
 C.CPRBID = 3             REMOTE BATCH ID FIELD (INTERCOM)
W.CPOUT   = 63B           OUTPUT CTL PT INDICATOR WORD
 C.CPOUT  = 4             OUTPUT (JANUS) INDICATOR FLAG 
W.CPERT   = 63B           INTERNAL FLAGS USED BY JOB PROCESSING 
 C.CPFST  = 2             FWA OF FST ENTRY OF INPUT FILE
W.CPFP    = 63B           JOB PROCESSING FLAGS
 C.CPFP   = 4             INTERCOM + EXPORT/IMPORT BITS 
 S.CPE    = 11D           E/I BIT (BYTE C.CPFP) 
 S.CPR    = 10D           INTERCOM BIT OFFSET 
 S.CPJ    = 9D            JANUS BIT FOR DSD 
 S.CPJFL  = 8D            JOB CARD FL ASSIGNED BIT
 S.CPDP   = 6             PRIVATE PACK BIT (BYTE C.CPFP)
 S.CPX    = 5             EXIT BIT OFFSET 
 S.CPN    = 4             CHECKPOINT BIT OFFSET 
 S.CPS    = 3             SEQUENCER BIT OFFSET
 S.CPA    = 2             RERUN BIT (BYTE C.CPFP) 
 S.CPG    = 1             ABORT BIT 
 S.CPF    = 0             REPROC CONTROL CARD BIT (BYTE C.CPFP) 
W.IACES   = 63B           ACCESS LEVEL WORD 
 C.IACES  = 1             ACCESS LEVEL BYTE FOR LIBRARY LOAD
  
W.CPMSLM  = 64B           MASS STORAGE LIMITS 
 C.CPMSLM = 0             MASS STORAGE LIMIT IN PRUS
 C.CPMSMX = 2             MASS STORAGE MAXIMUM ACCUMULATED PRUS 
 C.CPMSRC = 3             RUNNING PRU COUNT 
  
W.CHTIM   = 65B           I/O TIME ON CHANNEL 
W.CPCCL2  = 65B           CYBER CONTROL LANGUAGE WORD 2 
 C.CPCLEF = 0             CYBER CONTROL LANGUAGE ERROR FLAG (EF)
 C.CPCLR3 = 0             CYBER CONTROL LANGUAGE REGISTER (R3)
  
W.CPMSI   = 66B           INTERCOM PP RECALL REGISTER 
 C.CPSITM = 0             SWAP IN TIME
W.CPCCL3  = 66B           CYBER CONTROL LANGUAGE WORD 3 
 C.CPCLR2 = 2             CYBER CONTROL LANGUAGE REGISTER (R2)
 C.CPCLR1 = 3             CYBER CONTROL LANGUAGE REGISTER (R1)
  
W.CPSR    = 67B           OUTSTANDING STACK REQUESTS
 C.CPSCPT = 0             COUNT OF ALL CONNECTIONS TO THIS SYSTEM CTL PT
 C.CPSR   = 1             NUMBER OF STACK REQUESTS
 C.CPSCPL = 2             SCP LONG TERM CONNECTION COUNT
 C.CPSCPA = 3             SCP WAIT RESPONSE CONNECTION COUNT
 C.CPESR  = 4             ECS STACK REQUESTS
  
W.CPCAF   = 70B           START OF CONTROL STATEMENT BUFFER 
  
W.CPCAL   = 167B          END OF CONTROL STATEMENT BUFFER 
  
W.CPINS   = 170B          INSTALLATION AREA 
SYSXPA    SPACE  5,10 
**        SYSTEM EXCHANGE PACKAGE AREA  (SYSXPA) SYMBOLS
          SPACE  3
W.XPIR    = 24B           EXCHANGE PACKAGE INPUT REGISTER 
 S.NXJSR  = 42B           STORAGE REQUEST FLAG
W.XPOR    = 25B           EXCHANGE PACKAGE OUTPUT REGISTER
W.XPRS    = 26B           REQUEST STACK FOR SCHEDULER XP
PPCOMM    SPACE  5,10 
**        PP COMMUNICATIONS AREA  (PPCOMM) SYMBOLS
          SPACE  3
W.PPIR    = 0             INPUT REGISTER
 C.CPNUM  = 1             CONTROL POINT NO. OF ORIGINATING REQUEST
  
W.PPOR    = 1             PP OUTPUT REGISTER
  
W.PPMES1  = 2             RELATIVE
W.PPMES2  = 3              WORD IN PP 
W.PPMES3  = 4               COMMUNICATION 
W.PPMES4  = 5                AREA CONTAINING
 S.EVJST  = 57B           POSITION OF THE JOB STATUS MODIFIED 
*                         FLAG IN WORD 4 OF THE PP MSG BUFFER 
  
W.RWPPCW  = 2             RELAT. POS. OF READP/WRITEP COMM WORD 
 C.RWPPCF = 0             PHASE CONTROL FLAG
 C.RWPPWT = 1             TOTAL NO. WORDS XMITTED DURING PHASE 3
 C.RWPPLW = 2             LWA+1 OF DATA TRANSMITTED 
 C.RWPPCC = 3             CHANNEL NUMBER USED IN DATA XMISSION
 C.RWPPST = 3             OPERATION STATUS AVAILABLE IN PHASE 4 
 C.RWPPWC = 4             WORD COUNT FOR XMISSION DURING PHASE 3
  
W.PPMES5  = 6             PP MESSAGE
W.PPMES6  = 7              BUFFER 
PPPGM     EJECT 
          SPACE  3
**        OPSYS  PP ROUTINE NAMES 
          SPACE  3
          SPACE  3
*         THE OV. SYMBOLS THAT ARE PRECEDED BY AN * ARE VALID PP
*         ROUTINE NAMES. IT WAS DECIDED NOT TO GENERATE TEXT
*         SYMBOLS FOR THEM SO THAT THE SIZE OF THE TEXT WOULD NOT 
*         BE INCREASED. 
          SPACE  3
* OV.A    = 1RA*10000B
* OV.ACE  = 3RACE 
OV.ADS    = 3RADS         ADDSET FUNCTION 
OV.CEM    = 3RCEM 
OV.CIO    = 3RCIO 
OV.CKP    = 3RCKP 
OV.CLO    = 3RCLO 
* OV.CON  = 3RCON 
* OV.CY4  = 3RCY4 
OV.DIS    = 3RDIS 
* OV.DLM  = 3RDLM 
OV.DMP    = 3RDMP 
OV.DSM    = 3RDSM         DISMOUNT FUNCTION 
* OV.DSP  = 3RDSP 
* OV.EPF  = 3REPF 
* OV.HDS  = 3RHDS         HELP DEADSTART
* OV.JDP  = 3RJDP 
* OV.LBL  = 3RLBL 
* OV.LDL  = 3RLDL 
* OV.LDV  = 3RLDV 
* OV.LDW  = 3RLDW 
* OV.LOC  = 3RLOC 
* OV.LPF  = 3RLPF 
* OV.MDI  = 3RMDI 
* OV.MEM  = 3RMEM 
OV.MNT    = 3RMNT         MOUNT FUNCTION
OV.MSG    = 3RMSG 
OV.OPE    = 3ROPE 
OV.PFA    = 3RPFA 
OV.PFC    = 3RPFC 
* OV.PFD  = 3RPFD 
OV.PFE    = 3RPFE 
OV.PFM    = 3R1PF 
OV.PFP    = 3RPFP 
* OV.PFR  = 3RPFR 
* OV.PFS  = 3RPFS 
OV.QAF    EQU    3RQAF
OV.REQ    = 3RREQ 
OV.RPV    = 3RRPV 
* OV.RST  = 3RRST 
* OV.RWE  = 3RRWE 
* OV.SRB  = 3RSRB 
OV.SSC    = 3RSSC         SUB-SYSTEM CALL 
OV.SSF    = 3RSSF         SUB-SYSTEM FUNCTION 
* OV.STS  = 3RSTS 
* OV.TAT  = 3RTAT 
OV.TDS    = 3RTDS 
* OV.TPF  = 3RTPF 
* OV.TPT  = 3RTPT 
OV.VEJ    = 3RVEJ 
OV.VSN    = 3RVSN 
* OV.XDQ  = 3RXDQ 
OV.1AB    = 3R1AB 
OV.1AJ    = 3R1AJ 
OV.1BT    = 3R1BT 
OV.1CC    = 3R1CC 
OV.1CL    = 3R1CL 
* OV.1CR  = 3R1CR 
* OV.1CS  = 3R1CS 
* OV.1CT  = 3R1CT 
* OV.1C9  = 3R1C9 
OV.1DD    = 3R1DD 
OV.1DF    = 3R1DF 
OV.1DL    = 3R1DL 
OV.1DM    = 3R1DM 
* OV.1DU  = 3R1DU 
OV.1EJ    = 3R1EJ 
* OV.1EM  = 3R1EM 
* OV.1EV  = 3R1EV 
* OV.4EJ  = 3R4EJ 
OV.1FC    = 3R1FC 
OV.1GM    = 3R1GM 
OV.1IB    = 3R1IB 
OV.1IQ    = 3R1IQ 
OV.1IR    = 3R1IR 
OV.1IS    = 3R1IS 
OV.1IT    = 3R1IT 
OV.1IU    = 3R1IU 
OV.1LC    = 3R1LC                                                        F7090AK
* OV.1LT  = 3R1LT 
OV.1MF    = 3R1MF 
OV.1MH    = 3R1MH 
OV.1MM    = 3R1MM 
OV.1MT    = 3R1MT 
* OV.1NO  = 3R1NO 
OV.1NR    = 3R1NR 
OV.1NS    = 3R1NS 
OV.1NW    = 3R1NW 
* OV.1N2  = 3R1N2 
* OV.1N3  = 3R1N3 
OV.1OP    = 3R1OP 
OV.1PC    = 3R1PC 
OV.1PD    = 3R1PD 
OV.1PF    = 3R1PF 
OV.1PG    = 3R1PG 
OV.1PK    = 3R1PK 
OV.1PL    = 3R1PL 
* OV.1P1  = 3R1P1 
* OV.1P2  = 3R1P2 
* OV.1P3  = 3R1P3 
* OV.1P4  = 3R1P4 
OV.1QF    = 3R1QF 
OV.1RC    = 3R1RC 
OV.1RN    = 3R1RN 
OV.1RP    = 3R1RP 
OV.1RS    = 3R1RS 
OV.1RT    = 3R1RT 
* OV.1RV  = 3R1RV 
* OV.1R2  = 3R1R2 
* OV.1R3  = 3R1R3 
* OV.1R9  = 3R1R9 
OV.1SC    = 3R1SC 
OV.1SI    = 3R1SI 
OV.1SO    = 3R1SO 
OV.1SP    = 3R1SP 
OV.1SX    = 3R1SX 
OV.1S5    = 3R1S5 
OV.1TF    = 3R1TF 
OV.1TJ    = 3R1TJ 
OV.1TO    = 3R1TO 
* OV.1TR = 3R1TR
OV.1TS    = 3R1TS 
OV.1WI    = 3R1WI 
OV.1WS    = 3R1WS 
* OV.1W9  = 3R1W9 
* OV.2DB  = 3R2DB 
* OV.2DS  = 3R2DS         DSM OVERLAY - DMNT/RMNT PROCESSING
* OV.2D2  = 3R2D2 
* OV.2IA  = 3R2IA 
* OV.2IB  = 3R2IB 
* OV.2IC  = 3R2IC 
* OV.2ID  = 3R2ID 
* OV.2IL  = 3R2IL 
OV.2IS    = 3R2IS 
* OV.2IT  = 3R2IT                                                        F7090AK
* OV.2IX  = 3R2IX                                                        F7090AK
OV.2LP    = 3R2LP 
* OV.2PA  = 3R2PA 
OV.2PC    = 3R2PC 
* OV.2PK  = 3R2PK         1PK OVERLAY 
OV.2RC    = 3R2RC 
* OV.2RN  = 3R2RN 
OV.2RP    = 3R2RP 
OV.2SC    = 3R2SC 
* OV.2RV  = 3R2RV 
* OV.2R2  = 3R2R2 
* OV.2TA  = 3R2TA 
OV.2TB    = 3R2TB 
OV.2TC    = 3R2TC 
OV.2VJ    = 3R2VJ 
OV.3DO    = 3R3DO 
* OV.3IC  = 3R3IC 
* OV.3IE  = 3R3IE 
* OV.3IF  = 3R3IF 
* OV.3II  = 3R3II 
* OV.3IL  = 3R3IL 
* OV.3IM  = 3R3IM 
* OV.3IO  = 3R3IO 
* OV.3IP  = 3R3IP 
* OV.3IR  = 3R3IR 
* OV.3IV  = 3R3IV 
* OV.3IW  = 3R3IW 
* OV.3MN  = 3R3MN 
* OV.3PM  = 3R3PM 
OV.3PO    = 3R3PO 
* OV.3PS  = 3R3PS 
OV.3RQ    = 3R3RQ 
* OV.3R2  = 3R3R2 
* OV.3R3  = 3R3R3 
* OV.3SP  = 3R3SP 
* OV.3SQ  = 3R3SQ 
* OV.3SR  = 3R3SR 
* OV.3SS  = 3R3SS 
* OV.3ST  = 3R3ST 
* OV.3SU  = 3R3SU 
* OV.3SV  = 3R3SV 
* OV.3SW  = 3R3SW 
* OV.3SY  = 3R3SY 
OV.4DO    = 3R4DO 
OV.4ES    = 3R4ES 
OV.4LB    = 3R4LB 
OV.4LC    = 3R4LC 
* OV.4MN  = 3R4MN         MNT OVERLAY - MASTER DEVICE PROCESSING
* OV.4ST  = 3R4ST 
* OV.5MN  = 3R5MN         MNT OVERLAY - NORMAL TERMINATION PROCESSING 
OV.6BM    = 3R6BM 
OV.6BR    = 3R6BR 
OV.6BW    = 3R6BW 
* OV.6CR  = 3R6CR 
* OV.6CT  = 3R6CT 
* OV.6CW  = 3R6CW 
OV.6IM    = 3R6IM 
OV.6LC    = 3R6LC 
OV.6LM    = 3R6LM 
OV.6L1    = 3R6L1 
* OV.6L2  = 3R6L2 
* OV.6L3  = 3R6L3 
* OV.6L4  = 3R6L4 
* OV.6L5  = 3R6L5 
* OV.6L7  = 3R6L7 
* OV.6MD  = 3R6MD 
* OV.6MN  = 3R6MN 
* OV.6NO  = 3R6NO 
* OV.6PA  = 3R6PA         PFA OVERLAY - RESTORE CODE OVERWRITTEN BY 7PA 
* OV.6PC  = 3R6PC         PFC OVERLAY - RESTORE CODE OVERWRITTEN BY 7PC 
OV.6PD    = 3R6PD 
OV.6PM    = 3R6PM 
OV.6RD    = 3R6RD 
OV.6SI    = 3R6SI 
*OV.6T1   = 3R6T1 
*OV.6T2   = 3R6T2 
OV.6WM    = 3R6WM 
* OV.7AJ  = 3R7AJ                                                        SC44776
OV.7EC    = 3R7EC 
OV.7ID    = 3R7ID 
* OV.7GO  = 3R7GO 
* OV.7PA  = 3R7PA         PFA OVERLAY - READ PRIVATE SET MASTER LABEL 
* OV.7PC  = 3R7PC         PFC OVERLAY - READ PRIVATE SET MASTER LABEL 
OV.7RQ    = 3R7RQ 
* OV.7SN  = 3R7SN 
* OV.7T1  = 3R7T1 
* OV.7T2  = 3R7T2 
* OV.7W1  = 3R7W1 
* OV.7W2  = 3R7W2 
OV.8T3    = 3R8T3 
* OV.9GO  = 3R9GO 
          SPACE  3
**        INTERCOM PP ROUTINE NAMES 
          SPACE  3
* OV.FAD  = 3RFAD 
* OV.FNT  = 3RFNT 
* OV.GBJ  = 3RGBJ 
OV.GEJ    = 3RGEJ 
* OV.GES  = 3RGES 
* OV.IAP  = 3RIAP 
* OV.IPP  = 3RIPP 
* OV.IUP  = 3RIUP 
* OV.MAC  = 3RMAC 
OV.MES    = 3RMES 
* OV.MUJ  = 3RMUJ 
OV.TBL    = 3RTBL 
* OV.T76  = 3RT76 
* OV.0ZA  = 3R0ZA 
* OV.0ZD  = 3R0ZD 
* OV.0ZE  = 3R0ZE 
* OV.0ZF  = 3R0ZF 
* OV.0ZG  = 3R0ZG 
* OV.0ZJ  = 3R0ZJ 
* OV.0ZZ  = 3R0ZZ 
* OV.1BR  = 3R1BR 
* OV.1CI  = 3R1CI 
OV.1DS    = 3R1DS 
* OV.1GJ  = 3R1GJ 
* OV.1GR  = 3R1GR 
* OV.1GS  = 3R1GS 
OV.1ID    = 3R1ID 
* OV.1LX  = 3R1LX 
OV.1IM    = 3R1IM 
OV.1I1    = 3R1I1 
* OV.1PJ  = 3R1PJ 
* OV.1PT  = 3R1PT 
* OV.1QM  = 3R1QM 
* OV.1QP  = 3R1QP 
* OV.1WB  = 3R1WB 
* OV.1XG  = 3R1XG 
* OV.1XP  = 3R1XP 
* OV.1ZA  = 3R1ZA 
* OV.1ZD  = 3R1ZD 
* OV.1ZF  = 3R1ZF 
* OV.1ZG  = 3R1ZG 
* OV.1ZH  = 3R1ZH 
* OV.1ZJ  = 3R1ZJ 
* OV.1ZL  = 3R1ZL 
* OV.1ZZ  = 3R1ZZ 
* OV.2GJ  = 3R2GJ 
* OV.2ME  = 3R2ME 
* OV.2XP  = 3R2XP 
* OV.3CF  = 3R3CF 
* OV.3CI  = 3R3CI 
* OV.3CT  = 3R3CT 
* OV.3CU  = 3R3CU 
* OV.3CX  = 3R3CX 
* OV.3LX  = 3R3LX 
* OV.3ME  = 3R3ME 
OV.3TT    = 3R3TT 
* OV.3T1  = 3R3T1 
* OV.3T2  = 3R3T2 
* OV.3XP  = 3R3XP 
* OV.4LX  = 3R4LX 
* OV.4XP  = 3R4XP 
* OV.5XP  = 3R5XP 
* OV.6XP  = 3R6XP 
* OV.7XP  = 3R7XP 
* OV.7ZA  = 3R7ZA 
* OV.7ZB  = 3R7ZB 
* OV.7ZC  = 3R7ZC 
* OV.7ZD  = 3R7ZD 
* OV.7ZE  = 3R7ZE 
* OV.7ZF  = 3R7ZF 
* OV.7ZG  = 3R7ZG 
* OV.7ZH  = 3R7ZH 
* OV.7ZI  = 3R7ZI 
* OV.7ZJ  = 3R7ZJ 
* OV.7ZK  = 3R7ZK 
* OV.7ZL  = 3R7ZL 
* OV.7ZM  = 3R7ZM 
* OV.7ZN  = 3R7ZN 
* OV.7ZO  = 3R7ZO 
* OV.7ZP  = 3R7ZP 
* OV.7ZQ  = 3R7ZQ 
* OV.8PT  = 3R8PT 
* OV.9PT  = 3R9PT 
          SPACE  3
**        CE DIAGNOSTIC PP ROUTINE NAMES
          SPACE  3
OV.APR    = 3RAPR 
* OV.CP1  = 3RCP1 
* OV.CR1  = 3RCR1 
* OV.DF4  = 3R4DF 
* OV.DF7  = 3R7DF 
* OV.DF8  = 3R8DF 
* OV.DLE  = 3RDLE 
* OV.D44  = 3RD44 
* OV.IEF  = 3RIEF 
* OV.LBK  = 3RLBK 
* OV.LPT  = 3RLPT 
* OV.LP1  = 3RLP1 
* OV.MTT  = 3RMTT 
* OV.RMS  = 3RRMS 
          SPACE  3
**        COBOL  PP ROUTINE NAMES 
          SPACE  3
* OV.D00  = 3RD00 
          SPACE  3
**        SDA PP ROUTINE NAMES
          SPACE  3
* OV.MSD  = 3RMSD 
          SPACE  3
**        AIDS PP ROUTINE NAMES 
          SPACE  3
* OV.SPY  = 3RSPY 
* OV.SPZ  = 3RSPZ 
* OV.VSM  = 3RVSM 
* OV.1VG  = 3R1VG 
  
MTRFCN    EJECT 
**        MONITOR FUNCTIONS 
          SPACE  3
M.SETST   = 1             SET CPU STATUS BITS 
M.CLRST   = 2             CLEAR CPU STATUS BITS 
M.RCP     = 3             REQUEST CENTRAL PROCESSOR 
M.DCP     = 4             DROP CENTRAL PROCESSOR
M.RCLCP   = 5             RECALL CENTRAL PROCESSOR
M.ICE     = 6             INITIATE CENTRAL EXECUTIVE
M.SPM     EQU    M.ICE             *****
  
 EX.CMSM  = 0             CM STORAGE MOVE 
 EX.ECSM  = 1             ECS STORAGE MOVE
 EX.PPIO  =      2           819 STACK PROCESSOR FUNCTION 
 EX.SPM   = 3             SPM CALL
 EX.SS    = 4             SYSTEM SECONDS CALCULATIONS 
 EX.SCH   = 5             STANDARD SCHEDULER CALL 
 EX.SCH1  = 6             SCHEDULER STORAGE REQUEST 
 EX.REQEB = 7             REQUEST ECS FILE BUFFER 
 EX.RELEB = 10B           RELEASE ECS FILE BUFFER 
 EX.CBM   = 11B           CIRCULAR BUFFER MANAGER REQUEST 
EX.SPRCL  EQU    12B               *****
EX.STAT   EQU    13B               *****
EX.NXTPB  EQU    14B               *****
 EX.FLHB  = 15B           FLUSH ECS BUFFER
 EX.CSWAP = 16B           CLEAN ECS AFTER ECS RPE IN SWAP FILE
 EX.AUTEB = 17B           TERMINATE AUTOMATIC ALLOCATION
 EX.ECD   = 20B           DISPLAY ECS 
 EX.ECR   = 21B           RELEASE DISPLAY 
 EX.ECW   = 22B           MODIFY ECS
 EX.CEM   = 23B           CLEAR CEM-WORKING FLAG IN CMR 
 EX.ECLDV = 25B           MULTIPLE PARTIAL READ ECS RECORD (LDV/LDW)
 EX.BKSPF = 26B           RELEASE DATA IN ECS FROM INPUT BUFFER 
 EX.LNKON = 27B           PERIODIC RESTAT OF ECS LINK DRIVER
 EX.LNKIN = 30B           STATION LOGIN (MMF ECS LINK)
 EX.BOOT  = 31B           BOOTSTRAP ECS SYSTEM
 EX.TAT   = 32B           FREEZE CPMTR DURING RBR+RBT AREAS SNAPSHOT
 EX.RBT   = 33B           RBT CHAIN SEARCH (DISK ADDRESS CONVERSION)
 EX.SSF   = 34B           SUB-SYSTEM FUNCTION 
 EX.SUB   = 35B           CALL AN OVERLAY.                              005610
 EX.SIDLE = 36B           SYSTEM IDLE 
  
M.CPUST   = 7             CHANGE CPU STATUS 
M.SLICE   = 10B           END OF CPU SLICE TIME 
M.SPRCL   = 11B           STACK PROCESSOR RECALL
M.RCH     = 12B           RESERVE CHANNEL 
  
  
*         =      13B         NOT USED 
*         = 14B           NOT USED
M.PPLIB   =      15B         SEARCH PP LIBRARY
M.MTRCPU  =      M.PPLIB     GREATEST MTR FUNCTION FOR CPMTR
M.RBTSTO  = 16B           REQUEST RBT STORAGE 
M.RSTOR   = 17B           REQUEST STORAGE 
M.TSR     = 20B           TERMINATE STORAGE REQUEST 
M.DPP     = 21B           DROP PP 
M.ABORT   = 22B           ABORT CONTROL POINT AND DROP PP 
M.RPJD    = 23B           REQUEST PERIPHERAL JOB AND DROP PP
M.EESD    = 24B           ENTER EVENT STACK AND DROP PP 
M.SEQ     = 25B           ASSIGN JOB SEQUENCE NUMBER
M.SEF     = 26B           SET ERROR FLAG
M.ISP     = 27B           INITIATE STACK PROCESSOR
M.DFM     =      30B         DAYFILE MESSAGE
M.CCPA    = 31B           CHANGE CONTROL POINT ASSIGNMENT 
M.RPJ     = 32B           REQUEST PERIPHERAL JOB
M.EES     = 33B           ENTER EVENT STACK 
 F.ESABS  = 0             EV ST WORD ADDRESS IS ABSOLUTE
 F.ESOFF  = 0             EV STACK JOB ASSIGNED WHEN BIT=0
 F.ESREL  = 1000B         EV ST WORD ADDRESS IS RELATIVE TO RA
 F.ESCPA  = 2000B         EV ST WORD ADDRESS IS REL TO CTL PT A 
 F.ESON   = 4000B         EV STACK JOB ASSIGNED WHEN BIT=0
M.CPJ     = 34B           CAPTURE PERIPHERAL JOB
M.SCH     = 35B           INITIATE INTEGRATED SCHEDULER 
M.PASS    = 36B           MTR LETS OTHER ROUTINE CLEAR M.PASS 
M.RACT    = 37B           REQUEST CONTROL POINT ACTIVITY
M.SCB     = 40B           SYSTEM CIRCULAR BUFFER POINTER CHASING
M.NTIME   = 41B           ENTER NEW TIME LIMIT
M.NOTE    = 42B           NULL FUNCTION,  CLEARED IMMEDIATELY 
*         = 43B           NOT USED
M.BUFPTR  = 44B           BUFFER POINTER ADDRESS
M.PATCH   = 45B           ENTER A PATCH INTO MTR
M.TRACE   = 46B           TURN ON MTR TRACE 
M.SLPER   = 47B           NEW SLICE PERIOD OR XJ OTHER CPU
  
  
M.KILL    = 77B           A BAD MTR REQUEST 
*         SUBCODES FOR EX.SUB.                                          005640
 XF.HSF   EQU    1        CALL HSF - EVICT 819 LCM BUFFERS AND TABLES.  005650
 XF.HLCN  EQU    2        CALL HLCN - 819 ERROR LOGGING.                005660
 XF.HDAF  EQU    3        CALL HDAF - UNRECOVERED ERRORS
EST       EJECT 
EST       SPACE  5,10 
**        EQUIPMENT STATUS TABLE  (EST)  SYMBOLS
          SPACE  3
 C.ESTAT  = 0             EST STATUS BYTE 
 S.ESTRMS = 11D           RMS DEVICE (EST)
 S.ESTRID = 10D           REQUEST-IDLE FLAG 
 S.ESTSTR = 10D           REQUEST UNIT TAPE STATUS
S.ESTSST = 9D                REQUEST SPECIAL TAPE STATUS FLAG            SC45900
 S.ESTSHR = 9D            SHARED-DEVICE FLAG
 S.ESTRLB = 8D            RELABELED DEVICE
 S.ESTFR  = 5             PRIVATE DEVICE, FREE BIT (EST)
 S.ERO    = 7             UNIT HAS BEEN DOWN GRADED TO READ ONLY
 S.EDN    = 8             UNIT HAS BEEN IDLED DOWN
 S.ESTBSY = 4             PRIVATE DEVICE, BUSY BIT (EST)
 S.ESTPFC = 8D             UNIT REDORD EQUIPMENT, 580 PFC BIT 
 C.ESTDL  = 1             EST LABEL RB BYTE 
 C.ESTCH1 = 1             EST CHANNELS 1-2
 S.ESTSUS = 11D           ALL CHANNEL SUSPENDED FOR MAINTENENCE 
 C.ESTCH2 = 2             EST CHANNELS 3-4
 C.ESTSD  = 2             EST SPECIAL DISPOSITION 
 C.ESTUNT = 2                               RMS UNIT,EQP,IDLE BITS
 S.ESTIDL = 6                               RMS DEVICE IDLE BIT 
 C.ESTMNE = 3             EST HARDWARE MNEMONIC 
 S.ESTON  = 11D           OFF/ON BIT IN EST 
 C.ESTDST = 4             EST DST ORDINAL 
 C.ESTMTD = 4             BYTE OF TAPE EST WITH CONTROLLER, UNIT, ETC.
 S.ESTMTS = 7             1 = 66X TAPE UNIT 
 S.ESTBID = 8D            BLOCK ID TAPE CONTROLLER (ATS OR MTS) 
 S.ESTGCR = 5             1600/6250 BPI 679 TAPE UNIT 
 S.ESTMTC = 6             MMTC CONTROLLER 
FNT       SPACE  5,10 
**    DEVICE CODE SYMBOL                                                000280
 DEVICE   SPACE  3,10                                                   000290
 DT.AH    = 15B                    819 DISK DRIVE                       000300
          SPACE  3,10                                                   000310
**        FILE NAME/STATUS TABLE  (FNT/FST) SYMBOLS 
          SPACE  3
LE.FNT    = 3             NO. OF CM WORDS IN ONE FNT ENTRY
          SPACE  3
**        INPUT QUEUE FNT 
          SPACE  3
W.FNT1    = 0             FNT FIRST WORD
 C.FNAME  = 0             SEVEN-CHARACTER FILE NAME 
 C.FLOCK  = 3             FNT 1ST WORD LOCK BIT 
 S.FLOCK  = 5             LOCK BIT
 C.FLINK  = 3             FNT 1ST WORD LINK BIT 
 S.FLINK  = 4             LINK BIT
 C.FCPNUM = 3             FILE"S CT. PT. ASSIGNMENT IN FNT ENTRY
 C.FLNKAD = 4             FNT 1ST WORD LINK(ED FNT) POINTER 
W.FNT2    = 1             FNT SECOND WORD 
 C.FTAPE  = 0             INPUT FILE TAPE REQUIREMENTS
 C.FNT    = 0             INPUT FILE TAPE REQUIREMENTS
 C.FFRBA  = 1             ADDR OF 1ST RBT WORD PAIR 
 C.FID    = 2             INTERCOM ID FOR JOB IN I/O QUEUE
 C.FIOQ   = 3             1ST BYTE OF MST/PFC POINTER FOR I/O QUE ENTRY 
W.FNT3    = 2             FNT THIRD WORD
 C.FCPU   = 0             CPU A/B (INPUT) BITS
 C.FRRN   = 0             RERUN FLAG FOR JOB IN INPUT QUEUE 
 S.FRRN   = 5             NO RERUN BIT
 C.FABT   = 0             ABORT FLAG
 S.FJABT  = 4             OFFSET FOR JANUS ABORT FLAG 
 S.FJCER  = 3             OFFSET FOR JOB CARD ERROR FLAG
 C.FTL    = 0             TIME LIMIT FOR JOB IN INPUT QUEUE 
 C.FDC    = 2             FILE DISPOSITION CODE 
 C.FINFLG = 2             INPUT FILE FLAGS
 S.FINRT  = 11D           REAL TIME FLAG BIT
 C.FFL    = 3             CM FL FOR JOB IN INPUT QUEUE
 C.FPRI   = 4             PRIORITY OF INPUT OR OUTPUT FILE
W.FNTL1   = 0             FNT FIRST WORD-LINK 
 C.FBKLK  = 1             BACKWARD LINK 
 C.FIDENT = 2             LINK ID 
W.FNTL2   = 1             FNT SECOND WORD-LINK
 C.FEQP   = 0             IF .NE. 0 = EQ TYPE OF PRE-DAYFILE
 C.FFRBA  = C.FFRBA       IF .NE. 0 = FIRST WORD PAIR OF PRE-DAYFILE
 C.FSID   = 2             SOURCE ID (BITS 35-18)
 S.FINKP  = 5             KEEP/UNKEEP FLAG BIT FOR LOAD LEVELING
 C.FIOL   = 3             I/O TIME LIMIT (BITS 14-0)
W.FNTL3   = 2             FNT THIRD WORD-LINK 
 C.FDPCT  = 0             JOB DEPENDENCY VALUE (00-77 IN BITS 59-54)
 S.FDPCT  = 6             OFFSET FOR DEPENDENCY COUNT 
 C.FDID   = 0             DESTINATION ID (BITS 53-36) 
 C.FECFL  = 2             ECS FL FOR JOB IN INPUT QUEUE 
 C.FDPV   = 3             JOB DEPENDENCY ID (2 ALPHA CHARACTERS)
 C.FTAPE2 = 4             COUNT OF PE AND GE UNITS FROM JOB CARD
          SPACE  3
**        TAPE FILE  - BEFORE ASSIGNMENT
          SPACE  3
W.FNT1    = W.FNT1
 C.FNAME  = C.FNAME 
 C.FLOCK  = C.FLOCK 
 S.FLOCK  = S.FLOCK 
 C.FLINK  = C.FLINK 
 S.FLINK  = S.FLINK 
 C.FCPNUM = C.FCPNUM
 C.FLNKAD = C.FLNKAD
W.FNT2    = W.FNT2
W.FEQP    = 1             EQUIPMENT CODE WORD OFFSET
 C.FEQP   = C.FEQP        EQP TYPE
 C.FVSN   = 1             GHOST FNT VOLUME SERIAL NO. 
          SPACE  3
**        TAPE FILE - DURING PROCESSING 
          SPACE  3
W.FNT1    = W.FNT1
 C.FNAME  = C.FNAME 
 C.FLINK  = C.FLINK 
 S.FLINK  = S.FLINK 
 C.FCPNUM = C.FCPNUM
 C.FLNKAD = C.FLNKAD
W.FNT2    = W.FNT2
 C.FEQP   = C.FEQP
 C.FDEVTP = 0             DEVICE TYPE/EQ CODE 
 C.FTPORD = 1             T.TAPES ORDINAL 
 C.FPDEV  = 2             PRIMARY DEVICE NUMBER (EST ORDINAL) 
 C.FCPRU  = 3             TAPE CURRENT PRU COUNT
 C.FLBL   = 3             PRU COUNT (TAPES) OR CARD COUNT (CARDS) 
W.FNT3    = W.FNT3
 C.FFETAD = 0             FET ADDRESS 
S.FNTIB = 8           INHIBIT SYSTEM NOISE RECORDS
 C.FDC    = C.FDC 
 C.FSC    = 3             SECURITY CODE 
 S.FNTWRT = 7             FNT WRITE BIT 
 S.FEXNEW = 6             E/N BIT IN FNT
W.FCS     = 2             CODE AND STATUS WORD OFFSET 
 C.FCS    = 3             CODE + STATUS FIELD IN FNT ENTRY
          SPACE  3
**        RMS FILE - BEFORE ASSIGNMENT
          SPACE  3
W.FNT1    = W.FNT1
 C.FNAME  = C.FNAME 
 C.FLOCK  = C.FLOCK 
 S.FLOCK  = S.FLOCK 
 C.FLINK  = C.FLINK 
 S.FLINK  = S.FLINK 
 C.FCPNUM = C.FCPNUM
 C.FLNKAD = C.FLNKAD
W.FNT2    = W.FNT2
 C.FEQP   = C.FEQP
 C.FADEV  = 3             EST ORD FOR ALLOC DEV WITHOUT RBT 
 C.FPPFN  = 3             PRIVATE PACK FAMILY NO. OR EST ORDINAL
 C.FALLOC = 4             ALLOC STYLE FOR FILE WITHOUT MS ASSIGNMENT
          SPACE  3
**        RMS FILE - AFTER ASSIGNMENT 
          SPACE  3
W.FNT1    = W.FNT1
 C.FNAME  = C.FNAME 
 C.FLOCK  = C.FLOCK 
 S.FLOCK  = S.FLOCK 
 C.FLINK  = C.FLINK 
 S.FLINK  = S.FLINK 
 C.FCPNUM = C.FCPNUM
W.FAPF    = 0             FNT WORD THAT CONTAINS APF POINTER
 C.FAPF   = 4             APF POINTER FOR A PERM. FILE
 C.FLNKAD = C.FLNKAD
W.FNT2    = W.FNT2
W.FEQP    = W.FEQP
 C.FEQP   = C.FEQP
 S.FNTEQP = 6             EQUIP CODE BIT OFFSET 
 C.FLRBWP = 2             ADDR OF CURR. RBT WORD PAIR 
 C.FLRBEB = 3             RBT ENTRY/BYTE AT CURR. POS. OF FILE
 C.FCB    = 3             CURRENT RB BYTE (MS)
 C.FLPRU  = 4             CURRENT PRU POS. ON ALLOC. DEVICE 
W.FNT3    = W.FNT3
 C.FFETAD = C.FFETAD
 C.FDC    = C.FDC 
 L.EC     = 7             MASK FOR EXTERNAL CODE
 S.FEC    = 9             EXTERNAL CODE OFFSET IN FNT DISP CODE 
 S.CSITE  = 8             ROUTE TO CENTRAL SITE BIT 
 L.IC     = 3             MASK FOR INTERNAL CODE
 S.FIC    = 6             INTERNAL CODE OFFSET IN FNT DISP CODE 
 C.FPFREW = 3             PF REWRITE
 S.FNTWRT = S.FNTWRT
 S.FINDXW = 6             INDEX WRITE BIT 
 S.FPFREW = 2             PF REWRITE BIT
 C.FECS   = 3             ECS FLAG FIELD
 S.FECS   = 5             UPPER OF TWO ECS FLAGS IN FST 
 C.FMUJ   = 3             MUJ BIT FIELD 
 S.FMUJ   = 3             MULTI-USER JOB BIT (FNT)
 C.FCS    = C.FCS 
 S.FEOPK  = 10            END OF PACK BIT IN FST CODE/STATUS
 C.FPADTP = 1             PRE-ASSIGNED DEVICE TYPE EQUIPMENT
 C.FPKTYP = 3             BYTE FOR PACKET TYPE
 S.FPKTYP = 6             BIT FOR PACKET TYPE 
 S.FNRRBT = 3             BIT FOR NO RELEASE OF RBT CHAIN 
W.FNTL2   = W.FNTL2 
          SPACE  3
**        INTERCOM-USER SUPPLEMENT
          SPACE  3
W.FNTL1   = W.FNTL1 
 C.FBKLK  = C.FBKLK 
 C.FIDENT = C.FIDENT      LINK ID 
 C.FAPF   = C.FAPF
W.FNTL3   = W.FNTL3 
 C.FLOCID = 3             LOCAL FILE INTERCOM ID
          SPACE  3
**        PERMANENT FILE ENTRIES
          SPACE  3
W.FNT2    = W.FNT2
 C.FEQP   = C.FEQP
W.FNT3    = W.FNT3
          SPACE  3
**        DEVICE SET ENTRIES - MOUNTED AT CONTROL POINT 
          SPACE  3
W.FSN     = 0             WORD 1 OF SET FNT ENTRY 
 S.FSET   = 11D           FNT SET ENTRY FLAG IN BYTE 0
 C.FCP    = 3             CONTROL POINT NUMBER
 C.FMST   = 4             MST ORDINAL 
W.FVSN    = 1             WORD 2 OF SET FNT ENTRY 
 C.FVSN   = 1             VOLUME SERIAL NUMBER
W.FORD    = 2             WORD 3 OF SET FNT ENTRY 
 C.FEST   = 2             EST ORDINAL 
 C.FBKLK  = 1             BACKWARD FNT LINK 
 C.FDRBR  = 3             CURRENT DISK RBR ORDINAL
 C.FNDEV  = 0             NUMBER OF RMS DEVICES REQUESTED BY VSN
 S.FSDT   = 5             SUB-DIRECTORY TABLE ENTR  FLAG I  C.FLINK 
          SPACE  3
**        OUTPUT FILE IN QUEUE
 C.FLOCK  = C.FLOCK 
 S.FLOCK  = S.FLOCK 
W.FNT2    = W.FNT2
 C.FSCT   = 0             SECTOR COUNT (PRU/100B) 
 C.FFRBA  = C.FFRBA 
 C.FID    = C.FID 
 C.FIOQ   = C.FIOQ
W.FNT3    = W.FNT3
 C.FRPT   = 0             BYTE FOR REPEAT COUNT 
 S.FRPT   = 6             OFFSET FOR REPEAT COUNT 
 L.FRPT   = 37B           MASK FOR REPEAT COUNT 
 S.FDFL   = 13B           OFFSET FOR DAYFILE-PRESENT BIT
 C.FDID   = C.FDID        DESTINATION ID (BITS 53-36) 
 C.FDC    = C.FDC 
 C.FFC    = 3             FORMS CODE
 C.FPRI   = C.FPRI
          SPACE  3
**        OUTPUT FILE DURING PROCESSING 
          SPACE  3
W.FNT1    = W.FNT1
 C.FNAME  = C.FNAME 
 C.FLINK  = C.FLINK 
 S.FLINK  = S.FLINK 
 C.FLNKAD = C.FLNKAD
W.FNT2    = W.FNT2
 C.FEQP   = C.FEQP
 C.FFRBA  = C.FFRBA 
 C.FLRBWP = C.FLRBWP
 C.FCB    = C.FCB 
W.FNT3    = W.FNT3
 C.FFETAD = C.FFETAD
 C.FDC    = C.FDC 
 C.FCS    = C.FCS 
W.FNTL1   = W.FNTL1 
 C.FBKLK  = C.FBKLK 
 C.FIDENT = C.FIDENT      LINK ID 
W.FNTL2   = W.FNTL2 
 C.FSCT   = C.FSCT
 C.FID    = C.FID 
 C.FIOQ   = C.FIOQ
W.FNTL3   = W.FNTL3 
 C.FRPT   = C.FRPT        BYTE FOR REPEAT COUNT 
 S.FRPT   = S.FRPT        OFFSET FOR REPEAT COUNT 
 L.FRPT   = L.FRPT        MASK FOR REPEAT COUNT 
 S.FDFL   = S.FDFL        OFFSET FOR DAYFILE-PRESENT BIT
 C.FDID   = C.FDID        DESTINATION ID (BITS 53-36) 
 C.FDC    = C.FDC 
 C.FFC    = C.FFC 
 C.FPRI   = C.FPRI
  
**        819 FNT LINK
  
W.FNTL1   = W.FNTL1 
 FNTY     EQU    0302B       819 LINK ID                                000330
W.FNTL2   = W.FNTL2 
 C.FTBTL  = 4             LOWER 12 BITS OF TBT ADDRESS
 C.FTBTU  = 3             UPPER 9 BITS OF TBT ADDRESS(STARTS AT BIT0) 
W.FNTL3   = W.FNTL3 
 C.FCOMP  = 4             FLAG BYTE 
 S.FCOMP  = 0             COMPLETE FLAG 
 S.FERR   = 1             FATAL WRITE ERROR FLAG
ITABL     SPACE  5,10 
**        INTERCOM TABLE  (ITABL)  SYMBOLS
          SPACE  3
W.ICOM    = 0             INTERCOM/OPSYS COMMUNICATION WORD 
 C.I1BR   = 1             INTERCOM INIT/DROP FLAGS
 S.I1I1   = 1             INTERCOM IN PROCESS OF COMING UP
 S.IEDIT  = 0             EDITLIB IN PROGRESS BIT 
 C.IUPF   = 2             INTERCOM (PARTIAL) UP FLAGS 
 S.INTH   = 1             INTERCOM HIGH SPEED UP/DROP FLAG
 C.INTDSD = 3             INTERCOM/DSD COMMUNICATION BYTE 
 S.ILKOUT = 4             INTERCOM LOCKOUT OF LOGIN FLAG
 S.INTDRP = 0             INTERCOM DROP BIT 
 S.IDD    = 6             DRIVER BITS 
  
W.IENDLS  = 1             INTERCOM LOW SPEED AREA WORD
 C.ILSFL  = 0             LWA+1/100 OF INTERCOM LOW SPEED BUFFER AREA 
 C.IFBUFR = 1             INTERCOM FWA LOW SPEED BUFFERS
DAT       SPACE  5,10 
**        DEVICE ACTIVITY TABLE  (DAT)  SYMBOLS 
          SPACE  3
LE.DAT    = 4                LENGTH OF DEVICE ACTIVITY TABLE
          SPACE  3
W.DATINF  = 0             INFORMATION WORD. 
 C.DATDST = 0             DEV. ACT. TBL. ENTRY - STATUS 
 C.DATEQP = 1             DEV. ACT. TBL. ENTRY - EQUIP TYPE 
 C.DATACT = 0 
 C.DATPRU = 2 
 C.DATREV = 3             CONTROLWARE REVISION LEVEL. 
 C.DSTMEM = 3                MEMBER ORDINAL 
 C.DSTNUM = 3                NUMBER OF MEMBERS
W.DATSTA  = 1             STATISTICS WORD 
 C.DATNFC = 1             NUMBER OF NEW FILES ALLOCATED 
 C.DATPRU = C.DATPRU      WEIGHT FOR PRU
 C.DATWAT = 3             WAIT TIME 
 C.DATSR  = 4             NUMBER OF STACK REQUESTS
W.DATSUM  = 2             SUMMARY WORD
 C.DATNFC = C.DATNFC      PREVIOUS NEW FILE COUNT 
 C.DATPRU = C.DATPRU      PREVIOUS PRU COUNT
 C.DATWAT = C.DATWAT      PREVIOUS WAIT TIME
 C.DATSR  = C.DATSR       PREVIOUS STACK REQUEST COUNT
W.DATIL   = 3                DEVICE INTERLOCK WORD (USED ONLY BY STACK
*                            PROCESSOR) 
STG       SPACE  5,10 
**        TAPE STAGING TABLE  (STG)  SYMBOLS
          SPACE  3
N.STG     = 4             NUMBER OF DEVICES IN STAGING TABLE
W.STGMAX  = 0             MAX UNITS DEFINED IN CMR
W.STGFRE  = 1             UNITS NOT ASSIGNED AND ON 
W.STGUFD  = 2             UNFILLED DEMAND FOR UNITS 
W.STGSAT  = 3             UNITS HELD BY SATISFIED JOBS
W.STGTLE  = 5             = (T.MSC) AT LAST TIME EASIER TO AUTO ASN TAPE
W.STGTLR  = 6             = (T.MSC) AT LAST AUTO ASSIGN REJECT
W.STGTLT  = 7             = (T.MSC) AT LAST ATTEMPT TO AUTO ASSIGN TAPE 
 C.STGMT  = 0             T.STG MT BYTE 
 C.STGNT  = 1             T.STG NT BYTE  (800/1600 UNIT)
 C.STGGR  = 3             T.STG GR BYTE  (1600/6250 UNIT) 
 C.STGHD  = 1             T.STG HD BYTE  (W.STGUFD ONLY)
 C.STGPE  = 2             T.STG PE BYTE  (W.STGUFD ONLY)
 C.STGGE  = 3             T.STG GE BYTE  (W.STGUFD ONLY)
RQS       SPACE  5,10 
**        REQUEST STACK  (RQS)  SYMBOLS 
          SPACE  3
W.STPRBA  = 0             ADDR RBT WD PR START DATA XMISSION
 C.STPRBA = 0             RBT ADDR OF WD PR AT WHICH TO BEGIN XMISSION
W.STPRBN  = 0             RBT ORDINAL OF RECORD BLOCK 
 C.STPRBN = 1             RBT ORDINAL OF RECORD BLOCK 
W.STPPRU  = 0             PRU NO. START DATA XMISSION 
 C.STPPRU = 2             PRU NO AT WHICH TO BEGIN DATA XMISSION IN WD
*                         1 OF A STACK REQ WITH FLAG SET FOR NO FNT 
W.STO     = 0             STACK PROCESSOR ORDER 
 C.STO    = 3             STACK REQUEST ORDER AND LEVEL 
 S.STDA   = 11            DIRECT ACCESS 
 S.STBFL  = 10            DONT CHECK BUFFER IN FL 
 S.STLEV  = 6             LEVEL NUMBER
 S.STIL   = 5             INTERLOCK STACK REQUEST 
 S.STOC   = 0             ORDER CODE
 O.READ   = 0             READ INTO CM UNTIL SHORT PRU OR BUFFER FULL 
 O.RDSK   = 1             READ UNTIL SHORT PRU OR BUFFER FULL 
 O.RCMPR  = 2             READ INTO CM AFTER DROPPING 1ST 3 CM
*                         WORDS OF FIRST PRU
 O.RDNS   = 3             VALUE OF STACK PR. ORDER CODE FOR READNS
 O.WRT    = 4             WRITE FULL PRUS FROM CM 
 O.WRTR   = 5             WRITE FROM CM END SHORT PRU 
 O.RMR    = 6             READ SEVERAL RECORDS
 O.RDP    = 10B           READ INTO REQUESTING PPS MEMORY 
 O.RDPNP  = 11B           READ INTO REQUESTING PP AFTER DROPPING FIRST
*                         3 CM WORDS OF FIRST PRU 
 O.SKF    = 12B           SKIP FORWARD N RECORDS LEVEL X OR GREATER 
 O.SKB    = 13B           SKIP BACKWARD N RECORDS LEVEL X OR GREATER
 O.WRP    = 14B           WRITE FROM REQ. PP FULL PRUS
 O.WRPR   = 15B           WRITE FROM REQ. PP END SHORT PRU
 O.BPRU   = 16B           BACKSPACE N PRUS
 O.RCHN   = 17B           RELEASE CHAIN 
 O.RCTNU  = 20B           READ CONTINUOUS 
 O.RCTU   = 20B            ORDER CODE 
 O.WCTNU  = 24B           WRITE CONTINUOUS
 O.WCTU   = 24B            ORDER CODE 
O.WAIT    EQU    34B
O.IDLE    EQU    35B
O.DROP    EQU    36B
O.SEEK    EQU    37B
S.DEVSR   EQU    10D               SR SELECTION IN W.DDVSN/C.DDSTAT 
 S.STDAM  = 7             BIT IN SR INDICATES DAM ACCESS. 1SP ALWAYS
*                         RECALLS SPM WHEN TERMINATING SUCH A SR
W.STCPU   = 0             CTL PT AND UNIT NUMBER
 S.STCP   = 8             CONTROL POINT NUMBER
 S.STRCL  = 7             SPM RECALL FLAG 
 C.STCPU  = 4             CTL PT AND UNIT NO. (ON WD 1 OF STACK REQ)
W.STPWC   = 1             PP WORDS TRANSM READP/WRITEP
 C.STPWC  = 0             COUNT OF BYTES TO BE XMITTED
W.STPMS   = 1             PP MESSAGE BUFFER ADDR
 C.STPMS  = 1             MESSAGE BUFFER
W.STPFW   = 1             NEXT ADDR FOR DATA XMISSION 
 C.STPFW  = 2             STACK REQ, BUFF FWA (LOW ORDER) 
W.STFB    = 1             FLAG BYTE 
 C.STFB   = 3             FLAG BYTE 
 S.STFPRI = 5             FLAG FIELD PRIORITY BIT 
 S.STFREL = 4             FLAG FIELD RELEASE BIT
 S.STFEOF = 4             FLAG FIELD EOF BIT
 S.STFNTP = 3             FLAG FIELD FNT - PRESENT BIT
 S.STFETP = 2             FLAG FIELD FET - PRESENT BIT
 S.STFXCT = 1             FLAG FIELD EXACT BIT
 S.STECS  = 0             ECS FLAG BIT IN STACK REQUEST 
 S.STF    = 6             FLAG FIELD BIT OFFSET 
W.STPLW   = 1             LWA+1 FOR DATA XMISSION 
 C.STPLW  = 4             STACK REQ, BUFF LWA+1 (OR 2 OR 3) 
W.STEI    = 0             EMPTY INDICATOR 
 S.STFA   = 0             FLAG FIELD BIT OF PP AVAIL
APF       SPACE  5,10 
**        ATTACHED PERMANENT FILE TABLE  (APF)  SYMBOLS 
          SPACE  3
LE.APF    = 2             LENGTH OF APF ENTRY 
          SPACE  3
 C.PFD1   = 0             THESE 3 1/2 BYTES (C.PFD4 LOWER 6 BITS CONTAIN
 C.PFD2   = 1              UPPER 6 BITS OF PF QUE POINTER) CONTAINED IN 
 C.PFD3   = 2               FIRST WORD OF AN APF ENTRY POINT TO PFD 
 C.PFD4   = 3                ENTRY FOR THE ATTACHED PERMANENT FILE
 C.PFQ    = 4             LOWER 12 BITS OF PERMANENT FILE QUE POINTER 
 C.PFRBT  = 0             FIRST RBT ORDINAL OF AN ATTACHED P. F.
 C.PFCNT2 = 1             PERMANENT FILE SECONDARY COUNT FIELD
 C.PFCNT  = 2             PERMANENT FILE PRIMARY COUNT FIELD
 C.PFCY   = 3             PERMANENT FILE CYCLE NUMBER 
 C.PFLAG  = 4             FLAG BYTE IN SECOND WORD OF AN APF ENTRY
RBR       SPACE  5,10 
**        RECORD BLOCK RESERVATION  (RBR)  SYMBOLS
          SPACE  3
W.RBRTPA  = 0             EQUIP TYPE AND ALLOC STYLE
 C.RBRTPA = 0             BYTE IN 1ST WD OF RBR HDR DEF. DEV. TYPE
W.RBRUNT  = 0             UNIT NUMBER (DST ORDINAL) 
 C.RBRUNT = 1             DST ORD CONTAINED IN 1ST WD OF RBR HEADER 
 C.RBRAL  = 3             ALLOC STYLE CONTAINED IN THE RBR RABLE
 S.RBRDF  = 11            DEFAULT ASSIGNMENT
 S.RBROV  = 10            OVERFLOW HAS OCCURED ON THE DAM 
 C.RBRA   = 3             PERMISSABLE ALLOC. BYTE IN RBR HEADER 
 C.RBROV  = 3             BYTE CONTAINING THE OVERFLOW BIT IN RBR HEADER
 S.RBROV  = 10D           DEVICE OVERFLOW BIT 
 C.RBRRS  = 4             RB SIZE = PRU-S/RB
W.RBRLAV  = 1             RECORD BLOCKS LOGICALLY AVAILABLE 
 C.RBRBTL = 0             LENGTH/2 OF BIT TABLE 
 C.RBRBTA = 1             ADDRESS OF BIT TABLE
 C.RBREST = 2             EST ORD CONTAINED IN THE RBR TABLE
 C.RBRLAV = 3             COUNT OF UNASSIGNED RECORD BLOCKS 
 C.RBRDAV = 4             BYTE CONTAINING AV. RB COUNT ON DAM 
 C.RBRUSE = 4                USEABLE RBS = PHYSICAL TOTAL 
DST       SPACE  5,10 
**        DEVICE STATUS TABLE  (DST)  SYMBOLS 
          SPACE  3
LE.DST    = 2 
          SPACE  2
W.DSTINF = 0                 INFORMATION WORD.
 C.DSTFLG = 1                FLAG BYTE. 
 S.DSTCTY = 0                CONTROLLER TYPE BIT. 
W.DSTSPI = 1                 STACK PROCESSOR INPUT REGISTER.
 C.DSTDRV = 2                DRIVER NAME
 C.DSTEQ = 3                 EQUIPMENT NUMBER 
 C.DSTCH = 3                 CHANNEL NUMBER 
          SPACE  3
DPT       SPACE  5,10 
**        DEVICE POOL TABLE  (DPT)  SYMBOLS 
          SPACE  3
SEQ       SPACE  5,10 
**        AUTOMATIC PROGRAM SEQUENCER  TABLE  (APR)  SYMBOLS
          SPACE  3
RMS       SPACE  5,10 
**        ROTATING MASS STORAGE DIAGNOSTIC TABLE  (RMS)  SYMBOLS
          SPACE  3
INS       SPACE  5,10 
**        INSTALLATION AREA  (INS)  SYMBOLS 
MST       SPACE  5,10 
**        MOUNTED SET TABLE  (MST)  SYMBOLS 
          SPACE  3
LE.MST    = 5             LENGTH OF MST ENTRY IN CM WORDS 
          SPACE  3
W.MSVSN   = 0             WORD 1 ***
 C.MSVSN  = 0             VOLUME SERIAL NUMBER
 C.MSMFO  = 3                MF ORDINAL BYTE
 C.PFMIL  = 4             PFM INTERLOCKS
 S.SYS    = 4             SYSTEM BIT (SET MOUNTED AT CP 0)
 S.SETIL  = 3             SET INTERLOCK 
 S.MSTRCF = 13B           RB CONFLICT DURING DEADSTART
 S.MSRF   = 11                     RECONFIGURED DEVICE SET
 S.MSBFR  = 12B           BUFFER SET
 S.MSACT  = 10B           SET ACTION FLAG 
 S.MSSCR  = 7             SYSTEM DEFAULT SET (SCRATCH SET)
 S.MSQ    = 6             QUEUE SET 
 S.MSDPF  = 5             DEFAULT PERMANENT FILE SET
 S.MSSYS  = 4             SYSTEM SET
 S.MSSETI = 3             SET I/L 
 S.MSUTIL = 2             UTILITY I/L 
 S.MSPFMI = 1             PERMANENT FILE INTERLOCK BYTE 
W.MSSN    = 1             WORD 2   *
 C.MSSN   = 0             SET NAME
 C.MSPEOI = 3             PURGE EOI 
W.MSPTR   = 2             WORD 3   * OF MST ENTRY 
 C.MSSMT  = 0             RB NUMBER OF SMT
 C.MSRBR  = 1             POINTER TO FIRST RBT WORD PAIR OF DAM 
 C.MSEQT  = 2             DEVICE TYPE IN MST
 C.MSEST  = 3 
 C.MSACT  = 4             NO. OF ACTIVE JOBS USING A SET
W.MSPFC   = 3             WORD 4 ***
 C.MSPFC  = 0             PTR TO 1ST RBT OF PRIMARY PFC 
 C.MSPFC1 = 1             PTR TO 1ST RBT OF AUXILLARY PFC 
 C.MSPFCS = 2             PFC SIZE = NUMBER OF PRU-S/10B
 C.MSPFCO = 2             PRU OFFSET TO PFC ON DISK 
 C.MSCEOI = 3             CURRENT EOI 
 C.MSPDL  = 3             PASSWORDS DEFINED IN LABEL
 C.MSUP   = 3             UNIVERSAL PERMISSIONS 
 S.PFCW   = 13B           PFC-WRAPAROUND FLAG 
 S.MSPDL  = 12B           PASSWORDS DEFINED IN LABEL FLAG 
 S.MSUP   = 11B - 6B      UNIVERSAL PERMISSIONS 
W.MSPFD   = 4             WORD 5   *
 C.MSPFD  = 0             PTR TO 1ST RBT OF PRIMARY PFD 
 C.MSPFD1 = 1             PTR TO 1ST RBT OF AUXILLARY PFD 
 C.MSHPN  = 2             NO. OF HASH POINTS
 C.MSHPS  = 2             LEFT SHIFT COUNT FOR HASH SCHEME
 C.MSPFDO = 2             PRU OFFSET TO PFD ON DISK 
 S.MSECS  = 13B           ECS-ADDRESS FLAG
 C.MSDFR  = 3             DEFAULT FILE RETENTION PERIOD 
DDT       SPACE  5,10 
**        DISMOUNTABLE DEVICE TABLE  (DDT)  SYMBOLS 
          SPACE  3
LE.DDTF   = 4                LENGTH OF FIXED DDT ENTRY
LE.DDTV   = 2                LENGTH OF VARIABLE DDT ENTRY 
          SPACE  3
W.DDVSN   = 0                WORD 1 OF DDT = 36/VSN,6/STATUS,18/SDQA
 C.DDVSN  = 0 - 2            VSN
 C.DDSTAT = 3                LAST STATUS OF EST 
 S.DDSN   = 11D              FLAGS SETNAME AS BEING IN NEXT WORD OF DD
 S.DDRLB  = 10D              RELABEL BIT DURING DS ONLY 
 S.DDOFF  = 9                ON / OFF BIT 
 S.DDFREE = 8                FREE BIT 
 S.DDBUSY = 7                BUSY BIT 
 S.DDIDLE = 6                REQUEST IDLE BIT 
 S.DDRM   = 5                RECORDED MODE BIT. 
 S.DDPRE  = 4                PREALLOCATE FOR CE DIAGNOSTICS 
 S.DDMSTR = 3                MASTER DEVICE
 S.DDQ    = 2                QUEUE DEVICE 
 S.DDPF   = 1                PERMANENT FILE DEVICE
 S.DDSYS  = 0                SYSTEM DEVICE
 C.DDSDQA = 3                SDQ ADDRESS = FIRST JDT ADDR.
 S.DDRMW  = 6                RECORDING MODE OF WAITING PACK.
 C.DDST   = 3                LAST STATUS BYTE(BITS 10-6),NEW SET
*                            DDT ENTRY (BIT 11=1) 
W.DDSN    = 1                WORD FOR SET NAME IN DDT 
 C.DDSN   = 0                SETNAME
 C.DDEST  = 4                EST ORDINAL
W.DDORD   = 1                WORD 2 OF DDT
 C.DDFRBR = 0                FIRST DISK RBR ORDINAL 
 C.DDLRBR = 1                LAST DISK RBR ORDINAL
 C.DDSDQC = 2                SDQ   COUNT
 C.DDMST  = 3                MST ORDINAL
W.DDSTA   = 2                STATISTIC WORD 
 C.DDNFC  = 1                NEW FILE COUNT TIMES WEIGHT
 C.DDWAT  = 2                WAIT TIME
 C.DDSR   = 4                NUMBER OF STACK REQUESTS PROCESSED 
W.DDSUM   = 3                SUMMARY WORD 
 C.DDACT  = 0                ACTIVITY VALUE 
 C.DDNFC  = C.DDNFC          PREVIOUS NEW FILE COUNT TIMES WEIGHT 
 C.DDWAT  = C.DDWAT          PREVIOUS WAIT TIME 
 C.DDSR   = C.DDSR           PREVIOUS NUMBER OF STACK REQUESTS
          SPACE  3
**        1PK COMMUNICATION CODES (BITS 35-30 OF INPUT REGISTER)
          SPACE  3
FC.1PK0   = 0             SWAP IN A JOB BY JDT ADDRESS
FC.1PK1   = 1             SWAP OUT JOB (NO INCREMENT SWAPPED-JOB COUNT) 
FC.1PK2   = 2             SWAP OUT A JOB (INCREMENT SWAPPED-JOB COUNT)
FC.1PK3   = 3             SWAP IN BY DEVICE 
FC.1PK4   = 4             NEW-FILE PROCESSING 
FC.1PK5   = 5             STATUS RMS DRIVES 
FC.1PK6   = 6             FILE OVERFLOW PROCESSING
FC.1PK7   = 7                PUT MNT INTO DELAY STACK ON OPERATOR DSMNT 
FC.1PK8   = 8                RECALL PP, REISSUE STACK REQUEST 
FC.1PK9   = 9             CALL JSTMOD MODE
FC.1PK10  = 10               CHECK APF FOR POSSIBLE JOB RESTART 
          SPACE  3
VSNBUF    SPACE  5,10 
**        VOLUME SERIAL NUMBER BUFFER  (VSNBUF)  SYMBOLS
          SPACE  3
 C.VRNFNT = 4             FNT ADDRESS WITHIN VRN BUFFER 
 C.VRNNXT = 3             LINK WITHIN VRN BUFFER
TAPES     SPACE  5,10 
**        TAPES TABLE  (TAPES)  SYMBOLS 
          SPACE  3
LE.TAPES  = 10B           LENGTH(OCTAL) OF TAPES TABLE ENTRY
          SPACE  3
W.TFLN1   = 1             10 CHARS LABEL NAME (TAPES TABLE) 
W.TREEL   = 4             REEL NUMBER (TAPES TABLE) 
W.TFLGS   = 5             FLAGS (TAPES TABLE) 
 C.TFLGS  = 0             TAPES TABLE FLAG BITS 
*                                                                        F7090AK
*         FIRST FLAG WORD     JOB ORIENTED FLAG BITS                     F7090AK
*                                                                        F7090AK
 S.TTFGO  =      11          GO BIT                                      F7090AK
 S.TTFGR  =      11          GO BIT                                      F7090AK
 S.TTFRC  =      10          RECHECK BIT                                 F7090AK
 S.TTFST  =      8           STOP STAGING                                F7090AK
 S.TTFES  =      6           END OF MULTIFILE SET                        F7090AK
 S.TTFWL  =      5           WRITE LABELS                                F7090AK
 S.TTFLT  =      4           DUAL PP INTERLOCK
 S.TTFVP  =      3           VSN PRINTED BIT                             F7090AK
 S.TTFLC  =      1           LABEL CHECKED                               F7090AK
 S.TTFEC  =      0           LABEL EXPIRATION CHECKED                    F7090AK
*                                                                        F7090AK
*                                                                        F7090AK
*         SECOND FLAG WORD   USER ORIENTED FLAG BITS                     F7090AK
*                                                                        F7090AK
 S.TTFVT  =      11          VSN READ FROM TAPE                          F7090AK
 S.TTFVN  =      11          VSN READ FROM TAPE                          F7090AK
 S.TTFOV  =      10          OPERATOR SUPPLIED VSN                       F7090AK
 S.TTFSC  =      9           SCRATCH                                     F7090AK
 S.TTFRD  =      8           READY                                       F7090AK
 S.TTWD   =      6           TAPE/UNIT MISMATCH (E.G.,NRZI ON GCR UNIT)  F7090AK
 S.TTFEL  =      5           EXPIRED LABEL                               F7090AK
 S.TTFBL  =      4           BLANK LABELED                               F7090AK
 S.TTFLB  =      3           LABELED                                     F7090AK
 S.TTFFS  =      2           FLASH SAVE BIT                              F7090AK
 S.TTFRI  =      1           RING IN BIT                                 F7090AK
 S.TTFWN  =      0           UNEXPIRED LABEL WITH RING ... WARNING
W.TVRN    = 6             VISUAL REEL NUMBER (TAPES TABLE)
W.TVRN1   = 7             FIRST REELS VIS. NO. (TAPES TABLE)
          SPACE   4                                                      F7090AK
**        UNIT RECOVERY TABLE (URT) SYMBOLS                              F7090AK
*                            ATS/RAM MODS TO PPTEXT                      F7090AK
 LE.URT   =      5           LENGTH OF UNIT RECOVERY TABLE ENTRY         F7090AK
 LE.WIN   =      2           LENGTH OF BLOCK ID WINDOW(2CM WDS=10 PRUS)  F7090AK
 W.UOLD   =      0           ON-LINE DIAGNOSTIC/GLOBAL RECOVERY STATUS   F7090AK
C.UEST    =      0           EST ORDINAL + PART OF ABSOLUTE BLOCK COUNT  F7090AK
C.UGBC    =      1           RESERVED FOR GLOBAL BLOCK COUNT (L.3.BYTE)  F7090AK
C.USTAT   =      2           UNIT STATUS=FAICODE/DENSITY/MODE/DWN/RD ON  F7090AK
 S.UFC    =      6           4 BIT FAILURE CODE DESCRIBING FAILURE       F7090AK
 S.UDE    =      4           2 BIT DENSITY FIELD AT TIME OF FAILURE      F7090AK
 S.UMD    =      3           1 BIT MODE FIELD AT FAILURE TIME(1=BINARY)  F7090AK
C.UDCH1   =      3           HOLDS FIRST 2 DOWNED CHANNELS               F7090AK
C.UDCH2   =      4           HOLDS 3RD AND 4TH DOWNED CHANNEL NUMBERS    F7090AK
 W.UTEC   =      1           THRESHOLD ERROR COUNTERS                    F7090AK
C.UTWT    =      0           ERASE/WRITE ERROR THRESHOLD                 F7090AK
C.UTRD    =      1           READ ERROR THRESHOLD                        F7090AK
C.UTML    =      2           MISPOSITIONING/LOOP FAULT ERROR THRESHOLD   F7090AK
 W.UIDW   =      2           2 CM WORD BLOCK ID DESCRIBING TAPE POSITIO  F7090AK
 W.UTWN   =      4           TEMP BLOCK ID FOR LAST 5 BLOCKS DURING REC  F7090AK
MAIL      SPACE  5,10 
**        SCHEDULER MAILBOX AREA  (MAIL)  SYMBOLS 
          SPACE  3
LE.MAIL   = 6             MAILBOX ENTRY LENGTH
DFB       SPACE  5,10 
**        LOGICAL IDENTIFIER TABLE (IDT) SYMBOLS
          SPACE  3
W.IDTHID  = 0             HOST ID WORD IN ID TABLE
 C.IDTL   = 0             BYTE IN W.IDTHID CONTAINING LENGTH OF IDT 
 C.IDTPID = 1             BYTE IN W.IDTHID CONTAINING FIRST PID ORDINAL 
 C.IDTFLL = 2             BYTE IN W.IDTHID CONTAINING 1ST, LAST LID ORD 
W.IDTLL   = 1             WORD RESERVED FOR FUTURE USE
W.IDTFLO  = 2             FIRST LID WORD IN IDT 
  
 C.IDSIDT = 0             BYTE IN IDT PID ENTRY CONTAINING SIDT RA
 C.IDTNFO = 1             BYTE IN IDT PID ENTRY CONTAINING PID INFO RA
* 
 C.IDTEST = 2             BYTE IN IDT PID ENTRY CONTAINING EST ORDINAL
          SPACE  5
**        DAYFILE BUFFER AREA  (DFB)  SYMBOLS 
PJT       SPACE  5,10 
**        PERIPHERAL JOB TABLE  (PJT)  SYMBOLS
SSCT      SPACE  8,8
**        SUBSYSTEM CONTROL TABLE 
* 
*         T.IJCT  INTER-JOB CONNECTION TABLE IS PART OF T.SSCT
*                T.IJCT CONTAINS CONNECTION CONTROL FIELDS
  
 S.CCFWR  = 0             WAIT RESPONSE COUNTS IN CONNECTION CTL FIELD
 S.CCFLT  = 3             LONG TERM CONNECTION BIT
 S.CCFSO  = 4             SWAP OUT ENCOURAGEMENT BIT
          SPACE  3
SCHPT     SPACE  5,10 
**        ERROR LOGGING STATUS TABLE
          SPACE  4
 W.ELCER  =      1        COUNT OF ERRORS LOGGED TO CERFILE 
 W.ELECS  =      2        COUNT OF ECS ERRORS 
 W.ELSEC  =      3        COUNT OF SINGLE BIT SECDED ERRORS 
 W.ELSTOP =      4        SCR ERRORS NOT REPORTED TO OPERATOR 
 W.ELDSD  =      6        DSD COMMUNICATION WORD
          SPACE  4
**        SCHEDULER PERFORMANCE TESTING TABLE  (SCHPT)  SYMBOLS 
          SPACE  3
JCA       SPACE  5,10 
**        SCHEDULER JOB CONTROL AREA  (JCA)  SYMBOLS
          SPACE  3
 C.JCMIN  = 0             MINIMUM QUEUE PRIORITY
 C.JCMAX  = 1             MAXIMUM QUEUE PRIORITY
 C.JCAR   = 2             AGEING RATE 
 C.JCQP   = 3             QUANTUM PRIORITY
 C.JCBQ   = 4             BASE QUANTUM
 C.JCMXB  = 0             MAXIMUM NUMBER OF BATCH JOBS
 C.JCMTB  = 1             MAXIMUM NUMBER OF BATCH JOBS WITH 
*                         NON ALLOCATABLE DEVICES 
 C.JCCLK  = 2             FLAG SET BY 1IB WHEN IT FAILS TO
*                         BRING A JOB UP
 C.JCAFL  = 2             ANTICIPATED FIELD LENGTH / 1000B
 S.JC1IB  = 30B           1IB FAILED LAST TIME CALLED FLAG
 S.JCAFL  = 32B           INTERCOM INCREMENT TO AFL INCLUDED FLAG 
 C.JCCNB  = 0             CURRENT NUMBER OF BATCH JOBS IN 
*                         JOB DESCRIPTOR TABLE
 C.JCCTB  = 1             CURRENT NUMBER OF BATCH JOBS WITH 
*                         NON ALLOCATABLE DEVICES 
 C.JCEMC  = 2             NUMBER OF FREE ENTRIES
 C.JCNTJ  = 3             NUMBER OF TAPE JOBS READY TO RUN
 C.JCNJI  = 4             NUMBER OF BATCH JOBS READY TO RUN 
 C.JCNAM  = 0             JOB CLASS NAME
JDT       SPACE  5,10 
**        SCHEDULER JOB DESCRIPTOR TABLE  (JDT)  SYMBOLS
          SPACE  3
W.JDNAM   = 0             JOB NAME (JDT)
W.JDLNK   = 0             LINK TO NEXT JDT (JDT)
 C.JDLNK  = 3             ADDRESS OF NEXT JOB DESCRIPTOR IN QUEUE 
  
W.JDSWP   = 1             SWAPPER WORD (JDT)
 C.JDEQC  = 0             EQUIPMENT CODE
 C.JDFRB  = 1             FIRST RBT WORD PAIR 
 C.JDFLG  = 2             FLAG FIELD IN JDT 
 S.JDBCB  = 43B           DEADSTART RECOVERY MSG FLAG 
 S.JDNRR  = 42B           NO RERUN FLAG 
 S.JDLGI  = 41B           LOGIN COMMAND FLAG
 S.JDLGO  = 40B           LOGOUT COMMAND FLAG 
 S.JDNJ   = 37B           NEW JOB FLAG
 S.JDECS  = 36B           SWAP FILE IS ON ECS 
 S.JDSKFL = 35B           SKIP FL FLAG
 S.JDROLL = 34B           JOB CAN ONLY BE ROLLED OUT
 S.JDNFNT = 33B           1AJ SHOULD SKIP FNT SEARCH
 S.JDFAZ  = 32B           FILES AT CONTROL POINT ZERO 
 S.JDINTR = 31B           FLAG RECOVERY DESTROYED INTERCOM USER TABLE 
 C.JDFL   = 3             JOB FL INCLUDING POSITIVE FL
 C.JDPFL  = 4             POSITIVE FL ADDRESS 
  
W.JDDSD   = 2             COMMUNICATION WORD WITH DSD(JDT)
 C.JDCPN  = 0             CONTROL POINT NUMBER
 C.JDORD  = 1             JOB DESCRIPTOR ORDINAL
 C.JDTL   = 2             TIME LIMIT
 C.JDOPF  = 3             OPERATOR FLAGS
 S.JDTLI  = 23B           TEMPORARY LOCK-IN  (1BO)
 S.JDEXP  = 22B           JOB TO BE PUT IN EXPRESS QUEUE
 S.JDGO   = 21B           GO FLAG 
 S.JDNS   = 20B           NO SWAP FLAG
 S.JDLOK  = 17B           JOB LOCKOUT FLAG
 F.JDKILL = 1             JDT ERROR FLAG FOR KILL 
 F.JDDROP = 2             JDT ERROR FLAG FOR OPERATOR DROP
 F.JDRRUN = 3             JDT ERROR FLAG FOR RERUN
 F.JDRRNP = 4             RERUN WITH PRIORITY SPECIFIED CODE
 F.JDTI   = 5             JDT ERROR FLAG FOR TERMINAL INTERRUPT 
 C.JDORG  = 4             JOB ORIGIN
 S.JDINT  = 5             JOB ORIGIN (INTERCOM BIT) 
 S.JDMUJ  = 4             JOB ORIGIN (MULTI USER JOB BIT) 
 S.JDGR   = 3             JOB ORIGIN (GRAPHICS BIT) 
 S.JDRT   = 2             REAL TIME JOB 
  
W.JDMGR   = 3             MANAGER-SCHEDULER WORD (JDT)
 C.JDJST  = 0             JOB STATUS AND JOB CLASS
 F.JDLMB  = 0             LIMBO 
 F.JDWCM  = 10B           WAITING FOR CM
 F.JDWPF  = 20B           WAITING FOR PERMANENT FILE
 F.JDWDA  = 30B           WAITING FOR DEVICE ASSIGNMENT 
 F.JDWOA  = 40B           WAITING FOR OPERATOR ACTION 
 F.JDWIA  = 50B           WAITING FOR INTERCOM ACTION 
 F.JDWPK  = 60B           WAITING FOR PERMANENT PACK
 F.JDWMM  = 70B           WAITING FOR MULTI-MAINFRAME ACTION
 F.JDWSI  = 1             WAITING FOR SWAP IN 
 F.JDACT  = 2             JOB ACTIVE AT A CONTROL POINT 
 F.JDWCC  = 3             JOB WAITING FOR C.P. CLEANUP
 F.JDGRA  = 6             GRAPHICS JOBS 
 F.JDBAT  = 1             BATCH 
 F.JDBNA  = 2             BATCH WITH NON ALLOCATABLE DEVICES
 F.JDINT  = 3             INTERCOM
 F.JDMUJ  = 4             MULTI USER JOB
 F.JDEXP  = 5             EXPRESS 
 C.JDPFM  = 1             PERMANENT FILE PERMISSION BITS
 C.JDTIN  = 1             TIME IN 
 C.JDBP   = 3             BASE PRIORITY 
 C.JDLPFL = 4             LENGTH OF POSITIVE FL 
 C.JDRU   = 4             RESOURCE USAGE (PP/CP)
  
W.JDINT   = 4             5TH WORD OF JDT WHEN IP.INTCM.NE.0
 C.JDID   = 0             USER ID FOR REMOTE BATCH JOBS 
 C.JDCPT  = 1             ACCUMULATED CP TIME IN SECS 
 C.JDSID  = 2             SOURCE ID BYTE IN JDT 
 C.JDIUTA = 3             ADDRESS OF NEW USER TABLE 
 F.JDINP  = 0             INPUT QUEUE 
  
  
IP.ROFL   = 5000B         MINIMUM FL TO JUSTIFY A ROLLOUT 
IP.BOVF   = 5             ALLOWED VERFLOW ON FIXED PR.  (BATCH JOBS)
IP.TOVF   = 1             ALLOWED VERFLOW ON FIXED PR.  (TAPE JOBS) 
PPOVL     SPACE 4,10
**        PP RESIDENT SEGMENT TABLE (PPOVL) SYMBOLS 
          SPACE 3,10
C.SGCODE  =      0           SEGMENT NUMBER 
C.SGCMA1  =      1           SEGMENT CM ADDRESS BYTE 1
C.SGCMA2  =      2           SEGMENT CM ADDRESS BYTE 2
C.SGFLG   =      3           SEGMENT LOAD FLAG (NON/ZERO) 
C.SGLEN   =      4           SEGMENT LENGTH IN CM WORDS 
BRKPT     SPACE  4
**        BREAKPOINT TABLE (BRKPT) SYMBOLS
          SPACE  3
W.BKPXP   = 0             BREAKPOINT EXCHANGE PACKAGE 
W.BKLMT   = 20B           BREAKPOINT LIMITS 
W.BKCOM   = 21B           DSD COMMUNICATION WORD
W.BKFLG   = 22B           BREAKPOINT FLAG WORD
W.BKPLP   = 23B           BREAKPOINT LOOP 
W.BKTBL   = 24B           BREAKPOINT TABLE DESCRIPTOR 
W.BKPTS   = 25B           START OF BREAKPOINT ENTRY TABLE 
AREA      SPACE  4
**        SEGMENTATION AREA TABLE (AREA) SYMBOLS
          SPACE  3
W.CURSYS  = 0             CURRENT SYSTEM ADDRESS
W.ALTSYS  = 1             ALTERNATE SYSTEM ADDRESS
W.CMRES   = 2             CM RESIDENT ADDRESS AND LENGTH
W.MTRA    = 3             MONITOR MODE AREA DESCRIPTOR
W.USERA   = 4             USER MODE AREA DESCRIPTOR 
W.SEGT    = 5             SEGMENT TABLE DESCRIPTOR
W.INIT    = 6             INITIALIZATION SEGMENT DESCRIPTOR 
W.EDTIM   = 7             DATE-TIME STAMP FROM ECS SYSTEM 
ENTRY     SPACE  4
**        CMR ENTRY POINT TABLE (ENTRY) SYMBOLS 
          SPACE  3
W.DTIME   = 0             ASSEMBLED TABLES DATE-TIME STAMP
W.SGLIB   = 1             SEGMENTS LIBRARY NAME 
W.ENTRY   = 2             START OF ENTRY POINTS 
          SPACE  3
BCFAP     SPACE  5,10 
**        ECS ERROR FILE BUFFER  (BCFAP)  SYMBOLS 
          SPACE  3
 L.CMCFP  = 7                LENGTH OF EACH CM CEFAP BUFFER 
          SPACE  3
W.ECTL    = 0             OFFSET RELATIVE TO T.ECSPRM OF CM SYSTEM BUFFR
*                         DESCRIPTION AREA FWA T.ECTL 
 C.ECTL   = 1             BYTE OF W.ECTL OF ECS PARAMETERS TABLE HOLDS
*                         FWA OF T.ECTL 
W.BCFAP   = 0             OFFSET RELATIVE TO T.ECSPRM OF CEFAP BUFFER 
 C.BCFAPL = 2             BYTE OF W.BCFAP CONTAINS L.BCFAPA 
 C.BCFAP  = 4             BYTE OF   W.BCFAP CONTAINS T.BCFAP
*                         PARAMETERS
W.CFPECS  = 0             CEFAP BUFFER WORD HOLDS ECS FWA FOR TRANSFER
W.CFPCMS  = 1             CEFAP BUFFER WORD HOLDS CM FWA
W.CFPBJK  = 2             CEFAP BUFFER WORD HOLDS LENGTH OF TRANSFER
W.CFPPEA  = 3             CEFAP BUFFER WORD HOLDS PARITY ERROR ADDRESS
W.CFPERN  = 4             CEFAP BUFFER WORD HOLDS ERROR NUMBER
 W.CFPPTR = 5                CEFAP BUFFER WORD
 W.CFPFUL = 6                CEFAP BUFFER WORD SHOWS ENPTY / FULL 
 C.ECFLG  = 0             FLAG BYTE IN ECS FILE DESCRIPTOR
 S.ECSB   = 13B           ECS BUFFER ACTIVE IN C.ECFLG
 S.ECIOT  = 11B           ECS BUFFER TYPE IN C.ECFLG
 C.BUFDES = 2             BYTE OF T.ECTL DESCRIPTION HOLDS DESCRIPTR FWA
 C.BUFMAX = 2             BYTE OF T.ECTL DESCRIPTION HOLDS MAXIMUM NO.
*                         OF CM SYSTEM BUFFERS
 C.BUFDAT = 4             BYTE OF T.ECTL DESCRIPTION THAT HOLDS DATA FWA
EPAGE     SPACE  5,10 
**        ECS PAGED AREA  (EPAGE)  SYMBOLS
          SPACE  3
ECSPRM    SPACE  5,10 
**        ECS PARAMETERS  (ECSPRM)  SYMBOLS 
          SPACE  3
SUBPG     SPACE  5,10 
**        SUBPG 
          SPACE  3
ECTL      SPACE  5,10 
**        ECTL
          SPACE  3
EBUF      SPACE  5,10 
**        EBUF
          SPACE  3
LIB       SPACE  5,10 
**        LIBRARY AREA  (LIB)  SYMBOLS
          SPACE  3
                                                                         F7820PS
*         PP PROGRAM NAME TABLE (PPNT) SYMBOLS.                          F7820PS
                                                                         F7820PS
 C.DIRPRU = 4             NO. OF FIRST PRU ASSIGNED TO RECORD 
 C.DIRRBN = 3             ORIGINAL RBT WORD PAIR
 C.DIRRBA = 2             LINKAGE TO RBT WORD PAIR
 C.DIRUNT = 1             DST ORDINAL 
                                                                         F7820PS
*         PROGRAM NAME TABLE (PNT) SYMBOLS.                              F7820PS
                                                                         F7820PS
 F.PNTGN  = 7604B         PNT GROUP NAME LIST HEADER FLAG                F7820PS
INTCOM    SPACE  5,10 
**        INTERCOM
          SPACE  3
          SPACE  3
*         INTERCOM POINTER AREA 
          SPACE  3
W.IINS    = 17B           INTERCOM INSTALLATION WORD
W.IUSER   = 27B           INTERCOM LOW SPEED USER TABLE POINTER 
 C.INUSER = 2             NUMBER OF USER TABLES 
          SPACE  3
*         INTERCOM USER TABLES
          SPACE  3
W.IUSTA   = 0             INTERCOM USER TABLE HEADER WORD 
 C.INBUF  = 0             ADDR OF NEXT INTERCOM LINKED BUFFER 
 C.IUSID  = 2             INTERCOM USER ID
 C.IBSTAT = 4             INTERCOM USER TABLE STATUS
 S.ISTATE = 7             INTERCOM USER STATUS
 S.ILOGO  = 5             INTERCOM LOGIN/LOGOUT 
W.IUCMD   = 1             COMMAND/STATUS WORD 
 C.IUCCA  = 2             FLAGS/CONTROL CARD BUFFER ADDRESS 
 S.IUCCP = 6              CONTROL CARDS MOVED TO CPA FLAG 
W.IUMUJ   = 2             INTERCOM MUJ WORD 
 C.IUMJS  = 4             INTERCOM USER MUJ STATUS
 S.IMUJ   = 13B           INTERCOM USER ATTACHED TO MUJ 
W.IUFST   = 3             COMMUNICATION WORD WITH THE SWAPPER 
 C.IUJDA  = 0             JOB DESCRIPTOR ADDRESS
 C.IUEQC  = 0             EQUIPMENT CODE
 C.IUFRB  = 1             FIRST RECORD BLOCK
 C.IUFL   = 2             JOB FL/100B (INCLUDES POSITIVE FL)
 C.IUPFL  = 3             POSITIVE FL FIRST WORD ADDRESS(/100B) 
 C.IUFILE = 4             FLAG FIELD
 S.IURED  = 13B           VALUE FOR S.CPLR IN CP AREA 
 S.IUFNT  = 12B           FNTS TO BE GATHERED FLAG
 S.IUECS  = 11B           SWAP FILE ON ECS FLAG 
 S.IUPS   = 10B           PAUSE BIT 
 S.IUDMP  = 7             DUMPF FLAG
 S.IUEOE  = 6             INTERCOM/MUJ END OF EXECUTION BIT 
W.IINPUT  = 4             INTERCOM USER TABLE INPUT  POINTER WORD 
 C.ISIZLN = 4             INTERCOM USER TABLE PAGE SIZE OR LINE LENGTH
W.IOTPUT  = 5             INTERCOM USER TABLE OUTPUT POINTER WORD 
W.IUEQP   = 10B           INTERCOM USER EQUIPMENT WORD
 C.IUEST  = 0             INTERCOM MULTIPLEXOR EST ORDINAL
 C.IUPORT = 0             INTERCOM PORT NUMBER
 C.IUAUT  = 2             INTERCOM AUXILIARY USER TABLE POINTER 
 C.IUPRO  = 4             TERMINAL TYPE 
 S.ILT    = 10D           SET IF  HARDWIRED LINE
W.IUAFT   = 13B           FIELD LENGTH/TIME LIMIT 
W.IUACP   = 14B           CP TIME FIELD 
W.IUAPP   = 14B              ACCESS LEVEL/USER FLAGS                     F4600PP
 C.IUACS  = 0                ACCESS LEVEL                                F4600PP
 C.IUACP  = 2             ACCUMULATED CP TIME (24 BITS) 
 W.IMNAME = 15B           INTERCOM MUJ NAME (MUJ TABLE ONLY)
RBT       SPACE  5,10 
**        RECORD BLOCK TABLE  (RBT)  SYMBOLS
          SPACE  3
 C.RBTWPL = 0             LINK TO NEXT RBT WD PR (IN RBT WD PR) 
 C.RBTRBR = 1             RBR ORDINAL (IN 1ST WD OF RBT WD PR)
 S.RBTRBR = 3             RBR ORDINAL FIELD OFFSET
 C.RBTDRB = 1             DAM ORDINAL 
 S.RBTDRB = 3             DAM ORDINAL FIELD OFFSET
 C.RBTFB  = 1             FIRST BYTE POINTER
 C.RBTMST = 2             MST ORDINAL 
 S.RBTMST = 6             MST ORDINAL FIELD OFFSET
 C.RBTAL  = 2             FILE ALLOC TYPE CONTAINED IN 1ST WD OF
*                         RBT WORD PAIR 
 C.RBTTYP = C.RBTAL       DEVICE TYPE AND ALLOCATION TYPE 
 C.RBTPRU = 3             LAST+1 PRU
 C.RBTODO = 4             DAM ORDINAL IN OVERFLOW WORD PAIRS
 C.RBTBIT = 4             RBR BIT TABLE ADDRESS 
 S.RBTDEV = 13B           FILE ASSIGNED BY DEVICE TYPE BIT OFFSET 
 S.RBTEST = 12B           FILE ASSIGNED BY EST BIT OFFSET 
 S.RBTPFD = 11B           PERMANENT FILE FLAG BIT OFFSET
 S.RBTPFC = 1             CATALOGED PF BIT
 S.RBTPF  = S.RBTPFD      FILE-ASSIGNED-BY-PF FLAG
 S.RBTNEW = 10B           NEW RBT FLAG BIT OFFSET 
 S.RBTREL = 7             RELEASE BIT OFFSET
 S.RBTOVF = 7             OVERFLOW BIT OFFSET 
 S.RBTRND = 6             RANDOM BIT OFFSET 
 S.RBTSAM = 5             SAAM BIT OFFSET 
 S.RBTSYS = 2 
 S.RBTQ   = 3 
 S.RBTVSN = 4             FILE-ASSIGNED-BY-VSN FLAG 
 C.RBTAUS = 0             SECTORS / ALLOCATION UNIT 
 C.RBTVSN = 1             VOLUME SERIAL NUMBER
RMSLBL    SPACE  5,10 
**        RMS LABEL 
          SPACE  3
W.LBCK    = 7             LABEL CHECKSUM
W.LBDATE  = 0             DATE
W.LBFLAW  = 10B           FWA OF LABEL FLAW TABLE 
W.LBID    = 0             LABEL ID
W.LBPRIV  = 3             PRIVATE PACK INFORMATION
W.LBSN    = 3             SETNAME (LEFT JUSTIFIED / ZERO FILL)
W.LBVID   = 1             VISUAL ID 
W.LBVSN   = 2             VOLUME SERIAL NUMBER
          SPACE  3
*         THE FOLLOWING THREE SYMBOLS ARE USED BY IRCP TO ALLOW 
*         DIFFERENT LABEL FORMATS.
  
W.LAPFD   = 2                WAS W.LBPFD IN IRCP
W.LARBTC  = 2                WAS W.LBRBTC IN IRCP 
W.LARBR   = 4                WAS W.LBRBR IN IRCP
N.PFCIO   = 20            NUMBER OF PFC PRUS RESERVED FOR QUEUES
          SPACE  1
PPUSYM    EJECT 
  
**        PP RESIDENT SYMBOLS 
          SPACE  3
  
C.PPFWA   = 1000B         FWA OF PPRES EXECUTION OF PRIMARY OVERLAY 
C.PPSWA   = 2000B         FWA OF EXECUTION OF A SECONDARY OVERLAY 
C.PPTWA   = 3000B         FWA OF EXECUTION OF A THIRD LEVEL OVERLAY 
C.PP4WA   = 4000B         FWA OF EXECUTION OF A FOURTH LEVEL OVERLAY
C.PP5WA   = 5000B         FWA OF EXECUTION OF A FIFTH LEVEL OVERLAY 
C.PP6WA   = 6000B         FWA OF EXECUTION OF A SIXTH LEVEL OVERLAY 
C.PP7WA   = 7000B         FWA OF EXECUTION OF A SEVENTH LEVEL OVERLAY 
  
D.Z0      = 0 
D.Z1      = 1 
D.Z2      = 2 
D.Z3      = 3 
D.Z4      = 4 
D.Z5      = 5 
D.Z6      = 6 
D.Z7      = 7 
  
D.T0      = 10B 
D.T1      = 11B 
D.T2      = 12B 
D.T3      = 13B 
D.T4      = 14B 
D.T5      = 15B 
D.T6      = 16B 
D.T7      = 17B 
  
D.TW0     = 20B 
D.FNT     = 20B           WD 2+3 OF FNT ENTRY FOR FILE IN PROCESS 
D.TW1     = 21B 
D.TW2     = 22B 
D.TW3     = 23B 
D.TW4     = 24B 
D.TW5     = 25B 
D.TW6     = 26B 
D.TW7     = 27B 
  
D.TH0     = 30B 
D.TH1     = 31B 
D.TH2     = 32B 
D.EST     = 32B           EST ENTRY IN PROCESS
D.JPAR    = 32B           FWA OF JOB PARAMETER TABLE
D.TH3     = 33B 
D.TH4     = 34B 
D.TH5     = 35B 
D.TH6     = 36B 
D.TH7     = 37B 
D.DTS     = 37B           DEVICE AND ALLOCATION TYPE
D.JFL     = 37B           RETURNS REQUIRED CM FIELD LENGTH
  
D.FR0     = 40B 
D.BA      = 40B           1ST WD OF FILE ENVIRONMENT TABLE
D.FR1     = 41B 
D.FR2     = 42B 
D.FR3     = 43B 
D.FR4     = 44B 
D.FR5     = 45B 
D.JECS    = 45B           RETURNS REQUIRED ECS FIELD LENGTH 
D.FR6     = 46B 
D.JPR     = 46B           RETURNS COMPUTED PRIORITY 
D.FR7     = 47B 
  
D.FF0     = 50B 
D.PPIRB   = 50B           CONTENTS OF PP INPUT REGISTER 
D.FF1     = 51B 
D.FF2     = 52B 
D.FF3     = 53B 
D.FF4     = 54B 
D.FF5     = 55B 
D.RA      = 55B           CM RA/100B OF CONTROL POINT 
D.FF6     = 56B 
D.FL      = 56B           CM FL/100B OF CONTROL POINT 
D.FF7     = 57B 
D.FA      = 57B           ADDR OF 2ND WD OF FNT ENTRY IN PROCESS
  
D.SX0     = 60B 
D.FIRST   = 60B           ADDR OF START OF CIRCULAR BUFFER
D.SX1     = 61B 
D.SX2     = 62B 
D.IN      = 62B           D.IN AND D.IN+1 CONTAIN FET 
D.SX3     = 63B 
D.SX4     = 64B 
D.OUT     = 64B           OUT POINTER 
D.SX5     = 65B 
D.SX6     = 66B 
D.LIMIT   = 66B           LWA+1 OF CIRCULAR BUFFER
D.SX7     = 67B 
  
D.SV0     = 70B 
D.PPONE   = 70B           CONSTANT 1
D.SV1     = 71B 
D.HN      = 71B           CONSTANT 100B 
D.SV2     = 72B 
D.TH      = 72B           CONSTANT 1000/8 
D.SV3     = 73B 
D.TR      = 73B           CONSTANT 3
D.SV4     = 74B 
D.PPIR    = 74B           CM ADDR OF PP INPUT REGISTER
D.PPMES1  = 75B           CM ADDR OF 1ST WD OF PP MESSAGE BUFFER
D.CPAD    = 76B           ADDR OF CTL PT AREA CURRENTLY USED BY PP
D.PPSTAT  = 77B           CM ADDR OF PP STATUS WORD 
  
R.FAF     = 100B
R.IDLE    = 103B          IDLE LOOP 
R.OVLJ    = 125B          LOAD PRIMARY OVERLAY
R.PAUSE   = 140B          TEST STORAGE MOVE FLAG FOR CTL PT 
R.RAFL    = R.PAUSE 
R.TAFL    = 173B          TERMINATE ACCESS TO CTL PT FL 
R.TFL     =      213B        COMPARE ACCUMLATOR TO FL 
R.MTR     =      225B        ISSUE MONITOR FUNCTION 
R.PROCES  =      R.MTR       ISSUE MONITOR FUNCTION 
R.WAIT    =      236B        PP IDLES TILL BYTE 0 OF OR IS CLEAR
R.RCH     =      276B        RESERVE CHANNEL
R.DCH     =      311B        DROP CHANNEL RESERVATION 
R.STBMSK  =      327B        MASK USED BY R.STB 
 F.STBMSK = -77B                   NORMAL VALUE OF MASK 
R.STB     =      336B        MASK BYTE INTO LISTED WORDS
R.OVL     =      344B        LOAD PP OVERLAY
R.EREQS   =      375B        ENTER REQUEST STACK
R.DFM     =      424B        WRITE DAYFILE MESSAGE
R.READP   =      457B        XMIT DATA INTO PPU 
R.WRITEP  =      466B        XMIT DATA FROM PPU 
R.RWP     =      507B        READ/WRITE LOGIC 
R.RWPP    =      525B        R.EREQS CALL IN R.RWP
          SPACE  5,10 
**        PP RESIDENT SEGMENT DEFINITIONS 
  
SG.ELC    =      1           OVERLAY LOADER FROM ECS VIA SCB
SG.ELD    =      2           OVERLAY LOADER FROM ECS VIA DDP
 SG.RWH   =      3           819 STACK PROCESSOR INTERFACE ROUTINE
          SPACE  4,10 
**        MISCELLANEOUS SYMBOLS 
          SPACE  3
L.CPNUM   = 17B           MASK OF ONES EQUAL TO LENGTH IN BITS OF 
*                         HIGHEST NUMBERED CONTROL POINT
L.IBUFF   = 20B           LENGTH OF INTERCOM LOW SPEED BUFFER 
L.ITYPE   = 17B           BUFFER TYPE MASK
L.IUPF    = 7             INTERCOM UP AND DROP FLAGS MASK 
L.MTRRS   = 4             LENGTH OF CPMTR TO MTR REQUEST STACK
L.PPHDR   = 5             NO. OF PP WORDS COMPRISING HEADER INFO
L.SCHRS   = 4             LENGTH OF SCHEDULER REQUEST STACK 
Q.ILCUST  = 11B           LCC USER TABLE TYPE 
Q.IUSRST  = 1             TYPE IDENTIFIER OF INTERCOM USER TABLE
F.IPFREQ  = 75B           VALUE USED WHEN 1PD CALLS 1IM 
C.PDFLAG  = 4             FLAG BYTE IN PFD HEADER WORD
S.PFDEU   = 3             ENTRY IN USE FLAG IN C.PDFLAG 
C.PCFLAG  = 4             FLAG BYTE IN RBTC HEADER WORD 
C.MVFG    = 3             STORAGE MOVE FLAG FOR RT PROGRAMS 
F.MVFG    = 2             STORAGE MOVE FLAG FOR RT PROGRAMS 
          SPACE  5,10 
**        SYMBOLS TO BE DROPPED AT EARLIEST CONVENIENCE 
          SPACE  3
P.ILR     = 77B           ILR SPECIFICATION WORD
C.ILR     = 2             ILR SPECIFICATION BYTE
CH.ILR    = 15B           INTERLOCK REGISTER CHANNEL
S.CHAN    = 12            FIRST ILR CHANNEL BIT 
*                         ILR FUNCTION CODES
PPK       SPACE  4,30 
***       PP KONSTANT MACROS. 
* 
* 
*         DEPENDING UPON THE VALUE OF THE ARGUMENT THESE MACROS 
*         GENERATE VARIOUS PP INSTRUCTIONS. 
* 
*         THE FOLLOWING TABLE GIVES ALL THE CODE GENERATED BY 
*         EACH OF THE MACROS. 
* 
*         THE CODE GENERATED BY THE OLD VERSIONS OF THE MACROS
*         IS SHOWN FIRST. BENEATH THAT CODE IS THE CODE GEN-
*         ERATED BY THE NEW VERSIONS OF THE MACROS. GREATEST
*         DIFFERENCES OCCUR IN CODE GENERATED BY SBK AND SCK. 
* 
*         ARGUMENT   - - - - - - - - - MACRO NAME - - - - - - - - - - - 
*         VALUE     ADK       LDK      LMK      LPK      SBK      SCK 
* 
*         A@-100    ADC A     LDC A    LMC A    LPC A    ERR      LPC A 
*                   ADC A     LDC A    LMC A    LPC A    ADC -A   LPC -A
* 
*         -77@A@-1  SBN -A    LCN -A   LMC A    LPC A    ERR      LPC A 
*                   SBN -A    LCN -A   LMC A    SCN -A   ADN -A   LPN -A
* 
*         A=-0      ---       ERR      ERR      ERR      ERR      ERR 
*                   ---       LCN 0    LMC -0   ---      ---      LPN 0 
* 
*         A=+0      ---       LDN 0    LMN 0    LPN 0    SBN A    SCN 0 
*                   ---       LDN 0    ---      LPN 0    ---      --- 
* 
*         1@A@77    ADN A     LDN A    LMN A    LPN A    SBN A    SCN A 
*                   ADN A     LDN A    LMN A    LPN A    SBN A    SCN A 
* 
*         100@A     ADC A     LDC A    LMC A    LPC A    ADC -A   LPC -A
*                   ADC A     LDC A    LMC A    LPC A    ADC -A   LPC -A
* 
*         UNDEF     ADC A     LDC A    LMC A    LPC A    ERR      ERR 
*                   ADC A     LDC A    LMC A    LPC A    ADC -A   LPC -A
* 
*         *UNDEF* MEANS CONTAINS SYMBOLS THAT ARE NOT 
*         PREVIOUSLY DEFINED. 
* 
*         ERR MEANS THAT ASSEMBLY ERRORS RESULT.
ADDRA     SPACE  4,16 
**        ADDRA - CHECK IF (A) IS WITHIN FL 
* 
*         IF (A) IS WITHIN FL, ADD D.RA AND RETURN THE ABSOLUTE ADDRESS 
* 
*         3 FORMS 
*         ADDRA  OK=TAG            TO TAG IF ABSOLUTE ADDRESS RETURNED
*         ADDRA  ER=TAG            TO TAG IF RELATIVE ADDRESS TOO BIG 
*         ADDRA  ER=0              NO TEST.  ADDRESS ASSUMED OK.
  
  
          PURGMAC  ADDRA
  
ADDRA     MACROE  OK,ER 
  RJM R.TFL 
  IFC NE,*OK**,1
  NJN OK
  IFC NE,*ER*0*,2 
  IFC NE,*ER**,2
  ZJN ER
  SKIP 2
  IFC EQ,*OK**,1
  ERR TEST NOT DEFINED
  ENDM
ADK       SPACE  4,10 
**        ADK - ADD CONSTANT. 
* 
*         GENERATES ADC, ADN, SBN OR NOTHING. 
  
  
          PURGMAC  ADK
  
 ADK      MACRO  A
  IF DEF,A,9D 
  IFLT A,,4 
  IFGE A,-77B,7 
'?SCP#BB SET A
  SBN -'?SCP#BB 
  SKIP 5
  IFLE A,77B,3
  IFNE A,,3 
  ADN A 
  SKIP 1
  ADC A 
  ENDM
 BIT      SPACE  4
***       BIT - DEFINE BIT MASK.
* 
* SYMBOL  BIT    POS
* 
*         SET  SYMBOL  =  2**POS.   0 @ POS @ 20D.
  
          PURGMAC BIT 
  
          MACRO  BIT,OUT,IN 
'?BITBIT  SET    IN 
#BIT#     DECMIC IN 
OUT       SET    1S"#BIT#"
BIT       ENDM
          PURGMAC   CCARD 
  
  
* 
*         CCARD MACRO 
* 
*         NEW MACRO TO ALLOW CREATION OF A CONTROL CARD 
*         IN PP MEMORY.  THIS MACRO WILL COMPUTE THE
*         PROPER NUMBER OF ZERO BYTES REQUIRED TO 
*         MAKE THE CONTROL CARD A MULTIPLE OF CM WORDS. 
*         EXAMPLE -   CCARD  (REQUEST(OLDPL,E,HY))
* 
  
  
CCARD     MACRO  STUFF
'?SCP#XX  SET    *
          DIS    ,#_STUFF_# 
'?SCP#XX  SET    *-'?SCP#XX+4 
          BSSZ   '?SCP#XX/5*5-'?SCP#XX+4
          ENDM
 CEQU     SPACE  4
***       CEQU - CONDITIONAL EQUATE.
* 
* SYMBOL  CEQU   VALUE
* 
*         DEFINE *SYMBOL* EQUAL TO *VALUE* IF *SYMBOL* IS NOT 
*         PREVIOUSLY DEFINED. 
  
          PURGMAC CEQU
  
  MACRO CEQU,IPSYMBOL,DEFAULT 
  IF -DEF,IPSYMBOL,1
IPSYMBOL EQU DEFAULT
CEQU ENDM 
 CMICRO   SPACE  4
***       CMICRO - CONDITIONAL MICRO. 
* 
* MNAME   CMICRO COUNT,STRING 
* 
*         DEFINE *MNAME* AS A MICRO CONSISTING OF THE FIRST 
*         *COUNT* CHARACTERS IN *STRING* IF THE MICRO *MNAME* 
*         IS NOT PREVIOUSLY DEFINED.  *STRING* MAY CONTAIN ANY
*         CHARACTERS EXCEPT DOLLAR SIGN ($).
  
          PURGMAC CMICRO
  
  MACRO CMICRO,LOC,COUNT,STRING 
  IF -MIC,LOC,1 
LOC MICRO 1,COUNT,$_STRING_$
CMICRO ENDM 
CPAREA    SPACE  4
***       CPAN, CPNA, CPAD   MACROS TO REFERENCE THE CONTROL POINT AREA 
* 
*         CPAN   CONTROL POINT ADDRESS TO NUMBER
*         CPNA   CONTROL POINT NUMBER TO ADDRESS
*         CPAD   SET (A) = ADDRESS WITHIN CP AREA 
* 
          PURGMAC  CPAN 
          PURGMAC  CPNA 
          PURGMAC  CPAD 
* 
CPAN      MACRO 
          SHN    -07
          ENDM
* 
CPNA      MACRO 
          SHN    07 
          ENDM
* 
CPAD      MACRO  P1 
          CON    3000B+D.CPAD,1600B+P1
*                LDD          ADN 
*         (DONE TO GET COMPASS LIST OF BOTH BYTES)
          ENDM
 CRI      SPACE  4
***       CRI - CENTRAL READ INDIRECT.
* 
*         CRI    X,Y,Z
* 
*         READ INTO DIRECT CELLS *Y* THRU *Y*+4, THE CENTRAL MEMORY 
*         WORD WHOSE ABSOLUTE CM ADDRESS IS IN BYTE *Z* (0 @ Z @ 4) 
*         OF THE CM WORD AT ABSOLUTE CM ADDRESS *X* (0 @ X @ 77B).
  
          PURGMAC CRI 
  
CRI MACRO X,Y,Z 
  LDN X 
  CRD Y 
  LDD Y+Z 
  CRD Y 
CRI ENDM
 ENM      SPACE  4
***       ENM - PPU SUBROUTINE ENTRY/EXIT.
* 
* NAME    ENM    X
* 
*         BEGIN SUBROUTINE WITH ENTRY POINT LABELED *NAME*
*         AND EXIT POINT LABELED *NAME_X*.
  
          PURGMAC ENM 
  
  MACRO ENM,N,X 
  IFC NE,+X++,2 
N_X LJM 
  IFCP 1
  LJM 
N EQU *-1 
ENM ENDM
          SPACE     4 
***       ILR - FUNCTION INTERLOCK REGISTER 
* 
* LOC     ILR       FNC,BIT,A 
* 
*         GENERATE CODE TO FUNCTION ILR, REAL OR SIMULATED
  
          PURGMAC   ILR 
  
          MACRO     ILR,LOC,FNC,BIT,A 
          IFC       NE,$A$$,2 
LOC       ADC       BIT+ILR.FNC 
          ELSE      1 
LOC       LDC       BIT+ILR.FNC 
  
          OAN       CH.ILR
          IAN       CH.ILR
ILR       ENDM
 JOBCARD  SPACE  4
***       JOBCARD - DEFINE INSTALLATION JOB CONTROL CARD FORMAT.
* 
*         JOBCARD 
  
          PURGMAC JOBCARD 
  
JOBCARD MACRO 
JOBCARD ENDM
 LDCA     SPACE  4
***       LDCA - LOAD CENTRAL MEMORY ADDRESS. 
* 
*         LDCA   D
  
          PURGMAC LDCA
  
LDCA MACRO A,B
  LDD A 
  LPN 37B 
  SHN 12D 
  ADD A+1 
  ADDRA B 
  ENDM
LDK       SPACE  4,10 
**        LDK - LOAD CONSTANT.
* 
*         GENERATES LDC, LDN OR LCN.
  
  
          PURGMAC  LDK
  
 LDK      MACRO  A
  IF DEF,A,8D 
  IFMI A,4
  IFGE A,-77B,6 
'?SCP#BB SET A
  LCN -'?SCP#BB 
  SKIP 4
  IFLE A,77B,2
  LDN A 
  SKIP 1
  LDC A 
  ENDM
LMK       SPACE  4,10 
**        LMC - LOGICAL MINUS CONSTANT. 
* 
*         GENERATES LMC, LMN OR NOTHING.
  
  
          PURGMAC  LMK
  
 LMK      MACRO  A
  IF DEF,A,5
  IFPL A,4
  IFLE A,77B,3
  IFNE A,,3 
  LMN A 
  SKIP 1
  LMC A 
  ENDM
LPK       SPACE  4,10 
**        LPK - LOGICAL PRODUCT CONSTANT. 
* 
*         GENERATES LPC, LPN, SCN OR NOTHING. 
  
  
          PURGMAC  LPK
  
 LPK      MACRO  A
  IF DEF,A,9D 
  IFMI A,5
  IFGE A,-77B,7 
  IFNE A,,7 
'?SCP#BB SET A
  SCN -'?SCP#BB 
  SKIP 4
  IFLE A,77B,2
  LPN A 
  SKIP 1
  LPC A 
  ENDM
 PPENTRY  SPACE  4
***       PPENTRY - INITIALIZE PPU MAIN PROGRAM.
* 
*         PPENTRY D.PPIRB,D.T0
  
          PURGMAC PPENTRY 
  
PPENTRY MACRO S,T 
  LDD D.PPIR
  CRD S 
  IFEQ T,D.T0 
  RJM R.RAFL
  ELSE
  ERR MACRO CALL ERROR
  ENDIF 
PPENTRY ENDM
'?SCP#DS  SPACE  4,10 
**        '?SCP#DS - DEFINE SYMBOL
* 
*         THIS IS AN INTERNAL MACRO USED ONLY 
*         BY SBK AND SCK . ASSEMBLY OF THIS 
*         MACRO WILL ONLY OCCUR WHEN THE PARAMETER
*         ON THE SBK OR SCK MACRO IS UNDEFINED .
  
'?SCP#DS  MACRO  A
          LOCAL  B
  RMT 
B EQU A 
  RMT 
'?SCP#BB  MICRO  1,,*B* 
  ENDM
SBK       SPACE  4,10 
**        SBK - SUBTRACT CONSTANT.
* 
*         GENERATES ADC, ADN, SBN OR NOTHING. 
  
  
          PURGMAC  SBK
  
 SBK      MACRO  A
  IF DEF,A,3
'?SCP#BB SET A
  ADK -'?SCP#BB 
  SKIP 2
  '?SCP#DS A
  ADC -"'?SCP#BB" 
  ENDM
SCK       SPACE  4,10 
**        SCK - SELECTIVE CLEAR CONSTANT. 
* 
*         GENERATES LPC, LPN, SCN OR NOTHING. 
  
  
          PURGMAC  SCK
  
 SCK      MACRO  A
  IF DEF,A,3
'?SCP#BB SET A
  LPK -'?SCP#BB 
  SKIP 2
  '?SCP#DS A
  LPK -"'?SCP#BB" 
  ENDM
 UJK      SPACE  4
***       UJK - UNCONDITIONAL JUMP. 
* 
*         UJK    M
  
          PURGMAC UJK 
  
UJK MACRO P 
  IF DEF,P,5
'?SCP#LF SET P
  IFGT *-'?SCP#LF,-40B,3
  IFLT *-'?SCP#LF,40B,2 
  UJN P 
  SKIP 1
  LJM P 
UJK ENDM
  
  
 PPSYS    ENDX
