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 -- LOAD PHASES 52BC -- PHASE 52A PAGE 1 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB FORTRAN COMPILER -- LOAD PHASES 52BC -- PHASE 52A 102 CTL 6611 103 * 104 * AS THE OBJECT CODING MAY ORIGINATE AT 1697, THE CODING FOR 105 * PHASE 52 MUST BE SPLIT INTO TWO PARTS, THE FIRST OF WHICH 106 * REPLACES THE SNAPSHOT CODING IN POSITIONS 333-680. THIS 107 * PHASE LOADS THE TWO SECTIONS. 108 * 109 X3 EQU 99 0099 110 * 111 * STUFF IN THE RESIDENT AREA 112 * 113 PHASID EQU 110 PHASE ID, FOR SNAPSHOT DUMPS 0110 114 SNAPSH EQU 333 CORE DUMP SNAPSHOT 0333 115 LOADNX EQU 700 LOAD NEXT OVERLAY 0700 116 CLEARL EQU 707 CS AT START OF OVERLAY LOADER 0707 117 TPREAD EQU 780 TAPE READ INSTRUCTION IN OVERLAY LOADER 0780 118 LOADXX EQU 793 EXIT FROM OVERLAY LOADER 0793 119 CLRBOT EQU 833 BOTTOM OF CORE TO CLEAR IN OVERLAY LOADER 0833 120 * 121 * ADDRESS IN NORMAL FORMAT ROUTINE 122 * 123 IOLIST EQU 2132 2132 124 * 125 ORG 838 0838 126 840 EXLINK DCW #3 139 I XLINKF ENTRY ADDRESS 3 0840 4 127 843 DCW #3 138 H USER FUNCTION 12 ENTRY ADDRESS 3 0843 4 128 846 DCW #3 137 D USER FUNCTION 11 ENTRY ADDRESS 3 0846 4 129 849 DCW #3 136 M USER FUNCTION 10 ENTRY ADDRESS 3 0849 4 130 852 DCW #3 135 L USER FUNCTION 09 ENTRY ADDRESS 3 0852 4 131 855 DCW #3 134 K USER FUNCTION 08 ENTRY ADDRESS 3 0855 4 132 858 DCW #3 133 J USER FUNCTION 07 ENTRY ADDRESS 3 0858 4 133 861 DCW #3 132 Z USER FUNCTION 06 ENTRY ADDRESS 3 0861 5 134 864 DCW #3 131 Y USER FUNCTION 05 ENTRY ADDRESS 3 0864 5 135 867 DCW #3 130 W USER FUNCTION 04 ENTRY ADDRESS 3 0867 5 136 870 DCW #3 129 P USER FUNCTION 03 ENTRY ADDRESS 3 0870 5 137 873 DCW #3 128 U USER FUNCTION 02 ENTRY ADDRESS 3 0873 5 138 876 USER1 DCW #3 127 R USER FUNCTION 01 ENTRY ADDRESS 3 0876 5 139 879 DCW #3 126 Q SQRTF ENTRY ADDRESS 3 0879 5 140 882 DCW #3 125 F FLOATF ENTRY ADDRESS 3 0882 6 141 885 DCW #3 124 X XFIXF ENTRY ADDRESS 3 0885 6 142 888 DCW #3 123 N NEGATION ENTRY ADDRESS 3 0888 6 143 891 DCW #3 122 A ABSF ENTRY ADDRESS 3 0891 6 144 894 DCW #3 121 T ATANF ENTRY ADDRESS 3 0894 6 145 897 DCW #3 120 E EXPF ENTRY ADDRESS 3 0897 6 146 900 DCW #3 119 G LOGF ENTRY ADDRESS 3 0900 6 147 903 DCW #3 118 SC SINF OR COSF ENTRY ADDRESS 3 0903 7 FORTRAN COMPILER -- LOAD PHASES 52BC -- PHASE 52A PAGE 2 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 906 DCW #3 117 SERIES 3 0906 7 149 909 DCW #3 116 SUBSCRIPT 3 0909 7 150 912 DSA IOLIST 115 I/O LIST AND NOT LIMITED FORMAT 3 0912 J32 7 151 915 DCW #3 114 I/O LIST 3 0915 7 152 918 DCW #3 113 3 0918 7 153 921 DCW #3 112 3 0921 7 154 924 FUNTAB DCW #3 111 3 0924 8 155 927 DSA FUNTAB 3 0927 924 8 156 930 CONBOT DCW #3 BOTTOM OF CONSTANTS - 1 3 0930 8 157 933 ARYBOT DCW #3 BOTTOM OF ARRAYS - 1 3 0933 8 158 * 159 934 BEGINN B SETUP V3M4 4 0934 B |36 8 160 938 LOADC SBR TPREAD&6,BEGINN 7 0938 H 786 934 8 161 945 SBR CLRBOT 4 0945 H 833 8 162 949 SBR LOADXX&3,337 7 0949 H 796 337 9 163 956 SBR CLEARL&3,GMWM 7 0956 H 710 W96 9 164 963 LCA FUNLDC,PHASID 7 0963 L 982 110 9 165 970 B LOADNX 4 0970 B 700 9 166 982 FUNLDC DCW @FUNLOAD C@ 9 0982 9 167 983 LOADB SBR TPREAD&6,333 7 0983 H 786 333 10 168 990 SBR CLRBOT,LOADB 7 0990 H 833 983 10 169 997 BSS SNAPSH,C 5 0997 B 333 C 10 170 1 002 SBR LOADXX&3,LOADC 7 1002 H 796 938 10 171 1 009 SBR CLEARL&3,GMWM 7 1009 H 710 W96 10 172 1 016 LCA FUNLDB,PHASID 7 1016 L |35 110 11 173 1 023 B LOADNX 4 1023 B 700 11 174 1 035 FUNLDB DCW @FUNLOAD B@ 9 1035 11 175 1 036 SETUP BWZ *&5,X3,2 V3M4 8 1036 V |48 099 2 11 176 1 044 B LOADB V3M4 4 1044 B 983 11 177 1 048 BWZ *&5,X3-2,S V3M4 8 1048 V |60 097 S 12 178 1 056 B LOADB V3M4 4 1056 B 983 12 179 1 060 SBR X3,2000 V3M4 7 1060 H 099 !00 12 180 1 116 BIN LOADB, V3M4 5 1067 B 983 12 181 ORG 1696 1696 182 1 696 GMWM DCW @}@ 1 1696 GMARK 13 183 EX BEGINN B 934 14 184 END / 000 080 FORTRAN COMPILER -- LOAD PHASES 52BC -- PHASE 52A PAGE 3 SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS ARYBOT 933 BEGINN 934 CLEARL 707 CLRBOT 833 CONBOT 930 EXLINK 840 FUNLDB 1035 FUNLDC 982 FUNTAB 924 GMWM 1696 IOLIST 2132 LOADB 983 LOADC 938 LOADNX 700 LOADXX 793 PHASID 110 SETUP 1036 SNAPSH 333 TPREAD 780 USER1 876 X3 99