COMSMTX 
COMMON
          CTEXT  COMSMTX - MAGNETIC TAPE EXECUTIVE EQUIVALENCES.
          BASE   M
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 COMSMTX  SPACE  4
***       COMSMTX - RESOURCE EXECUTIVE EQUIVALENCES.
*         R. E. TATE.        71/07/03.
 COMSMTX  SPACE  4
***       *COMSMTX* CONTAINS EQUIVALENCES FOR THE CPU AND PPU 
*         PORTIONS OF THE MAGNETIC TAPE EXECUTIVE AS WELL AS
*         DEFINITIONS AND DOCUMENTATION THAT ARE COMMON.
          SPACE  4
***       TAPE FORMATS. 
* 
*         DEFINITIONS-
* 
*         DENSITY - DENSITY WILL ONLY BE SELECTED AT LOAD POINT ON
*         WRITE.
* 
*         BINARY - NO CODE CONVERSION PERFORMED.  7 TRACK, 9 TRACK
*         AND CARTRIDGE TAPES ARE ALL WRITTEN AND READ IN ODD PARITY. 
* 
*         CODED - 7 TRACK IS WRITTEN AND READ IN EVEN PARITY.  9 TRACK
*         IS WRITTEN AND READ IN ODD PARITY.  ON 7 TRACK , CODE 
*         CONVERSION WILL BE PERFORMED BETWEEN EXTERNAL BCD AND DISPLAY 
*         CODE.  ON 9 TRACK, READ CONVERSION WILL BE PERFORMED FROM AN
*         EIGHT BIT ASCII OR EBCDIC CHARACTER TO A SIX BIT DISPLAY
*         CODE CHARACTER.  ON 9 TRACK WRITE SIX BIT DISPLAY CODE
*         CHARACTERS WILL BE MAPPED TO EIGHT BIT ASCII OR EBCDIC
*         CHARACTERS.  THE SELECTION OF ASCII OR EBCDIC IS A USER 
*         OPTION.  CODED MODE IS NOT SUPPORTED ON CARTRIDGE TAPES 
*         (EXCEPT FOR 80-CHARACTER WRITES AND READS, WHICH ARE USED 
*         BY *BLANK* TO CREATE AND VERIFY LABELS).
* 
*         END OF TAPE - THE FOLLOWING ARE THE USER OPTIONS AVAILABLE
*         WHEN END OF TAPE (EOT) IS SENSED. 
* 
*         1)     ON WRITE WHEN EOT IS SENSED THE BLOCK ON WHICH EOT 
*                OCCURRED WILL BE REWRITTEN AS THE FIRST BLOCK ON THE 
*                FOLLOWING REEL.  NO TRAILER INFORMATION WILL BE PLACED 
*                ON THE CURRENT REEL.  ON READ THE BLOCK ON WHICH 
*                EOT OCCURRED WILL BE DISCARDED AND THE READ WILL 
*                CONTINUE ON THE NEXT REEL.  IF A TAPE MARK AND EOT 
*                OCCUR AT THE SAME TIME, EOT WILL BE IGNORED. 
*                THIS OPTION IS NOT SUPPORTED FOR I, SI AND LI FORMATS. 
* 
*         2)     IF, DURING A WRITE OPERATION, THE SYSTEM 
*                SENSES THE END-OF-TAPE, A TRAILER SEQUENCE 
*                CONSISTING OF A TAPE MARK IS WRITTEN 
*                FOLLOWING THE BLOCK ON WHICH EOT OCCURRED. 
*                ANY DATA THAT MAY OCCUR FOLLOWING THE BLOCK
*                ON WHICH EOT WAS SENSED PRIOR TO THE TAPE
*                MARK IS CONSIDERED AS GARBAGE ON A READ. 
*                READ OPERATIONS, THE SYSTEM TRANSFERS TO 
*                THE USER THE BLOCK ON WHICH EOT WAS
*                SENSED.  THE READ OPERATION RESUMES ON THE 
*                NEXT REEL.  IF A TAPE MARK AND THE EOT ARE 
*                SENSED AT THE SAME TIME, THE EOT IS IGNORED. 
*                THIS OPTION IS NOT SUPPORTED FOR I, SI AND LI FORMATS. 
* 
*         3)     IF, DURING A WRITE OPERATION, THE SYSTEM SENSES
*                THE END-OF-TAPE, THE SYSTEM WRITES A TRAILER 
*                SEQUENCE FOLLOWING THE BLOCK ON WHICH EOT OCCURRED.
*                THIS TRAILER SEQUENCE CONSISTS OF A TAPE MARK
*                FOLLOWED BY AN EOV1 LABEL FOR LABELED TAPES OR 
*                TAPE MARKS FOR UNLABELED TAPES.  THE NEXT BLOCK
*                WILL THEN BE WRITTEN ON THE NEXT REEL. 
*                DURING READ OPERATIONS, THE EOT IS NOTED AND THE 
*                SYSTEM TRANSFERS TO THE USER THE BLOCK ON WHICH
*                EOT WAS SENSED PLUS ALL FOLLOWING BLOCKS UNTIL A 
*                TRAILER SEQUENCE (TAPE MARK FOR UNLABELED TAPES, 
*                TAPE MARK PLUS EOV1 LABEL FOR LABELED TAPES) IS
*                RECOGNIZED.  READING WILL THEN RESUME ON THE 
*                NEXT REEL. 
* 
* 
*         REWIND/UNLOAD PROCESSING. 
* 
*         ANY TIME A REWIND/UNLOAD IS PERFORMED AND THE LAST OPERATION
*         ON THE TAPE WAS A WRITE THE FOLLOWING WILL BE PERFORMED-
* 
*         1)     ON AN UNLABELED TAPE (EXCEPT FOR I, SI AND LI FORMAT 
*                TAPES) FOUR TAPE MARKS WILL BE WRITTEN.
* 
*         2)     ON A LABELED TAPE (ALSO FOR UNLABELED I, SI AND LI 
*                FORMAT TAPES) A TRAILER LABEL SEQUENCE WILL BE 
*                WRITTEN. 
* 
*         POSITIONING OF THE TAPE AFTER A REWIND WILL BE AS FOLLOWS - 
* 
*         1)     POSITIONING AFTER REWIND WILL BE 
*                AT THE BEGINNING OF FILE.  IF THIS REQUIRES BACKING
*                OVER REELS THIS WILL BE DONE TRANSPARENTLY TO THE
*                USER.  THE SYSTEM WILL REQUEST THE APPROPRIATE 
*                PREVIOUS REEL BASED ON THE VSN FILE.  IF TAPE
*                ASSIGNMENTS ARE BEING MADE VIA THE OLD METHOD OF 
*                OPERATOR ASSIGNMENT OF EST ORDINALS AND THUS THE 
*                SYSTEM IS ASSIGNING DEFAULT VSN,S, THEN MULTI REEL 
*                OPERATIONS MAY LEAVE THE OPERATOR CONFUSED AS TO 
*                WHAT REEL TO MOUNT.
* 
*         THE FOLLOWING DEFINES THE ACTION TAKEN BY THE SYSTEM WHEN 
*         END OF REEL IS ENCOUNTERED DURING TAPE OPERATIONS.  (WHERE
*         OCCURANCE OF END OF REEL IS AS DEFINED BY ONE OF THE OPTIONS
*         SPECIFIED EARLIER.) 
* 
*         1)     USER PROCESSING NOT SELECTED IN FET. 
* 
*                A)          PROCESSING WILL CONTINUE AS IF USER HAD
*                            PERFORMED A CLOSER FUNCTION WITHOUT
*                            USER PROCESSING SELECTED.  (SEE DEFINITION 
*                            OF CLOSER) 
* 
*         2)     USER PROCESSING SELECTED IN FET. 
* 
*                A)          CONTROL WILL BE RETURNED TO THE CALLING
*                            PROGRAM WITH END OF REEL STATUS SET IN 
*                            THE FET.  TAPE WILL BE POSITIONED SO THAT
*                            IF USER ATTEMPTS TO PERFORM ANOTHER I/O
*                            OPERATION THE RESULT WILL BE THE SAME. 
*                            THUS, A USER CANNOT RUN OFF END OF REEL. 
* 
*                B)          THE USER WOULD NOW NORMALLY EITHER ISSUE A 
*                            CLOSER FUNCTION OR AN UNLOAD.  SEE 
*                            DEFINITON OF THESE FUNCTIONS.
* 
*         3)     REWIND AND UNLOAD AFTER END OF REEL AS WELL AS CLOSER
*                AT ALL TIMES WILL CAUSE THE FOLLOWING TO OCCUR - 
* 
*                A)          IF THE LAST OPERATION ON THE TAPE WAS
*                            A WRITE -
* 
*                            (1)   IF UNLABELED, A TAPE MARK WILL BE
*                                  WRITTEN. 
* 
*                            (2)   IF LABELED, A TRAILER LABEL SEQUENCE 
*                                  WILL BE WRITTEN. 
* 
*                                  (A) IF NEXT VSN HAS BEEN PREVIOUSLY
*                                      DECLARED, AN OPTIONAL OPERATING
*                                      SYSTEM LABEL WILL BE WRITTEN 
*                                      CONTAINING THE VSN OF THE NEXT 
*                                      REEL.
* 
*                                  (B) IF NEXT VSN HAS NOT BEEN 
*                                      DECLARED BEFORE, THE TRAILER 
*                                      LABEL SEQUENCE WILL NOT INCLUDE
*                                      THE OPTIONAL SYSTEM LABEL. 
* 
*                            (3)   IF I, SI OR LI SAME AS IF LABELED. 
* 
*                B)          IF THE LAST OPERATION ON THE TAPE WAS A
*                            READ - 
* 
*                            (1)   IF TAPE HAS A TRAILER LABEL
*                                  SEQUENCE ON IT WITH AN OPTIONAL
*                                  OPERATING SYSTEM LABEL OF THE
*                                  CORRECT FORMAT THEN EXTRACT THE
*                                  NEXT VSN, OTHERWISE CONTINUE.
* 
*                            (2)   IF NEXT VSN FOR THE TAPE PREVIOUSLY
*                                  DECLARED, PROCEED TO 3.C.
* 
* 
*                C)          THE PRESENT REEL WILL BE REWOUND AND 
*                            (OR) UNLOADED. 
* 
*                D)          IF A CLOSER OPERATION WITHOUT UP, THE TYPE 
*                            IS DECLARED AS LABELED, AND THE FET IS 
*                            LONG ENOUGH TO ALLOW FOR A LABEL FIELD,
*                            THE FILE SECTION NUMBER WILL BE
*                            INCREMENTED IN THE USER,S FET. 
* 
*                E)          THE FET IS COMPLETED.  IF CLOSER WITH USER 
*                            PROCESSING SELECTED, END OF REEL STATUS IS 
*                            RETURNED AGAIN.
* 
*         4)     CONTINUATION OF OPERATION ON NEXT REEL-
* 
*                A)          IF VSN FOR NEXT REEL IS NOT YET KNOWN, 
*                            THEN NOTIFY OPERATOR NEXT VSN NEEDS TO BE
*                            SPECIFIED. 
* 
*                B)          WHEN NEXT VSN IS KNOWN FOR FILE, REQUEST 
*                            OPERATOR TO MOUNT IT, IF IT IS NOT 
*                            ALREADY MOUNTED.  THIS NEW TAPE DOES NOT 
*                            HAVE TO BE ON THE SAME DRIVE AS BEFORE 
*                            (BUT MUST BE ON IDENTICAL DRIVE TYPE). 
* 
*         5)     IF LABELED OPERATION, THE CALLING PROGRAM MAY DO AN
*                OPEN ON THE FILE TO GET LABEL INFORMATION RETURNED 
*                TO ITS BUFFER. 
* 
* 
*         BLOCK TERMINATOR (I AND SI FORMATS).
* 
*T        12/ BC,24/ BN,8/ 0,4/ LN
* 
*                BC = TOTAL NUMBER OF BYTES IN THE BLOCK INCLUDING THE
*                     BLOCK TERMINATOR. 
*                BN = COUNT OF BLOCKS SINCE THE LAST *HDR1* LABEL.
*                LN = LEVEL NUMBER. 
* 
*         BLOCK TERMINATOR USAGE -
* 
*         1)     ALL DATA BLOCKS IN I FORMAT WILL HAVE A BLOCK
*                TERMINATOR EXCEPT FOR LABELS.
* 
*         2)     ALL DATA BLOCKS OF LESS THAN 1000B CM WORDS
*                WILL HAVE A BLOCK TERMINATOR FOR SI FORMAT.
* 
* 
*         BLOCK PREFIX (LI FORMAT). 
* 
*T        24/ BC,24/ BN,8/ 0,4/ LN
* 
*                BC = TOTAL NUMBER OF BYTES IN THE BLOCK INCLUDING THE
*                     BLOCK PREFIX. 
*                BN = COUNT OF BLOCKS SINCE THE LAST *HDR1* LABEL.
*                LN = LEVEL NUMBER. 
* 
*         BLOCK PREFIX USAGE -
* 
*                ALL DATA BLOCKS IN LI FORMAT WILL HAVE A BLOCK 
*                PREFIX EXCEPT FOR LABELS.
* 
* 
*         TAPE FORMATS (PHYSICAL CHARACTERISTICS).
* 
* 
*         I FORMAT (INTERNAL) 
* 
*         1)     MODE - BINARY ALWAYS.  CODED/BINARY BIT IN THE FET 
*                HAS NO MEANING.
* 
*         2)     BLOCK SIZE - THE ACTUAL DATA BLOCK WILL RANGE FROM 
*                0 TO 1000B CM WORDS IN EXACT MULTIPLES OF CM WORDS.
*                ALL BLOCKS WILL INCLUDE A BLOCK TERMINATOR EXCEPT
*                FOR LABELS.  A BLOCK MAY CONTAIN ONLY A BLOCK
*                TERMINATOR.  USER SPECIFIED FRAME OR CHARACTER COUNTS
*                HAVE NO MEANING. 
* 
*         3)     EOR - ANY BLOCK WITH LESS THAN 1000B CM WORDS OF 
*                DATA WILL REPRESENT AN EOR.  THE LEVEL NUMBER FIELD
*                WILL CONTAIN THE LEVEL NUMBER FROM THE FET OR
*                CONTROL WORD (204 CIO CODE).  ON READ AN EOR AND 
*                THE CONTENTS OF THE LEVEL FIELD WILL BE RETURNED.
*                IF LEVEL 17, THEN EOF WILL BE RETURNED ALSO. 
* 
*         4)     EOF - AN EOF WILL BE BLOCK CONSISTING OF ONLY A BLOCK
*                TERMINATOR WITH A LEVEL OF 17.  THE SYSTEM WILL ALSO 
*                INSURE THAT AN EOR WILL ALWAYS PRECEDE AN EOF BY 
*                WRITING A BLOCK TERMINATOR WITH A LEVEL OF 0 IF
*                NECESSARY PRIOR TO EOF.
* 
*         5)     EOI - A TAPE MARK FOLLOWED BY AN EOF1 LABEL.  IF A 
*                TAPE MARK IS ENCOUNTERED WITHOUT A VALID LABEL 
*                FOLLOWING, IT WILL BE CONSIDERED AS AN ERROR.
* 
*         6)     END OF REEL - SEE ITEM 3 UNDER END OF TAPE.
* 
*         7)     NOISE - ALL BLOCKS OF LESS THAN 8 FRAMES (7 TRACK) 
*                OR 6 FRAMES (9 TRACK) WILL BE CONSIDERED AS NOISE. 
* 
*         8)     TAPE CAN BE LABELED OR UNLABELED.
* 
*         9)     OTHER -
* 
*                A)          ALL 9 TRACK TAPES WILL BE WRITTEN AS AN
*                            EVEN MULTIPLE OF BYTES SUCH THAT FILL
*                            STATUS WILL NEVER OCCUR. 
* 
*                B)          ALL READS WILL CHECK BOTH THE BLOCK LENGTH 
*                            READ AND THE BLOCK NUMBER EXPECTED AGAINST 
*                            THOSE IN THE BLOCK TERMINATOR AS WELL AS 
*                            CHECKING FOR FILL STATUS.  IF ANY OF 
*                            THESE OCCUR, MESSAGES WILL BE ISSUED AND 
*                            RECOVERY PROCEDURES INITIATED.  THIS WILL
*                            IN GENERAL PREVENT DROPPED BLOCKS, ETC.
*                            THIS SHOULD PROVIDE A HIGHER DEGREE OF 
*                            OF RELIABILITY THAN SI, S, L, OR F FORMAT. 
* 
* 
* 
*         SI FORMAT (SYSTEM INTERNAL) 
* 
*         1)     MODE - BINARY ALWAYS.  IF CODED JOB IS ABORTED.
* 
*         2)     BLOCK SIZE - THE ACTUAL DATA BLOCK WILL RANGE FROM 
*                0 T0 1000B CM WORDS FOR BINARY IN EXACT MULTIPLES
*                OF CM WORDS.  ALL BLOCKS LESS THAN THE MAXIMUM SIZE
*                WILL INCLUDE A BLOCK TERMINATOR EXCEPT FOR LABELS. 
*                A BLOCK MAY CONTAIN ONLY A BLOCK TERMINATOR.  USER 
*                SPECIFIED FRAME OR CHARACTER COUNTS HAVE NO MEANING. 
* 
*         3)     EOR - ANY BLOCK WITH LESS THAN 1000B CM WORDS OF 
*                DATA WILL REPRESENT AN EOR.  THE LEVEL NUMBER FIELD
*                ON WRITE WILL CONTAIN THE LEVEL NUMBER FROM THE FET OR 
*                CONTROL WORD (204 CIO CODE).  ON READ AN EOR AND 
*                THE CONTENTS OF THE LEVEL FIELD WILL BE RETURNED.
*                IF LEVEL 17, THEN EOF WILL BE RETURNED ALSO. 
* 
*         4)     EOF - SAME AS I FORMAT.
* 
*         5)     EOI - SAME AS I FORMAT.
* 
*         6)     END OF REEL - SAME AS I FORMAT.
* 
*         7)     NOISE - SAME AS I FORMAT.
* 
*         8)     TAPE CAN BE LABELED OR UNLABELED.
* 
*         9)     OTHER -
* 
*                A)          ALL 9 TRACK TAPES WILL BE WRITTEN WITH 
*                            3N + 2 TO INSURE EXACT FRAME COUNT.
* 
*                B)          NO BLOCK CHECKING WILL BE DONE.
* 
* 
* 
*         S (L) FORMAT.  (STRANGER/LONG RECORD STRANGER)
* 
*         1)     MODE - BINARY OR CODED DETERMINED BY BINARY/CODED
*                BIT IN THE FET.
* 
*         2)     BLOCK SIZE - SPECIFIED BY MLRS FIELD IN FET. 
*                IF NOT SPECIFIED, DEFAULT IS 1000B FOR S FORMAT AND
*                LIMIT - FIRST - 1 FOR L FORMAT.
* 
*         3)     EOR - ALL BLOCKS ARE CONSIDERED AS RECORDS.
* 
*         4)     EOF - TAPE MARK. 
* 
*         5)     EOI - IF UNLABELED, NONE.  IF LABELED, TAPE MARK PLUS
*                EOF1 LABEL.
* 
*         6)     END OF REEL - SEE ITEM 3 UNDER END OF TAPE.
* 
*         7)     NOISE - ALL BLOCKS OF LESS THAN 18 FRAMES UNLESS THE 
*                NOISE SIZE IS SPECIFIED ON THE TAPE REQUEST.  THE
*                MAXIMUM VALUE THAT CAN BE SPECIFIED IS 31 FRAMES.
* 
*         8)     TAPE MAY BE LABELED OR UNLABELED.
* 
*         9)     OTHER -
* 
*                A)          CIO CODES 10, 14, 24, AND 34 ALL PERFORM A 
*                            ONE BLOCK OPERATION (PRU OPERATION).  WITH 
*                            THE UNUSED BIT COUNT BEING TAKEN 
*                            FROM/RETURNED TO THE FET MLRS FIELD. 
* 
*                B)          CIO CODES 200, 204, 260, AND 264 ALL 
*                            PERFORM AS NORMAL EXCEPT FOR LEVEL 
*                            NUMBERS. 
* 
*                C)          LEVEL NUMBERS 1 THROUGH 16 WILL BE 
*                            CONSIDERED AS 0. 
* 
*                D)          CODE CONVERSION APPLIES TO BOTH 7 AND
*                            9 TRACK. 
* 
* 
* 
*         F FORMAT (FOREIGN)
* 
*         1)     MODE - BINARY (9 TRACK), BINARY/CODED (7 TRACK) AS 
*                NEEDED.
* 
*         2)     BLOCK SIZE - CANNOT BE GREATER THAN CM BUFFER SIZE.
*                NO EXPLICIT MULTIPLE OF FRAMES REQUIRED.  MAXIMUM
*                BLOCK SIZE MUST BE DESIGNATED AT TAPE REQUEST TIME.
*                THE BLOCK SIZE IS USED TO DETERMINE WHETHER TO 
*                CONTINUE READS OR WRITES BASED ON DATA/ROOM IN BUFFER. 
*                THUS, ONE SHOULD NOT SIMPLY PICK SOME LARGE VALUE FOR
*                THIS NUMBER. 
* 
*         3)     EOR - NONE.
* 
*         4)     EOF - TAPE MARK. 
* 
*         5)     EOI - NONE.
* 
*         6)     END OF REEL - SEE ITEM 3 UNDER END OF TAPE.
* 
*         7)     NOISE - SAME AS *S* AND *L* FORMAT.
* 
*         8)     CAN BE UNLABELED ONLY. 
* 
*         9)     OTHER -
* 
*                A)          IN 7 TRACK IF A PARITY ERROR IS
*                            ENCOUNTERED DUE TO TAPE BEING WRITTEN IN 
*                            THE OPPOSITE MODE THEN THE MODE WILL BE
*                            SWITCHED.
* 
*                B)          F FORMAT OPERATIONS ARE ONLY DONE WITH 
*                            CONTROL WORD READS AND WRITES. 
*                            ON READ OPERATIONS THE CONTROL WORDS 
*                            ARE DELIVERED REGARDLESS OF CIO CODES. 
* 
* 
* 
*         LI FORMAT (LONG RECORD INTERNAL)
* 
*         1)     MODE - BINARY ALWAYS.  CODED/BINARY BIT IN THE FET 
*                HAS NO MEANING.
* 
*         2)     BLOCK SIZE - THE ACTUAL DATA BLOCK WILL RANGE FROM 
*                0 TO 10000B CM WORDS IN EXACT MULTIPLES OF CM WORDS. 
*                ALL BLOCKS WILL INCLUDE A BLOCK PREFIX EXCEPT FOR
*                LABELS.  A BLOCK MAY CONTAIN ONLY A BLOCK PREFIX.
*                USER SPECIFIED FRAME OR CHARACTER COUNTS HAVE NO 
*                MEANING. 
* 
*         3)     EOR - ANY BLOCK WITH LESS THAN 10000B CM WORDS OF
*                DATA WILL REPRESENT AN EOR.  THE LEVEL NUMBER FIELD
*                WILL CONTAIN THE LEVEL NUMBER FROM THE FET OR
*                CONTROL WORD (204 CIO CODE).  ON READ AN EOR AND 
*                THE CONTENTS OF THE LEVEL FIELD WILL BE RETURNED.
*                IF LEVEL 17, THEN EOF WILL BE RETURNED ALSO. 
* 
*         4)     EOF - SAME AS I FORMAT.
* 
*         5)     EOI - SAME AS I FORMAT.
* 
*         6)     END OF REEL - SAME AS I FORMAT.
* 
*         7)     NOISE - SAME AS I FORMAT.
* 
*         8)     TAPE CAN BE LABELED OR UNLABELED.
* 
*         9)     OTHER -
* 
*                A)          ALL 9 TRACK TAPES WILL BE WRITTEN AS AN
*                            EVEN MULTIPLE OF BYTES SUCH THAT FILL
*                            STATUS WILL NEVER OCCUR. 
* 
*                B)          ALL READS WILL CHECK BOTH THE BLOCK LENGTH 
*                            READ AND THE BLOCK NUMBER EXPECTED AGAINST 
*                            THOSE IN THE BLOCK PREFIX AS WELL AS 
*                            CHECKING FOR FILL STATUS.  IF ANY OF 
*                            THESE OCCUR, MESSAGES WILL BE ISSUED AND 
*                            RECOVERY PROCEDURES INITIATED.  THIS WILL
*                            IN GENERAL PREVENT DROPPED BLOCKS, ETC.
*                            THIS SHOULD PROVIDE A HIGHER DEGREE OF 
*                            OF RELIABILITY THAN SI, S, L, OR F FORMAT. 
          SPACE  4,10 
**        MICROS. 
  
  
*         ZFAM - DEFINES FAMILY NAME THAT BINARY ZERO FAMILY NAME 
*                MAPS INTO (FOR LABELED TAPE ACCESS BY OWNER).
  
 ZFAM     MICRO  0,7,$$ 
          SPACE  4
*         CDC ASSEMBLY CONSTANTS. 
  
 LBWD     EQU    600         LONG BLOCK CM WORDS PER INPUT
 MCHAN    EQU    10          MAXIMUM NUMBER OF TAPE CHANNELS
 MUNIT    EQU    32D         MAXIMUM NUMBER OF UNITS
 MXRM     EQU    20B         MAXIMUM ACS MOUNT REQUESTS FROM *RESEX*
 PFTBL    EQU    10B         *PFM* STAGE REQUEST BUFFER LENGTH
 PGSZ     EQU    11D         NUMBER OF ENTRIES ON DSD E,T DISPLAY 
 PGS2     EQU    16D         NUMBER OF ENTRIES FOR E,T ON CC545 CONSOLE 
 RQFL     EQU    136         INITIALIZATION FIELD LENGTH
 RCALL    EQU    100B        LENGTH OF INTER-CP REQUEST BUFFER
 UACI     EQU    RQFL*100-101  ACS IDENTIFIER 
 UINT     EQU    RQFL*100-100  INTILIZATION INTERFACE AREA
 UIBF     EQU    RQFL*100-1000-6000  BUFFER FOR FIRMWARE
 VETL     EQU    20B         ACS VSN ERROR TABLE LENGTH 
  
*         INSTALLATION ASSEMBLY CONSTANTS.
* 
  
 DSTD     EQU    2RGE        DEFAULT 9-TRACK STAGING TAPE DENSITY 
 NTIM     EQU    300D        DEFAULT WAIT TIME FOR *E,P* MESSAGE
  
*         NOTE - PROCESSING OPTIONS MUST BE SET TO 0 OR 1 (NO OTHER 
*         VALUE IS ACCEPTABLE). 
  
 POLM     EQU    0           DEFAULT ERROR MESSAGE PROCESSING OPTION
*                0 = DO NOT ISSUE TAPE DETAILED STATUS ERROR MESSAGES 
*                    TO THE USER DAYFILE. 
*                1 = ISSUE A TAPE DETAILED STATUS ERROR MESSAGE TO THE
*                    USER DAYFILE FOR BOTH THE FIRST AND THE LAST 
*                    ATTEMPT TO READ A BAD TAPE BLOCK.
          ERRNG  POLM        CHECK FOR OPTION .LT. 0
          ERRNG  1-POLM      CHECK FOR OPTION .GT. 1
  
 POGH     EQU    0           DEFAULT GCR WRITE RECOVERY OPTION
*                0 = ENABLE GCR WRITE ERROR RECOVERY
*                1 = DISABLE GCR HARDWARE WRITE ERROR RECOVERY
          ERRNG  POGH        CHECK FOR OPTION .LT. 0
          ERRNG  1-POGH      CHECK FOR OPTION .GT. 1
  
 ULTO     EQU    60D         ACS UNIT UNLOAD TIME OUT (SECONDS) 
 CST      SPACE  4,10 
**        CHANNEL STATUS TABLE DEFINITIONS. 
  
  
 BEGIN    BSSN   0
  
 CPST     BSSN   1           PROCESSOR STATUS 
 CUAC     BSSN   1           UNIT ACCESS
  
 CSTE     BSSN   0           CST ENTRY LENGTH 
  
 END      BSSN
 CST      SPACE  4,10 
***       CHANNEL STATUS TABLE (CST). 
* 
* 
*T  CPST  1/A,35/RES,3/ EQ,1/R,2/CT,6/ CH,12/ UDTA
*T, CUAC  36/ UNITA,24/0
* 
*         A      *1MT* ACTIVE.
*         RES    RESERVED.
*         EQ     EQUIPMENT NUMBER OF CONTROLLER (0 IF CTS). 
*         R      RESERVED.
*         CT     CONTROLLER TYPE. 
*                0 = ISMT CONTROLLER. 
*                1 = ATS/CMTS/FSC CONTROLLER. 
*                2 = MTS (66X) CONTROLLER.
*                3 = CTS CONTROLLER.
*         CH     CHANNEL NUMBER.
*         UDTA   ADDRESS OF NEXT UDT TO PROCESS.
* 
*         UNITA  MASK OF UNITS ACCESSIBLE ON CHANNEL. 
 TFUN     SPACE  4,10 
***       TFUN - *1MT* FUNCTION CODE TABLE. 
* 
*T,       5/ OV,1/0,1/B,1/U,4/ AO,12/ ADDR,36/ RESERVED 
*         OV     OVERLAY NAME THIRD CHARACTER.
*         B      FUNCTION REQUIRES NOT BUSY (SEE NOTE). 
*         U      FUNCTION TO BE DONE AT USER,S CONTROL POINT. 
*         AO     ADDITIONAL OVERLAY REQUIRED IF NONZERO.  OV PLUS AO IS 
*                THE SECOND OVERLAY NAME THIRD CHARACTER. 
*         ADDR   ADDRESS OF FUNCTION PROCESSOR.  *CPP* JUMPS TO 
*                THIS ADDRESS.
* 
*         NOTE   THIS FLAG ALSO INDICATES THAT THE FUNCTION REQUIRES
*                A FORMAT UNIT FUNCTION TO BE ISSUED FOR MTS AND ATS
*                UNITS. SEE ROUTINE *CCD* IN *1MT* CONTROL POINT PRESET 
*                OVERLAY. 
 UDT      SPACE  4
*         UNIT DESCRIPTOR TABLE DEFINITIONS.
  
 BEGIN    BSSN
 UXRQ     BSSN   1           PPU EXECUTIVE REQUEST
 UFRQ     BSSN   1           FILE REQUEST 
 UCIA     BSSN   1           CIO REQUEST PARAMETERS 
 UCIB     BSSN   1           CIO REQUEST PARAMETERS 
 UCIC     BSSN   1           CIO REQUEST PARAMETERS 
 UST1     BSSN   1           STATUS (1) 
 UST2     BSSN   1           STATUS (2) 
 UST3     BSSN   1           STATUS (3) 
 UST4     BSSN   1           STATUS (4) 
 UST5     BSSN   1           STATUS (5) 
 UDS1     BSSN   1           DETAILED STATUS
 UDS2     BSSN   1           DETAILED STATUS
 UDS3     BSSN   1           DETAILED STATUS
 UDS4     BSSN   1           DETAILED STATUS OR FORMAT PARAMETERS 
 UDS5     BSSN   1           DETAILED STATUS OR BLOCK ID WINDOW 
 UDS6     BSSN   1           DETAILED STATUS OR BLOCK ID WINDOW 
 UERC     BSSN   1           LATE DATA, WRITE, AND READ ERROR COUNTS
 UBLC     BSSN   1           BLOCK ACCUMULATOR (READ AND WRITE) 
 ULRQ     BSSN   1           LAST PP REQUEST
 UMSG     BSSN   4           TMS ERROR MESSAGE BUFFER 
 UREQ     BSSN   1           CURRENT REQUEST POINTERS 
 UFLA     BSSN   1           FLAG WORD
 UTIM     BSSN   1           LABELS READ TIME 
 UVRI     BSSN   1           EJT ORDINAL, VSN FILE INDEX, REEL, FLAGS 
 UTMS     BSSN   1           TAPE MANAGER REQUEST/STATUS WORD 
 UTCI     BSSN   1           TAPE MANAGER CATALOG INDEX 
 UESN     BSSN   1           EXTERNAL VSN, PREVIEW DISPLAY FLAGS
 UISN     BSSN   1           INTERNAL VSN, PREVIEW DISPLAY FLAGS
 UUFN     BSSN   1           USER NAME, FAMILY ORDINAL
 UVSN     BSSN   1           VOLUME SERIAL NUMBER 
 UFID     BSSN   1           FILE IDENTICATION
 UFSN     BSSN   1           FILE SECTION NUMBER
 USID     BSSN   1           SET IDENTIFIER 
 UGNU     BSSN   1           GENERATION INFORMATION 
 UDAT     BSSN   1           DATE INFORMATION 
 UMST     BSSN   1           MOUNT STATUS (ACS UNITS ONLY)
 UARP     BSSN   1           ATF REQUEST PARAMETERS (ACS UNITS ONLY)
 UNITL    BSSN   1           LENGTH OF INDIVIDUAL UDT 
 END      BSSN
  
 UUDTL    EQU    UDAT+1-UUFN LENGTH OF UDT CONTAINING LABEL INFORMATION 
 UDT      SPACE  4
***       UNIT DESCRIPTOR TABLE DOCUMENTATION.
* 
*T  UXRQ  12/ RS,12/ FUNCTION,12/ MODE,12/ PA,12/ PB
*T, UFRQ  12/ FR,12/ FRS,24/ RES,12/ FNTA 
*T, UCIA  12/ ICIO,6/ FETL,18/ SKIP COUNT,24/ FET ADDRESS 
*T, UCIB  1/R,1/D,10/ ECIO,12/ FOPS,4/LVL,2/0,30/ MLRS
*T, UCIC  12/ FL,24/ FIRST,24/ LIMIT
*T, UST1  12/ ED,12/ HP,12/ EO,12/ ES,12/ DS
*T, UST2  12/ EI,12/ WP,24/ BLOCK COUNT,12/ UP
*T, UST3  24/ LG,24/ EP,12/ EC
*T, UST4  12/ LT,12/ SP,12/ FM,12/ WC,12/ OV
*T, UST5  3/ FDN,3/ FCV,3/ DN,3/ CV,12/ ESC,36/ RESERVED
*T, UDS1  60/ DETAILED STATUS (CTS-ATS-MTS) 
*T, UDS2  60/ DETAILED STATUS (CTS-ATS-MTS) 
*T, UDS3  60/ DETAILED STATUS (CTS-ATS) 
*T, UDS4  60/ DETAILED STATUS (CTS) OR UNIT FORMAT PARAMETERS (ATS-MTS) 
*T, UDS5  60/ DETAILED STATUS (CTS) OR BLOCK ID WINDOW (ATS)
*T, UDS6  60/ DETAILED STATUS (CTS) OR BLOCK ID WINDOW (ATS)
*T, UERC  18/ LATE DATA ERRORS,18/ WRITE ERRORS,6/0,18/ READ ERRORS 
*T, UBLC  24/ BLOCKS READ,24/ BLOCKS WRITTEN,12/ SKIP COUNT 
*T, ULRQ  60/ RESPONSE TO LAST PP REQUEST (*UXRQ*)
*T, UMSG  60/ TMS MESSAGE BUFFER
*T,       60/ TMS MESSAGE BUFFER
*T,       60/ TMS MESSAGE BUFFER
*T,       60/ TMS MESSAGE BUFFER
*T, UREQ  6/0,6/SHIFT,12/ PADD,36/ PARAM
*T, UFLA  12/ FLAGS,48/ EXTERNAL REQUEST TO REISSUE 
*T, UTIM  24/ TIME,36/ RESERVED 
*T, UVRI  12/ EJTO,1/S,5/RES,18/ VRA,12/ REEL,12/ FLAGS 
*T, UTMS  12/ TFMR,12/ RC,12/ WR,12/ WUG,12/ TRS
*T, UTCI  12/ FNT,24/ POSMF CATALOG,24/ CURRENT CATALOG 
*T, UESN  36/ EVSN,12/ RM,3/0,3/ AL,1/S,1/0,1/A,3/RS
*T, UISN  36/ IVSN,6/ FLG,6/ MC,12/ ESTM
*T, UUFN  42/ USER NAME,6/ FO,6/ SFA,6/ 
*T, UVSN  36/ VOLUME SERIAL NUMBER,12/ FLAGS,12/ RES
*T, UFID  60/ FILE IDENTIFIER 
*T, UFSN  42/ FILE IDENTIFIER CONT.,18/ FILE SECTION NUM
*T, USID  36/ SET IDENTIFIER,6/ FA,18/FILE SEQUENCE NUM 
*T, UGNU  12/,12/ ESTW,6/ VA,12/ GEN VER,18/ GENERATION NUM 
*T, UDAT  30/ CREATION DATE,30/ EXPIRATION DATE 
*T, UMST  36/ VSN,4/ LI,5/ PI,3/ DI,8/ RES,1/S,1/C,2/MS 
*T, UARP  2/R,16/ RQID,6/ RQ,6/ RS,6/ RES,24/ TIME
* 
*         DIRECT CELL ALLOCATION RELATIVE TO UDT. 
* 
*T  UXRQ  12/ RS,12/ FN,12/ MD,12/ PA,12/ PB
*T, UST1  12/ ED,12/ HP,12/ EO,12/ ES,12/ DS
*T, UST2  12/ EI,12/ WP,24/ BL - BL+1,12/ UP
*T, UST3  24/ LG - LG+1,24/ EP - EP+1,12/ EC
*T, UST4  12/ LT,12/ SP,12/ FM,12/ WC,12/ OV
* 
* 
*         INFORMATION CONTAINED IN *UXRQ*.
* 
*         RS     REQUEST STATUS.
* 
*         FN     FUNCTION CODE. 
* 
*         MD     MODES. 
*         0      NOT END OF RECORD FLAG FOR REVERSE SKIP. 
*         1      RESERVED.
*         2-3    0 - PRU OPERATION. 
*                1 - EOR OPERATION. 
*                2 - EOF OPERATION. 
*                3 - EOI OPERATION. 
*         4      260/264 CONTROL WORD.
*         5      200/204 CONTROL WORD.
*         6      CODED. 
*         7      RESERVED.
*         10     EOR/EOF THIS OPERATION.
*         11     FIRST PASS FLAG FOR REVERSE SKIP.
*         12     SET IN = OUT = FIRST.
*         12     REVERSE (READ LABELS ONLY) 
*         13     REVERSE (READ DATA)
* 
*         PA     FUNCTION PARAMETER.
* 
*         PB     FUNCTION PARAMETER.
* 
*         INFORMATION CONTAINED IN *UFRQ*.
* 
*         FR     TAPE FILE REQUEST. 
* 
*         FRS    FILE REQUEST STATUS. 
*                UNUSED FOR *CIO* REQUEST.
*                MAGNET PROCESSOR SEQUENCE NUMBER FOR *RTF* REQUEST.
* 
*         RES    RESERVED.
* 
*         FNTA   TAPE FILE FNT ADDRESS IN NFL (*CIO* REQUEST ONLY). 
* 
* 
*         INFORMATION CONTAINED IN *UCIA* - *UCIC*. 
* 
*         ICIO   *COMSCIO* INTERNAL FUNCTION CODE.
* 
*         FETL   FET LENGTH - 5.
* 
*         R      SET IF AUTO RECALL.
* 
*         D      SET IF DATA IN BUFFER. 
* 
*         ECIO   USER CIO REQUEST CODE. 
* 
*         FOPS   USER,S FET OPTIONS.
* 
*         LVL    LEVEL NUMBER (74B=SKIPF,0=SKIPEI). 
* 
*         MLRS   MAXIMUM LOGICAL RECORD SIZE, FOR S AND L FORMATS.
* 
*         FL     JOB FIELD LENGTH.
* 
*         INFORMATION CONTAINED IN *UST1*.
* 
*         ED     EQUIPMENT DESCRIPTION. 
*         0      JOB ROLLED OUT.
*         1      ACS UNIT.
*         2-5    RESERVED.
*         6-10   UPPER ACCESS LEVEL.
*         11-13  LOWER ACCESS LEVEL.
* 
*         HP     HARDWARE PARAMETERS. 
*         0      9 TRACK UNIT.
*         1      GCR UNIT.
*         2-3    UNIT SPEED FOR MTS/ATS UNITS.
*                0 = 100 IPS UNIT.
*                1 = 150 IPS UNIT.
*                2 = 200 IPS UNIT.
*                UNIT SPEED FOR FSC UNITS.
*                0 = 75 IPS UNIT. 
*                1 = 125 IPS UNIT.
*                2 = 200 IPS UNIT.
*                UNIT SPEED FOR ISMT UNITS. 
*                3 = 25.
*         4      ATS/FSC/ISMT/CMTS CONTROLLER.
*         5      MTS CONTROLLER.
*         6      FSC OR CMTS ADAPTOR. 
*         7      CARTRIDGE TAPE (*CT*/*AT*) CONTROLLER
*         10     ISMT ADAPTOR.
*         11-13  RESERVED.
* 
*         EO     EST ORDINAL. 
* 
*         ES     HARDWARE STATUS 2.  (EXTENDED STATUS.) 
* 
*         DS     DEVICE STATUS. (GENERAL STATUS FOR MTS/ATS)
* 
* 
*         INFORMATION CONTAINED IN *UST2*.
* 
*         EI     ERROR ITERATION COUNT. 
* 
*         WP     BLOCK ID WINDOW POINTER. 
*                POINTS TO MOST RECENT BYTE IN BLOCK ID WINDOW. 
*                ORIGINAL DEVICE STATUS FOR MMTC. 
*                WORD 2 OF BLOCK ID STATUS FROM THE CCC FOR CTS.
* 
*         UP     USER OPTIONS, FLAGS. 
*         0      CODED. 
*         1      *POSMF 9999* IN PROGRESS.
*         2      BLANK TAPE.
*         3      LAST BLOCK EOR/EOF.
*         4      LAST OPERATION WRITE.
*         5      FILE POSITION INDETERMINATE. 
*         6      END OF SET.
*         7-11   RESERVED.
*         12     INITIAL REEL ASSIGNMENT COMPLETE.
*         13     REWIND FILE PRIOR TO NEXT *CIO* OPERATION. 
* 
* 
*         INFORMATION CONTAINED IN *UST3*.
* 
*         LG     LAST GOOD BLOCK ID PREVIOUS BLOCK. 
*         LG+1   LAST GOOD BLOCK ID CURRENT BLOCK.
* 
*         EP     ERROR PARAMETERS (EP AND EP+1).
*                READ ERROR RECOVERY- 
*                EP,13       REVERSE DIRECTION FLAG.
*                EP,12       OPPOSITE PARITY MODE.
*                EP,11       LOAD POINT ERROR FLAG. 
*                EP,10-6     CLIPPING LEVEL.
*                EP,5-0      RE-ENTRY CODE. 
*                EP+1,13-11  CLIPPING LEVEL BEING TRIED.
*                EP+1,10-6   RETRY COUNT. 
*                EP+1,5-3    NORMAL PARITY REREAD COUNT.
*                EP+1,2-0    OPPOSITE PARITY REREAD COUNT.
* 
*                WRITE ERROR RECOVERY-
*                EP,13       VERIFY IN PROGRESS.
*                EP,12       ERASE ERROR HAS OCCURRED.
*                EP,11       LOAD POINT ERROR FLAG. 
*                EP,10       LOAD POINT RECOVERY FLAG.
*                EP,7-0      NOT USED.
*                EP+1,13-6   NOT USED.
*                EP+1,5-0    NUMBER OF ERASES.
* 
*                FOR CTS- 
*                EP          SET NONZERO DURING READ ERROR RECOVERY.
*                EP          NOT USED FOR WRITE ERROR RECOVERY. 
*                EP+1        WORD 3 OF BLOCK ID STATUS FROM THE CCC.
* 
*         EC     REQUEST ERROR CODE.
* 
* 
*         INFORMATION CONTAINED IN *UST4*.
* 
*         LT     LABEL TYPE, DEVICE TYPE, REQUESTED DENSITY/CONVERSION. 
*         0-2    REQUESTED CONVERSION MODE. 
*         3-5    REQUESTED DENSITY. 
*         6      RESERVED FOR TAPE DEVICE TYPE EXPANSION. 
*         7-10   TAPE DEVICE TYPE.
*         11     NON-STANDARD LABELS. 
*         12     LABELED. 
*         13     *RESEX* TO WRITE LABELS ON FIRST *OPEN*. 
* 
*         SP     SOFTWARE OPTIONS.
*         0      ABORT RPE/WPE WITH EP SET, PO=A. 
*         1      ACCEPT DATA ON RPE/WPE WITHOUT EP SET, PO=N. 
*         2      INHIBIT ERROR PROCESSING, PO=E.
*         3      READ ONLY ACCESS, PO=R.
*         4      WRITE ACCESS REQUIRED, PO=W. 
*         5      INHIBIT UNLOAD, PO=U.
*         6      DISABLE ERROR CORRECTION ON GCR WRITE, PO=G (NT ONLY). 
*         6      SELECT COMPRESSION ON DATA WRITE, PO=C (CT, AT ONLY).
*         7      ISSUE ALL ERROR MESSAGES TO USER DAYFILE, PO=M.
*         10     ENFORCE LABEL ACCESS RESTRICTIONS, PO=X. 
*         11     READ TO TRAILER SEQUENCE (TAPE MARK PLUS LABEL FOR 
*                  LABELED TAPE), PO=S. 
*         12     IGNORE BLOCK EOI OCCURRED ON, PO=I.
*         13     ACCEPT BLOCK EOI OCCURRED ON, PO=P.
* 
*         FM     TAPE FORMAT AND NOISE BYTE DEFINITION. 
*         0-4    NUMBER OF BYTES OF NOISE.
*         5      FILL OKAY. 
*         6-13   TAPE FORMAT. 
* 
*         WC     BLOCK WORD COUNT. (0 .LE. WC .LE. 1000B) 
*                (FOR LI, L, AND F FORMAT TAPES, WC IS THE NUMBER OF
*                WORDS IN THE LAST PARTIAL CHUNK).
* 
*         OV     CHUNK COUNT, FOR LI, L AND F FORMATS.
*                THE NUMBER OF CHUNKS (600B WORDS EACH).
* 
* 
*         INFORMATION CONTAINED IN *UST5*.
* 
*         FDN    FIRST REEL DENSITY.
* 
*         FCV    FIRST REEL CONVERSION MODE.
* 
*         DN     DENSITY. 
* 
*         CV     CONVERSION MODE. 
* 
*         ESC    ERROR SUB-CODE.
* 
* 
*         INFORMATION CONTAINED IN *UREQ*.
* 
*         SHIFT  PROCESSOR STRING BYTE SHIFT COUNT. 
* 
*         PADD   ADDRESS IN PROCESSOR STRING TABLE. 
* 
*         PARAM  PARAMETER PASSED TO PROCESSOR IN CALL. 
* 
* 
*         INFORMATION CONTAINED IN *UFLA*.
* 
*         FLAGS  CONTROL FLAGS. 
*         0-2    RESERVED.
*         3      *RETRY* ENTERED. 
*         4      *TERMINATE* ENTERED. 
*         5-6    RESERVED.
*         7-12   RESERVED.
*         13     SET IF STACKED REQUEST.
* 
* 
*         INFORMATION CONTAINED IN *UTIM*.
* 
*         TIME   TIME OF INITIAL LABEL READ.
* 
* 
*         INFORMATION CONTAINED IN *UVRI*.
* 
*         EJTO   EJT ORDINAL OF ASSIGNED JOB. 
* 
*         S      UNIT SELECTED FOR UNIT SWAP. 
* 
*         RES    RESERVED.
* 
*         VRA    VSN FILE RANDOM ADDRESS. 
* 
*         REEL   REEL NUMBER - 1 OR NEXT REEL NUMBER - 1. 
* 
*         FLAGS 
*         0      PREVIEW DISPLAY MESSAGE FLAG.
*         1      NEXT VSN RETURNED AT END OF REEL.
*         2      REEL NUMBER INCREMENTED AT END OF REEL.
*         3      NEXT VSN FROM *EOV2* LABEL IN *UISN*.
*         4      REEL ASSIGNED. 
*         5-13   RESERVED 
* 
* 
*         INFORMATION CONTAINED IN *UTMS*.
* 
*         TFMR   TAPE FILE MANAGER (TFM) REQUEST. 
* 
*         RC     RECOVERED ERROR COUNT. 
* 
*         WR     LAST REEL WRITTEN ON.
* 
*         WUG    WAIT UNIT GO FLAGS.
*         0      SCRATCH TAPE ASSIGNMENT. 
*         1      OPERATOR VERIFY. 
*         2      UNLOAD UNIT. 
*         3      USER JOB ROLLED OUT. 
*         4      SELECT NEXT SCRATCH. 
*         5      REWIND FILE. 
*         6      FIRST *HDR1* LABEL ON TAPE.
*         7-12   RESERVED.
*         13     WAIT UNIT GO FLAG. 
* 
*         TRS    TAPE MANAGER RETURN STATUS.
*         0      REQUEST PENDING COMPLETION.
*         1      REISSUE REQUEST. 
*         2      ABORT USER JOB.
*         3-6    RESERVED.
*         7      UNRECOVERED ERROR FLAG.
*         10     SYMBOLIC ACCESS FILE.
*         11     RESERVE SCRATCH VOLUMES. 
*         12     USER OWNED FILE. 
*         13     TMS CONTROLLED FILE. 
* 
* 
*         INFORMATION CONTAINED IN *UESN*.
* 
*         BYTES 3 AND 4 OF *UESN* HAVE THE SAME FORMAT AS BYTES 3 AND 4 
*         OF PREVIEW BUFFER WORD *PRES* DEFINED IN *COMSRSX*. 
* 
*         EVSN   CURRENT OR NEXT EXTERNAL VSN.
* 
*         RM     RESOURCE TYPE MNEMONIC.
* 
*         AL     TAPE FILE ACCESS LEVEL.
* 
*         RES    RESERVED BY *COMSRSX*. 
* 
*         S      SCRATCH (BLANK) VSN. 
* 
*         A      ACCESS LEVEL PRESENT.
* 
*         RS     RESERVED FOR *COMSRSX*.
* 
* 
*         INFORMATION CONTAINED IN *UISN*.
* 
*         BYTES 3 AND 4 OF *UISN* HAVE THE SAME FORMAT AS BYTES 3 AND 4 
*         OF PREVIEW BUFFER WORD *PFLG* DEFINED IN *COMSRSX*. 
* 
*         IVSN   CURRENT OR NEXT INTERNAL VSN.
* 
*         FLG    PREVIEW DISPLAY FLAGS (SEE *PFLG* FLAGS IN *COMSRSX*). 
* 
*         MC     PREVIEW DISPLAY MESSAGE CODE.
* 
*         ESTM   EST ORDINAL FOR PREVIEW DISPLAY MESSAGE (OPTIONAL).
* 
* 
*         INFORMATION CONTAINED IN *UUFN*.
* 
*         FO     FAMILY ORDINAL.
* 
*         SFA    SPECIFIED FILE ACCESSIBILITY.
* 
* 
*         INFORMATION CONTAINED IN *UVSN*.
* 
*         FLAGS  LABEL PROCESSING FLAGS.
*         0      RESERVED.
*         1      LABEL EXPIRED. 
*         2      DEFAULT LABEL. 
*         3-7    RESERVED.
*         10     DENSITY MISMATCH ON DRIVE. 
*         11     FILE OPENED SINCE ASSIGNMENT.
*         12     SCRATCH VSN. 
*         13     INITIAL LABEL CHECK OR REEL CHECK IN PROGRESS. 
* 
*         RES    RESERVED.
* 
* 
*         INFORMATION CONTAINED IN *USID*.
* 
*         FA     FILE ACCESSIBILITY.
* 
* 
*         INFORMATION CONTAINED IN *UGNU*.
* 
*         ESTW   EST ORDINAL ON WHICH FILE WAS WRITTEN. 
* 
*         VA     VOLUME ACCESSIBILITY.
* 
* 
*         INFORMATION CONTAINED IN *UMST*.
* 
*         VSN    ZERO IF MS = 0 
*                REQUESTED VSN IF MS = 1. 
*                MOUNTED VSN IF MS = 2. 
*                MOUNTED VSN IF MS = 3. 
*                ZERO IF MS = 3 AND VSN NOT KNOWN.
* 
*         LI     LSM INDEX. 
* 
*         PI     PANEL INDEX. 
* 
*         DI     DRIVE INDEX. 
* 
*         RES    RESERVED.
* 
*         S      SEND REQUEST TO *ATF*. 
* 
*         C      CONTROL PATH ERROR ON LAST MOUNT OR DISMOUNT REQUEST.
* 
*         MS     MOUNT STATUS.
*                  0 = DISMOUNTED.
*                  1 = MOUNT IN PROGRESS. 
*                  2 = MOUNTED. 
*                  3 = DISMOUNT IN PROGRESS.
* 
* 
*         INFORMATION CONTAINED IN *UARP*.
* 
*         R      RESERVED FOR CDC.
* 
*         RQID   REQUEST IDENTIFIER.
* 
*         RQ     ATF REQUEST CODE.
* 
*         RS     RESPONSE CODE FROM LAST REQUEST (INTERNAL FORMAT). 
* 
*         RES    RESERVED FOR CDC.
* 
*         TIME   *RTCL* SECONDS AT WHICH TO TIME OUT ATF RESPONSE.
          SPACE  4
***       BLOCK ID BYTE DESCRIPTION.
* 
*         THE BLOCK ID BYTE HAS TWO POSSIBLE FORMATS, THEY ARE -
* 
*T        9/ B,1/N,1/P,1/F
*T,       6/ B,3/I,1/1,1/P,1/F
* 
*         WHERE - 
*         B      CYCLIC REDUNDANCY CODE.
*         N      SET IF NO BID AVAILABLE. 
*         P      SET IF EVEN VERTICAL PARITY. 
*         F      SET IF BLOCK IS A TAPE MARK. 
*         I      INDICATES SPECIAL CONDITIONS REQUIRED TO READ BLOCK. 
*                 = 1        LOW CLIP LEVEL.
*                 = 2        HIGH CLIP LEVEL. 
*                 = 3-7      RESERVED.
* 
* 
*         IF THE BID OF A BLOCK IS UNAVAILABLE BECAUSE IT IS UNKNOWN OR 
*         THERE WAS AN UNRECOVERED ERROR B = I = P = F = 0, AND N = 1.
*         FOR TAPE MARKS B = I = P = 0, AND F = 1.
* 
*         BLOCK ID-S ARE ACCUMULATED FOR MTS AND ATS READ, WRITE
*         AND SKIP FORWARD OPERATIONS.
*         FOR SKIP REVERSE, AN UNAVAILABLE BID IS SET FOR EVERY 
*         BLOCK BACKED OVER AND THE BID WINDOW POINTER IS DECREMENTED.
 VET      SPACE  4,15 
***       VET - ACS VSN ERROR TABLE.
* 
*         ENTRY FORMAT -
* 
*T        36/ VSN,18/ RES,6/ EC 
* 
*                VSN = VSN WITH MOUNT ERROR.
*                RES = RESERVED.
*                EC  = *COMSATF* ERROR CODE.
* 
*         ENTRIES ARE TERMINATED BY A ZERO WORD.
 TAJP     SPACE  4,10 
***       TAJP - ACTIVE STAGE JOB TABLE.
* 
*T        24/ JSN,10/,1/M,1/I,24/ PACKED VSN
* 
*         JSN                JSN OF STAGING JOB.
*         I                  NONZERO IF STAGING JOB IN INITIALIZATION 
*                            (REQUEST FILE ATTACHED). 
*         M                  MEDIUM FLAG (0 = TAPE, 1=OPTICAL DISK).
*         PACKED VSN         PACKED VSN OF STAGING TAPE (12/VP,12/VS) 
*                            VP = TWO-CHARACTER DISPLAY CODE VSN PREFIX 
*                            VS = NUMERIC VSN SUFFIX (0000 TO 4095).
  
  
 SJDF     EQU    0           DEFAULT NUMBER OF STAGING JOBS 
 SJMX     EQU    30          MAXIMUM NUMBER OF STAGING JOBS 
 TVSP     SPACE  4,10 
***       TVSP - STAGING TAPE VSN LIST. 
*         THIS TABLE IS USED BY *RESEX* TO BUILD THE *E,P* DISPLAY. 
* 
*T        20/ ,1/B,3/RTY,12/ TF,24/ PACKED VSN
* 
*         B                  SELECT BACKUP VSN. 
*         RTY                RETRY COUNT. 
*         TF                 *FCTF* FLAGS FROM PFC. 
*         PACKED VSN         PACKED VSN OF STAGING TAPE (12/VP,12/VS) 
*                            VP = TWO-CHARACTER DISPLAY CODE VSN PREFIX 
*                            VS = NUMERIC VSN SUFFIX (0000 TO 4095).
  
  
 SVDF     EQU    17          DEFAULT NUMBER OF STAGING VSN-S TO DISPLAY 
 SVMX     EQU    77          MAXIMUM NUMBER OF STAGING VSN-S TO DISPLAY 
 TSRP     SPACE  4,10 
***       TSRP - STAGE REQUEST TABLE. 
* 
*T        6/ 1,3/ AL,19/ ,2/ P,6/ DN,12/ TRACK,12/ SECTOR 
*T,       12/ TF,6/,18/ FSN,24/ PACKED VSN
*T,       42/ PFN,18/ UI
*T,       24/ JSN,15/ ,21/ EVENT
*T,       42/ FAMILY,9/ ,9/ESTO 
*T,       1/I,23/ LENGTH,36/ CREATION DATE-TIME 
*T,       30/ ,30/ UNIQUE ID
*T,       20/ ,1/B,3/RTY,36/ ENTRY DATE-TIME
* 
* 
*         FC                 FUNCTION CODE. 
*                            1 = STAGE FILE.
*                            2 - 77 = RESERVED. 
*         AL                 ACCESS LEVEL OF THE FILE.
*         P                  *PFC* ENTRY ORDINAL. 
*         DN                 DEVICE NUMBER. 
*         TRACK              TRACK FOR THE *PFC* ENTRY. 
*         SECTOR             SECTOR FOR THE *PFC* ENTRY.
*         TF                 *FCTF* FLAGS FROM PFC. 
*         FSN                FILE SEQUENCE NUMBER ON ARCHIVE TAPE.
*         PACKED VSN         PACKED VSN OF STAGING TAPE (12/VP,12/VS) 
*                            VP = TWO-CHARACTER DISPLAY CODE VSN PREFIX 
*                            VS = NUMERIC VSN SUFFIX (0000 TO 4095).
*         PFN                PERMANENT FILE NAME. 
*         UI                 USER INDEX.
*         JSN                JSN OF THE JOB REQUESTING THE FILE.
*         EVENT              EVENT THE JOB WILL ROLL OUT ON.
*         FAMILY             THE FAMILY/PACK CONTAINING THE PFC ENTRY.
*         ESTO               EST ORDINAL OF MASTER DEVICE.
*         I                  SET IF INDIRECT ACCESS FILE. 
*         LENGTH             LENGTH OF THE FILE IN SECTORS. 
*         CREATION DATE-TIME PACKED DATE AND TIME OF FILE CREATION. 
*         UNIQUE ID          UNIQUE IDENTIFIER OF THIS ENTRY IN TABLE.
*         B                  SELECT BACKUP VSN. 
*         RTY                RETRY COUNT. 
*         ENTRY DATE-TIME    PACKED DATE AND TIME REQUEST WAS RECEIVED. 
  
  
*         SRRM - THE MAXIMUM NUMBER OF TIMES THAT A STAGE REQUEST WILL
*                BE RETRIED; A VALUE .GT. 7 MEANS UNLIMITED RETRIES.
  
 SRRM     EQU    2           STAGE REQUEST RETRY MAXIMUM
          SPACE  4,10 
**        CODE CONVERSION OPTIONS.
*         ALL 9 TRACK AND CTS CONVERSION MODES MUST BE AT END OF TABLE. 
*         THEY MUST START WITH *ANS* WHICH MUST FOLLOW *BCD*.  CHECK
*         READ LABEL CODE FOR REASONS.
* 
*         ALL CODE CONVERSION IS PERFORMED USING CONVERSION MEMORY FOR
*         7 TRACK AND 9 TRACK UNITS.  FOR CTS UNITS, CODE CONVERSION
*         IS SUPPORTED ONLY ON LABEL READ AND WRITE OPERATIONS AND IS 
*         PERFORMED BY *1MT*. 
  
  
 BEGIN    BSSN   1
 BCD      BSSN   1           BCD CONVERSION (7 TRACK) 
 ANS      BSSN   1           ANSI CONVERSION (9 TRACK AND CTS)
 EBC      BSSN   1           EBCDIC CONVERSION (9 TRACK AND CTS)
 MCCO     BSSN   1           MAXIMUM NUMBER OF CONVERSIONS
 END      BSSN
          SPACE  4,10 
**        FUNCTION CODES ISSUED TO *1MT* AND *1MU* BY *MAGNET*. 
* 
*         PARAMETERS ARE DOCUMENTED THROUGHOUT *1MT* AND *1MU*. 
  
  
 BEGIN    BSSN   1
 SED      BSSN   1           SET EQUIPMENT DEFINITION 
 FNH      BSSN   1           PROCESS FUNCTION 
 SKP      BSSN   1           SKIP 
 OPF      BSSN   1           OPEN FUNCTION
 RDF      BSSN   1           READ DATA
 RLA      BSSN   1           READ LABEL 
 WTF      BSSN   1           WRITE DATA 
 WLA      BSSN   1           WRITE LABEL
 MDFN     BSS    0           MAXIMUM DRIVER FUNCTION +1 
 CUF      BSSN   1           COMPLETE USER FET
 MAB      BSSN   1           ISSUE MESSAGE AND ABORT JOB
 CJE      BSSN   1           CHECK JOB ERROR FLAG 
 AFN      BSSN   1           AUXILIARY PROCESSOR FUNCTION 
 MFUN     BSS    0           MAXIMUM FUNCTION + 1 
 END      BSSN
  
*         FUNCTION CODES FOR *FNH* FUNCTION.
  
 BEGIN    BSSN   0
 FNRW     BSSN   1           REWIND 
 FNUL     BSSN   1           UNLOAD 
 FNSD     BSSN   1           SELECT DENSITY 
 FNMX     BSSN   0           MAXIMUM FUNCTION 
 END      BSSN
  
*         OPERATION CODES FOR *RLA* FUNCTION. 
  
 BEGIN    BSSN   0
 RLCL     BSSN   100B        CHECK IF LABELED 
 RLCE     BSSN   100B        CHECK END OF TAPE
 RLSL     BSSN   100B        SKIP OVER LABELS 
 RLSM     BSSN   100B        SKIP TAPE MARKS
 RLOF     BSSN   100B        OPEN FILE
 RLCR     BSSN   100B        CHECK NEXT REEL
 RLCF     BSSN   100B        CLOSE FILE 
 RLCM     BSSN   100B        CHECK MULTI-FILE LABELS
 RLVH     BSSN   100B        VALIDATE HEADER LABEL
 RLMX     BSSN   0           MAXIMUM OPERATION CODE * 100B
 END      BSSN
  
*         OPERATION CODES FOR *WLA* FUNCTION. 
  
 BEGIN    BSSN   0
 WLTM     BSSN   100B        WRITE TAPE MARK
 WLTR     BSSN   100B        WRITE TRAILER LABEL
 WLEV     BSSN   100B        WRITE END OF VOLUME LABEL
 WLVH     BSSN   100B        WRITE VOL1 AND HDR1
 WLME     BSSN   100B        WRITE MULTI-FILE EOF 
 WLVR     BSSN   100B        WRITE VOL1 AND HDR1 AFTER REEL SWAP
 WLMX     BSSN   0           MAXIMUM OPERATION CODE * 100B
 END      BSSN
  
*         FUNCTION CODES FOR *AFN* FUNCTION.
  
 BEGIN    BSSN   0
 AFRA     BSSN   1           COMPLETE REEL ASSIGNMENT 
 AFRR     BSSN   1           PROCESS REEL RETURNED
 AFLA     BSSN   1           LOG ACCOUNTING OR ERROR ACCUMULATORS 
 AFNV     BSSN   1           GET NEXT VSN 
 AFUS     BSSN   1           PERFORM UNIT SWAP
 AFCJ     BSSN   1           CLEAR JOB ASSIGNMENT 
 AFVE     BSSN   1           ISSUE VSN MOUNTED EVENT
 AFME     BSSN   1           ISSUE EVENT AFTER ACS VSN MOUNT ERROR
 AFMX     BSSN   0           MAXIMUM FUNCTION 
 END      BSSN
          SPACE  4,10 
**        FILE REQUEST CODES. 
  
  
 BEGIN    BSSN   1
 CIO      BSSN   1           CIO CALL 
 RTF      BSSN   1           RETURN TAPE FILE (*ODF* CALL)
 MFRQ     BSS    0           MAXIMUM FILE REQUESTS
 END      BSSN
          SPACE  4,10 
**        *MAGNET* LOW MEMORY TABLE POINTERS AND DATA.
* 
*         NOTE THAT ANY DATA THAT MUST BE ACCESSIBLE BY *MAGNET1* 
*         RECOVERY MUST RESIDE BEFORE RELATIVE LOCATION 64. 
  
 BEGIN    BSSN   3
  
 UBUF     BSSN   1           UDT LWA AND FWA
  
*         UDT IS TERMINATED BY A WORD WITH BIT 59 SET.
  
 UQUE     BSSN   1           QUEUE TABLE FWA
  
*         QUEUE TABLE IS TERMINATED BY A -0 WORD. 
  
 XREQ     BSSN   1           EXTERNAL REQUEST WORD
 CST      BSSN   MCHAN*CSTE+1  CHANNEL STATUS TABLE 
 APS      BSSN   1           AUXILIARY PP STATUS
 APRQ     BSSN   1           AUXILIARY PP REQUESTED 
 ACCU     BSSN   1           ACCESSIBLE UNIT FLAGS
 ASGU     BSSN   1           ASSIGNABLE UNIT FLAGS
 JBRO     BSSN   1           *1MU* JOB ROLLED OUT FLAGS 
 CUAF     BSSN   1           CHECK UNIT ACTIVITY FLAG (BIT 59 SET)
  
 TFUN     BSSN   MDFN-1      *1MT* FUNCTION TABLE 
  
 TSRL     BSSN   1           STAGE REQUEST TABLE LENGTH 
 TSRP     BSSN   1           STAGE REQUEST TABLE POINTER
 TSRM     BSSN   1           STAGE REQUEST TABLE MODIFICATION COUNT 
          ERRNZ  TSRP-TSRL-1 MAINTAIN ORDERING
          ERRNZ  TSRM-TSRP-1 MAINTAIN ORDERING
 TAJP     BSSN   1           ACTIVE STAGE JOB TABLE POINTER 
 TVSP     BSSN   1           STAGING TAPE VSN LIST POINTER
  
 PFTB     BSSN   PFTBL       *PFM* REQUEST *TDAM* BUFFER
  
 RCAL     BSSN   RCALL       INTER-CONTROL POINT REQUEST BUFFER 
  
 VET      BSSN   VETL+1      ACS VSN MOUNT ERROR TABLE AND TERMINATOR 
  
 TPRO     BSSN   225B        FWA OF PROCESSOR STRINGS 
 TPROL    EQU    *-TPRO      LENGTH OF PROCESSOR STRING AREA
  
 END      BSSN
          SPACE  4,30 
**        *PFM* TO *MAGNET* REQUESTS. 
* 
*T        6/ FC,3/ AL,19/ ,2/ P,6/ DN,12/ TRACK,12/ SECTOR
*T,       12/ TF,6/,18/ FSN,24/ PACKED VSN
*T,       42/ PFN,18/ UI
*T,       24/ JSN,15/ ,21/ EVENT
*T,       42/ FAMILY,18/
*T,       1/I,23/ LENGTH,36/ CREATION DATE-TIME 
* 
* 
*         FC                 FUNCTION CODE. 
*                            1 = STAGE FILE FROM TAPE.
*                            2 = STAGE FILE FROM OPTICAL DISK.
*                            3 - 77 RESERVED. 
*         AL                 ACCESS LEVEL OF THE FILE.
*         P                  *PFC* ENTRY ORDINAL. 
*         DN                 DEVICE NUMBER. 
*         TRACK              TRACK FOR THE *PFC* ENTRY. 
*         SECTOR             SECTOR FOR THE *PFC* ENTRY.
*         TF                 *FCTF* FLAGS FROM PFC. 
*         FSN                FILE SEQUENCE NUMBER ON ARCHIVE TAPE.
*         PACKED VSN         PACKED VSN OF STAGING TAPE (12/VP,12/VS) 
*                            VP = TWO-CHARACTER DISPLAY CODE VSN PREFIX 
*                            VS = NUMERIC VSN SUFFIX (0000 TO 4095).
*         PFN                PERMANENT FILE NAME. 
*         UI                 USER INDEX.
*         JSN                JSN OF THE JOB REQUESTING THE FILE.
*         EVENT              EVENT THE JOB WILL ROLL OUT ON.
*         FAMILY             THE FAMILY/PACK CONTAINING THE PFC ENTRY.
*         I                  SET IF INDIRECT ACCESS FILE. 
*         LENGTH             LENGTH OF THE FILE IN SECTORS. 
*         CREATION DATE-TIME PACKED DATE AND TIME OF FILE CREATION. 
          SPACE  4,10 
**        INTERCONTROL-POINT *SIC* REQUEST FUNCTION CODES.
  
  
 BEGIN    BSSN   1
 RMA      BSSN   1           ASSIGN TAPE UNIT 
 RUU      BSSN   1           REQUEST UDT UPDATE (*TMS*) 
 SEV      BSSN   1           TRANSFER VSN LIST TO STAGING VSN TABLE 
 RER      BSSN   1           REMOVE ENTRY FROM STAGE REQUEST TABLE
 TJE      BSSN   1           TERMINATE ENTRY IN ACTIVE STAGE JOB TABLE
 QSR      BSSN   1           REQUEUE STAGE REQUEST
 AIB      BSSN   1           ALTER STAGE JOB INITIALIZATION BIT 
 ACR      BSSN   1           RESPONSE FROM *ATF*
 AMR      BSSN   1           TRANSFER ACS MOUNT REQUESTS
 PDU      BSSN   1           PREVIEW DISPLAY UPDATED
 CRMX     BSS    0           MAXIMUM INTER-CONTROL POINT REQUEST + 1
 END      BSSN
          SPACE  4,10 
**        EXTERNAL PP REQUEST CODES.
  
  
 BEGIN    BSSN   1
 XEV      BSSN   1           ENTER VSN
 XUU      BSSN   1           UNLOAD UNIT
 XSV      BSSN   1           SCRATCH VSN
 XRT      BSSN   1           SET *RETRY* FLAG 
 XUG      BSSN   1           UNIT GO (*TMS*)
 XUS      BSSN   1           UNIT STOP (*TMS*)
 XTR      BSSN   1           SET *TERMINATE* FLAG 
 XMU      BSSN   1           ACS UNIT MOUNT 
 XNV      BSSN   1           SPECIFY NEXT VSN 
 XRMX     BSS    0           MAXIMUM EXTERNAL REQUEST + 1 
 END      BSSN
          SPACE  4
*         COMPLETION CODES. 
*         THESE INDICATE TO *MAGNET* IN BYTE 0 OF THE UDT *UXRQ* WORD 
*         WORD THE STATUS OF A REQUEST *MAGNET* HAS MADE TO *1MT*.
  
  
 BEGIN    BSSN   1
 RIP      BSSN   1           REQUEST IN PROGRESS
 NCP      BSSN   1           NORMAL COMPLETION
 RJB      BSSN   1           REQUEUE - JOB ROLLED OUT 
 RBS      BSSN   1           REQUEUE - UNIT BUSY
 RAC      BSSN   1           REQUEUE - INACCESSIBLE UNIT
 RDL      BSSN   1           REQUEUE - TIME DELAY 
 ERR      BSSN   1           ERROR RETURN 
 END      BSSN
          SPACE  4
*         ERROR RETURN CODES. 
*         THESE ERROR CODES ARE BROKEN INTO GROUPS. 
  
  
 BEGIN    BSSN   1
  
*         THESE ERRORS ARE SIMPLY INDICATIONS TO *MAGNET* THAT A
*         CHANGE OF STATE HAS OCCURED THAT NEEDS SPECIAL PROCESSING.
  
 BEI      BSSN   1           BOT/EOT/BOI/EOI SENSED 
 ERM      BSSN   1           END OF REEL MESSAGE
  
*         FATAL USER ERRORS.  ALL ERRORS .GE. *MFAT* ARE NON-FATAL IF 
*         ERROR PROCESSING IS SELECTED IN THE FET.
  
 BFAT     BSSN   0           BEGINNING OF FATAL ERRORS
 BTA      BSSN   1           BLANK TAPE 
 NWE      BSSN   1           NO WRITE ENABLE
 BCW      BSSN   1           BUFFER CONTROL WORD ERROR
 RAF      BSSN   1           READ AFTER WRITE 
 IOS      BSSN   1           INCORRECT OPERATION AT END OF SET
 BAE      BSSN   1           BUFFER ARGUMENT ERROR
 SCI      BSSN   1           CODED I/O NOT SUPPORTED
 MFAT     BSSN   0           MAXIMUM FATAL ERRORS 
  
*         TAPE ASSIGNMENT ERRORS. 
  
 TPE      BSSN   1           TAPE MANAGER ERROR 
 AME      BSSN   1           ACS MOUNT ERROR
 RRJ      BSSN   1           REEL ASSIGNMENT REJECTED 
  
*         LABEL VERIFICATION ERRORS.
  
 LAM      BSSN   1           LABEL MISSING
 LCE      BSSN   1           LABEL CONTENT ERROR
 LBE      BSSN   1           TRAILER BLOCK COUNT ERROR
 LPE      BSSN   1           LABEL PARAMETER ERROR ON OPEN
 LIT      BSSN   1           ILLEGAL LABEL TYPE 
 IXL      BSSN   1           XL BUFFER/FET PARAMETER ERROR
 MFM      BSSN   1           MULTI-FILE NOT FOUND 
  
*         THE FOLLOWING ERROR INDICATES THAT AN OPERATION WAS 
*         TERMINATED BY AN ERROR FLAG.
  
 EFT      BSSN   1           ERROR FLAG TERMINATION 
  
*         THE FOLLOWING ERROR INDICATES A DETECTED INCONSISTENCY IN 
*         SYSTEM OR TAPE SUBSYSTEM DATA STRUCTURES. 
  
 SYE      BSSN   1           SYSTEM ERROR 
  
*         THE FOLLOWING ERROR INDICATES THAT THE REQUESTED *CIO*
*         OPERATION CANNOT BE PERFORMED BECAUSE AN ERROR ON A PREVIOUS
*         OPERATION LEFT THE TAPE IN AN INDETERMINATE STATE.  THE USER
*         MUST REPOSITION THE TAPE FILE WITH *REWIND* OR *POSMF* BEFORE 
*         PERFORMING FURTHER I/O. 
  
 FPI      BSSN   1           FILE POSITION INDETERMINATE
  
*         THE FOLLOWING ERROR CODES ARE RESERVED TO ALLOW EXPANSION OF
*         THE PREVIOUSLY DEFINED ERROR CODE GROUPS WITHOUT IMPACTING
*         *HPA*.
  
          BSSN   2           RESERVED FOR EXPANSION 
  
*         THE FOLLOWING ERRORS ARE ANALYZED BY *HPA*.  THEY NORMALLY
*         INDICATE HARDWARE OR TAPE PROBLEMS, BUT IN SOME CASES CAN 
*         RESULT FROM USER OR OPERATOR ERRORS SUCH AS ATTEMPTING TO 
*         READ A TAPE IN THE WRONG FORMAT, UNLOADING A TAPE ASSIGNED TO 
*         A JOB, ETC.  ANY CHANGE TO THIS ERROR GROUP WILL REQUIRE
*         MODIFICATIONS TO *HPA*. 
  
 OPA      BSSN   1           OPPOSITE PARITY MODE 
 BTL      BSSN   1           BLOCK TOO LARGE
 BNE      BSSN   1           BLOCK NUMBER ERROR 
 NBE      BSSN   1           NOISE BLOCK ERROR  (WARNING ONLY)
 STE      BSSN   1           STATUS ERROR 
 CMF      BSSN   1           CHANNEL MALFUNCTION
 OTF      BSSN   1           ON THE FLY ERROR CORRECTION
 RDR      BSSN   1           READY DROP 
 FRJ      BSSN   1           FUNCTION REJECT
 WEO      BSSN   1           WAIT EOP OR BUSY TIME OUT
 CRJ      BSSN   1           CONNECT REJECT 
 ERA      BSSN   1           ERASE ERROR
 PLO      BSSN   1           POSITION LOST
 BCR      BSSN   1           MTS BUFFER CONTROLLER RESTART
 SMF      BSSN   1           SINGLE BLOCK MISPOSITION FORWARD 
 SMB      BSSN   1           SINGLE BLOCK MISPOSITION BACKWARD
 MDW      BSSN   1           CHANNEL DOWNED DUE TO MARGINAL CONDITION 
 MOF      BSSN   1           UNIT TURNED OFF - READ/WRITE PATH FAILURE
 LCH      BSSN   1           LOAD CHECK DURING CONNECT (WARNING)
 RCE      BSSN   1           REPOSITION CORRECTED ERROR 
 MWT      BSSN   1           MARGINALLY WRITTEN TAPE
 WVF      BSSN   1           WRITE VERIFY FAILURE 
 TME      BSSN   1           WRITE TAPE MARK FAILURE
 TCF      BSSN   1           TAPE CLEANER FAULT 
 BFR      BSSN   1           READ ID BURST FAILURE
 BFW      BSSN   1           WRITE ID BURST FAILURE 
  
 MERC     BSSN   1           MAXIMUM NUMBER OF ERROR CODES
 END      BSSN
  
*         SUB-CODES FOR *NWE* ERROR.
  
  
 BEGIN    BSSN   1
  
 WTB      BSSN   1           WRITE AT 200 BPI 
 NWR      BSSN   1           NOT WRITE ENABLED
 LNE      BSSN   1           LABEL NOT EXPIRED
  
 MWSC     BSS    0           MAXIMUM SUB-CODE + 1 
 END      BSSN
  
*         SUB-CODES FOR *RRJ* ERROR.
  
  
 BEGIN    BSSN   1
  
 WRD      BSSN   1           WRITE DISABLED 
 NLB      BSSN   1           NEEDS LABEL
 CAD      BSSN   1           CANNOT ACCESS FILE DATA
 WVS      BSSN   1           WRONG VSN
  
 MRSC     BSS    0           MAXIMUM SUB-CODE + 1 
 END      BSSN
  
*         TAPE DEVICE TYPE DEFINITIONS. 
  
 BEGIN    BSSN
 DVMT     BSSN   1           7-TRACK
 DVCT     BSSN   1           CARTRIDGE (NON-ACS)
 DVNT     BSSN   1           9-TRACK
 DVAT     BSSN   1           ACS CARTRIDGE
 DVMX     BSSN   1           MAXIMUM DEVICE TYPE
 END      BSSN
  
*         TAPE FORMAT DEFINITIONS.
  
 BEGIN    BSSN
 TFI      BSSN   1           INTERNAL BINARY
 TFSI     BSSN   1           SYSTEM INTERNAL BINARY 
 TFF      BSSN   1           FOREIGN FORMAT 
 TFS      BSSN   1           STRANGER BINARY/CODED
 TFL      BSSN   1           LONG RECORD STRANGER BINARY/CODED
 TFLI     BSSN   1           LONG RECORD INTERNAL BINARY
 TFMA     BSSN   1           (MAXIMUM TAPE FORMATS) 
 END      BSSN
  
*         TAPE DENSITY DEFINTIONS.
  
 BEGIN    BSSN   1
 D02      BSSN   1           200 BPI
 D05      BSSN   1           556 BPI
 D08      BSSN   1           800 BPI
 D16      BSSN   1           1600 CPI 
 D62      BSSN   1           6250 CPI 
 D380     BSSN   1           38000 CPI
 DMAX     BSSN   1           MAXIMUM DENSITY DEFINITIONS
 END      BSSN
  
 D7MN     EQU    D02         MINIMUM 7 TRACK TAPE DENSITY 
 D7MX     EQU    D08         MAXIMUM 7 TRACK TAPE DENSITY 
 D9MN     EQU    D08         MINIMUM 9 TRACK TAPE DENSITY 
 D9MX     EQU    D62         MAXIMUM 9 TRACK TAPE DENSITY 
 D18MN    EQU    D380        MINIMUM CARTRIDGE TAPE DENSITY 
 D18MX    EQU    D380        MAXIMUM CARTRIDGE TAPE DENSITY 
 DNMX     EQU    D08         MAXIMUM DENSITY SUPPORTING NOISE BLOCKS
 DLIMN    EQU    D62         MINIMUM DENSITY FOR *LI* FORMAT
  
  
          BASE   *
          ENDX
