*DECK FGET
          IDENT  FGET 
*CALL COPYRITE
          ENTRY  FGET 
          SYSCOM B1 
          TITLE  FGET - GET A PERMANENT FILE. 
          COMMENT FGET - GET A PERMANENT FILE.
          SPACE  4,10 
***       FGET - GET A PERMANENT FILE.
* 
*         ENTRY - FILE, AN ARRAY THAT CONTAINS THE FET. 
* 
*         STATUS = FGET (FILE);  *SYMPL* CALL.
* 
*         STATUS IS OBTAINED FROM WORD 0, BITS 17-10 OF THE FET.
*         REFER TO THE NOS REFERENCE MANUAL VOLUME 4. 
* 
  
  
 FGET     SUBR               ENTRY/EXIT 
          SB1    1
          SX2    X1          ADDRESS OF FET 
          MX0    42          SET ERROR MESSAGE ADDRESS
          SA3    X2+10
          SX6    FGEA 
          BX3    X0*X3
          BX6    X3+X6
          SA6    A3+
          GET    X2          GET PERMANENT FILE 
          SA3    X2          GET FET+0
          MX0    52 
          AX3    10          RIGHT JUSTIFY BITS 17-10 
          BX6    -X0*X3      ISOLATE ERROR CODE IN X6 
          EQ     FGETX       RETURN 
  
  
 FGEA     BSSZ   5           *PFM* ERROR MESSAGE BUFFER 
  
          END 
