RGDFS* PROC . LMSC* EQU 0 JPL* EQU 1 EX2* EQU 0 . COMPILE FO EXEC 2 EX8* EQU 1 . COMPILE FOR EXEC 8 B0* EQU 0 B1* EQU 1 B2* EQU 2 B3* EQU 3 B4* EQU 4 B5* EQU 5 B6* EQU 6 B7* EQU 7 B8* EQU 8 B9* EQU 9 B10* EQU 10 B11* EQU 11 B12* EQU 014 B13* EQU 015 B14* EQU 016 B15* EQU 017 A0* EQU 12 A1* EQU 13 A2* EQU 14 A3* EQU 15 A4* EQU 16 A5* EQU 17 A6* EQU 18 A7* EQU 19 A8* EQU 20 A9* EQU 21 A10* EQU 22 A11* EQU 23 A12* EQU 24 A13* EQU 25 A14* EQU 26 A15* EQU 27 R0* EQU 64 R1* EQU 65 R2* EQU 66 R3* EQU 67 R4* EQU 68 R5* EQU 69 R6* EQU 70 R7* EQU 71 R8* EQU 72 R9* EQU 73 R10* EQU 74 R11* EQU 75 R12* EQU 76 R13* EQU 77 R14* EQU 78 R15* EQU 79 H2* EQU 1 H1* EQU 2 XH2* EQU 3 XH1* EQU 4 XT3* EQU 5 T3* EQU 5 XT2* EQU 6 T2* EQU 6 XT1* EQU 7 T1* EQU 7 S1* EQU 015 S2* EQU 014 S3* EQU 013 S4* EQU 012 S5* EQU 011 S6* EQU 010 Q1* EQU 7 Q2* EQU 4 Q3* EQU 6 Q4* EQU 5 M* EQU 016 XM* EQU 017 MX* EQU 66 KX* EQU 65 X1* EQU 1 X3* EQU 3 X11* EQU 11 BNAME* EQUF 0,A0 FIRST WORD OF FILE NAME PRPFIL* EQU 20 LENGTH OF PFI TABLE SYOUTL* EQU 11 SDFO CONTROL TABLE PFINME* EQUF SYOUTL+2,A0 PFIVER* EQUF SYOUTL+6,A0 BICW* EQUF 9,A0 BUFFER INDEX ICW* EQUF 10,A0 ITEM CONTROL WORD BCW* EQUF 6,A0 BNWL* EQUF 5,A0 NEXT WITE LOCATION PFILTX* EQUF 9+SYOUTL,A0,H2 LENGTH OF TEXT PFILC* EQUF 8+SYOUTL,A0 . LAST CYCLE ECT PFISWL* EQUF 10+SYOUTL,A0 STARTING WRITE LOCATION PFITD* EQUF 11+SYOUTL,A0 PFI TIMEAND DATE SYLFT* EQU SYOUTL+PRPFIL LENGTH OF TABLES PER FILE MWBFL* EQU 224 BUFFER LENGTH MWPOOL* EQUF 28,A0 START OF POOL PACKET WFCLT* EQUF 30,A0 WFLIX* EQU 31,A0 END. OFF60* PROC 1 . B$OPNF F60 SZ F60I END . RFF61 -- READ ONE FILE 61 ITEM . . CALLING SEQUENCE: RFF61 M,EOF . WHERE M IS THE LOCATION OF THE ITEM AND . EOF IS THE TRANSFER LOCATION FOR END OF FILE . RFF61* PROC 1,9. L A1,F61J JGD F61I,$+3 LMJ B11,RFF61E END OF BUFFER (OR FILE) J RFF61(1,2) END OF FILE L A0,0,*A1 S A0,RFF61(1,1) L A0,0,*A1 S A0,RFF61(1,1)+1 S A1,F61J END . RFF60 -- READ ONE FILE 60 ITEM . . CALLING SEQUENCE RFF60 M,EOF . WHERE M IS THE LOCATION TO STORE THE ITEM . AND EOF IS THE END OF FILE LOCATION. . RFF60* PROC 1 . JGD F60I,$+2 J RFF60J L A1,F60J L,S1 A0,0,A1 . TEST END OF BUFFER TE,M A0,076 . SPECIAL END OF BUFFER MARK J RFF60Q RFF60J LMJ B11,RFF60E . READ NEXT BLOCK J RFF60(1,2) . END OF FILE RFF60Q L A0,(1,RFF60(1,1)) SZ VISICT L,S6 A2,0,A1 . ASCII AND CONTROL INDICATORS S,S6 A2,VIASCI . SET ASCII FIELDATA INDICATOR L,S5 A2,0,A1 S,S1 A2,VISICT . SET SIR CONTROL WORD ID L,S4 A2,0,A1 . PART OF CYCLE INFO S,S3 A2,VISICT L,S1 A2,0,A1 . SIMULATE L,T1 LSSL A2,6 A,S2 A2,0,A1 . LENGTH OF TEXT L,S3 R2,0,*A1 AN,M A2,1 . SUBTRACT OUT CONTROL WORD AN A2,R2 . SUBTRACT OUT TRAILING WORDS S A2,R1 . SET FOR BLOCK TRANSFER S,S2 A2,VISICT . SET LENGTH INTO CONTROL WORD BT A0,0,*A1 . MOVE NORMAL F60 TEXT L A0,(1,VI60ID) SZ VI60ID+2 RFF60R JGD R2,RFF60S S A1,F60J TNZ DMPFLG+1 J RFF60T LMJ B11,DMF60 +300,0 J RFF60T RFF60S L R1,0,*A1 S R1,0,*A0 J RFF60R RFF60T . L A1,PARTBZ TOP,M A1,020 . TEST U OPTION SZ,H1 VI60ID+2 . CLEAR CYCLE NUMBER END