Retro1.org codex

*DECK NP$S63
*IF DEF,XFR 
USETEXT AIPDEF
USETEXT NX$CHAR 
 PROC NP$S63; 
 #
*** 
*     1.PROC NAME             AUTHOR          DATE
*       NP$S63                L.T.NGUYEN      83/04/01
* 
*     2.FUNCTIONAL DESCRIPTION: 
*       CHANGE CHARACTER SET TO 63-CHAR SET FOR TRANSLATION IF
*       CHARACTER IS USED FOR APPLICATION.
* 
*     3.METHOD: 
*       PRSET COLON TO BE 63 OCTAL IN C6 CODE SET.
*       PERCENT AND COLON WILL TRANSLATE TO C6 COLON  O"63".
* 
*     4.INPUT PARAMS: 
*       NONE. 
* 
*     5.OUTPUT PARAMS:  
*       NONE. 
* 
*     6.NOTE: 
*       THIS ROUTINE IS CALLED IN NETXFR ONCE IF NP$CS63 FUNCTION 
*       IS TRUE (AT THE ASSEMBLY TIME ) 
* 
 #
      BEGIN                            # SETC63                        #
      F6TOCN[0] = ZBT63;
      C6TOCN[O"63"] = X"3A";
      CNTOC6[X"3A"] = O"63";
      FNTOC6[X"3A"] = CVT;
 
      RETURN ;
      END                              #SETC63                         #
      TERM
*ENDIF