Retro1.org codex

*DECK LFGIOD
PROC LFGIOD;
      BEGIN 
# 
***   SIODEFS - CIO RETURN CODE DEFINITIONS.
* 
*     SIODEFS CONTAINS DEFINITIONS OF CODES RETURNED BY CIO 
*     AFTER A READ OPERATION AND ERROR CODES RETURNED BY CIO. 
*     THE ERROR CODES ARE RETURNED ONLY IF THE ERROR PROCESSING 
*     BIT IS SET IN THE FET.
* 
# 
      CONTROL STEXT;
# 
      SUPIO SYMPL DEFS
                                                                       #
      DEF CIOFETL # 8 #;     # CIO FET LENGTH FOR RANDOM MASS STR. FILE#
      DEF CRDBFUL # O"0011" #; # CODED FILE BUFFER FULL                #
      DEF CRDEOF  # O"0031" #; # CODED FILE END-OF-FILE                #
      DEF CRDEOI  # O"1031" #; # CODED FILE END-OF-INFORMATION         #
      DEF CRDEOR  # O"0021" #; # CODED FILE END-OF-RECORD              #
      DEF DECAE   # O"4002" #; # ADDRESS ERROR DEC                     #
      DEF DECAEOC # O"0002" #; # ADDRESS ERROR DEC - OPER. COMPLETE    #
      DEF DECDS   # O"4003" #; # DETAIL STATUS ERR. DEC                #
      DEF DECDSOC # O"0003" #; # DETAIL STATUS ERR. DEC - OPER. CMPLT. #
      DEF DECPE   # O"4001" #; # PARITY ERROR DEC                      #
      DEF DECPEOC # O"0001" #; # PARITY ERROR DEC - OPER. COMPLETE     #
      DEF DECTL # O"4007" #; # TRACK LIMIT DEC                         #
      DEF INDXAT  # O"23" #;   # INDEX BUFFER IS TOO SMALL             #
      DEF RDBFULL # O"0013" #; # BUFFER FULL STATUS FROM READ          #
      DEF RDEOF # O"0033" #; # EOF STATUS FRON READ                    #
      DEF RDEOI # O"1033" #; # EOI STATUS FROM READ                    #
      DEF RDEOR # O"0023" #; # EOR STATUS FROM READ                    #
      END TERM