$(2) . PREQ P$IRCB . PROCESSOR INTERFACE DEFINITIONS . INITIALIZE PHASE 1 466100 . 466200 STACK*. STACK OVERLAYS THIS CODE. SHORT . SHORT INIT* S,H2 B11,IN30 466300 TZ,S2 CRFLGS NON ZERO IF CALLED BY CTS TNZ,H1 CRDBUG NON ZERO IF Y OPTION J $+3 L,M A0,021 SET TRACE STORES ON S,H1 A0,TRACF L A0,CRSYM A,M A0,3 SSL A0,2 LSSL A0,2 S,H2 A0,CRSYM S,H2 A0,CRISYM TNZ,S6 CR131K J $+3 L A5,(0777777) 131K S A5,MAXD 131K L,S3 A0,PARTBL AND,M A0,4 . TEST FOR F OPTION JZ A1,INIT3 . NO CROSS REFERENCE REQUESTED S A1,CRSTED L,M A0,1190 . 2*LNBUF+10 LMJ B11,PRQEST J SYMOFA SSL A0,18 S,H2 A0,CRCRFT . SAVE LOCATION OF FILE TABLE LXI,M A0,1 L A2,(1,F60) L,M R1,10 FCT IS 10 WORDS LONG BT A0,0,*A2 . MOVE INITIALIZED FILE TABLE L,H2 A0,CRCRFT LOC OF FILE CONTROL TABLE AU,M A0,10 LOC OF FIRST BUFFER S,H1 A1,6,A0 STORE INTO FCT A,M A1,LNBUF GET LOC OF 2ND BUFFER S,H2 A1,6,A0 STORE INTO FCT L,H2 A0,CRCRFT LOC OF FCT L,M A1,RFW$ WRITE CODE LMJ B11,RFPO$ WRITE SLJ F30ERX L A0,CRCRFT L,H2 A2,6,A0 LOC OF ACTIVE BUFFER AH A2,(2,NBCW) S A2,CRCRFJ . CURRENT INDEX INTO BUFFER L,M A2,BUFN SSL A2,1 S A2,CRCRFI . NUMBER OF 2 WORD ENTRIES INIT3 . . OPEN FILES 466310 L A0,PARTBL AND A0,(0374400777) . RREMOVE G,H,J,K,L,M,N,O,PQ BITS S A0,SPARTBL . SAVE ORIGINAL OPTION LETTERS TP,XH2 PARTBL TEST FOR I OPTION AND A0,(0374401777). REMOVE G,H,J,K,L,M,N,O,P A A1,(02000,0) . BIT WILL KEEP SIR FROM WRITING OUTPUT L A3,(04000,0) . SPECIAL Q OPTION BIT FOR SIR TP,XH2 PARTBL . TEST I OPTION SZ A3 L A2,A1 TEP A0,(01000) . TEST Q OPTION OR A1,A3 . SET SPECUAL BIT UNLESS I OPTION S A2,PARTBL L,M B10,SIRXX LXI,M B11,JPL$PIRCB$ . BANK CONTAINING SIR L,M A5,WFDLLN SSC A5,18 A,M A5,PARTBL . PASS LOCATION OF PARTBL LIJ B11,BOPNSR$ . GET ALL IMAGES J PH400 L A0,(0401000) . I AND Q OPTIONS AND A0,SPARTBL TNE A1,(0401000). TEST IF I AND Q OPPTION PRESENT L A5,A1 . FORCE ASCII READS S A5,FDASCZ . 0 IF ELEMENT FIELDATA; 1 IF ASCII JZ A5,INTFD L,M A5,AGETX . NORMAL BILINK FOR ASCII S A5,GXB2 S A5,GXSB2 L,M A5,AGETMX . MACRO BILINK FOR ASCII S A5,GXSMB2 L,M A5,AGETMXA-AGETMX . SKIP MACRO ASCII BILINK S,H2 A5,GXTRMZ L,M A5,AGETXA-AGETX S,H2 A5,GXTRCZ . SKIP NORMAL ASCII BILINK L A5,(LIJ B11,BGETAS$) SET TO GET ASCII IMAGES S A5,FDASEX L A5,(L A0,ASCFDASC$,A0,H1) S A5,FDASCN INTFD . OWF30 . OPEN TO WRITE F30 466320 OWF60 . OPEN TO WRITE F60 466330 L,M A0,4 MARK OUTPUT SOURCE ELEMENT S,S1 A0,PARTBL+23 AS FORTRAN SYMBOLIC . INITIALIZE FLAGS 466400 L A0,(2,LREF) 466610 S A0,LREFI 466620 SZ EQVTI AREFLK L,M A0,0100 S A0,FNA L A0,(0100000,0) S A0,MACBXX L,M A0,30 SZ MACWRI,A0 JGD A0,$-1 SZ MCLCPT L,M A0,24 SZ SUBT,A0 SZ SUBT2,A0 SZ SUBT3,A0 JGD A0,$-3 L,M A0,9 SZ MCSTLG-1,A0 JGD A0,$-1 L,M A0,3 SZ IMPMUL,A0 JGD A0,$-1 L,M A0,7 SZ VARDIM,A0 JGD A0,$-1 L A0,(0370000,1) S A0,SLISFV L A0,('N$BLNK') S A0,PRESYM . INITIALIZE BLANK COMMON INTO SYMBOL TABLE SZ PRESYM+1 SZ PRESYM+2 L,M A0,04 GROUP NUMBER FOR BLANK COMMON S,S4 A0,PRESYM+2 L A0,(-0106,-1) S A0,MLINK L A0,(3,PRESYM) LMJ B11,MTLT SLJ SYMOF L,M R15,1 NON ZERO S R15,FFS . INITIALIZE THIN FILM FLAGS ETC 467300 L,M B1,0100 INITIAL SEQUENCE COUNT L B5,(1,0) STRING INDEX 467500 L B7,(1,1) CTAB INDEX 467600 L B9,(1,0) SLOUT INDEX 467700 L R8,(070100,0) DUMMY ITEM 467900 SZ LOOP SZ LOOP+1 SZ DOTAB SZ SCARR+5 . INSERT INTRINSIC FUNCTIONS IN SYM TABLE 468400 L B3,(1,0) 468500 L,H2 A13,CRCRFT INHIBIT ENTRIES IN CROSS SZ,H2 CRCRFT . REF WHILE INITIALIZING SYMBOL TABLE L,M B2,NTIFX IN401 L A4,TIFN,B3 TIFN=INTRINSIC NAME TABLE 468700 LMJ B11,SLT INSERT NAME IN GLOBAL SYM 468800 + CRGHL 468900 LMJ B11,SLTI 469000 L A4,TIFW3,B3 INSERT W3 OF SYM 469100 OR A4,2,A1 469200 S A5,2,A1 469300 L A4,TIFW4,*B3 INSERT W4 OF SYM 469400 S A4,3,A1 469500 JGD B2,IN401 469600 L A4,TIFN67 LMJ B11,SLT +CRGHL SLJ N1BUG S,H2 A1,N1FIX L A4,TIFN69 . GET FLT$$ LMJ B11,SLT +CRGHL SLJ N1BUG S,H2 A1,N1FLT L A4,('$LGIF$') LMJ B11,SLT +CRGHL LMJ B11,SLTI S,H2 A1,N0LOGF L,M A0,010 SUPPRESS DIAGNOSTIC S,S3 A0,2,A1 SET TYPE TO INTEGER S,H1 A0,3,A1 SET DEFINITION POINT L A4,('FLD ') LMJ B11,SLT +CRGHL SLJ N1BUG L,M A14,040 OR,S2 A14,2,A1 . SET D=1 FOR THIS INTRINSIC FUNCTION S,S2 A15,2,A1 L A4,('FLD$ ') . THIS FLD CROSSES WORD BOUNDARIES LMJ B11,SLT +CRGHL SLJ N1BUG . IT HAS TO BE THERE L,M A14,040 . SET D = 1 IF INTRINSIC FUNCTION OR,S2 A14,2,A1 . CAN APPEAR TO LEFT OF EQUALS S,S2 A15,2,A1 . L A4,('BITS ') . FTN BITS FUNCTION LMJ B11,SLT +CRGHL SLJ N1BUG . IT HAS TO BE THERE L,M A14,040 . SET D = 1 IF INTRINSIC FUNCTION OR,S2 A14,2,A1 . CAN APPEAR TO LEFT OF EQUALS S,S2 A15,2,A1 L A2,CRSYM . NEXT SPACE IN SYMBOL TABLE AU,M A2,4 . ADVANCE TO NEXT SPACE S A3,CRSYM S A2,CRFLD . SAVE LOCATION PSUEDO FLD FUNCTION SZ,H1 CRFLD . CLEAR FLAG TO SHOR PRESENSE OF CHARACT L A3,('SUBST$') . PSUEDO SUBSTRING FUNCTION S A3,0,A2 SZ 1,A2 L A3,(04066,05614) . BOOLEAN INTRINSIC FUNCTION S A3,2,A2 L A3,3,A1 . WORD TO DEFINE CONVERSIONS S A3,3,A2 S,H2 A13,CRCRFT TZ,S6 CR131K . IN LARGE COR PLACE FLAG IN LIBRARY SLJ N1LCLB . GENERATE PSUEDO DATA STATEMENT . READ FIRST CARD AND INITIALIZE NLINE 469700 IN401A L A5,B1 OR A5,(01000000) C=1 469715 S A5,NLINE F60 ID,(ID=00,C=0,S) 469720 IN402 L A0,(14,NLINE+1) L,M B10,SIRXX . DATA AREA FOR SIR$ LXI,M B11,JPL$PIRCB$ . BANK CONTAINING SIR TZ FDASCZ . TEST FOR ASCII READS L A0,(20,NLINE+1) S A0,SIRLNG . SAVE POTENTIAL LENGTH OF IMAGE LXM,H2 B11,FDASEX LIJ B11,0,B11 . TO BGETSR$ OR BGETAS$ LMJ B11,CCE CONTROL CARD ERROR J IN404 'EOF' IS FIRST CARD SLJ CNWTST CHECK FOR CONTROL WORD J IN402 . SKIP NEGATIVE CONTROL WORDS L A3,CTSLNB CTS LINE NUMBER SZ CTSLNB TZ,S2 CRFLGS S,H2 A3,F60ID+1 . CTS LINE NUMBER L A5,F60ID S A5,XF60ID . SAVE DL A4,F60ID+1 DS A4,XF60ID+1 L A2,NLINE+1 TSEDIT TZ FDASC . NON ZERO IS ASCII LINE J IN402Q L,S1 A0,NLINE+1 GET COL 1 469740 TNE,M A0,'G' J IN403G TNE,M A0,'H' J IN403H TE,M A0,'C' IS THIS A COMMENT 469745 J IN403 NO- 469750 IN4023 RES 0 L A0,(1,NLINE) L,H1 A1,SIRLNG . LENGTH OF IMAGE A,M A1,1 . INCLUDE COUNT OF F60 ID L A2,(3,F60ID) . ONE TRAILING CONTROL WORD L,H2 A3,FDASC . SET ACCORDING TO IMAGE LMJ B11,W60F S A6,NLINE F60 ID,(ID=00,C=1,S) 469770 J IN402 GO GET NEXT LINE 469775 IN403 TZ FDASC . NON ZERO IS ASCII LINE J IN402R L,S6 A0,NLINE+1 TNE,M A0,' ' J IN4033 TNE,M A0,'0' J IN4033 IN402S LMJ B11,PERR FORM6 01,193,0 J IN4023 IN4033 L A0,(' ') S A0,PLABL PUT BLANKS IN PRESENT LABEL 469785 LMJ B11,PSTL INITIALIZE 'NLABL' AND 'PLABL' 469790 . INITIALIZE SUBPROGRAM FLAGS ETC. 469800 LMJ B11,INITS 469900 L A0,(0350000,0) WF30 END OF FILE ITEM 469910 J *IN30 REENT IN404 L,M B10,SIRXX . DATA AREA FOR SIR$ LXI,M B11,JPL$PIRCB$ . COMMON BANK WITH SIR$ LIJ B11,BCLOSR$ . CLOSE OUT SIR$ OPERATIONS NOP . L A0,N0SRC ER PRINT$ BCLOSE F30 BCLOSE F60 S,S1 R15,PARTBL+19 DELETE SOURCE OUTPUT S,S1 R15,PARTBL+32 RB OUTPUT J SEXIT ASCII IN402Q L,Q1 A0,NLINE+1 . GET COLUMN 1 TNE,M A0,'G' J IN403G TNE,M A0,'H' J IN403H TE,M A0,'C' J IN403 J IN4023 IN402R L,Q2 A0,NLINE+2 . GET COLUMN 6 TNE,M A0,' ' J IN4033 TNE,M A0,'0' J IN4033 J IN402S FIELDATA N0SRC +0107,$+1 ' NO SOURCE DECK CONTROL CARD IGNORED ' IN403G L A1,PARTBZ OPTION LETTERS . TOP A1,(1*/('Z'-'G')) J IN4023 IN403K L,M A1,' ' S,S1 A1,NLINE+1 J IN403 IN403H L A1,PARTBZ OPTION LETTERS TEP A1,(1*/('Z'-'G')) J IN4023 J IN403K . INITIALIZE PHASE 1 FOR EACH SUBPROGRAM 471100 . 471200 INITS* S,H2 B11,IS30 471300 . SET ALL FLAGS WHICH 471400 SZ DLAB 471500 SZ FC4 471600 SZ FD4 471700 SZ FEB 471800 SZ FEQ 471900 SZ FF5 472000 SZ FLF 472100 SZ FLG 472200 SZ FRD 472300 SZ FXL 472400 SZ LIST 472500 J *IS30 REENT MSTACK* EQU $-STACK-1 $(2) . REENT IN30 J $-$ REENT IS30 J $-$ REENT END