*COMDECK ZEXASYNC 
_ 
*              ----  A S Y N C  BLOCK MODE INITIALIZATION  ---- 
? 
_ 
* * * *  INITIALIZE TERMINAL CLASS TABLES FOR ASYNC TIP 
? 
      FOR /I := N0M33 TO N0T4014 DO 
        BEGIN 
        NJTECT[ /I ].NJISPTA     := ASPTAI; 
        NJTECT[ /I ].NJCHLEN     := /CLSEVEN; 
        NJTECT[ /I ].NJPARITY    := B7EPAR; 
        END;
      NJTECT[ N02741  ].NJCHLEN  := /CLSIX; 
      NJTECT[ N02741  ].NJPARITY := B7OPAR; 
_ 
* * * *  INITIALIZATION OF WORKLIST CONTROL BLOCK FOR ASYNC TIP 
? 
      BYWLCB [B0ASYNC].BYNAME    := $4153;
      BYWLCB [B0ASYNC].BYPRADDR  := /ENTRY (PTASYNCTIP);
      BYWLCB [B0ASYNC].BYPAGE    := /PGNUM (PTASYNCTIP);
      BYWLCB [B0ASYNC].BYMAXCNT  := 1;
      BYWLCB [B0ASYNC].BYINC     := 3;
      BYWLCB [B0ASYNC].BYFEINC   := 0;
      BYWLCB [B0ASYNC].BYBACKUP  := /TRUE;
_ 
* * * *  INITIALIZATION OF TIP TYPE TABLE FOR ASYNC TIP 
? 
      BJTIPTYPT [N1ASYNC].BJOBT         := /TRUE; 
      BJTIPTYPT [N1ASYNC].BJBZL         := /FALSE;
      BJTIPTYPT [N1ASYNC].BJIVTSIZE     := BSLFIDLES - BSPGWIDTH + 1; 
      BJTIPTYPT [N1ASYNC].BJTCBSIZE     := /B0TS5;
      BJTIPTYPT [N1ASYNC].BJLISTIX      := B0ASYNC; 
      BJTIPTYPT [N1ASYNC].BJDFTC        := N0M33; 
      BJTIPTYPT [N1ASYNC].BJJAT [N1CON] := /ENTRY (ASYCSAT);
      BJTIPTYPT [N1ASYNC].BJAT          := /ENTRY (ASYLCBAT); 
      BJTIPTYPT [N1ASYNC].BJLIVTBVT     := BSARTSFC;
      BJTIPTYPT [N1ASYNC].BJTEMUX2      := /ENTRY (PTMXASYNCTIP); 
      BJTIPTYPT [N1ASYNC].BJTPMUX2      := /PGNUM (PTASYNCTIP); 
      BJTIPTYPT [N1ASYNC].BJTXTENT      := /ENTRY (PTADLTS);
      BJTIPTYPT [N1ASYNC].BJTXTPAGE     := /PGNUM (PTASYNCTIP); 
_ 
* * * *  INITIALIZE BUILD WORKLIST INSTRUCTIONS FOR THE INPUT STATES
? 
      AARWK := BYWLCB + (/BYWSIZE * (B0ASYNC-1)); 
      AISWK := BYWLCB + (/BYWSIZE * (B0ASYNC-1)); 
_ 
* * * *  INITIALIZE XCHRNE INSTUCTIONS FOR INPUT STATES 
? 
      AIS2741  := SCA2741;
      AISN2741 := SCAN2741; 
_ 
* * * *  INITIALIZE INPUT AND OUTPUT TRANSLATE TABLE SELECTION ARRAYS 
? 
      A4INXLT [N0ASCII   ] := 0;
      A4INXLT [N0TYPEPAPL] := ATTPAA; 
      A4INXLT [N0BITPAPL ] := ATBPAA; 
      A4INXLT [N0EBCDAPL ] := ATEBAS; 
      A4INXLT [N0EAPLAPL ] := ATEAPA; 
      A4INXLT [N0CORR    ] := ATCOAS; 
      A4INXLT [N0CORAPL  ] := ATCAPA; 
  
      A4OUXLT [N0ASCII   ] := 0;
      A4OUXLT [N0TYPEPAPL] := ATATPA; 
      A4OUXLT [N0BITPAPL ] := ATABPA; 
      A4OUXLT [N0EBCDAPL ] := ATASEB; 
      A4OUXLT [N0EAPLAPL ] := ATAEAP; 
      A4OUXLT [N0CORR    ] := ATASCO; 
      A4OUXLT [N0CORAPL  ] := ATACAP; 
_ 
* * * *  INITIALIZE THE POINTER TO THE CANNED MESSAGE ARRAY 
? 
      A4CMAPTR := A4CMARR;
  
