*COMDECK CIOCOM 
 CIOCOM   CTEXT  CIO DEFINITIONS. 
          LIST   -R 
*         TAPE INSTALLATION PARAMETER COMMON DECK 
* 
*         INSERT MODIFICATIONS HERE ....................................
* 
*         CDC DEFAULT DEFINITIONS FOR TAPE PARAMETERS 
* 
IP.CBKSP  CEQU   1                 1 IF CONTROLLED BACKSPACE IS IN
IP.NBCD   CEQU   0                 9-TRACK CONV MODE DEFAULT (0=US,1=EB)
IP.NBRK   CEQU   0                 0 IF NOISE BRACKETING IS USED
IP.NDEN   CEQU   3           9 TRACK DEFAULT DENS (1=6250,2=800,3=1600) 
IP.NOISE  CEQU   3                 MAX LGTH FOR NOISE RECORD (BYTES)
IP.NOIS9  CEQU   5                 MAX LGTH IN 8-BIT BYTES FOR PACKED 
*                                  MODE 9-TRACK TAPES 
IP.NTCN   CEQU   2                 NUMBER OF TAPE CHANNELS
IP.PTCN   CEQU   13B               PRIMARY TAPE CHANNEL NUMBER
IP.RCYC   CEQU   3R000             DEFAULT RETENTION CYCLE
IP.RPE1   CEQU   12                MAX READ PARITY ERROR RETRYS 
IP.RPE2   CEQU   10B               MAX RPE RETRYS ON-THE-FLY
IP.TDEN   CEQU   2                 DEFAULT 7-TRACK DENSITY
*                                  (0=556, 1=200, 2=800)
*         DEFAULT DENSITIES FOR ATS/MTS DUMP TAPES. 
* 
*         PARAMETER          VALUE     TYPE      DENSITY
* 
*         IP.D7DN            0, 1      MTS/ATS   556 BPI
*                            2         MTS/ATS   800 BPI
* 
*         IP.D9DN            2         MTS       800 BPI
*                            2         ATS LO    800 BPI
*                            2         ATS HI    6250 CPI 
*                            3         MTS/ATS   1600 BPI 
* 
  
IP.D7DN   CEQU   IP.TDEN           DS DUMP 7 TRACK DEFAULT DENSITY
IP.D9DN   CEQU   IP.NDEN           DS DUMP 9 TRACK DEFAULT DENSITY
  
  
IP.PCL    CEQU   3                 =0 IF PCL OFF
*                                  =1 IF INSTALLED FOR 7 TRACK UNITS
*                                  =2 IF INSTALLED FOR 9 TRACK UNITS
*                                  =3 IF INSTALLED FOR BOTH 7 AND 9 
IP.TSG    CEQU   2617B
* 
ENDER     MICRO  1,,**
  
*         IPTSG MACRO 
* 
*  1.  HOW TO USE IT
* 
*         THE IPTSG MACRO HAS BEEN REWRITTEN FOR THE OPERATING SYSTEM.
*         CALLS TO THIS MACRO TEST VARIOUS BITS WITHIN IP.TSG AND CAUSE 
*         COMPASS TO CONDITIONALLY ASSEMBLE CODE. 
* 
*         THE CALLING FORMAT IS 
* 
*         IBG       IPTSG  BITPOS,COUNT 
* 
*                               WHERE BITPOS IS THE BIT POSITION (0 TO
*         20) WITHIN IP.TSG THAT IS BEING TESTED.  IF THE BIT IS OFF, 
*         AN INSTRUCTION SKIP IS INITIATED TO AN ELSE OR ENDIF WITH THE 
*         CORRESPONDING BRACKET NAME OR IF COUNT IS SPECIFIED, THAT MANY
*         LINES OF CODE ARE SKIPPED.  BITPOS MAY BE PRECEDED BY A MINUS 
*         SIGN (-) IN WHICH CASE, CODE IS SKIPPED IF THE BIT IS ON. 
* 
* 
*  2.  HOW IT WORKETH 
* 
*         THE LAST LINE OF THE MACRO IS AN IFGT STATEMENT.  THE ITEMS 
*         THAT ARE BEING COMPARED ARE IP.TSG AND IP.TSG WITH BITPOS 
*         FLIPPED BY AN EXCLUSIVE-OR FUNCTION.  IF BITPOS IS ON (=1), 
*         FLIPPING THE BIT REDUCES THE ARITHMETIC VALUE OF THE RESULT,
*         THE OPPOSITE WOULD BE TRUE HAD THE BIT ORIGINALLY BEEN OFF(=0)
* 
*         (IN THE EXAMPLES BELOW IP.TSG=17B)
* 
*         THUS
*                   IPTSG  2
* 
*              TURNS INTO 
* 
*                   IFGT   17,13
*                         ALLOWING THE FOLLOWING CODE TO BE ASSEMBLED.
*         AND 
*                   IPTSG  -2 
* 
*              TURNS INTO 
* 
*                   IFGT   -17,-13
*                         CAUSING CODE TO BE SKIPPED. 
* 
*                   IPTSG  6
*         DOES      IFGT   17,117   (CODE WILL BE SKIPPED)
* 
*         THE INSTRUCTION BRACKET GROUP PARAMETER IS PLACED IN THE
*         LOCATION FIELD OF THE IFGT PSEUDO INSTRUCTION.  IF THE COUNT
*         FIELD IS SPECIFIED, THAT COUNT +1 (FOR THE ENDM) FOLLOWS AS 
*         THE THIRD PARAMETER OF THE IFGT.  COMPASS DEFAULTS PREVAIL IF 
*         BOTH BRACKET GROUP AND SKIP COUNTS ARE SPECIFIED. 
          MACRO  IPTSG,IBG,VAL,COUNT
          NOREF  TSGSET#
TSGSET#   SET    IP.TSG   (FOR XREF ONLY) 
TSGSET#   SET    0
TSGMIC#   MICRO  1,,$VAL$ 
TSGSIG#   MICRO  1,1,$"TSGMIC#"$
          IFC    EQ,$-$"TSGSIG#"$,2 
TSGMIC#   MICRO  2,,$"TSGMIC#"$ 
TSGSET#   SET    -0 
TSGMIC#   DECMIC "TSGMIC#"
TSGSIG#   MICRO  ,,$$ 
          IFC    NE,$$COUNT$,1
TSGSIG#   MICRO  1,,$,COUNT+1$
IBG       IFGT   IP.TSG&TSGSET#,IP.TSG&TSGSET#&1S"TSGMIC#""TSGSIG#" 
IPTSG     ENDM
* 
*         MEANING OF THE BITS WITHIN IP.TSG 
* 
S.AUTO    EQU    0     000001      AUTOMATIC ASSIGNMENT ENABLED 
S.URES    EQU    1     000002      UNIT RESERVATION 
S.PRES    EQU    2     000004      PRESTAGING 
S.2LBP    EQU    3     000010      TWO LABEL PROCESSORS 
S.AUNR    EQU    4     000020      ALLOW AUTO ASSIGN TO UNREADY UNIT
S.AUUL    EQU    5     000040      AUTO ASSIGN AND UNLOAD IF NESSESSARY 
S.SCUL    EQU    6     000100      UNLABLED, RING IN = SCRATCH
S.SCEL    EQU    7     000200      EXPIRED LABEL, RING IN = SCRATCH 
S.SCBL    EQU    10B   000400      BLANK LABEL WITH RING = SCRATCH
S.PREA    EQU    11B   001000      PREABORT IF NO PRE-STAGE INFO
S.OCJI    EQU    12B   002000      OVERCOMMITMENT IN JOB INITIATION 
S.UEOJ    EQU    13B   004000      UNLOAD AT END OF JOB UNLESS IU 
S.PSON    EQU    14B   010000      SET FOR STAGEON AT NORMAL D.S. TIME
S.TSEC    EQU    15B   020000      TAPE SECURITY
S.TRDO    EQU    16B   040000      DEFAULT RING/NORING OPTION 
*         EQU    17B   100000      RESERVED 
*         EQU    20B   200000      RESERVED 
S.NOOR    EQU    21B   400000      OPERATOR CANNOT OVERRIDE VSN CARD
S.DBUG    EQU    22B  1000000      LABEL DEBUG CODE ON
* 
* 
* 
*         T.TAPES FLAG BITS  (WORD W.TFLGS) 
* 
*         BYTE 0 --  JOB ORIENTED FLAG BITS 
* 
S.TTFGR   EQU    11D               GO/RECKECK COMMUNICATIONS
S.TTFRC   EQU    10D               RECHECK
S.TTFSV   EQU    9D                SAVE 
*                8D                RESERVED 
*                7                 RESERVED 
S.TTFES   EQU    6                 END OF MULTI-FILE SET
S.TTFWL   EQU    5                 WRITE LABELS ON THIS FILE
S.TTFLT   EQU    4                 2 PPU DRIVER INTERLOCK BIT 
S.TTFVP   EQU    3                 VRN PRINTED (DAYFILE)
S.TTFRW   EQU    2                 FILE REWOUND BY CIO 50 (3IC,3IO)     147110
S.TTFLC   EQU    1                 LABEL CHECKED
S.TTFEC   EQU    0                 LABEL EXPIRATION CHECKED 
* 
*         BYTE 1 --  UNIT ORIENTED FLAG BITS
* 
S.TTFVN   EQU    11D               VSN VALIDATION BIT 
S.TTFOV   EQU    10D               OPERATOR SUPPLIED VSN
S.TTFSC   EQU    9D                SCRATCH
S.TTFRD   EQU    8D                READY
S.TTWD    EQU    6                 TAPE/UNIT MISMATCH E.G. NRZI ON GCR
S.TTFEL   EQU    5                 EXPIRED LABEL
S.TTFBL   EQU    4                 BLANK LABEL
S.TTFLB   EQU    3                 LABELLED 
S.TTFFS   EQU    2                 DSD TO FLASH SAVE
S.TTFRI   EQU    1                 RING IN
S.TTFWN   EQU    0                 WARNING - UNEXPIRED LABEL W/ RING
* 
EQ.FAKE   EQU    6400B             DEVICE CODE FOR TAPE STAGEING
* 
*         FLAG BITS IN LOW 6 BITS OF EQ.FAKE
* 
PT.VRN    EQU    1                 VRN VALID
PT.REQ    EQU    2                 REQ PARAM IN WORD 3 VALID
PT.FET    EQU    4                 FET ADD IN WORD 3 VALID
PT.PEND   EQU    10B               THIS FNT WAITING FOR ASSIGN
PT.2DT    EQU    20B               2MT OR 2NT REQUESTED FOR THIS FILE 
* 
* 
*         THE FOLLOWING LOCATIONS ARE SET BY CIO BEFORE ANY OVERLAY 
*         IS EXECUTED.
* 
CIOCOM    MACRO 
  
FSTEQP    EQU    D.FNT             EQP CODE(6),ALLOC OR TAPE STYLE(6) 
FSTPORD   EQU    FSTEQP+1          TAPES TABLE ORDINAL
FSTFRB    EQU    FSTPORD           FIRST RBT WORD PAIR ADDRESS
FSTORD    EQU    FSTEQP+2          PRIME UNIT ORD 
FSTCRB    EQU    FSTORD            CURRENT RB ADDRESS 
FSTRBT    EQU    FSTEQP+3          CURRENT RBT ORD
FSTPRC    EQU    FSTEQP+4          CURRENT PR COUNT 
FSTFT1    EQU    FSTPRC+1          FET ADDRESS (6)
FSTFT2    EQU    FSTFT1+1          FET ADDRESS (12) 
FSTDSP    EQU    FSTFT2+1          FST DISPOSITION CODE 
FSTSEC    EQU    FSTDSP+1          PERMISSION (4),WRITE(1), E/N (1) 
FSTCST    EQU    FSTSEC+1          CODE/STATUS
ESTASG    EQU    D.EST             ALLOC ASSIGNMENT 
ESTCH12   EQU    ESTASG+1          CHANNEL CHOICE 1,2 
ESTCH34   EQU    ESTCH12+1         CHANNEL CHOICE 3,4 
ESTHDW    EQU    ESTCH34+1         HARDWARE MNEMONIC
ESTUNT    EQU    ESTHDW+1          DST ORD
FETFN1    EQU    D.BA              FET FILE NAME CHARS 1,2
FETFN2    EQU    FETFN1+1          FET FILE NAME CHARS 3,4
FETFN3    EQU    FETFN1+2          FET FILE NAME CHARS 5,6
FETFN4    EQU    FETFN1+3          FET FILE NAME CHAR 7,REC LVL,ERR FLG 
FETCST    EQU    FETFN1+4          ERR FLAG(3), CODE/STATUS(9)
BS        EQU    D.BA+5            LAST CODE/STATUS FROM FNT(3) 
FA        EQU    D.FA              FNT(2) ADDRESS 
LGTFET    EQU    D.PPONE+1         BIT 0-10 LENGTH FET
RANDM     EQU    D.PPONE+1         BIT 11 RANDOM BIT FROM FET 
NEWFNT    EQU    D.TR              EXISTING FNT =0, NEW FNT NE 0
  
CIOCOM    ENDM
* 
*         THE FOLLOWING ARE USED FOR COMMUNICATIONS WITH THE LABEL
*         PROCESSORS.  SYMBOLS WITH -F- PREFIXES ARE FUNCTION CODES 
*         FOR LABEL PROCESSORS.  SYMBOLS WITH -S- PREFIXES ARE STATUS 
*         CODES RETURNED BY LABEL PROCESSORS. 
* 
LBLCOM    MACRO 
SEGORG1   EQU    6210B             LOAD ADDRESS FOR 4LX OVERLAYS
D.CW      EQU    D.FR6             LABEL PROCESSOR CONTROL WORD 
  
*         LABEL PROCESSOR FUNCTION CODES
  
FRSKPF    EQU    10B               SOFTWARE SKIP TO FILE MARK 
FREOS     EQU    11B               SKIP TO END OF SET 
*                12B
FCHKEXP   EQU    13B               CHECK EXPIRATION DATE
FREADC    EQU    14B               READ AND CHECK LABEL 
*                15B               FREADC+NO PARITY MESSAGE FLAG
FREADCD   EQU    16B               READ, CHECK AND DELIVER LABEL
*                17B               FREADCD+NO PARITY MESSAGE FLAG 
FWEOV     EQU    20B               WRITE END OF VOLUME LABEL
FWEOF     EQU    21B               WRITE END OF FILE LABEL
FWVOL     EQU    22B               WRITE VOLUME HEADER LABEL
FWHDR     EQU    23B               WRITE FILE HEADER LABEL
*                24B
FWAUX     EQU    25B               WRITE OPTIONAL LABEL 
FWEOS     EQU    26B               WRITE END OF SET SEPARATOR 
FWTM      EQU    27B               WRITE TAPE MARK
MOTIONS   EQU    30B               BEGINNING OF MOTION FUNCTIONS
FREW      EQU    30B               REWIND 
FUNL      EQU    31B               UNLOAD 
FBKSP     EQU    32B               BACKSPACE PRU
FSKPF     EQU    33B               SKIP FOREWARD TO TAPE MARK 
FSKPB     EQU    34B               SKIP BACK TO TAPE MARK OR LOADPOINT
FSTAT     EQU    40B               STATUS FUNCTION
FSTATD    EQU    41B               DYNAMIC STATUS 
FORMATS   EQU    50B               START OF FORMATTING FUNCTIONS
FFMT      EQU    50B               FORMAT FET FIELDS
FFSQLB    EQU    51B               SQUEEZE AND MOVE FROM LBLBUF 
FMSG      EQU    4000B             MESSAGE FUNCTION FLAG
FNPEC     EQU    1                 NO PRINT PARITY MESSAGE BIT
EXPMSG    EQU    9D                ORDINAL OF UNEXPIRED MESSAGE 
UNLMSG    EQU    10D               ORDINAL OF UNLABELED MESSAGE 
EOTMSG    EQU    11D               ORDINAL OF END OF TAPE MESSAGE 
LABMSG    EQU    12D               ORDINAL OF LABELED MESSAGE 
BSYMSG    EQU    13D               ORDINAL OF BUSY MESSAGE IN 4LB 
MTCMSG    EQU    14D               LABEL MISMATCH 
  
*         LABEL PROCESSOR RETURN CODES
  
SEOV      EQU    0                 END OF VOLUME READ 
SEOF      EQU    1                 END OF FILE LABEL READ 
SVOL      EQU    2                 VOLUME HEADER READ 
SHDR      EQU    3                 FILE HEADER READ 
SGARBG    EQU    4                 GARBAGE READ 
SAUX      EQU    5                 VALID OPTIONAL LABEL READ
*                6
STM       EQU    7                 TAPE MARK READ 
SPARER    EQU    20B               PARITY ERROR READ
SUNEXP    EQU    40B               UNEXPIRED LABEL SET
SEXP      EQU    44B               EXPIRED LABEL SET
SEOR      EQU    2000B             END OF TAPE SPOT ENCOUNTERED 
  
*         LABEL BUFFER DEFINITIONS
  
SPLTSIZE  CEQU   41                LABEL AREA SIZE
LABSIZ    CEQU   40                LABEL SIZE IN BYTES
  
SPLTLBL   EQU    7777B-SPLTSIZE-6  INPUT LABEL WORK AREA
LBLBUF    EQU    SPLTLBL-LABSIZ-4  INPUT/OUTPUT LABEL BUFFER
BLKCNT    EQU    LBLBUF-6          OUTPUT BLOCK COUNT 
SPLTFET   EQU    BLKCNT-SPLTSIZE   OUTPUT OR COMPARE WORK AREA
LBLFLGS   EQU    SPLTFET-5         TAPES TABLE FLAG BYTES 
FETFMTED  EQU    LBLFLGS-1         FORMATTED FLAG 
TPFWA     EQU    FETFMTED-1        FWA TAPES TABLE
CALLFLAG  EQU    TPFWA-1           COMMUNICATION FLAG BITS
Z4LB1TO   EQU    CALLFLAG-1        4LB-1TO COMMUNICATIONS 
PRESERVE  EQU    Z4LB1TO-5         START OF SACRED AREA 
  
*    MISC DEFINITIONS 
  
CCOUNT    EQU    D.FR7             LABEL CHARACTER COUNT
MODEFLAG  EQU    D.FR5             XL FLAG CELL 
  
LBLCOM    ENDM
  
*         TAPE DENSITY DEFINITIONS
  
TDHI      CEQU   0
TDLO      CEQU   1
TDHY      CEQU   2
TDGE      CEQU   1
TDHD      CEQU   2
TDPE      CEQU   3
* 
*         THE FOLLOWING ARE USED FOR COMMUNICATIONS WITH THE ERROR
*         MESSAGE OVERLAY, 6WM. 
*         LIST OF ERROR MESSAGES THAT CAN BE WRITTEN BY 6WM.
*         (F) ERRORS ARE FATAL--UNCONDITIONAL ABORT 
*         (EP) ERRORS ARE FATAL IF THE EP BIT IS ZERO. OTHERWISE, 6WM 
*         RETURNS CONTROL TO THE USER WITH AN APPROPRIATE ERROR CODE. 
*         (NF) ERRORS ARE INFORMATIVE DIAGNOSTICS.  THE CALLING  PP 
*         MUST BE PREPARED TO RECEIVE CONTROL BACK FROM 6WM.
*         ANY ERROR NUMBER OTHER THAN THOSE LISTED WILL CAUSE 
*         *UNDEFINED ERROR* TO BE PRINTED--THE JOB WILL BE ABORTED. 
* 
* 
ERRCOM    MACRO 
  
ERRNO     EQU    D.FNT+1           ERROR NUMBER FOR 6WM 
ERRNO2    EQU    D.FNT+2
ERRN1     EQU    1D          FET OUTSIDE FL                          (F)
ERRN2     EQU    2D          CIO CODE NOT DEFINED ON DEVICE         (EP)
ERRN3     EQU    3D          ILLEGAL FILE NAME                       (F)
ERRN4     EQU    4D          READ OR SKIP F AFTER WRITE             (EP)
ERRN5     EQU    5D          SYSTEM ERROR TAPES-TABLE                (F)
ERRN6     EQU    6D          WAITING FOR FNT SPACE             (SPECIAL)
ERRN7     EQU    7D          PHYSICAL/LOGICAL POSITIONS DISAGREE    (NF)
ERRN8     EQU    8D          BUFFER ARGUMENT ERROR                   (F)
ERRN9     EQU    9D          ERROR CONDITION NOT CLEARED LAST REQUEST(F)
ERRN10    EQU    10D         AUTO-TAPE ASSIGNMENT UNSUCCESSFUL       (F)
ERRN11    EQU    11D         READ PERMISSION NOT GRANTED            (EP)
ERRN12    EQU    12D         ILLEGAL FUNCTION CODE                   (F)
ERRN13    EQU    13D         DATA BLOCK TO LONG                      (F)
ERRN14    EQU    14D         ILL-FORMED MULTIFILE SET                (F)
ERRN15    EQU    15D         MUST POSITION MEMBER FILE               (F)
ERRN16    EQU    16D         BLANK TAPE READ                (SPECIAL NF)
ERRN17    EQU    17D         HARDWARE-6681 FAILED CHANNEL ACTIVE     (F)
ERRN18    EQU    18D         FET TOO SHORT                           (F)
ERRN19    EQU    19D         TRIED TO WRITE NOISE RECORD             (F)
ERRN20    EQU    20D         UBC TOO LARGE                           (F)
ERRN21    EQU    21D         MLRS TOO LARGE                          (F)
ERRN22    EQU    22D         DATA EXCEEDS MLRS                       (F)
ERRN23    EQU    23D         ***NOT USED***                          (F)
ERRN24    EQU    24D         RELEASE ILLEGAL ON PERMANENT FILE      (EP)
ERRN25    EQU    25D         WRITE NOT AT EOI ON PERMANENT FILE     (EP)
ERRN26    EQU    26D         HARDWARE UNIT HUNG BUSY                 (F)
ERRN27    EQU    27D         INDEX BUFFER TOO SMALL                 (EP)
ERRN28    EQU    28D         INDEX ADDRESS NOT IN FL                 (F)
ERRN29    EQU    29D         WRITE NOT AT EOI REQUIRES MODIFY PERM  (EP)
ERRN30    EQU    30D         WRITE REQUIRES EXTEND PERMISSION       (EP)
ERRN31    EQU    31D         EVICT ILLEGAL ON PERMANENT FILE        (EP)
ERRN32    EQU    32D         DEVICE FULL/FILE MAY NOT OVERFLOW      (EP)
ERRN33    EQU    33D         FILE MAY NOT RESIDE ON DEVICE ASSIGNED  (F)
ERRN34    EQU    34D         SPECIFIED DEVICE NON-EXISTENT           (F)
ERRN35    EQU    35D         HARDWARE-MMTS MEMORY PARITY ERROR       (F)
ERRN36    EQU    36D         HARDWARE-NO END OF OP                   (F)
ERRN37    EQU    37D         POS ERR LO PT
ERRN38    EQU    38D         PARITY ERROR                           (EP)
ERRN39    EQU    39D         ECS INDEX ERROR              (EP)
ERRN40    EQU    40D         SIS OR SDA PERMISSIONS VIOLATED         (F)
ERRN41    EQU    41D         FUNCTION ILLEGAL ON MULTI-FILE SET      (F)
ERRN42    EQU    42D         ILLEGAL MULTIFILE NAME                  (F)
ERRN43    EQU    43D         HARDWARE-6681 FAILED NO DATA ON IAN     (F)
ERRN44    EQU    44D         HARDWARE-DENSITY CHANGE DURING IO       (F)
ERRN45    EQU    45D         ERRASE  LIMIT EXCEEDED                 (NF)
ERRN46    EQU    46D         MULTIPLE LOADPOINTS ON TAPE             (F)
ERRN47    EQU    47D         ERROR IN XL BUFFER FORMAT               (F)
ERRN48    EQU    48D         MULTIFILE NAME NOT FOUND ON MF DEVICE   (F)
ERRN49    EQU    49D               WRITE ATTEMPT ON PROTECTED VOLUME (F)
ERRN50    EQU    50D         FIELD LENGTH ERROR                      (F)
ERRN51    EQU    51D         MF MASTER FNT MEMBER FNT ADDRESS INVALID(F) SC45107
ERRN52    EQU    52D         DUPLICATE FILE NAME - MF MEMBER NAME    (F) SC45107
ERRN53    EQU    53D         READLS RBTA/BYTE/PRU NOT WITHIN FILE    (F)
  
ERRCOM    ENDM
* 
*         THE FOLLOWING ARE BIT SETTINGS FOR USE IN GENERATING STACK
*         REQUESTS. 
* 
STRFNTP   BIT    S.STFNTP+S.STF 
STRREL    BIT    S.STFREL+S.STF 
STRFETP   BIT    S.STFETP+S.STF 
STREOF    BIT    S.STFEOF+S.STF 
STRF      BIT    S.STF
STRFA     BIT    S.STFA+S.STF 
STRPRI    BIT    S.STFPRI+S.STF 
          IF     DEF,STRPRI,2      IF IN CMRTEXT SKIP NEXT TWO LINES
STRPRIN   EQU    STRPRI/STRFA 
STREXA    EQU    S.STF+1
* 
          LIST   *
 CIOCOM   ENDX
