*COMDECK BSCC3
_***********************************************************************
*                                                                      *
*           BSC TIP MPEDIT SECTION                                     *
*                                                                      *
***********************************************************************?
_ 
* * *       BSC TEXT PROCESSING STATE PROGRAM ADDRESSES 
? 
      BYCNSPTA         := SPCONC;           _ CONSOLE                 ? 
      BYCPSPTA         := SPCONC;           _ CARD PUNCH              ? 
      BYLPSPTA[/FALSE] := SPPLSC;           _ LINE PRINTER DISP CODE  ? 
      BYLPSPTA[/TRUE]  := SPPASC;           _ LINE PRINTER ASCII      ? 
      BYXPSPTA         := SPXPAR;           _ TRANSPARENT             ? 
      BYSUPSPTA        := SPCONC;           _ SUPPRESS CARRIAGE CNTROL? 
_ 
* * *       BSC INPUT STATE PROGRAM ADDRESS 
? 
      S2SYTABL         := S2INPT;           _ INPUT STATE PROGRAM      ?
_ 
* * *     WORKLIST CONTROL BLOCK INDEX FOR INPUT STATE PROGRAM
? 
      SWLX2  := BYWLCB + ( /BYWSIZE * ( B0L2BSC - 1 ) );
  
_ 
* * *     CODE TRANSLATION TABLES 
? 
      /B9026   := 0;
      /B9029   := 1;
      /B9ASCII := 2;
      /B9TRANS := 3;
      BYLPXLTA[/FALSE]  := DCEB9;           _DISPLAY CODE TO EBCDIC    ?
      BYLPXLTA[/TRUE]   := ASKEC;           _ASCII TO EBCDIC           ?
      BYOXLTA[/B9026]   := DCEB6;           _ DISPLAY CODE -EBCDIC 026? 
      BYOXLTA[/B9029]   := DCEB9;           _ DISPLAY CODE -EBCDIC 029? 
      BYOXLTA[/B9ASCII] := ASKEC;           _ ASCII TO EBCDIC         ? 
      BYOXLTA[/B9TRANS] := 0;               _ TRANSPARENT FILE        ? 
  
_ 
* * *     CARD READER OUTPUT CODE TRANSLATION TABLES
? 
      BY4XLTA[/FALSE]    := EB9DC;          _CARD READER 029           ?
      BY4XLTA[/TRUE]     := EB6DC;          _CARD READER 026           ?
_ 
* * *     OUTPUT CANNED MESSAGES
? 
      BYS3ACT[1]        := B2CON;           _ 2780 CONSOLE             ?
      BYS3ACT[2]        := B3CON;           _ 3780 CONSOLE             ?
      BYS3ACT[3]        := B2CP;            _ 2780 CARD PUNCH          ?
      BYS3ACT[4]        := B3CP2;           _ 2780 CARD PUNCH - DC2    ?
      BYS3ACT[5]        := B3CP3;           _ 3780 CARD PUNCH - DC3    ?
      BYS2CAN[1]        := S7AK0MSG;        _ ACK 0                    ?
      BYS2CAN[2]        := S7AK1MSG;        _ ACK 1                    ?
      BYS2CAN[3]        := S7ENQMSG;        _ ENQ                      ?
      BYS2CAN[4]        := S7EOTMSG;        _ EOT                      ?
      BYS2CAN[5]        := S7NAKMSG;        _ NAK                      ?
      BYS2CAN[6]        := S7TTDMSG;        _ TTD                      ?
      BYS2CAN[7]        := S7WAKMSG;        _ WACK                     ?
_?
_ 
* * *     BSC TIP TYPE TABLE
? 
      BJTIPTYPT[N1BSC].BJOBT           := /FALSE; 
      BJTIPTYPT[N1BSC].BJBZL           := /TRUE;
      BJTIPTYPT[N1BSC].BJTCBSIZE       := /B0TS5; 
      BJTIPTYPT[N1BSC].BJQTYPE         := /B0QNEXTSEG;
      BJTIPTYPT[N1BSC].BJLISTIX        := B0MLBSC;
      BJTIPTYPT[N1BSC].BJDFTC          := N02780; 
      BJTIPTYPT[N1BSC].BJICRCS         := 3;
      BJTIPTYPT[N1BSC].BJAT            := /ENTRY(BSCLCBAT); 
      BJTIPTYPT[N1BSC].BJJAT[N1CON]    := /ENTRY(BSCCSAT);
      BJTIPTYPT[N1BSC].BJJAT[N1CR]     := /ENTRY(BSCCRAT);
      BJTIPTYPT[N1BSC].BJJAT[N1LP]     := /ENTRY(BSCLPAT);
      BJTIPTYPT[N1BSC].BJJAT[N1CP]     := /ENTRY(BSCCPAT);
      BJTIPTYPT[N1BSC].BJJAT[N1PLOT]   := /NIL; 
      BJTIPTYPT[N1BSC].BJTEMUX2        := /ENTRY(PTS2MJX);
      BJTIPTYPT[N1BSC].BJTPMUX2        := /PGNUM(PTS2MJX);
      BJTIPTYPT[N1BSC].BJTCBPINIT      := /PGNUM(PTS3TCBINIT);
      BJTIPTYPT[N1BSC].BJTCBEINIT      := /ENTRY(PTS3TCBINIT);
      BJTIPTYPT[N1BSC].BJTXTPAGE       := /PGNUM(PTT3OTEXT);
      BJTIPTYPT[N1BSC].BJTXTENT        := /ENTRY(PTT3OTEXT);
      BJTIPTYPT[N1BSC].BJLIVTBVT       := BSCNTRLCHAR;
      BJTIPTYPT[N1BSC].BJIVTSIZE       := BSCNTRLCHAR - BSPGWIDTH + 1;
_?
_ 
* * *      BSC TIP WORKLIST CONTROL BLOCK 
? 
      BYWLCB[B0MLBSC].BYNAME           := $424D;
      BYWLCB[B0MLBSC].BYPRADDR         := /ENTRY(PTS3BSCML);
      BYWLCB[B0MLBSC].BYPAGE           := /PGNUM(PTS3BSCML);
      BYWLCB[B0MLBSC].BYMAXCNT         := 1;
      BYWLCB[B0MLBSC].BYINC            := 3;
      BYWLCB[B0MLBSC].BYFEINC          := 0;
      BYWLCB[B0MLBSC].BYBACKUP         := /TRUE;
  
_ 
* * *     BSC LEVEL 2 WORKLIST CONTROL BLOCK
? 
      BYWLCB[B0L2BSC].BYNAME           := $4232;
      BYWLCB[B0L2BSC].BYPRADDR         := /ENTRY(PTS2BSC);
      BYWLCB[B0L2BSC].BYPAGE           := /PGNUM(PTS2BSC);
      BYWLCB[B0L2BSC].BYMAXCNT         := 1;
      BYWLCB[B0L2BSC].BYINC            := 3;
      BYWLCB[B0L2BSC].BYFEINC          := 0;
      BYWLCB[B0L2BSC].BYBACKUP         := /TRUE;
  
_ 
* * *     BSC TIP TERMINAL CHARACTERISTIC TABLE ENTRIES 
? 
      /BYCNTLCHAR := $25; 
      NJTECT[N02780].NJSYNC            := $32;
      NJTECT[N02780].NJTIPTY           := N1BSC;
      NJTECT[N02780].NJCHLEN           := 3;
      NJTECT[N02780].NJPARITY          := 1;
      NJTECT[N02780].NJCRCP            := 0;
      NJTECT[N02780].NJLPPW            := 80; 
      NJTECT[N02780].NJLPPL            := 64; 
      NJTECT[N02780].NJIBFCD           := DATA - 2; 
      NJTECT[N02780].NJPGWIDTH         := 80; 
      NJTECT[N02780].NJPGLENGTH        := 0;
      NJTECT[N02780].NJCNTRLCHAR       := /BYCNTLCHAR;
_ 
* * *     3780
? 
      NJTECT[N03780].NJSYNC            := $32;
      NJTECT[N03780].NJTIPTY           := N1BSC;
      NJTECT[N03780].NJCHLEN           := 3;
      NJTECT[N03780].NJPARITY          := 1;
      NJTECT[N03780].NJCRCP            := 0;
      NJTECT[N03780].NJLPPW            := 120;
      NJTECT[N03780].NJLPPL            := 64; 
      NJTECT[N03780].NJIBFCD           := DATA - 2; 
      NJTECT[N03780].NJPGWIDTH         := 80; 
      NJTECT[N03780].NJPGLENGTH        := 0;
      NJTECT[N03780].NJCNTRLCHAR       := /BYCNTLCHAR;
_ 
? 
  
