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 -- CONDENSED DECK PHASE ONE -- 57 PAGE 1 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB FORTRAN COMPILER -- CONDENSED DECK PHASE ONE -- 57 102 CTL 6611 103 * 104 * WHEN REQUESTED (IF THERE ARE NO INPUT ERRORS), THE COMILER 105 * WILL PUNCH A SELF-LOADING CARD DECK. THE DECK IS LISTED ON 106 * THE PRINTER IF SENSE SWITCH B IS ON. THIS PHASE PUNCHES 107 * ONLY THE CLEAR-STORAGE AND BOOTSTRAP CARDS. 108 * 109 * STUFF IN THE RESIDENT AREA 110 * 111 PHASID EQU 110 PHASE ID, FOR SNAPSHOT DUMPS 0110 112 GLOBER EQU 184 GLOBAL ERROR FLAG -- WM MEANS ERROR 0184 113 ARYTOP EQU 194 TOP OF ARRAYS IN OBJECT CODE 0194 114 SNAPSH EQU 333 CORE DUMP SNAPSHOT 0333 115 TOPCOR EQU 688 TOP CORE ADDRESS FROM PARAM CARD 0688 116 CONDNS EQU 693 P FOR CONDENSED DECK 0693 117 LOADNX EQU 700 LOAD NEXT OVERLAY 0700 118 CLEARL EQU 707 CS AT START OF OVERLAY LOADER 0707 119 TPREAD EQU 780 TAPE READ INSTRUCTION IN OVERLAY LOADER 0780 120 LOADXX EQU 793 EXIT FROM OVERLAY LOADER 0793 121 CLRBOT EQU 833 BOTTOM OF CORE TO CLEAR IN OVERLAY LOADER 0833 122 * 123 ORG 838 0838 124 838 PUNCH SBR PUNCHX&3 4 0838 H 858 4 125 842 A KP1,175 BUMP SEQUENCE NUMBER 7 0842 A 883 175 4 126 849 BSS *&6,B PUNCH AND PRINT? 5 0849 B 859 B 4 127 854 P 1 0854 4 4 128 855 PUNCHX B 0-0 4 0855 B 000 4 129 859 MCW 180,280 7 0859 M 180 280 4 130 866 MCW 1 0866 M 4 131 867 WP 1 0867 6 5 132 868 BCV *&5 5 0868 B 877 @ 5 133 873 B *&3 4 0873 B 879 5 134 877 CC 1 2 0877 F 1 5 135 879 B PUNCHX 4 0879 B 855 5 136 883 KP1 DCW &1 1 0883 5 137 884 BEGINN BCE *&5,CONDNS,P PUNCH CONDENSED DECK? 8 0884 B 896 693 P 5 138 892 B DONE 4 0892 B 956 6 139 896 BW DONE,GLOBER 8 0896 V 956 184 1 6 140 904 LCA ARYTOP,ARYTOP 7 0904 L 194 194 6 141 911 CS 180 4 0911 / 180 6 142 915 SW 101 4 0915 , 101 6 143 919 MCW 685,180 7 0919 M 685 180 6 144 926 BSS *&5,B 5 0926 B 935 B 6 145 931 B CONT 4 0931 B 997 7 146 935 CC 1 2 0935 F 1 7 147 937 CS 332 4 0937 / 332 7 FORTRAN COMPILER -- CONDENSED DECK PHASE ONE -- 57 PAGE 2 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 941 CS 1 0941 / 7 149 942 MCW TITLE,260 7 0942 M U04 260 7 150 949 W 1 0949 2 7 151 950 CC J 2 0950 F J 7 152 952 B CONT 4 0952 B 997 8 153 956 DONE BSS SNAPSH,C 5 0956 B 333 C 8 154 961 SBR TPREAD&6,884 7 0961 H 786 884 8 155 968 SBR CLRBOT 4 0968 H 833 8 156 972 SBR LOADXX&3,884 7 0972 H 796 884 8 157 979 SBR CLEARL&3,GMWM 7 0979 H 710 U17 8 158 986 LCA CONDEK,110 7 0986 L U12 110 9 159 993 B LOADNX 4 0993 B 700 9 160 997 CONT LCA K0000,175 SEQUENCE NUMBER 7 0997 L U16 175 9 161 1 004 BWZ UNDER4,TOPCOR,2 8 1004 V |45 688 2 9 162 1 012 MCW B1G4K,152 7 1012 M T19 152 9 163 1 019 B PUNCH FIRST BOOTSTRAP GE 4K 4 1019 B 838 9 164 1 023 MCW TOPCOR,B2AG4K 7 1023 M 688 T48 10 165 1 030 MCW B2BG4K,171 7 1030 M T90 171 10 166 1 037 B PUNCH SECOND BOOTSTRAP GE 4K 4 1037 B 838 10 167 1 041 B THIRD 4 1041 B |74 10 168 1 045 UNDER4 MCW B1L4K,144 7 1045 M /40 144 10 169 1 052 B PUNCH FIRST BOOTSTRAP LT 4K 4 1052 B 838 10 170 1 056 MCW TOPCOR,B2AL4K 7 1056 M 688 /69 11 171 1 063 MCW B2BL4K,170 7 1063 M S10 170 11 172 1 070 B PUNCH SECOND BOOTSTRAP LT 4K 4 1070 B 838 11 173 1 074 THIRD MCW R40,171 7 1074 M S21 171 11 174 1 081 CS 1 1081 / 11 175 1 082 LCA B3,146 7 1082 L S67 146 11 176 1 089 B PUNCH THIRD BOOTSTRAP 4 1089 B 838 11 177 1 093 B DONE 4 1093 B 956 12 178 1 140 B1L4K DC @,008015,019026,030,034041,045,053,0570571026@ 44 1140 14 179 1 169 B2AL4K DCW @L068112,102106,113/101099/I99@ 29 1169 14 180 1 210 B2BL4K DC @,027A070028)027B0010270B0261,001/001113I0@ 41 1210 16 181 1 221 R40 DCW @,0010011040@ 11 1221 16 182 1 267 B3 DC @,008015,022029,036040,047054,061068,072/061039@ 46 1267 18 183 1 310 DCW @,008015,022026,030037,044,049,053034,035036@ V3M4 43 1310 20 184 1 319 B1G4K DC @N00001026@ 9 1319 20 185 1 348 B2AG4K DCW @L068116,105106,110117B101/I9I@ 29 1348 21 186 1 390 B2BG4K DC @H029NNNC029056B026/B001/0991,001/001117I0?@ V3M4 42 1390 23 187 1 404 TITLE DCW @CONDENSED DECK@ 14 1404 23 188 1 412 CONDEK DCW @CONDECK2@ 8 1412 23 189 1 416 K0000 DCW @0000@ 4 1416 23 190 1 417 GMWM DCW @}@ 1 1417 GMARK 23 191 EX BEGINN B 884 24 192 END / 000 080 FORTRAN COMPILER -- CONDENSED DECK PHASE ONE -- 57 PAGE 3 SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS ARYTOP 194 B1G4K 1319 B1L4K 1140 B2AG4K 1348 B2AL4K 1169 B2BG4K 1390 B2BL4K 1210 B3 1267 BEGINN 884 CLEARL 707 CLRBOT 833 CONDEK 1412 CONDNS 693 CONT 997 DONE 956 GLOBER 184 GMWM 1417 K0000 1416 KP1 883 LOADNX 700 LOADXX 793 PHASID 110 PUNCH 838 PUNCHX 855 R40 1221 SNAPSH 333 THIRD 1074 TITLE 1404 TOPCOR 688 TPREAD 780 UNDER4 1045