Retro1.org codex

*DECK FET$NS
PROC FET$NS;
      BEGIN 
# 
***   SIOFET - FET FORMAT.
* 
*     SIOFET CONTAINS A BASED ARRAY TO BE PLACED OVER A FET.
* 
# 
      CONTROL STEXT;
      COMMON FET$COM; 
      BEGIN 
      BASED ARRAY SIOFET [0:0] S(8);  # FET FORMAT                     #
          ITEM
               FETLFN C  (0,0,07),  # LOGICAL FILE NAME                #
               FETLFNI U (0,0,42), # LOGICAL FILE NAME (INTEGER)       #
               FETLEVN U (0,42,4),  # LEVEL NUMBER                     #
               FETABNT U (0,46,5),  # ABNORMAL TERMINATION CODE        #
               FETSTATUS U(0,48,11), # STATUS RETURNED BY STATUS MACRO #
               FETSTAT U (0,50,10), # STATUS RETURNED BY READ/WRITE    #
               FETEOI B  (0,50,1),  # END-OF-INFORMATION INDICATOR     #
               FETCODE U (0,51,9),  # REQUEST/RETURN CODE              #
               FETBIN B  (0,58,1),  # BINARY FILE INDICATOR            #
               FETCMPT B (0,59,1),  # FET COMPLETE BIT                 #
               FETRAN B  (1,12,1),  # RANDOM FILE INDICATOR            #
               FETUP B   (1,14,1),  # USER PROCESSING INDICATOR        #
               FETEP B   (1,15,1),  # ERROR PROCESSING BIT             #
               FETLEN U  (1,36,6),  # FET LENGTH - 5                   #
               FETFST U  (1,42,18), # FIRST                            #
               FETIN U   (2,42,18), # IN                               #
               FETOUT U  (3,42,18), # OUT                              #
               FETPRU U  (4,24,18), # PRU SIZE                         #
               FETLMT U  (4,42,18), # LIMIT                            #
               FETCRI U  (6,0,30),  # CURRENT RANDOM INDEX             #
               FETRWR B  (6,30,1),  # RANDOM REWRITE REQUEST           #
               FETRR U   (6,31,29), # RANDOM REQUEST                   #
               FETDEC U  (6,31,29), # DETAILED ERROR CODE              #
               FETINDL U (7,24,18), # LENGTH OF INDEX                  #
               FETINDX U (7,42,18); # FWA OF INDEX                     #
      END # FET$COM COMMON #
      END TERM