Retro1.org codex

*DECK IATTACH 
          IDENT  IATTACH
*CALL COPYRITE          CDCNET - COPYRIGHT CONTROL DATA. 1992.
          ENTRY  IATTACH
          SYSCOM B1 
          TITLE  IATTACH - ATTACH A PERMANENT FILE. 
          COMMENT IATTACH - ATTACH A PERMANENT FILE.
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC. 1994.
          SPACE  4,10 
**        ATTACH - ATTACH A PERMANENT FILE. 
* 
*         ENTRY - FILE, AN ARRAY THAT CONTAINS THE FET. 
* 
*         STATUS = IATTACH (FILE);  *SYMPL* CALL. 
* 
*         STATUS IS OBTAINED FROM WORD 0, BITS 17-10 OF THE FET.
*         REFER TO THE NOS REFERENCE MANUAL VOLUME 4. 
* 
 
 
 IATTACH  SUBR               ENTRY/EXIT 
          SB1    1
          SX2    X1          ADDRESS OF FET 
          MX0    42          SET ERROR MESSAGE ADDRESS
          SA3    X2+10
          SX6    FATA 
          BX3    X0*X3
          BX6    X3+X6
          SA6    A3+
          ATTACH X2,,,,R     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     IATTACHX    RETURN 
 
 
 FATA     BSSZ   5           *PFM* ERROR MESSAGE BUFFER 
 
          END