Retro1.org codex

.PROC,TAFPRC.
* ENTER USER CONTROL STATEMENT HERE.
OFFSW(3)
ONSW(4)
ONSW(5)
ONSW(6)
SET,EF=0.
WHILE,EF.NE.ODE.AND.EF.NE.ORE.AND.SW4.EQ.TRUE,ENDTAF.
OFFSW(4)
RFL(210000)
TAFREC.
OFFSW(3)
IFE,EF.NE.0,TAFRECABT.
CLASS(NS)
EXIT.
DMD.
DMD,0,377777.
IFE,SW5.EQ.FALSE,ENDSW51.
RETURN,OUTPUT.
ENDIF,ENDSW51.
*
* TAFREC ABORT.
*
REWIND,ZZIRRF,TCF,ZZTIF.
* LIST TAF RECOVERY REPORT.
COPYEI,ZZIRRF,OUTPUT.
* LIST TAF CONFIGURATION FILE.
COPYSBF,TCF,OUTPUT.
* LIST TAF INITIALIZATION FILE.
TDUMP,I=ZZTIF,L=OUTPUT.
CLASS(NS)
EXIT.
ENDIF,TAFRECABT.
TAF1.
TAF2.
CLASS(NS)
EXIT.
DMD.
DMD,0,377777.
*
* TAF ABORT.
*
TAF2.
IFE,SW5.EQ.FALSE,ENDSW52.
RETURN,OUTPUT.
ENDIF,ENDSW52.
DLFP.
REWIND,ZZIRRF,TCF.
* LIST TAF INITIALIZATION OR RECOVERY REPORT.
COPYEI,ZZIRRF,OUTPUT.
* LIST TCF.
COPYSBF,TCF,OUTPUT.
IFE,SW6.EQ.TRUE,ENDSW61.
DAYFILE.
ENDIF,ENDSW61.
ROUTE,OUTPUT,DC=PR.
ONSW(3)
SET,EF=0.
IFE,EF.NE.0,TAF2ABT.
CLASS(NS)
EXIT.
DMD.
DMD,0,377777.
IFE,SW5.EQ.FALSE,ENDSW53.
RETURN,OUTPUT.
ENDIF,ENDSW53.
DLFP.
REWIND,ZZIRRF,TCF.
* LIST TAF INITIALIZATION OR RECOVERY REPORT.
COPYEI,ZZIRRF,OUTPUT.
* LIST TCF.
COPYSBF,TCF,OUTPUT.
IFE,SW6.EQ.TRUE,ENDSW62.
DAYFILE.
ENDIF,ENDSW62.
ROUTE,OUTPUT,DC=PR.
ONSW(3)
SET,EF=0.
CLASS(NS)
EXIT.
ENDIF,TAF2ABT.
ENDW,ENDTAF.
CLASS(NS)