*DECK TEXTXDR 
    PROC TEXTXDR; 
*CALL COPYRITE          CDCNET - COPYRIGHT CONTROL DATA. 1992.
# TITLE TEXTXDR - SYMPL TEXT FOR THE XDR LIBRARY                       #
  
      CONTROL STEXT;
  
      BEGIN                            # TEXTXDR                       #
# 
****  TEXTXDR SYMPL TEXT FOR THE XDR LIBRARY
* 
*     THIS PROCEDURE GENERATES A SYMPL TEXT FOR COMPILING THE XDR 
*     LIBRARY USED WITH THE IP SOCKET LIBRARY.
* 
# 
  
      DEF NULL$             # 0 #;     # ZERO BYTE TERMINATOR          #
  
      DEF XDRMODU (NUMBER, BASE) #(NUMBER)-(NUMBER)/(BASE)*(BASE)#; 
  
# 
****  XDR ROUTINE OPERATION TYPES 
# 
      STATUS XDROPER
        READ,                          # READ FROM 7.5 BYTE/WORD ARRAY #
        WRITE;                         # WRITE TO 7.5 BYTE/WORD ARRAY  #
  
      END                              # TEXTXDR                       #
  
      TERM
*WEOR