Retro1.org codex

*DECK IGET
          IDENT  IGET 
*CALL COPYRITE          CDCNET - COPYRIGHT CONTROL DATA. 1992.
          ENTRY  IGET 
          SYSCOM B1 
          TITLE  IGET - GET A PERMANENT FILE. 
          COMMENT IGET - GET A PERMANENT FILE.
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC. 1994.
          SPACE  4,10 
**        IGET - GET A PERMANENT FILE.
* 
*         ENTRY - FILE, AN ARRAY THAT CONTAINS THE FET. 
* 
*         STATUS = IGET (FILE);  *SYMPL* CALL.
* 
*         STATUS IS OBTAINED FROM WORD 0, BITS 17-10 OF THE FET.
*         REFER TO THE NOS REFERENCE MANUAL VOLUME 4. 
* 
 
 
 IGET     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     IGETX       RETURN 
 
 
 FGEA     BSSZ   5           *PFM* ERROR MESSAGE BUFFER 
 
          END