Retro1.org codex

*DECK NS$XDFN 
FUNC NS$XDFN(CHAR)U;         # CONVERT ASCII CHARACTER TO DISPLAY CODE #
 
# TITLE NS$XDFN - CONVERT ASCII CHARACTER TO DISP. CODE.               #
 
      BEGIN    # NS$XDFN #
# 
**    NS$XDFN - CONVERT ASCII CHARACTER TO DISP. CODE.
* 
*     J.C. LEE    1981
* 
*     THIS IS A FUNCTION SUBPROGRAM.  ITS FUNCTION IS TO CONVERT
*     ASCII CHARACTER TO DISPLAY CODE.
* 
*     FUNC NS$XDFN(CHAR)U 
* 
*     ENTRY:  
*       CHAR - ASCII CHARACTER TO BE CONVERTED. 
* 
*     EXIT: 
*       NONE. 
* 
*     METHOD: 
*       *CHAR* IS USED AS AN INDEX INTO DISPLAY CODE CONVERSION 
*       TABLE.
* 
# 
 
      $BEGIN
      XREF
        BEGIN 
        PROC NS$DBG;         # TRACE PROCEDURE CALL                    #
        END 
      $END
 
      ITEM CHAR       U;     # ASCII CHARACTER                         #
 
      ITEM DISPLAYTAB C(128) = " # ASCII TO DISPLAY CODE CONVERSION    #
        !""#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
       ABCDEFGHIJKLMNOPQRSTUVWXYZ     ";
 
CONTROL EJECT;
 
      $BEGIN
      NS$DBG("XDFN");        # TRACE CALL                              #
      $END
 
      NS$XDFN = C<CHAR,1>DISPLAYTAB;   # CONVERT TO DISPLAY CODE       #
 
      RETURN; 
      END   # NS$XDFN # 
      TERM