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 -- GEAUX PHASE ONE -- PHASE 61 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB FORTRAN COMPILER -- GEAUX PHASE ONE -- PHASE 61 102 CTL 6611 103 * 104 * THIS PHASE PRINTS THE END OF COMPILATION MESSAGE, INITIALIZES 105 * THE SENSE LIGHTS, AND PREPARES THE BRANCH INTO THE OBJECT 106 * PROGRAM CODING. 107 * 108 X1 EQU 89 0089 109 * 110 * ADDRESSES IN THE RESIDENT AREA 111 * 112 NSTMTS EQU 183 NUMBER OF STATEMENTS, INCLUDING GENERATED STOP 0183 113 * BEGINNING OF CODE BY NOW 114 GLOBER EQU 184 GLOBAL ERROR FLAG -- WM MEANS ERROR 0184 115 GOTXL EQU 185 XLINKF WAS REFERENCED IF NO WM 0185 116 SNAPSH EQU 333 CORE DUMP SNAPSHOT 0333 117 PHASLD EQU 381 LOADS PHASE ID IN SNAPSHOT 0381 118 SNAPEX EQU 564 HALT END EXIT IN SNAPSHOT 0564 119 CONDNS EQU 693 P FOR CONDENSED DECK 0693 120 LOADNX EQU 700 LOAD NEXT OVERLAY 0700 121 CLEARL EQU 707 CS AT START OF OVERLAY LOADER 0707 122 CDOVLY EQU 769 1 IF RUNNING FROM CARDS, N IF FROM TAPE 0769 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 838 0838 128 838 BEGINN LCA W4,84 INITIALIZE 7 0838 L |78 084 4 129 845 SW 84 SENSE 4 0845 , 084 4 130 849 SW LIGHTS 1 0849 , 4 131 850 SW 1 0850 , 4 132 851 CC 1 2 0851 F 1 4 133 853 CS 332 4 0853 / 332 4 134 857 CS 1 0857 / 4 135 858 MCW ENDMSG,218 7 0858 M |96 218 5 136 865 W 1 0865 2 5 137 866 MCW NSTMTS,X1 ENTRY ADDRESS FOR GENERATED CODE 7 0866 M 183 089 5 138 873 BW ERRORS,GLOBER 8 0873 V |56 184 1 5 139 881 CC J 2 0881 F J 5 140 883 CS 332 4 0883 / 332 5 141 887 CS 1 0887 / 5 142 888 MCW START,217 7 0888 M /13 217 6 143 895 W 1 0895 2 6 144 896 AFTERR SW GMWM 4 0896 , /44 6 145 900 LCA GMWM,CONDNS WHY HERE??? 7 0900 L /44 693 6 146 907 BCE CARDS,CDOVLY,1 8 0907 B 963 769 1 6 147 915 BW SKIPTP,GOTXL 8 0915 V 988 185 1 6 1 FORTRAN COMPILER -- GEAUX PHASE ONE -- PHASE 61 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 923 SBR RETRY&3,RD333 7 0923 H 962 930 7 149 * 150 * LOAD OVERLAY LOADER 151 * 152 930 RD333 RTW 1,SNAPSH 8 0930 L %U1 333 R 7 153 938 BER TAPERR 5 0938 B 947 L 7 154 943 B AFTOVL 4 0943 B |20 7 155 947 TAPERR BSP 1 5 0947 U %U1 B 7 156 952 H 4444,4444 7 0952 . 44U 44U 7 157 959 RETRY B SKIPTP 4 0959 B 988 8 158 963 CARDS BW SKIPLD,GOTXL 8 0963 V 975 185 1 8 159 971 R 40 LOAD OVERLAY LOADER 4 0971 1 040 8 160 * 161 * SKIP OVERLAY LOADER 162 * 163 975 SKIPLD R 1 0975 1 8 164 976 BCE DONE,68,B 8 0976 B |01 068 B 8 165 984 B SKIPLD 4 0984 B 975 8 166 988 SKIPTP RTW 1,GMWM 8 0988 L %U1 /44 R 8 167 996 BER TAPERR 5 0996 B 947 L 9 168 * 169 1 001 DONE BSS SNAPSH,C 5 1001 B 333 C 9 170 1 006 LCA NOP,PHASLD 7 1006 L /14 381 9 171 1 013 LCA HALT,SNAPEX 7 1013 L /15 564 9 172 * 173 * RETURN HERE AFTER LOADING OVERLAY LOADER 174 * 175 1 020 AFTOVL CW 680 IN CASE OF OVERLAY LOADER, CLEAR ITS GMWM 4 1020 ) 680 9 176 1 024 SBR CLEARL&3,GMWM 7 1024 H 710 /44 9 177 1 031 SBR TPREAD&6,201 7 1031 H 786 201 10 178 1 038 SBR LOADXX&3,201 7 1038 H 796 201 10 179 1 045 SBR CLRBOT,BEGINN 7 1045 H 833 838 10 180 1 052 B LOADNX 4 1052 B 700 10 181 * 182 1 056 ERRORS CC J 2 1056 F J 10 183 1 058 CS 332 4 1058 / 332 10 184 1 062 CS 1 1062 / 10 185 1 063 MCW ERRMSG,228 7 1063 M /43 228 11 186 1 070 W 1 1070 2 11 187 1 071 B AFTERR 4 1071 B 896 11 188 1 078 W4 DCW #4 4 1078 11 189 1 096 ENDMSG DCW @END OF COMPILATION@ 18 1096 11 190 1 113 START DCW @PRESS START TO GO@ 17 1113 12 191 1 114 NOP NOP 1 1114 N 12 192 1 115 HALT H 1 1115 . 12 193 1 143 ERRMSG DCW @CORRECT ERRORS AND RECOMPILE@ 28 1143 13 194 1 144 GMWM DCW @}@ 1 1144 GMARK 13 195 EX BEGINN B 838 14 196 END / 000 080 1 FORTRAN COMPILER -- GEAUX PHASE ONE -- PHASE 61 PAGE 3 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS AFTERR 896 AFTOVL 1020 BEGINN 838 CARDS 963 CDOVLY 769 CLEARL 707 CLRBOT 833 CONDNS 693 DONE 1001 ENDMSG 1096 ERRMSG 1143 ERRORS 1056 GLOBER 184 GMWM 1144 GOTXL 185 HALT 1115 LOADNX 700 LOADXX 793 NOP 1114 NSTMTS 183 PHASLD 381 RD333 930 RETRY 959 SKIPLD 975 SKIPTP 988 SNAPEX 564 SNAPSH 333 START 1113 TAPERR 947 TPREAD 780 W4 1078 X1 89