*COMDECK BSCEQU 
          NLS 
*CALL MUXMACROS 
*CALL REL6CONST 
          LST 
          EJT 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*     BSC TIP MAIN LEVEL OUTPUT TEXTPROCESSING DEFINTIONS             * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
* 
* * *    FILE REGISTERS 
* 
          EQU    S5CURN($00)  *    CURRENT CHARACTER
          EQU    S5WEIGHT($03)     ACCOUNTING WEIGHT COUNT
          EQU    S7XCHAR($04) *    SECOND CHARACTER COUNT 
          EQU    S5XLINE($05) *    2780 RECORD COUNT
          EQU    S5NUL1($06)  *    CLEAR REGISTER 
          EQU    S9BLKB($07) *    BLANK COMPRESSION BASE X(80/40) FOR 
*                             *    2780/3780
          EQU    S9BLKL($08)  *    BLANK COMPRESSION LIMIT D(31/63) FOR 
*                             *    2780/3780
          EQU    S5BLANK($09) *    BLANK COUNT
          EQU    S5NUL2($0A)  *    WORKING REGISTER 
          EQU    S5NUL4($0B)  *    WORKING REGISTER 
          EQU    S5LINEPG($0C)     FOR SPPR ONLY - CURRENT LINE POSITION
*                             *                    IN THE PAGE
          EQU    S7LINEPG($0D)     FOR SPPR ONLY - SECOND LINE POSITION 
*                             *                    COUNT
          EQU    S7WEIGHT($0E)     FOR SPPR ONLY - SECOND WEIGHT COUNT
          EQU    S5CODE($0C)  *    FOR SPCON ONLY - INDEX FOR CARD PUNCH
*                             *    LACE CARD(1) OR LIMIT CARD(2)
          EQU    S9EOLC($0D)  *    FOR SPCON ONLY - REGISTER CONTAINS 
*                             *    ASCII OR DISPLAY CODE EOL CHARCTER 
          EQU    S5NUL3($0E)  *    FOR SPCON ONLY - WORKING REGISTER
* 
* * *    TEXTPROCESS CONTROL BLOCK FIELDS 
* 
          EQU    T7COLCNT($04)     COLUMN COUNT 
          EQU    T7CC1($04)  CHARACTER COUNT 1 FIELD
          EQU    T5XCHAR($0A) *    CHARACTER COUNT - RIGHT BYTE 
          EQU    T5XBLCNT($0E)    BLOCK COUNT 
          EQU    T5PLRN($0F)  *    LEFT  BYTE - PAGE LENGTH FOR PRINTER 
*                             *    RIGHT BYTE - 2780 RECORD NUMBER
* 
* * *    COUNTERS 
* 
          EQU    S7COLCNT($01)     COUNT 1 - COLUMN COUNT 
          EQU    S5XCHAR($02) *    COUNT 2 - CHARACTER COUNT
          EQU    S5PMCNT($01) *    PM COUNTER - COUNT 1 
          EJT 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*        CONSTANTS                                                    * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
          EQU    S1ZERO($00)  *    0
          EQU    S1ONE($01)   *    1
          EQU    S1TWO($02)   *    2
          EQU    S1THREE($03) *    3
          EQU    S1FOUR($04)  *    4
          EQU    S1FIVE($05)  *    5
          EQU    S1SIX($06)   *    6
          EQU    S116($10)    *    16 
          EQU    S117($11)    *    17 
          EQU    S178($4E)    *    78 
          EQU    S180($50)    *    80 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*        CHARACTERS                                                   * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
          EQU    S1XP($10)    *    DISPLAY CODE P 
          EQU    S1XQ($11)    *    DISPLAY CODE Q 
          EQU    S1XR($12)    *    DISPLAY CODE R 
          EQU    S1XS($13)    *    DISPLAY CODE S 
          EQU    S1XT($14)    *    DISPLAY CODE T 
          EQU    S1XM($0D)    *    DISPLAY CODE M 
          EQU    S1XEOL($FF)  *    DISPLAY CODE END OF LINE 
          EQU    S1XSLASH($28)     DISPLAY CODE SLASH 
          EQU    S1XSTAR($27) *    DISPLAY CODE STAR
          EQU    S1XBLANK($40)     DISPLAY CODE BLANK 
          EQU    S1XEOR($FE)  *    EOR CHAR FOR DISPLAY CODE - BSC ONLY 
          EJT 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*        BSC CONTROL CODES                                            * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
          EQU    S1BL2($9F)   *    2780 MAXIMUM BLANK COMPRESSION COUNT 
          EQU    S1BL3($7F)  *    3780 MAXIMUM BLANK COMPRESSION COUNT
          EQU    S1BYP($24)   *    EBCDIC BYP - 2780 BLANK COMPRESSION
          EQU    S1DLE($10)   *    EBCDIC DLE 
          EQU    S1EOR($3F)   *    EBCDIC EOR 
          EQU    S1ESC($27)   *    EBCDIC ESC 
          EQU    S1ETB($26)   *    EBCDIC ETB 
          EQU    S1ETX($03)   *    EBCDIC ETX 
          EQU    S1IGS($1D)   *    EBCDIC IGS - 3780 BLANK COMPRESSION
          EQU    S1IRS($1E)   *    EBCDIC IRS 
          EQU    S1IUS($1F)   *    EBCDIC IUS 
          EQU    S1NUL($00)   *    EBCDIC NUL 
          EQU    S1PAD($FF)   *    EBCDIC PAD 
          EQU    S1SYN($32)   *    EBCDIC SYN 
          EQU    S1STX($02)   *    EBCDIC STX 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*        EBCDIC POSTPRINT CARRIAGE CONTROL CODE FOR BSC TERMINALS     * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
          EQU    S1SS($61)    *    SINGLE SPACE CARRIAGE CONTROL
          EQU    S1DS($E2)    *    DOUBLE SPACE 
          EQU    S1TS($E3)    *    TRIPLE SPACE 
          EQU    S1PE($C1)    *    PAGE EJECT 
          EQU    S1SUP($D4)   *    SUPPRESS CARRIAGE CONTROL
          EQU    S1C2($C2)    *    SKIP TO CHANNEL 2
          EQU    S1C3($C3)    *    SKIP TO CHANNEL 3
          EQU    S1C4($C4)    *    SKIP TO CHANNEL 4
          EQU    S1C5($C5)    *    SKIP TO CHANNEL 5
          EQU    S1C6($C6)    *    SKIP TO CHANNEL 6
          EQU    S1C7($C7)    *    SKIP TO CHANNEL 7
          EQU    S1C8($C8)    *    SKIP TO CHANNEL 8
          EQU    S1C9($C9)    *    SKIP TO CHANNEL 9
          EQU    S1C10($D1)   *    SKIP TO CHANNEL 10 
          EQU    S1C11($D2)   *    SKIP TO CHANNEL 11 
          EQU    S1C12($D3)   *    SKIP TO CHANNEL 12 
* 
* * *    EBCDIC CHARACTER 
* 
          EQU    S1BLANK($40) 
          EJT 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*        BUFFER FLAGS                                                 * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
          EQU    S5FETX($002) *    ETX BLOCK
          EQU    S5FEOI($010) *    EOI BLOCK
          EQU    S5FEOB($001) *    END OF TRANSMISSION BLOCK
          EQU    S5FPM($020) *    PM BLOCK
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*         MUX FLAGS                                                   * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
          EQU    S53780(NCUOP1)    3780 
          EQU    S5EOI(NCUOP2)     EOI
          EQU    S5EOJ(NCUOP3)     EOJ
          EQU    S5BACK(NCUOP4)    BACK SPACE ON SOURCE BUFFER NEEDED 
          EQU    S5COMPRES(NCUOP5) BLANK COMPRESSION SUPPORTED
* 
* * * PRINTER WITH FORMS CONTROLS ONLY
* 
          EQU    S5FC1(NCUOP6)     FORMS CONTROL ON PREVIOUS LINE IS AN 
*                             *    ASSUMED SINGLE SPACE 
          EQU    S5FC2(NCUOP7)     FORMS CONTROL ON CURRENT LINE IS AN
*                             *    ASSUMED SINGLE SPACE 
          EQU    S5NOFC(NCUOP8)    LINE FOLD OCCURRED 
* 
* * * OTHER CASES 
* 
          EQU    S5FCSS(NCUOP6)    FORMS CONTROL SINGLE SPACE NEEDED
          EQU    S5XPARENT(NCUOP7) TRANSPARENT FILE 
          EQU    S5FEPRES(NCUOP9)  FORMAT EFFECTORS PRESENT 
          EJT 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*        MISCELLANEOUS                                                * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
          EQU    S1FCD(8)     *    FCD FOR NEW BUFFER 
          EQU    VMFCD($0E)  *    FCD FOR THE FIRST BUFFER
          EQU    SUPPLIED(0)  *    PARAMETER FOR TPINSR 
          EJT 
