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 2 -- PHASE 62 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB FORTRAN COMPILER -- GEAUX PHASE 2 -- PHASE 62 102 CTL 6611 103 * 104 * THE ARITHMETIC ROUTINE IS LOIADED. COMMUNICATION IS 105 * ESTABLISHED BETWEEN THAT ROUTINE AND THE GENERATED CODING. 106 * THE INDEX REGISTERS ARE INITIALIZED (BUT THEY'RE NOT). 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 RELTAB EQU 188 RELOCATABLE FUNCTION TABLE ENTRY ADDRESSES 0188 116 SUBENT EQU 191 ENTRY TO SUBSCRIPT ROUTINE 0191 117 IMOD EQU 690 INTEGER MODULUS -- NUMBER OF DIGITS 0690 118 MANTIS EQU 692 FLOATING POINT MANTISSA DIGITS & 2 0692 119 CDOVLY EQU 769 1 IF RUNNING FROM CARDS, N IF FROM TAPE 0769 120 * 121 * ADDRESSES IN ARITF 122 * 123 SETFP EQU 831 PUT MANTISSA WIDTH INTO B 0831 124 QFUNCT EQU 1327 BRANCH TO FUNCTION SELECTOR 1327 125 DOSUB EQU 1206 BRANCH TO SUBSCRIPT ROUTINE 1206 126 ARITI EQU 1530 PUT INTEGER SIZE IN B 1530 127 GMWM EQU 1696 GROUP MARK 1696 128 * 129 ORG 201 0201 130 201 BEGINN BCE CDOVLY,CDOVLY,1 LOAD FROM CARDS 8 0201 B 769 769 1 4 131 209 RETRY RTW 1,700 8 0209 L %U1 700 R 4 132 217 BER TAPERR 5 0217 B 284 L 4 133 222 RWD 1 5 0222 U %U1 R 4 134 * 135 * RETURN HERE AFTER LOADING 136 * 137 227 LDRET MCW SUBENT,DOSUB&3 SUBSCRIPT ROUTINE ENTRY 7 0227 M 191 S09 4 138 234 CW GMWM 4 0234 ) W96 4 139 238 MCW RELTAB,QFUNCT&3 RELOCATABLE FUNCTION TABLE 7 0238 M 188 T30 5 140 245 MCW IMOD,ARITI&6 INTEGER MODULUS 7 0245 M 690 V36 5 141 252 MCW MANTIS,SETFP&6 FP MANTISSA WIDTH & 2 7 0252 M 692 837 5 142 259 CC 1 2 0259 F 1 5 143 261 BW 280,GLOBER 8 0261 V 280 184 1 5 144 269 MCW NSTMTS,X1 ENTRY ADDRESS 7 0269 M 183 089 5 145 276 H 0&X1 4 0276 . 0|0 6 146 280 HALT H HALT 4 0280 . 280 6 147 284 TAPERR BSP 1 5 0284 U %U1 B 6 1 FORTRAN COMPILER -- GEAUX PHASE 2 -- PHASE 62 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 289 H 3333,3333 7 0289 . C33 C33 6 149 296 B RETRY 4 0296 B 209 6 150 300 DCW 0 1 0300 6 151 301 DCW @}@ 1 0301 GMARK 6 152 EX BEGINN B 201 7 153 END / 000 080 1 FORTRAN COMPILER -- GEAUX PHASE 2 -- PHASE 62 PAGE 3 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS ARITI 1530 BEGINN 201 CDOVLY 769 DOSUB 1206 GLOBER 184 GMWM 1696 HALT 280 IMOD 690 LDRET 227 MANTIS 692 NSTMTS 183 QFUNCT 1327 RELTAB 188 RETRY 209 SETFP 831 SUBENT 191 TAPERR 284 X1 89