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