Retro1.org codex

*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