Table of Contents

IGET

Table Of Contents

  • [00006] IGET - GET A PERMANENT FILE.
  • [00010] GET A PERMANENT FILE.

Source Code

IGET.txt 
  1. *DECK IGET
  2.           IDENT  IGET 
  3. *CALL COPYRITE          CDCNET - COPYRIGHT CONTROL DATA. 1992.
  4.           ENTRY  IGET 
  5.           SYSCOM B1 
  6.           TITLE  IGET - GET A PERMANENT FILE. 
  7.           COMMENT IGET - GET A PERMANENT FILE.
  8.           COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC. 1994.
  9.           SPACE  4,10 
  10. **        IGET - GET A PERMANENT FILE.
  11. * 
  12. *         ENTRY - FILE, AN ARRAY THAT CONTAINS THE FET. 
  13. * 
  14. *         STATUS = IGET (FILE);  *SYMPL* CALL.
  15. * 
  16. *         STATUS IS OBTAINED FROM WORD 0, BITS 17-10 OF THE FET.
  17. *         REFER TO THE NOS REFERENCE MANUAL VOLUME 4. 
  18. * 
  19.  
  20.  
  21.  IGET     SUBR               ENTRY/EXIT 
  22.           SB1    1
  23.           SX2    X1          ADDRESS OF FET 
  24.           MX0    42          SET ERROR MESSAGE ADDRESS
  25.           SA3    X2+10
  26.           SX6    FGEA 
  27.           BX3    X0*X3
  28.           BX6    X3+X6
  29.           SA6    A3+
  30.           GET    X2          GET PERMANENT FILE 
  31.           SA3    X2          GET FET+0
  32.           MX0    52 
  33.           AX3    10          RIGHT JUSTIFY BITS 17-10 
  34.           BX6    -X0*X3      ISOLATE ERROR CODE IN X6 
  35.           EQ     IGETX       RETURN 
  36.  
  37.  
  38.  FGEA     BSSZ   5           *PFM* ERROR MESSAGE BUFFER 
  39.  
  40.           END