*COMDECK REL6CONST
          EJT 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*     IVT CHARACTER DEFINITIONS                                       * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
* * * FORMAT EFFECTORS
* 
          EQU    I9FSS($20)            FE - SINGLE SPACE
          EQU    I9FDS($30)                 DOUBLE SPACE
          EQU    I9FTS($2D)                 TRIPLE SPACE
          EQU    I9FNS($2B)                 START OF CURRENT LINE 
          EQU    I9FRS($2A)                 TOP OF FORM 
          EQU    I9FPE($31)                 HOME CURSOR AND CLEAR 
          EQU    I9FNA($2C)                 NO ACTION 
          EQU    I9PSS($2E)                 POST PRINT SINGLE SPARE 
          EQU    I9PNS($2F)            FE - POST PRINT START OF C LINE
* 
* * * CONTROL CODES 
* 
          EQU    I9CR($0D)             CARRIAGE RETURN
          EQU    I9LF($0A)             LINE FEED
          EQU    I9US($1F)             LOGICAL LINE SEPARATOR 
          EJT 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*     PRU CHARACTER DEFINITIONS                                       * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*  FORMS CONTROL                    ACCT DATA 
*                             CHAR   WEIGHT    PRE-PRINT  POST-PRINT
*                             ----  ---------  ---------  ----------
          EQU    B9FCS1($2D)  SP       1       SPACE 1    NO SPACE
          EQU    B9FCS2($1B)  ZERO     2       SPACE 2    NO SPACE
          EQU    B9FCS3($26)  -        3       SPACE 3    NO SPACE
          EQU    B9FCSS($25)  SUPP     1       SUPPRESS   NO SPACE
          EQU    B9FCPE($1C)  1      NOTE 1    PAGE EJECT NO SPACE
          EQU    B9FCBP($1D)  2      NOTE 2    BOTTOM PG  NO SPACE
          EQU    B9FCC6($1E)  3        4       CHANNEL 6  NO SPACE
          EQU    B9FCC5($1F)  4        3       CHANNEL 5  NO SPACE
          EQU    B9FCC4($20)  5        3       CHANNEL 4  NO SPACE
          EQU    B9FCC3($21)  6        2       CHANNEL 3  NO SPACE
          EQU    B9FCC2($22)  7        2       CHANNEL 2  NO SPACE
          EQU    B9FC11($23)  8        6       CHANNEL 11 NO SPACE
          EQU    B9FCC7($24)  9        4       CHANNEL 7  NO SPACE
          EQU    B9FCC8($18)  X        5       CHANNEL 8  NO SPACE
          EQU    B9FCC9($19)  Y        5       CHANNEL 9  NO SPACE
          EQU    B9FC10($1A)  Z        6       CHANNEL 10 NO SPACE
          EQU    B9PPPE($01)  A      NOTE 1    NO SPACE   PAGE EJECT
          EQU    B9PPBP($02)  B      NOTE 2    NO SPACE   BOTTOM PAGE 
          EQU    B9PPC6($03)  C        4       NO SPACE   CHANNEL 6 
          EQU    B9PPC5($04)  D        3       NO SPACE   CHANNEL 5 
          EQU    B9PPC4($05)  E        3       NO SPACE   CHANNEL 4 
          EQU    B9PPC3($06)  F        2       NO SPACE   CHANNEL 3 
          EQU    B9PPC2($07)  G        2       NO SPACE   CHANNEL 2 
          EQU    B9PP11($08)  H        6       NO SPACE   CHANNEL 11
          EQU    B9PPC7($09)  I        4       NO SPACE   CHANNEL 7 
          EQU    B9PPC8($0A)  J        5       NO SPACE   CHANNEL 8 
          EQU    B9PPC9($0B)  K        5       NO SPACE   CHANNEL 9 
          EQU    B9PP10($0C)  L        6       NO SPACE   CHANNEL 10
          EQU    B9QQQQ($11)  Q        0       NO SPACE   NO SPACE
          EQU    B9RRRR($12)  R        0       NO SPACE   NO SPACE
          EQU    B9SSSS($13)  S        0       NO SPACE   NO SPACE
          EQU    B9TTTT($14)  T        0       NO SPACE   NO SPACE
          EQU    B9UUUU($15) U        0       NO SPACE   NO SPACE 
          EQU    B9VVVV($16)  V        1       ----NOT SUPPORTED----
          EQU    B9SLSH($28)  /        1       ----NOT SUPPORTED----
* 
*     NOTE 1: ADD NUMBER OF LINES REMAINING ON PAGE 
* 
*     NOTE 2: ADD HALF THE NUMBER OF LINES ON PAGE
* 
*      MISCELLANEOUS PRU EQUATES
* 
          EQU    B9EOL($FF)   *    END OF LINE INDICATOR
          EQU    B9PAD($00)   *    PAD (ZERO) CHARACTER 
          EQU    B9PPPP($10)  *    -P- FOR PM MESSAGE 
          EQU    B9MMMM($0D)  *    -M- FOR PM MESSAGE 
          EQU    B9BLANK($2D) *    DISPLAY CODE BLANK 
          EQU    B9ZERO($1B)  *    DISPLAY CODE ZERO
          EJT 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*     PRU CHARACTER DEFINITIONS    FOR ASCII FILES                    * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*  FORMS CONTROL                    ACCT DATA 
*                             CHAR   WEIGHT    PRE-PRINT  POST-PRINT
*                             ----  ---------  ---------  ----------
          EQU    B8FCS1($20)  SP       1       SPACE 1    NO SPACE
          EQU    B8FCS2($30)  ZERO     2       SPACE 2    NO SPACE
          EQU    B8FCS3($2D)  -        3       SPACE 3    NO SPACE
          EQU    B8FCSS($2B)  SUPP     1       SUPPRESS   NO SPACE
          EQU    B8FCPE($31)  1      NOTE 1    PAGE EJECT NO SPACE
          EQU    B8FCBP($32)  2      NOTE 2    BOTTOM PG  NO SPACE
          EQU    B8FCC6($33)  3        4       CHANNEL 6  NO SPACE
          EQU    B8FCC5($34)  4        3       CHANNEL 5  NO SPACE
          EQU    B8FCC4($35)  5        3       CHANNEL 4  NO SPACE
          EQU    B8FCC3($36)  6        2       CHANNEL 3  NO SPACE
          EQU    B8FCC2($37)  7        2       CHANNEL 2  NO SPACE
          EQU    B8FC11($38)  8        6       CHANNEL 11 NO SPACE
          EQU    B8FCC7($39)  9        4       CHANNEL 7  NO SPACE
          EQU    B8FCC8($58)  X        5       CHANNEL 8  NO SPACE
          EQU    B8FCC9($59)  Y        5       CHANNEL 9  NO SPACE
          EQU    B8FC10($5A)  Z        6       CHANNEL 10 NO SPACE
          EQU    B8PPPE($41)  A      NOTE 1    NO SPACE   PAGE EJECT
          EQU    B8PPBP($42)  B      NOTE 2    NO SPACE   BOTTOM PAGE 
          EQU    B8PPC6($43)  C        4       NO SPACE   CHANNEL 6 
          EQU    B8PPC5($44)  D        3       NO SPACE   CHANNEL 5 
          EQU    B8PPC4($45)  E        3       NO SPACE   CHANNEL 4 
          EQU    B8PPC3($46)  F        2       NO SPACE   CHANNEL 3 
          EQU    B8PPC2($47)  G        2       NO SPACE   CHANNEL 2 
          EQU    B8PP11($48)  H        6       NO SPACE   CHANNEL 11
          EQU    B8PPC7($49)  I        4       NO SPACE   CHANNEL 7 
          EQU    B8PPC8($4A)  J        5       NO SPACE   CHANNEL 8 
          EQU    B8PPC9($4B)  K        5       NO SPACE   CHANNEL 9 
          EQU    B8PP10($4C)  L        6       NO SPACE   CHANNEL 10
          EQU    B8QQQQ($51)  Q        0       NO SPACE   NO SPACE
          EQU    B8RRRR($52)  R        0       NO SPACE   NO SPACE
          EQU    B8SSSS($53)  S        0       NO SPACE   NO SPACE
          EQU    B8TTTT($54)  T        0       NO SPACE   NO SPACE
          EQU    B8UUUU($55) U        0       NO SPACE   NO SPACE 
          EJT 
          EQU    B8VVVV($56)  V        1       ----NOT SUPPORTED----
          EQU    B8SLSH($2F)  /        1       ----NOT SUPPORTED----
* 
*     NOTE 1: ADD NUMBER OF LINES REMAINING ON PAGE 
* 
*     NOTE 2: ADD HALF THE NUMBER OF LINES ON PAGE
* 
*      MISCELLANEOUS PRU EQUATES        FOR ASCII FILES 
* 
          EQU    B8PPPP($50)  *    -P- FOR PM MESSAGE 
          EQU    B8MMMM($4D)  *    -M- FOR PM MESSAGE 
          EQU    B8BLANK($20) *    DISPLAY CODE BLANK 
          EQU    B8ZERO($30)  *    DISPLAY CODE ZERO
