Retro1.org codex

*NOSEQ 
.PROC,IAF.
*
*   IAF BRINGS UP THE INTERACTIVE FACILITY.
*
***       SENSE SWITCH OPTIONS.
*
*         THE FOLLOWING OPTIONS ARE SELECTED IF THE CORRESPONDING
*         SENSE SWITCH IS SET *ON*.
*
*         SSW1   RETAIN USERS IN EJT (DETACHED) IF IAFEX IS IDLED OR
*                ABORTS.  THIS WILL RETAIN USERS ACROSS A RECOVERY
*                DEADSTART.
*
*         SSW2   DO NOT RELOAD AFTER AN ABORT.  RELEASE OUTPUT FILE TO
*                THE OUTPUT QUEUE.
*
*         SSW3   ABORT ON ABNORMAL CONDITIONS.  THIS WILL FORCE AN
*                INTERNALLY GENERATED ABORT WHEN AN INTERNAL ERROR
*                SITUATION OCCURS.  A DAYFILE MESSAGE WILL BE ISSUED
*                GIVING THE NAME OF THE SUBROUTINE BY WHICH THE ERROR
*                WAS DETECTED.
*
*         SSW4   DUMP FIELD LENGTH TO THE OUTPUT FILE AFTER OPERATOR
*                IDLE.
*
*         SSW5   DUMP FIELD LENGTH TO THE OUTPUT FILE AFTER AN
*                INTERNAL ABORT ON ABNORMAL CONDITIONS.  THE OUTPUT
*                FILE WILL NOT BE RELEASED TO THE OUTPUT QUEUE UNTIL
*                AFTER IAFEX TERMINATION UNLESS SENSE SWITCH 6 IS SET.
*                THIS SWITCH IS SET AUTOMATICALLY DURING INITIALIZA-
*                TION AND SHOULD BE CLEARED VIA AN *OFFSW* WHILE IAF
*                IS RUNNING IF THIS OPTION IS NOT DESIRED.
*
*         SSW6   RELEASE THE DUMP OUTPUT FILE TO THE OUTPUT QUEUE
*                IMMEDIATELY AFTER A IDLE OR AN ABORT.
ONSW(1,6)
RETURN(IAF)
IFE(OT.EQ.SYO,OTERR)
  NOEXIT.
  SET,EFG=1.
  WHILE((EFG.NE.0).AND.(EF.LT.SPE).AND.(SW2.EQ.0),LOOP)
    SET,EFG=0.
    RFL,0.
    IAFEX.
    IAFEX2.
    IFE,FILE(OUTPUT,AS),DUMP.
      SET,EFG=1.
      IFE,FILE(ZZZZDMM,AS),DSDI.
        RFL,70000.
        DSDI,F=ZZZZDMM,L=OUTPUT,Z.$EJT.$IAF.$CP,1/X.
        RETURN,ZZZZDMM.
      ENDIF(DSDI)
      DAYFILE,OP=I.
      IFE,SW6,ROUTE.
        ROUTE,OUTPUT,DC=PR.
      ELSE(ROUTE)
        SKIPEI,ZZZZOUT.
        REWIND,OUTPUT.
        COPYEI,OUTPUT,ZZZZOUT.
        RETURN,OUTPUT.
      ENDIF(ROUTE)
    ENDIF(DUMP)
    IF,EF.EQ.0.SET,EFG=1.
  ENDW(LOOP)
  IFE,FILE(ZZZZOUT,AS),ZOUT.
    ROUTE,ZZZZOUT,DC=PR.
  ENDIF(ZOUT)
  REVERT.  IAF END.
ENDIF,OTERR.
REVERT,ABORT.  INCORRECT ORIGIN TYPE.