CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 FORTRAN COMPILER -- LIST PHASE THREE -- PHASE 27 PAGE 1 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB FORTRAN COMPILER -- LIST PHASE THREE -- PHASE 27 102 CTL 6611 103 * 104 * EACH INPUT-OUTPUT STATEMENT IS REDUCED TO THE ADDRESS OF 105 * THE LIST STRING (WHEN PRESENT), THE FORMAT STRING (WHEN 106 * PRESENT), AND THE TAPE UNIT NUMBER (WHEN APPLICABLE). 107 * 108 * ON ENTRY, X1 IS THE TOP OF THE TOP I/O STATEMENT AND X2 109 * IS ONE BELOW THE TABLE OF I/O STRINGS, FORMATS AND NUMBERS. 110 * 111 * ON EXIT, 83 IS THE TOP OF CODE IN HIGH CORE AND X2 IS ONE 112 * BELOW THE BOTTOM OF CODE IN HIGH CORE. 113 * 114 X1 EQU 89 0089 115 X2 EQU 94 0094 116 * 117 * STUFF IN THE RESIDENT AREA 118 * 119 PHASID EQU 110 PHASE ID, FOR SNAPSHOT DUMPS 0110 120 SNAPSH EQU 333 CORE DUMP SNAPSHOT 0333 121 LOADNX EQU 700 LOAD NEXT OVERLAY 0700 122 CLEARL EQU 707 CS AT START OF OVERLAY LOADER 0707 123 TPREAD EQU 780 TAPE READ INSTRUCTION IN OVERLAY LOADER 0780 124 LOADXX EQU 793 EXIT FROM OVERLAY LOADER 0793 125 CLRBOT EQU 833 BOTTOM OF CORE TO CLEAR IN OVERLAY LOADER 0833 126 * 127 ORG 845 0845 128 LOADDD EQU *&1 LOAD ADDRESS 0845 129 845 BEGINN MCW X2,83 7 0845 M 094 083 4 130 852 SW GM 4 0852 , |11 4 131 856 LCA GM,0&X2 GM BELOW I/O STRING TABLE 7 0856 L |11 0!0 4 132 863 SBR X2 4 0863 H 094 4 133 867 TESTIO BW NOTIO,0&X1 8 0867 V 918 0|0 1 4 134 875 B MOVE MOVE PREFIX 4 0875 B 942 4 135 879 B MOVE MOVE TAPE NUMBER AND LIST (R/W TAPE), 4 0879 B 942 4 136 * TAPE NUMBER AND FORMAT (R/W I/O TAPE), 137 * OR FORMAT (READ/PRINT/PUNCH) 138 883 BCE TESTIO,1&X2,} END OF STATEMENT? 8 0883 B 867 0!1 } GMARK 5 139 891 CW 1&X2 4 0891 ) 0!1 5 140 895 C 0&X1 GET DOWN TO WM 4 0895 C 0|0 5 141 899 SAR X1 4 0899 Q 089 5 142 903 SBR X1,1&X1 7 0903 H 089 0|1 5 143 910 B MOVE MOVE LIST (R/W I/O TAPE) OR ONLY GMWM 4 0910 B 942 5 144 914 B TESTIO 4 0914 B 867 5 145 * 146 * NOT I/O, COPY EVERYTHING ELSE 147 * FORTRAN COMPILER -- LIST PHASE THREE -- PHASE 27 PAGE 2 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 918 NOTIO CW 0&X1 4 0918 ) 0|0 6 149 922 COPY BCE DONE,0&X1, 8 0922 B 969 0|0 6 150 930 B MOVE MOVE PREFIX 4 0930 B 942 6 151 934 B MOVE MOVE BODY 4 0934 B 942 6 152 938 B COPY 4 0938 B 922 6 153 * 154 * MOVE FROM CODE AREA TO LIST AREA 155 * 156 942 MOVE SBR MOVEX&3 4 0942 H 968 6 157 946 LCA 0&X1,0&X2 7 0946 L 0|0 0!0 6 158 953 SAR X1 4 0953 Q 089 7 159 957 C 0&X2 4 0957 C 0!0 7 160 961 SAR X2 4 0961 Q 094 7 161 965 MOVEX B 0-0 4 0965 B 000 7 162 * 163 969 DONE BSS SNAPSH,D 5 0969 B 333 D 7 164 974 SBR TPREAD&6,838 7 0974 H 786 838 7 165 981 SBR CLRBOT 4 0981 H 833 7 166 985 SBR LOADXX&3,937 7 0985 H 796 937 8 167 992 SBR CLEARL&3,GMWM 7 0992 H 710 |18 8 168 999 LCA STNUM2,PHASID 7 0999 L |17 110 8 169 1 006 B LOADNX 4 1006 B 700 8 170 * 171 1 011 GM DCW @ }@ 2 1011 8 172 1 017 STNUM2 DCW @STNUM2@ 6 1017 8 173 1 018 GMWM DCW @}@ 1 1018 GMARK 8 174 ORG 201 0201 175 203 DSA LOADDD LOAD ADDRESS FOR CARD-TO-TAPE PROGRAM 3 0203 845 9 176 EX BEGINN B 845 10 177 END / 000 080 FORTRAN COMPILER -- LIST PHASE THREE -- PHASE 27 PAGE 3 SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BEGINN 845 CLEARL 707 CLRBOT 833 COPY 922 DONE 969 GM 1011 GMWM 1018 LOADDD 845 LOADNX 700 LOADXX 793 MOVE 942 MOVEX 965 NOTIO 918 PHASID 110 SNAPSH 333 STNUM2 1017 TESTIO 867 TPREAD 780 X1 89 X2 94