*COMDECK ZEXPAD 
_ 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*     SET UP CODE TRANSLATION ENTRY TABLE                             * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
? 
      X1INXLT[N0ASCII   ] := 0;             _NO XLATION FOR ASCII      ?
      X1INXLT[N0TYPEPAPL] := ATTPAA;        _ASCII TO TYPEWRITER PAIRED?
      X1INXLT[N0BITPAPL ] := ATBPAA;        _ASCII TO BIT PAIRED       ?
  
      X1OUXLT[N0ASCII   ] := 0;             _NO XLATION FOR ASCII      ?
      X1OUXLT[N0TYPEPAPL] := ATATPA;        _TYPEWRITER PAIRED TO ASCII?
      X1OUXLT[N0BITPAPL ] := ATABPA;        _BIT PAIRED TO ASCII       ?
_ 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*     INITIALIZING X.3 CCITT AND ITI PARAMETER NUMBER AND VALUE       * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
? 
       PADTBLP := PADTABLE; 
      /PSNPARM := PADTABLE;                 _ASSIGN BENTY ADDRESS OF   ?
                                            _ PADTABLE WHICH IS THE    ?
                                            _ BEGINNING OF TABLE       ?
_ 
* * *  SET UP CCITT PARAMETER NUMBERS AND VALUES
? 
      /L := 0;
_ 
* * *  SEE PASCAL PROCEDURE *PXCPADVALUES* FOR STANDARD CCITT SETTINGS
? 
_ 
* * *  SETTING FOR TELENET REFERENCES 
? 
                    /PSNPARM + /L := $7F01; _BEGINNING OF TELENET      ?
                                            _                          ?
      /L := /L + 1; /PSNPARM + /L := $0021; _NATIONAL OPTION MARKER    ?
                                            _ FOR TELENET              ?
      /L := /L + 1; /PSNPARM + /L := $3901; _TERMINAL CONNECTION MODE  ?
                                            _ TO REAL TERMINAL         ?
_ 
* * *  SETTINGS FOR TYMNET REFERENCES 
? 
_ 
* * *  NO SETTINGS FOR TYMNET (/L := /L + 1; /PSNPARM + /L := $7F02;) 
? 
  
_ 
* * *  SETTINGS FOR CDSN REFERENCES 
? 
_ 
* * *  NO SETTINGS FOR CDSN   (/L := /L + 1; /PSNPARM + /L := $7F03;) 
? 
_ 
* * *  END OF PAD TABLE MARKER
? 
      /L := /L + 1; /PSNPARM + /L := $7FFF; _END OF PAD TABLE          ?
  
