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 0 FORTRAN COMPILER -- LIST PHASE ONE -- PHASE 25 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB FORTRAN COMPILER -- LIST PHASE ONE -- PHASE 25 102 CTL 6611 103 * 104 * DUPLICATE LISTS ARE CHECKED AND ELIMINATED TO OPTIMIZE 105 * STORAGE AT OBJECT TIME. 106 * 107 * ON ENTRY, X1 IS THE TOP OF STATEMENTS IN LOW CORE, X3 IS 108 * ONE BELOW THE FORMAT STRINGS OR NUMBER TABLE, AND 81-83 109 * IS ONE BELOW THE FORMAT STRINGS OR NUMBER TABLE. 110 * 111 X1 EQU 89 0089 112 X2 EQU 94 0094 113 X3 EQU 99 0099 114 * 115 * STUFF IN THE RESIDENT AREA 116 * 117 PHASID EQU 110 PHASE ID, FOR SNAPSHOT DUMPS 0110 118 BOTFMT EQU 154 BOTTOM OF FORMAT STRINGS OR NUMBER TABLE - 1 0154 119 NEGARY EQU 163 16000 - ARYSIZ 0163 120 GLOBER EQU 184 GLOBAL ERROR FLAG -- WM MEANS ERROR 0184 121 SNAPSH EQU 333 CORE DUMP SNAPSHOT 0333 122 FMTSW EQU 696 X FOR NO FORMAT, L FOR LIMITED FORMAT 0696 123 * BLANK FOR ORDINARY, A FOR A CONVERSION 124 LOADNX EQU 700 LOAD NEXT OVERLAY 0700 125 CLEARL EQU 707 CS AT START OF OVERLAY LOADER 0707 126 TPREAD EQU 780 TAPE READ INSTRUCTION IN OVERLAY LOADER 0780 127 CLRBOT EQU 833 BOTTOM OF CORE TO CLEAR IN OVERLAY LOADER 0833 128 * 129 ORG 838 0838 130 LOADDD EQU *&1 LOAD ADDRESS 0838 131 841 SEQCOD DCW #4 4 0841 4 132 844 SX1 DCW #3 3 0844 4 133 845 BEGINN MCW X1,SX1 7 0845 M 089 844 4 134 852 MCW 83,X2 7 0852 M 083 094 4 135 859 LCA DOT,0&X2 7 0859 L S13 0!0 4 136 866 CW 0&X2 4 0866 ) 0!0 4 137 870 SBR 83 4 0870 H 083 4 138 874 SBR BOTFMT,0&X2 7 0874 H 154 0!0 5 139 881 MA NEGARY,BOTFMT 7 0881 # 163 154 5 140 888 LOOP BCE DONE,0&X1, BELOW BOTTOM STATEMENT 8 0888 B /68 0|0 5 141 896 MCW 0&X1,SEQCOD 7 0896 M 0|0 841 5 142 903 MCW X1,SX1B&6 7 0903 M 089 /63 5 143 910 MCW SEQCOD-3,*&8 7 0910 M 838 924 6 144 917 BCE IOSTMT,STMTS,0 I/O STATEMENT? 8 0917 B 935 S20 0 6 145 925 CHAIN 6 MACRO 146 BCE 1 0925 B GEN 6 147 BCE 1 0926 B GEN 6 1 FORTRAN COMPILER -- LIST PHASE ONE -- PHASE 25 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 BCE 1 0927 B GEN 6 149 BCE 1 0928 B GEN 6 150 BCE 1 0929 B GEN 6 151 BCE 1 0930 B GEN 7 152 931 B DONE I/O STATEMENTS ARE SORTED TOGETHER 4 0931 B /68 7 153 * 154 * FOUND AN I/O STATEMENT 155 * 156 935 IOSTMT C 0&X1 GET DOWN 4 0935 C 0|0 7 157 939 SAR X1 TO BODY 4 0939 Q 089 7 158 943 B GETCOM GET X1 DOWN TO A COMMA 4 0943 B |88 7 159 947 CW 114 4 0947 ) 114 7 160 951 BCE *&5,FMTSW,L LIMITED FORMAT ROUTINE? 8 0951 B 963 696 L 7 161 959 CW 115 4 0959 ) 115 8 162 963 SW 0&X1 UNDER THE COMMA 4 0963 , 0|0 8 163 967 SAR X1 4 0967 Q 089 8 164 971 MCW SX1,X3 TOP OF STATEMENTS 7 0971 M 844 099 8 165 978 TWOWM C 0&X3 SKIP TWO 4 0978 C 0?0 8 166 982 C WORD MARKS 1 0982 C 8 167 983 SAR X3 4 0983 Q 099 8 168 987 BCE TWOWM,1&X3,} 8 0987 B 978 0?1 } GMARK 9 169 995 C X1,X3 7 0995 C 089 099 9 170 1 002 BU CHKLST 5 1002 B |19 / 9 171 1 007 STMBOT C 0&X1 4 1007 C 0|0 9 172 1 011 SAR X1 4 1011 Q 089 9 173 1 015 B LOOP 4 1015 B 888 9 174 1 019 CHKLST C 0&X1,0&X3 7 1019 C 0|0 0?0 9 175 1 026 BU GETGM LISTS ARE DIFFERENT 5 1026 B |68 / 10 176 1 031 C 0&X3,0&X1 7 1031 C 0?0 0|0 10 177 1 038 BU GETGM LISTS ARE DIFFERENT 5 1038 B |68 / 10 178 1 043 BW SYNTAX,0&X1 8 1043 V /16 0|0 1 10 179 1 051 BWZ 1 1051 V 10 180 1 052 BWZ 1 1052 V 10 181 1 053 LCA X3,0&X1 LINK IDENTICAL LISTS TOGETHER 7 1053 L 099 0|0 10 182 1 060 SBR X1 4 1060 H 089 11 183 1 064 B STMBOT 4 1064 B |07 11 184 * 185 * LISTS ARE UNEQUAL. GET X3 DOWN TO A GMWM 186 * 187 1 068 GETGM C 0&X3 SKIP ONE 4 1068 C 0?0 11 188 1 072 SAR X3 WORD MARK 4 1072 Q 099 11 189 1 076 BCE TWOWM,1&X3,} 8 1076 B 978 0?1 } GMARK 11 190 1 084 B GETGM 4 1084 B |68 11 191 * 192 * GET COMMA 193 * 194 1 088 GETCOM SBR GETCMX&3 4 1088 H /03 11 195 1 092 SCHCOM BW STMBOT,0&X1 8 1092 V |07 0|0 1 12 196 1 100 GETCMX BCE 0-0,0&X1,, 8 1100 B 000 0|0 , 12 197 1 108 SBR X1 4 1108 H 089 12 1 FORTRAN COMPILER -- LIST PHASE ONE -- PHASE 25 PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 112 B SCHCOM 4 1112 B |92 12 199 * 200 * LIST SYNTAX ERROR 201 * 202 1 116 SYNTAX CS 332 4 1116 / 332 12 203 1 120 CS 1 1120 / 12 204 1 121 SW GLOBER 4 1121 , 184 12 205 1 125 MN SEQCOD,237 7 1125 D 841 237 13 206 1 132 MN 1 1132 D 13 207 1 133 MN 1 1133 D 13 208 1 134 MCW ERR18 4 1134 M S54 13 209 1 138 W 1 1138 2 13 210 1 139 BCV *&5 5 1139 B /48 @ 13 211 1 144 B *&3 4 1144 B /50 13 212 1 148 CC 1 2 1148 F 1 14 213 1 150 MCW SLASH,SEQCOD-3 7 1150 M S55 838 14 214 1 157 SX1B MCW SEQCOD,0 7 1157 M 841 000 14 215 1 164 B STMBOT 4 1164 B |07 14 216 * 217 1 168 DONE SW 0&X1 4 1168 , 0|0 14 218 1 172 MCW SX1,X1 7 1172 M 844 089 14 219 1 179 BSS SNAPSH,C 5 1179 B 333 C 14 220 1 184 SBR TPREAD&6,BEGINN 7 1184 H 786 845 15 221 1 191 SBR CLRBOT 4 1191 H 833 15 222 1 195 SBR CLEARL&3,GMWM 7 1195 H 710 S65 15 223 1 202 LCA LISTR2,PHASID 7 1202 L S64 110 15 224 1 209 B LOADNX 4 1209 B 700 15 225 * 226 * DATA 227 * 228 1 213 DOT DCW @.@ 1 1213 15 229 1 220 STMTS DCW @5613LUP@ READ/WRITE (INPUT) (TAPE), PRINT, PUNCH 7 1220 15 230 1 254 ERR18 DCW @ERROR 18 - LIST SYNTAX, STATEMENT @ 34 1254 16 231 1 255 SLASH DCW @/@ 1 1255 16 232 1 264 LISTR2 DCW @LISTR TWO@ 9 1264 17 233 1 265 GMWM DCW @}@ 1 1265 GMARK 17 234 ORG 201 0201 235 203 DSA LOADDD LOAD ADDRESS FOR CARD-TO-TAPE PROGRAM 3 0203 838 18 236 EX BEGINN B 845 19 237 END / 000 080 1 FORTRAN COMPILER -- LIST PHASE ONE -- PHASE 25 PAGE 4 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BEGINN 845 BOTFMT 154 CHKLST 1019 CLEARL 707 CLRBOT 833 DONE 1168 DOT 1213 ERR18 1254 FMTSW 696 GETCMX 1100 GETCOM 1088 GETGM 1068 GLOBER 184 GMWM 1265 IOSTMT 935 LISTR2 1264 LOADDD 838 LOADNX 700 LOOP 888 NEGARY 163 PHASID 110 SCHCOM 1092 SEQCOD 841 SLASH 1255 SNAPSH 333 STMBOT 1007 STMTS 1220 SX1 844 SX1B 1157 SYNTAX 1116 TPREAD 780 TWOWM 978 X1 89 X2 94 X3 99