101 013 JOB 1401 FORTRAN ARITH AND RELOCATABLE ROUTINES 50633 0 333 0 0 0 102 CTL 644 11 0 333 0 0 0 103 * 0 0 0 0 0 104 SFX B 0 333 0 0 0 105 * 0 0 0 0 0 MACRO 106 XINITXL1,XL2,XL3,,,,XXXX 0 0 0 0 0 GEN XXX EQU 0 1 333 0 0 1 0 1 00 GEN XL1 EQU 089 2 333 0 0 1 89 1 008 GEN 089 DCW 000 -87 89 0 3 1 0 1 000 GEN 091 DC 00 -90 91 0 2 1 0 1 000 GEN XL2 EQU 094 3 333 0 0 1 94 1 009 GEN 094 DCW 000 -92 94 0 3 1 0 1 000 GEN 096 DC 00 -95 96 0 2 1 0 1 000 GEN XL3 EQU 099 4 333 0 0 1 99 1 009 GEN 099 DCW 000 -97 99 0 3 1 0 1 000 GEN 100 DC 0 -100 100 0 1 1 0 1 00 107 * 0 0 0 0 0 MACRO 108 XNMBR 0 0 0 0 0 GEN X1 EQU 089 5 333 0 0 1 89 1 008 GEN X2 EQU 094 6 333 0 0 1 94 1 009 GEN X3 EQU 099 7 333 0 0 1 99 1 009 109 * 0 0 0 0 0 110 WKZON EQU 200 8 333 0 0 1 200 1 020 111 TOP EQU WKZON&1 9 333 0 0 1 8 12 1WK WKZONB 112 SPOT EQU WKZON&50 10 333 0 0 1 8 12 50WK WKZONB 113 ACCHI EQU WKZON&79 11 333 0 0 1 8 12 79WK WKZONB 114 * 0 0 0 0 0 115 ORG 700 0 333 0 0 1 700 1 070 116 * 0 0 0 0 0 117 * ARITHMETIC ROUTINE MONITOR 0 0 0 0 0 118 * 0 0 0 0 0 119 ARITF SBR X2 12 700 0 4 1 6 12 0X2 X2 B 120 SBR 086 STORE FIRST LOCATION OF ARITH STRING 0 704 0 4 1 86 1 008 121 SBR STMNM&6 0 708 0 4 1 13 12 6ST STMNMB 122 ARITH MCW 2&X2, X1 14 712 0 7 2 2 1 02 2 5 12 0X1 X1 B 123 SAR ALGRT&6 0 719 0 4 1 15 12 6AL ALGRTB 124 SBBR1 SBR BRWHR&6 16 723 0 4 1 17 12 6BR BRWHRB 125 BCE STSUB,0&X2,$ CHECK FOR SUBSCRIPTED STORE LOCATION 0 727 0 8 3 18 12 0ST STSUBB 0 1 00 2 0 11 0$ 126 SBR OUT2&6,0&X1 0 735 0 7 2 19 12 6OU OUT2 B 0 1 00 1 127 CS WKZON&103 CLEAR WORK AREA 0 742 0 4 1 8 12 103WK WKZONB 128 CS 0 746 0 1 0 129 CS 0 747 0 1 0 130 LCA @0@, ACCHI&1 0 748 0 7 2 1 7 0@0 11 12 1AC ACCHIB 131 CLRX S X1&2 20 755 0 4 1 5 12 2X1 X1 B 132 ALGRT SBR XL2, XXX 15 759 0 7 2 3 12 0XL XL2 B 1 12 0XX XXX B 133 C 4&X2, @#@ 0 766 0 7 2 4 1 04 2 2 7 0@# 134 MCW 4&X2, SIGNF 0 773 0 7 2 4 1 04 2 21 12 0SI SIGNFB 135 SW TOP 0 780 0 4 1 9 12 0TO TOP B 136 EXIT BL QFUNCT 22 784 0 5 1 23 12 0QF QFUNCT 137 SBR NGBMP&6,4&X2 0 789 0 7 2 24 12 6NG NGBMPB 4 1 04 2 138 BCE OPDSC,5&X2,$ CHECK FOR SUBSCRIPTED OPERAND 0 796 0 8 3 25 12 0OP OPDSCB 5 1 05 2 0 11 0$ 139 MCW 7&X2, XL1 0 804 0 7 2 7 1 07 2 2 12 0XL XL1 B 140 SAR ALGRT&6 0 811 0 4 1 15 12 6AL ALGRTB 141 SBBR2 BWZ XSIZE,X1-1,K BRANCH IF FIXPT COMPUTATION 26 815 0 8 3 27 12 0XS XSIZEB 5 12 -1X1 X1 B 0 12 0K K B 142 BWZ XSIZE,X1-1,S 0 823 0 8 3 27 12 0XS XSIZEB 5 12 -1X1 X1 B 0 12 0S S B 143 * 0 0 0 0 0 144 * FLOAT ARITHMETIC 0 0 0 0 0 145 * 0 0 0 0 0 146 FSIZE SBR X3,XXX STORE FLOAT SIZE 28 831 0 7 2 7 12 0X3 X3 B 1 12 0XX XXX B 147 CW FIXSW#1 0 838 0 4 1 3 4 0FI FIXSWB 148 MCW 0&X1,EXPB STORE EXPONENT 0 842 0 7 2 0 1 00 1 29 12 0EX EXPB B 149 SAR XL1 0 849 0 4 1 2 12 0XL XL1 B 150 MCW 0&X1,SPOT INITIALIZE WORK AREA 0 853 0 7 2 0 1 00 1 10 12 0SP SPOT B 151 SBR XL2 0 860 0 4 1 3 12 0XL XL2 B 152 LCA @0@ 0 864 0 4 1 1 7 0@0 153 NGBMP BW *&8,0 24 868 0 8 2 0 5 8* 0 1 00 154 MZ SPOT, NSIGN 0 876 0 7 2 10 12 0SP SPOT B 30 12 0NS NSIGNB 155 S @0@,SPOT&2&X3 0 883 0 7 2 1 7 0@0 10 12 2SP3SPOT B 156 C 1&X2, @0@ 0 890 0 7 2 1 1 01 2 1 7 0@0 157 A XL3, XL2 0 897 0 7 2 4 12 0XL XL3 B 3 12 0XL XL2 B 158 BCE FDIV,CODE,/ BRANCH FOR DIVISION 0 904 0 8 3 31 12 0FD FDIV B 32 12 0CO CODE B 0 11 0/ 159 BCE FMPY,CODE,* BRANCH FOR MULTIPLICATION - 0 912 0 8 3 33 12 0FM FMPY B 32 12 0CO CODE B 0 5 0* 160 * 0 0 0 0 0 161 * FLOATING ADD / SUBTRACT 0 0 0 0 0 162 * 0 0 0 0 0 163 S SIGNF 0 920 0 4 1 21 12 0SI SIGNFB 164 SIGNF ZA NSIGN 21 924 0 4 1 30 12 0NS NSIGNB 165 BCE NUVAL,ACCHI&1,0 BR, IF 1ST OPERAND OF COMPUTATION 0 928 0 8 3 34 12 0NU NUVALB 11 12 1AC ACCHIB 0 1 00 166 BE CLRWK 0 936 0 5 1 35 12 0CL CLRWKB 167 S EXPB,EXP 0 941 0 7 2 29 12 0EX EXPB B 36 12 0EX EXP B 168 ZA EXP&1,XL1&1 0 948 0 7 2 36 12 1EX EXP B 2 12 1XL XL1 B 169 C XL3,XL1 0 955 0 7 2 4 12 0XL XL3 B 2 12 0XL XL1 B 170 BM RTN1,EXP 0 962 0 8 2 37 12 0RT RTN1 B 36 12 0EX EXP B 171 BH CHGEX BR IF PREV RESULT TO BE RETAINED IN WK ACC 0 970 0 5 1 38 12 0CH CHGEXB 172 A EXP,EXPB 0 975 0 7 2 36 12 0EX EXP B 29 12 0EX EXPB B 173 ZA SPOT,SPOT&X1 INITIALIZE WORK AREA 0 982 0 7 2 10 12 0SP SPOT B 10 12 0SP1SPOT B 174 ZA XL3&1,XL1&1 0 989 0 7 2 4 12 1XL XL3 B 2 12 1XL XL1 B 175 ASCOM MZ NSIGN,0&X2 39 996 0 7 2 30 12 0NS NSIGNB 0 1 00 2 176 A ACCHI&X1,0&X2 0 1003 0 7 2 11 12 0AC1ACCHIB 0 1 00 2 177 MVZON MZ 0&X2,NSIGN 40 1010 0 7 2 0 1 00 2 30 12 0NS NSIGNB 178 NUVAL ZA EXPB,EXP 34 1017 0 7 2 29 12 0EX EXPB B 36 12 0EX EXP B 179 * 0 0 0 0 0 180 * NORMALIZE 0 0 0 0 0 181 * 0 0 0 0 0 182 NMLZ1 MCW RCDMK,1&X2 41 1024 0 7 2 42 12 0RC RCDMKB 1 1 01 2 183 MZ 0 1031 0 1 0 184 MZ 0 1032 0 1 0 185 A 0 1033 0 1 0 186 MN 0 1034 0 1 0 187 SBR XL1 0 1035 0 4 1 2 12 0XL XL1 B 188 S ACCHI&2&X3 0 1039 0 4 1 11 12 2AC3ACCHIB 189 NLOOP BCE STRZE,2&X1,| 43 1043 0 8 3 44 12 0ST STRZEB 2 1 02 1 0 11 0| 190 SBR XL1 0 1051 0 4 1 2 12 0XL XL1 B 191 BCE NLOOP, 1&X1, 0 0 1055 0 8 3 43 12 0NL NLOOPB 1 1 01 1 0 1 00 192 MCM 1&X1, ACCHI&1 0 1063 0 7 2 1 1 01 1 11 12 1AC ACCHIB 193 S XL3, XL2 0 1070 0 7 2 4 12 0XL XL3 B 3 12 0XL XL2 B 194 CW 0 1077 0 1 0 195 CW 0 1078 0 1 0 196 S 0 1079 0 1 0 197 S XL1,EXP 0 1080 0 7 2 2 12 0XL XL1 B 36 12 0EX EXP B 198 NSIGN ZA ACCHI&X3 MOVE PROPER SIGN TO WORK ACCUMULATOR 30 1087 0 4 1 11 12 0AC3ACCHIB 199 SW 0 1091 0 1 0 200 BCE CLRWK,EXP-2,0 0 1092 0 8 3 35 12 0CL CLRWKB 36 12 -2EX EXP B 0 1 00 201 BM STRZE,EXP BRANCH ON EXPONENT UNDERFLOW 0 1100 0 8 2 44 12 0ST STRZEB 36 12 0EX EXP B 202 * 0 0 0 0 0 203 * EXPONENT OVERFLOW DUE TO NORMALIZATION 0 0 0 0 0 204 * 0 0 0 0 0 205 B ERMSG 0 1108 0 4 1 45 12 0ER ERMSGB 206 DCW @NOF@ 0 1112 0 3 1 0 7 0@N 207 * 0 0 0 0 0 208 * STORE NINES IN WORK ACCUMULATOR AND EXP ON EXPONENT OVFL 0 0 0 0 0 209 * 0 0 0 0 0 210 STR99 ZA &99,EXP 46 1115 0 7 2 4 10 0& 36 12 0EX EXP B 211 MN &99,ACCHI&X3 0 1122 0 7 2 4 10 0& 11 12 0AC3ACCHIB 212 MCW 0 1129 0 1 0 213 MCW ACCHI-1&X3 0 1130 0 4 1 11 12 -1AC3ACCHIB 214 CLRWK CS ACCHI-1 35 1134 0 4 1 11 12 -1AC ACCHIB 215 B CLRX 0 1138 0 4 1 20 12 0CL CLRX B 216 * 0 0 0 0 0 217 * STORE ZERO IN WORK ACCUMULATOR 0 0 0 0 0 218 * 0 0 0 0 0 219 STRZE S EXP 44 1142 0 4 1 36 12 0EX EXP B 220 S ACCHI&X3 0 1146 0 4 1 11 12 0AC3ACCHIB 221 B CLRWK 0 1150 0 4 1 35 12 0CL CLRWKB 222 * 0 0 0 0 0 223 * DIVISION BY ZERO ATTEMPTED 0 0 0 0 0 224 * 0 0 0 0 0 225 DVERR B ERMSG 47 1154 0 4 1 45 12 0ER ERMSGB 226 DCW @DZE@ 0 1158 0 3 1 0 7 0@D 227 B STR99 0 1161 0 4 1 46 12 0ST STR99B 228 * 0 0 0 0 0 229 RTN1 BH NUVAL BRANCH TO STORE NEW VALUE IN WK ACC 37 1165 0 5 1 34 12 0NU NUVALB 230 S XL3&1,XL1&1 INITIALIZE INDEX REGISTERS 0 1170 0 7 2 4 12 1XL XL3 B 2 12 1XL XL1 B 231 MZ ACCHI&X3,ACCHI&X1 INITIALIZE WORK ACCUMULATOR 0 1177 0 7 2 11 12 0AC3ACCHIB 11 12 0AC1ACCHIB 232 B ASCOM 0 1184 0 4 1 39 12 0AS ASCOMB 233 * 0 0 0 0 0 234 CHGEX A EXPB,EXP 38 1188 0 7 2 29 12 0EX EXPB B 36 12 0EX EXP B 235 B CLRWK 0 1195 0 4 1 35 12 0CL CLRWKB 236 * 0 0 0 0 0 237 * SUBSCRIPTED VARIABLES 0 0 0 0 0 238 * 0 0 0 0 0 239 OPDSC SBR X2,5&X2 25 1199 0 7 2 6 12 0X2 X2 B 5 1 05 2 240 STSUB B XXX 18 1206 0 4 1 1 12 0XX XXX B 241 MN 0&X2 0 1210 0 4 1 0 1 00 2 242 MN 0 1214 0 1 0 243 MN 0 1215 0 1 0 244 MN 0 1216 0 1 0 245 SAR ALGRT&6 0 1217 0 4 1 15 12 6AL ALGRTB 246 BRWHR BCE SBBR1,XXX,$ 17 1221 0 8 3 16 12 0SB SBBR1B 1 12 0XX XXX B 0 11 0$ 247 B SBBR2 0 1229 0 4 1 26 12 0SB SBBR2B 248 * 0 0 0 0 0 249 * FLOATING DIVIDE 0 0 0 0 0 250 * 0 0 0 0 0 251 FDIV BE DVERR 31 1233 0 5 1 47 12 0DV DVERRB 252 MN ACCHI&X3, 1&X2 0 1238 0 7 2 11 12 0AC3ACCHIB 1 1 01 2 253 MCW 0 1245 0 1 0 254 MN 0 1246 0 1 0 255 D 0&X1, SPOT&1 0 1247 0 7 2 0 1 00 1 10 12 1SP SPOT B 256 ZS EXPB 0 1254 0 4 1 29 12 0EX EXPB B 257 B NDMDV 0 1258 0 4 1 48 12 0ND NDMDVB 258 * 0 0 0 0 0 259 * FLOATING MULTIPLY 0 0 0 0 0 260 * 0 0 0 0 0 261 FMPY M ACCHI&X3, SPOT&1&X3 33 1262 0 7 2 11 12 0AC3ACCHIB 10 12 1SP3SPOT B 262 SBR X2,3&X2 0 1269 0 7 2 6 12 0X2 X2 B 3 1 03 2 263 S &2,EXP 0 1276 0 7 2 5 10 0& 36 12 0EX EXP B 264 NDMDV A EXPB, EXP 48 1283 0 7 2 29 12 0EX EXPB B 36 12 0EX EXP B 265 MZ ACCHI&X3, *&1 0 1290 0 7 2 11 12 0AC3ACCHIB 0 5 1* 266 ZA NSIGN 0 1297 0 4 1 30 12 0NS NSIGNB 267 B NMLZ1 0 1301 0 4 1 41 12 0NM NMLZ1B 268 * 0 0 0 0 0 269 * EXIT ROUTINE 0 0 0 0 0 270 * 0 0 0 0 0 271 QFUNCT BCE OUT1,4&X2,| BR IF CONTENTS OF WK ACC TO BE STORED 23 1305 0 8 3 49 12 0OU OUT1 B 4 1 04 2 0 11 0| 272 SBR ALGRT&6,1&X2 0 1313 0 7 2 15 12 6AL ALGRTB 1 1 01 2 273 C ACCHI&1,@0@ 0 1320 0 7 2 11 12 1AC ACCHIB 1 7 0@0 274 B XXX BRANCH TO FUNCTION SELECTION ROUTINE 0 1327 0 4 1 1 12 0XX XXX B 275 OUT1 BCE OUT2,ACCHI&1,0 49 1331 0 8 3 19 12 0OU OUT2 B 11 12 1AC ACCHIB 0 1 00 276 BW OUT2,FIXSW 0 1339 0 8 2 19 12 0OU OUT2 B 50 12 0FI FIXSWB 277 BW FINST,4&X2 BRANCH IF FINAL STORAGE OF COMP 0 1347 0 8 2 51 12 0FI FINSTB 4 1 04 2 278 SBR X3,2&X3 0 1355 0 7 2 7 12 0X3 X3 B 2 1 02 3 279 MVEXP MCM EXP-1,ACCHI-1&X3 52 1362 0 7 2 36 12 -1EX EXP B 11 12 -1AC3ACCHIB 280 OUT2 LCA ACCHI&X3,XXX 19 1369 0 7 2 11 12 0AC3ACCHIB 1 12 0XX XXX B 281 BW 5&X2,4&X2 BR TO PROG MAINLINE IF END OF ARITH STR 0 1376 0 8 2 5 1 05 2 4 1 04 2 282 SAR XL2 0 1384 0 4 1 3 12 0XL XL2 B 283 B ARITH 0 1388 0 4 1 14 12 0AR ARITHB 284 * 0 0 0 0 0 285 * ROUNDING FOR FINAL STORAGE 0 0 0 0 0 286 * 0 0 0 0 0 287 FINST A &5,ACCHI-1&X3 51 1392 0 7 2 6 10 0& 11 12 -1AC3ACCHIB 288 BWZ RDOVF,ACCHI&1,S 0 1399 0 8 3 53 12 0RD RDOVFB 11 12 1AC ACCHIB 0 12 0S S B 289 ZONMV MZ ACCHI&X3,ACCHI-2&X3 54 1407 0 7 2 11 12 0AC3ACCHIB 11 12 -2AC3ACCHIB 290 B MVEXP 0 1414 0 4 1 52 12 0MV MVEXPB 291 RDOVF A &1,EXP 53 1418 0 7 2 7 10 0& 36 12 0EX EXP B 292 BCE NORND,EXP-2,1 0 1425 0 8 3 55 12 0NO NORNDB 36 12 -2EX EXP B 1 1 01 293 S ACCHI&X3 0 1433 0 4 1 11 12 0AC3ACCHIB 294 LCA @1@,ACCHI&1 0 1437 0 7 2 8 7 0@1 11 12 1AC ACCHIB 295 B ZONMV 0 1444 0 4 1 54 12 0ZO ZONMVB 296 * 0 0 0 0 0 297 * NO ROUNDING IF EXPONENT OVERFLOW WOULD OCCUR 0 0 0 0 0 298 * 0 0 0 0 0 299 NORND MN &99,ACCHI&X3 55 1448 0 7 2 4 10 0& 11 12 0AC3ACCHIB 300 MCW 0 1455 0 1 0 301 MCW ACCHI-1&X3 0 1456 0 4 1 11 12 -1AC3ACCHIB 302 S &1,EXP 0 1460 0 7 2 7 10 0& 36 12 0EX EXP B 303 B ZONMV 0 1467 0 4 1 54 12 0ZO ZONMVB 304 * 0 0 0 0 0 305 * PRINT ERROR MESSAGE 0 0 0 0 0 306 * 0 0 0 0 0 307 ERMSG SBR STRX2&6 45 1471 0 4 1 56 12 6ST STRX2B 308 CS TOP&1&X3 0 1475 0 4 1 9 12 1TO3TOP B 309 SBR RINX2&6,0&X3 0 1479 0 7 2 57 12 6RI RINX2B 0 1 00 3 310 STRX2 SBR X3,XXX 56 1486 0 7 2 7 12 0X3 X3 B 1 12 0XX XXX B 311 MCW 2&X3,TOP&11 0 1493 0 7 2 2 1 02 3 9 12 11TO TOP B 312 STMNM SBR TOP&16,XXX 13 1500 0 7 2 9 12 16TO TOP B 1 12 0XX XXX B 313 W 0 1507 0 1 0 314 SW TOP 0 1508 0 4 1 9 12 0TO TOP B 315 SBR ERMXT&3,3&X3 0 1512 0 7 2 58 12 3ER ERMXTB 3 1 03 3 316 RINX2 SBR X3,XXX 57 1519 0 7 2 7 12 0X3 X3 B 1 12 0XX XXX B 317 ERMXT B XXX 58 1526 0 4 1 1 12 0XX XXX B 318 * 0 0 0 0 0 319 * FIXED POINT ENTRY 0 0 0 0 0 320 * 0 0 0 0 0 321 XSIZE SBR X3,XXX STORE FIX-SIZE 27 1530 0 7 2 7 12 0X3 X3 B 1 12 0XX XXX B 322 SW FIXSW 0 1537 0 4 1 50 12 0FI FIXSWB 323 * 0 0 0 0 0 324 FIXPT MCS 0&X1, SPOT 59 1541 0 7 2 0 1 00 1 10 12 0SP SPOT B 325 BCE XDIV, CODE, / 0 1548 0 8 3 60 12 0XD XDIV B 32 12 0CO CODE B 0 11 0/ 326 BCE XMPY, CODE, * 0 1556 0 8 3 61 12 0XM XMPY B 32 12 0CO CODE B 0 5 0* 327 * 0 0 0 0 0 328 * FIXED ADD / SUBTRACT 0 0 0 0 0 329 * 0 0 0 0 0 330 BWZ SUBTR, CODE, K Q. SUBTRACT 0 1564 0 8 3 62 12 0SU SUBTRB 32 12 0CO CODE B 0 12 0K K B 331 A 0&X1, ACCHI&X3 0 1572 0 7 2 0 1 00 1 11 12 0AC3ACCHIB 332 ADDRT ZA ACCHI&X3 63 1579 0 4 1 11 12 0AC3ACCHIB 333 B CLRWK 0 1583 0 4 1 35 12 0CL CLRWKB 334 * 0 0 0 0 0 335 SUBTR S 0&X1, ACCHI&X3 62 1587 0 7 2 0 1 00 1 11 12 0AC3ACCHIB 336 B ADDRT 0 1594 0 4 1 63 12 0AD ADDRTB 337 * 0 0 0 0 0 338 * FIXED MULTIPLY 0 0 0 0 0 339 * 0 0 0 0 0 340 XMPY LCA 0&X1, SPOT 61 1598 0 7 2 0 1 00 1 10 12 0SP SPOT B 341 M ACCHI&X3, SPOT&1&X3 0 1605 0 7 2 11 12 0AC3ACCHIB 10 12 1SP3SPOT B 342 MCW SPOT&1&X3, ACCHI&X3 0 1612 0 7 2 10 12 1SP3SPOT B 11 12 0AC3ACCHIB 343 B CLRWK 0 1619 0 4 1 35 12 0CL CLRWKB 344 * 0 0 0 0 0 345 * FIXED DIVIDE 0 0 0 0 0 346 * 0 0 0 0 0 347 XDIV BCE DVERR, SPOT, 60 1623 0 8 3 47 12 0DV DVERRB 10 12 0SP SPOT B 0 11 0 348 MCW 0&X1,SPOT&X3 0 1631 0 7 2 0 1 00 1 10 12 0SP3SPOT B 349 MN 0 1638 0 1 0 350 SBR MVQUT&3 0 1639 0 4 1 64 12 3MV MVQUTB 351 LCA ACCHI&X3 0 1643 0 4 1 11 12 0AC3ACCHIB 352 ZA ACCHI&X3, SPOT&X3 0 1647 0 7 2 11 12 0AC3ACCHIB 10 12 0SP3SPOT B 353 D 0&X1, SPOT&1 0 1654 0 7 2 0 1 00 1 10 12 1SP SPOT B 354 MVQUT MCW SPOT-1,ACCHI&X3 64 1661 0 7 2 10 12 -1SP SPOT B 11 12 0AC3ACCHIB 355 B CLRWK 0 1668 0 4 1 35 12 0CL CLRWKB 356 * 0 0 0 0 0 357 DCW 000 0 1672 0 3 1 0 1 000 358 RCDMK DCW @|@ 42 1675 0 1 1 0 7 0@| 359 DCW 0 0 1676 0 1 1 0 1 00 360 EXP DCW 000 36 1677 0 3 1 0 1 000 361 DC @|@ 0 1680 0 1 1 0 7 0@| 362 EXPB DCW 00 29 1681 0 2 1 0 1 000 363 DC 0 0 1683 0 1 1 0 1 00 364 CODE EQU SIGNF 32 1684 0 0 1 21 12 0SI SIGNFB 365 ZROSW EQU *&1 65 1684 0 0 1 1683 5 1* 366 BASEZ EQU *&1 66 1684 0 0 1 1683 5 1* 367 XPNUM DCW @8@ 67 1684 0 1 1 0 7 0@8 368 LTORG 0 1685 0 8 0 LIT DCW @0@ 0 1685 0 1 1 1 7 0 LIT DCW @#@ 0 1686 0 1 1 2 7 0 AREA FIXSWB DCW #01 50 1687 0 1 1 3 4 0 LIT DCW &99 0 1688 0 2 1 4 1 0 LIT DCW &2 0 1690 0 1 1 5 1 0 LIT DCW &5 0 1691 0 1 1 6 1 0 LIT DCW &1 0 1692 0 1 1 7 1 0 LIT DCW @1@ 0 1693 0 1 1 8 7 0 369 DS 1 0 1694 0 1 0 370 DCW @0@ 0 1695 0 1 1 0 7 0@0 371 DCW @}@ SYSTEM GROUP MARK 0 1696 0 1 1 0 7 0@} 372 JOB 1401 FORTRAN RELOCATABLE PACKAGE 50533 0 1697 0 0 0 373 DIVID EQU 14000 68 1697 0 0 1 14000 1 014 374 CALC EQU DIVID&47 69 1697 0 0 1 68 12 47DI DIVIDB 375 CALC1 EQU DIVID&58 70 1697 0 0 1 68 12 58DI DIVIDB 376 LOGM1 EQU DIVID&149 71 1697 0 0 1 68 12 149DI DIVIDB 377 LOGM2 EQU DIVID&171 72 1697 0 0 1 68 12 171DI DIVIDB 378 CALXT EQU DIVID&187 73 1697 0 0 1 68 12 187DI DIVIDB 379 STR1 EQU DIVID&191 74 1697 0 0 1 68 12 191DI DIVIDB 380 LN10 EQU DIVID&226 75 1697 0 0 1 68 12 226DI DIVIDB 381 UPBY EQU DIVID&250 76 1697 0 0 1 68 12 250DI DIVIDB 382 NCON EQU DIVID&253 77 1697 0 0 1 68 12 253DI DIVIDB 383 NCTR EQU DIVID&256 78 1697 0 0 1 68 12 256DI DIVIDB 384 DEC EQU DIVID&259 79 1697 0 0 1 68 12 259DI DIVIDB 385 TWTCH EQU DIVID&260 80 1697 0 0 1 68 12 260DI DIVIDB 386 DELTA EQU ACCHI-200 81 1697 0 0 1 11 12 -200AC ACCHIB MACRO 387 PARAM 0 0 0 0 0 GEN PARAMA EQU 686 82 1697 0 0 1 686 1 068 GEN XBEGIN EQU 838 83 1697 0 0 1 838 1 083 GEN MONTOR EQU 769 84 1697 0 0 1 769 1 076 GEN MONTER EQU 700 85 1697 0 0 1 700 1 070 GEN TCLEAR EQU 710 86 1697 0 0 1 710 1 071 GEN INITAP EQU 780 87 1697 0 0 1 780 1 078 GEN INITXT EQU 793 88 1697 0 0 1 793 1 079 GEN BCLEAR EQU 833 89 1697 0 0 1 833 1 083 GEN FAILSW EQU 184 90 1697 0 0 1 184 1 018 388 XLINKS EQU 840 91 1697 0 0 1 840 1 084 389 ATANFN EQU 894 92 1697 0 0 1 894 1 089 MACRO 390 RELOC 0 0 0 0 0 ORG 841 0 1697 0 0 1 841 1 084 GEN YUSR12 DS 3 93 841 0 3 0 GEN YUSR11 DS 3 94 844 0 3 0 GEN YUSR10 DS 3 95 847 0 3 0 GEN YUSER9 DS 3 96 850 0 3 0 GEN YUSER8 DS 3 97 853 0 3 0 GEN YUSER7 DS 3 98 856 0 3 0 GEN YUSER6 DS 3 99 859 0 3 0 GEN YUSER5 DS 3 100 862 0 3 0 GEN YUSER4 DS 3 101 865 0 3 0 GEN YUSER3 DS 3 102 868 0 3 0 GEN YUSER2 DS 3 103 871 0 3 0 GEN YUSER1 DS 3 104 874 0 3 0 GEN SQRTFN DS 3 105 877 0 3 0 GEN FLTFUN DS 3 106 880 0 3 0 GEN FIXFUN DS 3 107 883 0 3 0 GEN NEGTFN DS 3 108 886 0 3 0 GEN ABSVAL DS 3 109 889 0 3 0 GEN INVTFN DS 3 110 892 0 3 0 GEN XPNETL DS 3 111 895 0 3 0 GEN LOGFUN DS 3 112 898 0 3 0 GEN SINFUN DS 3 113 901 0 3 0 GEN COMFN1 DS 3 114 904 0 3 0 GEN DOSBSC DS 3 115 907 0 3 0 GEN OBLIST DS 3 116 910 0 3 0 GEN DOINIT DS 3 117 913 0 3 0 GEN DOADR3 DS 3 118 916 0 3 0 GEN DOADR2 DS 3 119 919 0 3 0 GEN DOADR1 DS 3 120 922 0 3 0 391 JOB 1401 FORTRAN OBJECT TIME DO 50533 0 925 0 0 0 392 SFX A 0 925 0 0 0 393 X1 EQU 089 121 925 0 0 1 89 1 008 394 X2 EQU 94 122 925 0 0 1 94 1 094 395 X3 EQU 099 123 925 0 0 1 99 1 009 396 ORG 2000 0 925 0 0 1 2000 1 020 397 DO1 SBR EXITL 124 2000 0 4 1 125 12 0EX EXITLA 398 SBR X2 0 2004 0 4 1 122 12 0X2 X2 A 399 SBR X2,4&X2 0 2008 0 7 2 122 12 0X2 X2 A 4 1 04 2 400 B INITL&4 0 2015 0 4 1 126 12 4IN INITLA 401 INITL EQU *&74 126 2019 0 0 1 2018 5 74* 402 EXITL EQU *&123 125 2019 0 0 1 2018 5 123* 403 XFR 0 0 2019 0 0 1 0 1 0 404 ORG 2000 0 2019 0 0 1 2000 1 020 405 DO2 SBR X2 127 2000 0 4 1 122 12 0X2 X2 A 406 MCW 11&X2,DO3&6 0 2004 0 7 2 11 1 0112 128 12 6DO DO3 A 407 MCW 0 2011 0 1 0 408 MCW 5&X2,LIMT&3 0 2012 0 7 2 5 1 05 2 129 12 3LI LIMT A 409 MCW 11&X2,SBIX&3 0 2019 0 7 2 11 1 0112 130 12 3SB SBIX A 410 MCW 14&X2,TESTL&3 0 2026 0 7 2 14 1 0142 131 12 3TE TESTLA 411 SBR EXDO3&3,15&X2 0 2033 0 7 2 132 12 3EX EXDO3A 15 1 0152 412 DO3 EQU *&1 128 2040 0 0 1 2039 5 1* 413 LIMT EQU *&8 129 2040 0 0 1 2039 5 8* 414 SBIX EQU *&15 130 2040 0 0 1 2039 5 15* 415 TESTL EQU *&22 131 2040 0 0 1 2039 5 22* 416 EXDO3 EQU *&30 132 2040 0 0 1 2039 5 30* 417 XFR 0 0 2040 0 0 1 0 1 0 418 ORG 2000 0 2040 0 0 1 2000 1 020 419 A 0,0 0 2000 0 7 2 0 1 00 0 1 00 MACRO 420 BFIXWZA,000,FIXWORD 0 0 0 0 0 GEN ZA 0 2007 0 1 0 GEN DC 000 0 2008 0 3 1 0 1 000 GEN DC @_0@ 11-7-8,0 0 2011 0 2 1 0 7 0@_ GEN DC 0 0 2013 0 1 1 0 1 00 MACRO 421 BFIXWS,000,FIXWORD 0 0 0 0 0 GEN S 0 2014 0 1 0 GEN DC 000 0 2015 0 3 1 0 1 000 GEN DC @_0@ 11-7-8,0 0 2018 0 2 1 0 7 0@_ GEN DC 0 0 2020 0 1 1 0 1 00 MACRO 422 BFIXWBWZ,000,FIXWORD,,K 0 0 0 0 0 GEN BWZ 0 2021 0 1 0 GEN DC 000 0 2022 0 3 1 0 1 000 GEN DC @_0@ 11-7-8,0 0 2025 0 2 1 0 7 0@_ GEN DC 0 0 2027 0 1 1 0 1 00 GEN DC @K@ 0 2028 0 1 1 0 7 0@K 423 B 0 0 2029 0 4 1 0 1 00 424 XFR 0 0 2033 0 0 1 0 1 0 425 JOB 1401 FORTRAN INITIALIZATION OF DO LOOPS FOR DO,LIST 50533 0 2033 0 0 0 426 ORG 2000 0 2033 0 0 1 2000 1 020 427 INITIL SBR EXITEL&3 133 2000 0 4 1 134 12 3EX EXITEL 428 MCW 2&X2,*&4 0 2004 0 7 2 2 1 02 2 0 5 4* 429 * NOTE - ADDRESS OF FIXWORD INITIALIZED BY LATER PASS 0 0 0 0 0 MACRO 430 BFIXWZA,000,FIXWORD 0 0 0 0 0 GEN ZA 0 2011 0 1 0 GEN DC 000 0 2012 0 3 1 0 1 000 GEN DC @_0@ 11-7-8,0 0 2015 0 2 1 0 7 0@_ GEN DC 0 0 2017 0 1 1 0 1 00 431 MCW 8&X2,*&4 0 2018 0 7 2 8 1 08 2 0 5 4* MACRO 432 BFIXWS,000,FIXWORD 0 0 0 0 0 GEN S 0 2025 0 1 0 GEN DC 000 0 2026 0 3 1 0 1 000 GEN DC @_0@ 11-7-8,0 0 2029 0 2 1 0 7 0@_ GEN DC 0 0 2031 0 1 1 0 1 00 433 MCW 11&X2,*&7 0 2032 0 7 2 11 1 0112 0 5 7* MACRO 434 AFIXWLCA,FIXWORD,,000 0 0 0 0 0 GEN LCA 0 2039 0 1 0 GEN DC @_0@ 11-7-8,0 0 2040 0 2 1 0 7 0@_ GEN DC 0 0 2042 0 1 1 0 1 00 GEN DC 000 0 2043 0 3 1 0 1 000 435 EXITEL B 000 134 2046 0 4 1 0 1 000 436 LTORG* 0 2050 0 8 1 0 5 0* 437 XFR 0 0 2050 0 0 1 0 1 0 438 JOB 1401 FORTRAN OBJECT TIME LIST 50533 0 2050 0 0 0 439 ORG 2000 0 2050 0 0 1 2000 1 020 440 OBJLST SBR X2 135 2000 0 4 1 122 12 0X2 X2 A 441 SBR BSTAN&6,2&X2 0 2004 0 7 2 136 12 6BS BSTANA 2 1 02 2 442 SBR XTLST&3,3&X2 0 2011 0 7 2 137 12 3XT XTLSTA 3 1 03 2 443 MCW 2&X2,ADLST#3 0 2018 0 7 2 2 1 02 2 9 4 0AD ADLSTA 444 XYZ MCW ADLST,X2 138 2025 0 7 2 139 12 0AD ADLSTA 122 12 0X2 X2 A 445 BW SMPLE,0&X2 0 2032 0 8 2 140 12 0SM SMPLEA 0 1 00 2 446 BCE ARRAY,0&X2,, 0 2040 0 8 3 141 12 0AR ARRAYA 0 1 00 2 0 11 0, 447 BCE SUBSCR,0&X2,$ 0 2048 0 8 3 142 12 0SU SUBSCR 0 1 00 2 0 11 0$ 448 BCE INDX1,0&X2,% BEGIN OF DO-TYPE 0 2056 0 8 3 143 12 0IN INDX1A 0 1 00 2 0 11 0% 449 BCE INDX4,0&X2,) END OF INNERMOST DO 0 2064 0 8 3 144 12 0IN INDX4A 0 1 00 2 0 12 0) ) A 450 BCE INDX2,0&X2,# END OF OUTER DO-TYPE 0 2072 0 8 3 145 12 0IN INDX2A 0 1 00 2 0 11 0# 451 MCW BLANK#3,X1 END OF LIST 0 2080 0 7 2 10 4 0BL BLANKA 121 12 0X1 X1 A 452 BSTAN MCW ADLST,0 136 2087 0 7 2 139 12 0AD ADLSTA 0 1 00 453 XTLST B 0 137 2094 0 4 1 0 1 00 454 RAY DCW @XXXXXX@ 146 2098 0 6 1 0 7 0@X 455 SMPLE MCW 2&X2,X1 140 2104 0 7 2 2 1 02 2 121 12 0X1 X1 A 456 SBR ADLST,3&X2 0 2111 0 7 2 139 12 0AD ADLSTA 3 1 03 2 457 B BSTAN 0 2118 0 4 1 136 12 0BS BSTANA 458 ARRAY MZ 2136,*&8 FMTZON CHANGE ON REASM OF OBJ FORMAT 141 2122 0 7 2 2136 1 021 0 5 8* 459 BCE NOSWT,@2S@,2 0 2129 0 8 3 147 12 0NO NOSWTA 11 7 0@2 2 1 02 460 BCE 0 2137 0 1 0 461 BWZ INRAY,RAY-4,2 0 2138 0 8 3 148 12 0IN INRAYA 146 12 -4RA RAY A 2 1 02 462 MCW 6&X2,RAY 0 2146 0 7 2 6 1 06 2 146 12 0RA RAY A 463 MN PARAMA&4,SBRLT&6 0 2153 0 7 2 82 12 4PA PARAMA 149 12 6SB SBRLTA 464 MN 0 2160 0 1 0 465 BWZ *&9,RAY-4,K 0 2161 0 8 3 0 5 9* 146 12 -4RA RAY A 0 12 0K K A 466 MN PARAMA&6,SBRLT&6 0 2169 0 7 2 82 12 6PA PARAMA 149 12 6SB SBRLTA 467 MN 0 2176 0 1 0 468 MZ *-4,RAY-4 0 2177 0 7 2 0 5 -4* 146 12 -4RA RAY A 469 INRAY MCW RAY-3,X1 148 2184 0 7 2 146 12 -3RA RAY A 121 12 0X1 X1 A 470 SBRLT SBR X1,0&X1 149 2191 0 7 2 121 12 0X1 X1 A 0 1 00 1 471 MCW X1,RAY-3 0 2198 0 7 2 121 12 0X1 X1 A 146 12 -3RA RAY A 472 C RAY,RAY-3 0 2205 0 7 2 146 12 0RA RAY A 146 12 -3RA RAY A 473 BU BSTAN 0 2212 0 5 1 136 12 0BS BSTANA 474 MZ *-6,RAY-4 0 2217 0 7 2 0 5 -6* 146 12 -4RA RAY A 475 B DUN1 0 2224 0 4 1 150 12 0DU DUN1 A 476 NOSWT MCW 6&X2,RAY 147 2228 0 7 2 6 1 06 2 146 12 0RA RAY A 477 MCW @.@,X1 0 2235 0 7 2 12 7 0@. 121 12 0X1 X1 A 478 DUN1 SBR ADLST,7&X2 150 2242 0 7 2 139 12 0AD ADLSTA 7 1 07 2 479 B BSTAN 0 2249 0 4 1 136 12 0BS BSTANA 480 SUBSCR T DOSBSC 142 2253 0 4 1 115 12 0DO DOSBSC 481 MZ *-4,X1-1 0 2257 0 7 2 0 5 -4* 121 12 -1X1 X1 A 482 MCW X2,ADLST 0 2264 0 7 2 122 12 0X2 X2 A 139 12 0AD ADLSTA 483 B BSTAN 0 2271 0 4 1 136 12 0BS BSTANA 484 INDX1 SBR X2,1&X2 143 2275 0 7 2 122 12 0X2 X2 A 1 1 01 2 485 T DOINIT 0 2282 0 4 1 117 12 0DO DOINIT 486 MN 0&X2 0 2286 0 4 1 0 1 00 2 487 SBR X2 0 2290 0 4 1 122 12 0X2 X2 A 488 B SETUP 0 2294 0 4 1 151 12 0SE SETUPA 489 INDX2 MCW 3&X2,X2 145 2298 0 7 2 3 1 03 2 122 12 0X2 X2 A 490 SETUP MCW 12&X2,INDX3&6 151 2305 0 7 2 12 1 0122 152 12 6IN INDX3A 491 MCW 0 2312 0 1 0 492 MCW 6&X2,LIMIT&3 0 2313 0 7 2 6 1 06 2 153 12 3LI LIMITA 493 MCW 12&X2,SUBIX&3 0 2320 0 7 2 12 1 0122 154 12 3SU SUBIXA 494 SBR LPARN#3,0&X2 SAVE ADDR OF LEFT PAREN 0 2327 0 7 2 13 4 0LP LPARNA 0 1 00 2 495 INDX4 MCW LPARN,X2 SET X2 TO ADDR OF LEFT PAREN 144 2334 0 7 2 155 12 0LP LPARNA 122 12 0X2 X2 A 496 INDX3 A 0,0 152 2341 0 7 2 0 1 00 0 1 00 497 * NOTE - ADDRESS OF FIXWORD INITIALIZED BY LATER PHASE OF COMPILER 0 0 0 0 0 MACRO 498 LIMIT BFIXWZA,000,FIXWORD 0 0 0 0 0 GEN LIMIT ZA 153 2348 0 1 0 GEN DC 000 0 2349 0 3 1 0 1 000 GEN DC @_0@ 11-7-8,0 0 2352 0 2 1 0 7 0@_ GEN DC 0 0 2354 0 1 1 0 1 00 MACRO 499 SUBIX BFIXWS,000,FIXWORD 0 0 0 0 0 GEN SUBIX S 154 2355 0 1 0 GEN DC 000 0 2356 0 3 1 0 1 000 GEN DC @_0@ 11-7-8,0 0 2359 0 2 1 0 7 0@_ GEN DC 0 0 2361 0 1 1 0 1 00 500 * IMPORTANT NOTE - THE OPERAND -SATFY- IN THE FOLLOWING MACRO 0 0 0 0 0 501 * WILL NOT BE CODED AS RELOCATABLE BY THE RELOCATABLE 0 0 0 0 0 502 * CONDENSING ROUTINE. THIS IS DUE TO THE FACT THAT THE 0 0 0 0 0 503 * CONDENSER DOES NOT RECOGNIZE DC OR DCW STATEMENTS AS HAVING 0 0 0 0 0 504 * RELOCATABLE OPERANDS. IT IS NECESSARY TO MANUALLY ZONE THE 0 0 0 0 0 505 * SET WORD MARK INSTRUCTION WITH AND 11-PUNCH TO CAUSE 0 0 0 0 0 506 * RELOCATION. 0 0 0 0 0 MACRO 507 BFIXWBWZ,SATFY,FIXWORD,,K 0 0 0 0 0 GEN BWZ 0 2362 0 1 0 GEN DC SATFY 0 2363 0 3 1 156 3 0SA SATFYA GEN DC @_0@ 11-7-8,0 0 2366 0 2 1 0 7 0@_ GEN DC 0 0 2368 0 1 1 0 1 00 GEN DC @K@ 0 2369 0 1 1 0 7 0@K 508 SBR ADLST,16&X2 0 2370 0 7 2 139 12 0AD ADLSTA 16 1 0162 509 B XYZ 0 2377 0 4 1 138 12 0XY XYZ A 510 SATFY MCW 15&X2,ADLST 156 2381 0 7 2 15 1 0152 139 12 0AD ADLSTA 511 B XYZ 0 2388 0 4 1 138 12 0XY XYZ A 512 LTORG* 0 2392 0 13 1 0 5 0* AREA ADLSTA DCW #03 139 2392 0 3 1 9 4 0 AREA BLANKA DCW #03 157 2395 0 3 1 10 4 0 LIT DCW @2S@ 0 2398 0 2 1 11 7 0 LIT DCW @.@ 0 2400 0 1 1 12 7 0 AREA LPARNA DCW #03 155 2401 0 3 1 13 4 0 513 XFR 0 0 2404 0 0 1 0 1 0 514 JOB 1401 FORTRAN OBJECT TIME SUBSCRIPTS 50533 0 2404 0 0 0 515 ORG 2000 0 2404 0 0 1 2000 1 020 516 OTSUB SBR EXITS&3 158 2000 0 4 1 159 12 3EX EXITSA 517 MCW 3&X2,AAA#3 0 2004 0 7 2 3 1 03 2 14 4 0AA AAA A 518 S PROD#5 0 2011 0 4 1 15 4 0PR PROD A 519 BAV *&1 0 2015 0 5 1 0 5 1* 520 SBR1 MCW 9&X2,LCA&3 160 2020 0 7 2 9 1 09 2 161 12 3LC LCA A 521 MCW 6&X2,ZA&3 0 2027 0 7 2 6 1 06 2 162 12 3ZA ZA A 522 ZA ZA 000,WORK#5 162 2034 0 7 2 0 1 000 16 4 0WO WORK A 523 LCA LCA 000,BFEEL-6 161 2041 0 7 2 0 1 000 163 12 -6BF BFEELA 524 M WORK,BFEEL#11 0 2048 0 7 2 164 12 0WO WORK A 17 4 0BF BFEELA 525 A BFEEL,PROD 0 2055 0 7 2 163 12 0BF BFEELA 165 12 0PR PROD A 526 C PROD-3,@15@ 0 2062 0 7 2 165 12 -3PR PROD A 18 7 0@1 527 BL OHALT 0 2069 0 5 1 166 12 0OH OHALTA 528 BCE PACK,10&X2,$ 0 2074 0 8 3 167 12 0PA PACK A 10 1 0102 0 11 0$ 529 SBR X2,6&X2 0 2082 0 7 2 122 12 0X2 X2 A 6 1 06 2 530 B SBR1 0 2089 0 4 1 160 12 0SB SBR1 A 531 PACK A &96,PROD-3 167 2093 0 7 2 19 10 0& 165 12 -3PR PROD A 532 BAV PACK 0 2100 0 5 1 167 12 0PA PACK A 533 MZ PROD-4,PROD 0 2105 0 7 2 165 12 -4PR PROD A 165 12 0PR PROD A 534 ZA PROD-2,X1&1 0 2112 0 7 2 165 12 -2PR PROD A 121 12 1X1 X1 A 535 MZ ZONES-99&X1,PROD-2 0 2119 0 7 2 168 12 -99ZO1ZONESA 165 12 -2PR PROD A 536 MCW PROD,X1 0 2126 0 7 2 165 12 0PR PROD A 121 12 0X1 X1 A 537 MCW X1,SBR&6 0 2133 0 7 2 121 12 0X1 X1 A 169 12 6SB SBR A 538 MZ ZONES-2,SBR&5 0 2140 0 7 2 168 12 -2ZO ZONESA 169 12 5SB SBR A 539 MCW AAA,X1 0 2147 0 7 2 170 12 0AA AAA A 121 12 0X1 X1 A 540 SBR SBR X1,0&X1 COMPUTE ADDRESS 169 2154 0 7 2 121 12 0X1 X1 A 0 1 00 1 541 MZ AAA-1,X1-1 0 2161 0 7 2 170 12 -1AA AAA A 121 12 -1X1 X1 A 542 SBR X2,11&X2 0 2168 0 7 2 122 12 0X2 X2 A 11 1 0112 543 EXITS B 000 159 2175 0 4 1 0 1 000 544 OHALT NOP 2002 166 2179 0 4 1 2002 1 020 545 H 0 2183 0 1 0 546 B OHALT 0 2184 0 4 1 166 12 0OH OHALTA 547 ZONES DCW @2SKB@ 168 2188 0 4 1 0 7 0@2 548 LTORG* 0 2192 0 19 1 0 5 0* AREA AAA A DCW #03 170 2192 0 3 1 14 4 0 AREA PROD A DCW #05 165 2195 0 5 1 15 4 0 AREA WORK A DCW #05 164 2200 0 5 1 16 4 0 AREA BFEELA DCW #11 163 2205 0 11 1 17 4 0 LIT DCW @15@ 0 2216 0 2 1 18 7 0 LIT DCW &96 0 2218 0 2 1 19 1 0 549 XFR 0 0 2220 0 0 1 0 1 0 550 JOB 1401 FLOATING POINT SINE - COSINE SUBROUTINE 50533 0 2220 0 0 0 551 SFX B 0 2220 0 0 0 552 * INSERT FUNCTION COMMON DECK HERE 0 0 0 0 0 553 ORG 2000 0 2220 0 0 1 2000 1 020 554 * 0 0 0 0 0 555 TRIGF BCE COSF,CODE,C 171 2000 0 8 3 172 12 0CO COSF B 32 12 0CO CODE B 0 12 0C C B 556 SINF BE STRZE SINE 0 # 0 173 2008 0 5 1 44 12 0ST STRZEB 557 MZ ACCHI&X3,ZA1 SINE -X # -SINE X 0 2013 0 7 2 11 12 0AC3ACCHIB 174 12 0ZA ZA1 B 558 B SNCS 0 2020 0 4 1 175 12 0SN SNCS B 559 COSF BE STR1 COSINE 0 # 1 172 2024 0 5 1 74 12 0ST STR1 B 560 MZ &1,ZA1 COS -X # COS X 0 2029 0 7 2 20 10 0& 174 12 0ZA ZA1 B 561 SNCS MCW @ @,BOX 175 2036 0 7 2 21 7 0@ 176 12 0BO BOX B 562 ZA EXP,EXPB 0 2043 0 7 2 36 12 0EX EXP B 29 12 0EX EXPB B 563 S &1,EXP 0 2050 0 7 2 20 10 0& 36 12 0EX EXP B 564 BM SMALL,EXP 0 2057 0 8 2 177 12 0SM SMALLB 36 12 0EX EXP B 565 A &2,EXP 0 2065 0 7 2 22 10 0& 36 12 0EX EXP B 566 S X3,EXP 0 2072 0 7 2 7 12 0X3 X3 B 36 12 0EX EXP B 567 BWZ ARGLG,EXP,B 0 2079 0 8 3 178 12 0AR ARGLGB 36 12 0EX EXP B 0 12 0B B B 568 ZA EXPB,EXP 0 2087 0 7 2 29 12 0EX EXPB B 36 12 0EX EXP B 569 SBR X1,PIOV2&X3 REDUCE ARGUMENT 0 2094 0 7 2 5 12 0X1 X1 B 179 12 0PI3PIOV2B 570 ZA EXP&1,X2&1 0 2101 0 7 2 36 12 1EX EXP B 6 12 1X2 X2 B 571 B DIVID DIVIDE ARGUMENT BY PI/2 0 2108 0 4 1 68 12 0DI DIVIDB 572 ZA 1&X1,X2&1 0 2112 0 7 2 1 1 01 1 6 12 1X2 X2 B 573 SUB4 S &40,X2&1 DETERMINE QUADRANT IN WHICH 180 2119 0 7 2 23 10 0& 6 12 1X2 X2 B 574 BWZ SUB4,X2&1,B ANGLE IS LOCATED AND WHETHER 0 2126 0 8 3 180 12 0SU SUB4 B 6 12 1X2 X2 B 0 12 0B B B 575 BCE *&8,CODE,C SINE OR COSINE FUNCTION IS TO 0 2134 0 8 3 0 5 8* 32 12 0CO CODE B 0 12 0C C B 576 SBR X2,1&X2 0 2142 0 7 2 6 12 0X2 X2 B 1 1 01 2 577 MZ ZONZ&X2,NSIGN 0 2149 0 7 2 181 12 0ZO2ZONZ B 30 12 0NS NSIGNB 578 MN ZONZ&X2,BOX#1 0 2156 0 7 2 181 12 0ZO2ZONZ B 24 4 0BO BOX B 579 S DEC DEC # 0 0 2163 0 4 1 79 12 0DE DEC B 580 S EXP 0 2167 0 4 1 36 12 0EX EXP B 581 BCE COS,BOX,2 0 2171 0 8 3 182 12 0CO COS B 176 12 0BO BOX B 2 1 02 582 * 0 0 0 0 0 583 * SINE INITIALIZATION 0 0 0 0 0 584 * 0 0 0 0 0 585 SINE ZA ACCHI&X3,TOP&1&X3 183 2179 0 7 2 11 12 0AC3ACCHIB 9 12 1TO3TOP B 586 B SQRX 0 2186 0 4 1 184 12 0SQ SQRX B 587 ZA TOP&1&X3,SPOT-1 FIRST TERM # X 0 2190 0 7 2 9 12 1TO3TOP B 10 12 -1SP SPOT B 588 ZA SPOT&1 0 2197 0 4 1 10 12 1SP SPOT B 589 ZS &2,NCON NCON # -2 0 2201 0 7 2 22 10 0& 77 12 0NC NCON B 590 * 0 0 0 0 0 591 * GENERAL INITIALIZATION FOR SERIES EVALUATION 0 0 0 0 0 592 * 0 0 0 0 0 593 SCGEN ZA &8,UPBY UPBY # &8 185 2208 0 7 2 25 10 0& 76 12 0UP UPBY B 594 S NCTR NCTR # 8 0 2215 0 4 1 78 12 0NC NCTR B 595 B CALC 0 2219 0 4 1 69 12 0CA CALC B 596 * 0 0 0 0 0 597 * PREPARE FIELDS FOR NORMALIZATION 0 0 0 0 0 598 * 0 0 0 0 0 599 ZA1 ZA NSIGN 174 2223 0 4 1 30 12 0NS NSIGNB 600 SBR X2,TOP&X3 0 2227 0 7 2 6 12 0X2 X2 B 9 12 0TO3TOP B 601 B NMLZ1 0 2234 0 4 1 41 12 0NM NMLZ1B 602 * 0 0 0 0 0 603 * COSINE INITIALIZATION 0 0 0 0 0 604 * 0 0 0 0 0 605 COS B SQRX 182 2238 0 4 1 184 12 0SQ SQRX B 606 MN &1,0&X1 FIRST TERM # 1 0 2242 0 7 2 20 10 0& 0 1 00 1 607 ZS &6,NCON NCON # -6 0 2249 0 7 2 26 10 0& 77 12 0NC NCON B 608 S EXP 0 2256 0 4 1 36 12 0EX EXP B 609 B SCGEN 0 2260 0 4 1 185 12 0SC SCGENB 610 * 0 0 0 0 0 611 * SQUARE ARGUMENT 0 0 0 0 0 612 * 0 0 0 0 0 613 SQRX SBR SQRXT&3 184 2264 0 4 1 186 12 3SQ SQRXTB 614 MCW ACCHI&X3,SPOT 0 2268 0 7 2 11 12 0AC3ACCHIB 10 12 0SP SPOT B 615 SBR X1 0 2275 0 4 1 5 12 0X1 X1 B 616 LCA @0@ 0 2279 0 4 1 27 7 0@0 617 M ACCHI&X3,SPOT&1&X3 0 2283 0 7 2 11 12 0AC3ACCHIB 10 12 1SP3SPOT B 618 ZS SPOT&2,ACCHI&X3 CHANGE TO -% X SQUARED ) 0 2290 0 7 2 10 12 2SP SPOT B 11 12 0AC3ACCHIB 619 S SPOT&1 0 2297 0 4 1 10 12 1SP SPOT B 620 SQRXT B XXX 186 2301 0 4 1 1 12 0XX XXX B 621 * 0 0 0 0 0 622 * SMALL VALUES OF X 0 0 0 0 0 623 * 0 0 0 0 0 624 SMALL A X3,EXP 177 2305 0 7 2 7 12 0X3 X3 B 36 12 0EX EXP B 625 BM TSTFC,EXP 0 2312 0 8 2 187 12 0TS TSTFCB 36 12 0EX EXP B 626 ZA EXPB,EXP 0 2320 0 7 2 29 12 0EX EXPB B 36 12 0EX EXP B 627 MZ ACCHI&X3,ACCHI-1&X3 SHIFT CONTENTS OF ACCHI&X3 0 2327 0 7 2 11 12 0AC3ACCHIB 11 12 -1AC3ACCHIB 628 ZA ACCHI-1&X3,ACCHI&X3 ONE POSITION RIGHT 0 2334 0 7 2 11 12 -1AC3ACCHIB 11 12 0AC3ACCHIB 629 A EXPB 0 2341 0 4 1 29 12 0EX EXPB B 630 ZS EXPB&1,DEC DEC # 20*EXP 0 2345 0 7 2 29 12 1EX EXPB B 79 12 0DE DEC B 631 MZ &1,NSIGN 0 2352 0 7 2 20 10 0& 30 12 0NS NSIGNB 632 BCE COS,CODE,C 0 2359 0 8 3 182 12 0CO COS B 32 12 0CO CODE B 0 12 0C C B 633 B SINE 0 2367 0 4 1 183 12 0SI SINE B 634 TSTFC BCE STR1,CODE,C 187 2371 0 8 3 74 12 0ST STR1 B 32 12 0CO CODE B 0 12 0C C B 635 ZA EXPB,EXP 0 2379 0 7 2 29 12 0EX EXPB B 36 12 0EX EXP B 636 B CLRWK 0 2386 0 4 1 35 12 0CL CLRWKB 637 ARGLG B ERMSG 178 2390 0 4 1 45 12 0ER ERMSGB 638 DCW @SCL@ 0 2394 0 3 1 0 7 0@S 639 B STRZE 0 2397 0 4 1 44 12 0ST STRZEB 640 * 0 0 0 0 0 641 ZONZ EQU * 181 2401 0 0 1 2400 5 0* 642 DCW @AKJBA@ 0 2401 0 5 1 0 7 0@A 643 * 0 0 0 0 0 644 PIOV2 EQU * 179 2406 0 0 1 2405 5 0* 645 DCW 1570796326794896619231 0 2406 0 22 1 0 1 015 LITS 0 0 0 0 0 LIT DCW &1 0 2428 0 1 1 20 1 0 LIT DCW @ @ 0 2429 0 1 1 21 7 0 LIT DCW &2 0 2430 0 1 1 22 1 0 LIT DCW &40 0 2431 0 2 1 23 1 0 AREA BOX B DCW #01 176 2433 0 1 1 24 4 0 LIT DCW &8 0 2434 0 1 1 25 1 0 LIT DCW &6 0 2435 0 1 1 26 1 0 LIT DCW @0@ 0 2436 0 1 1 27 7 0 LITS 0 0 0 0 0 646 EX TRIGF 0 2437 0 27 1 171 12 0 TRIGFB 647 JOB 1401 FLOATING POINT NATURAL LOGARITHM 50533 0 2437 0 0 0 648 * 0 0 0 0 0 649 ORG 2000 0 2437 0 0 1 2000 1 020 650 * 0 0 0 0 0 651 LOGF MZ ACCHI&X3,BASEZ 188 2000 0 7 2 11 12 0AC3ACCHIB 66 12 0BA BASEZB 652 LOGF2 BE LOG99 189 2007 0 5 1 190 12 0LO LOG99B 653 BM LOGER, ACCHI&X3 Q. NEGATIVE ARGUMENT 0 2012 0 8 2 191 12 0LO LOGERB 11 12 0AC3ACCHIB 654 LOGF1 C SPOT-2,ACCHI&X3 192 2020 0 7 2 10 12 -2SP SPOT B 11 12 0AC3ACCHIB 655 SAR X1 0 2027 0 4 1 5 12 0X1 X1 B 656 SW 0&X1 0 2031 0 4 1 0 1 00 1 657 MN &1, 2&X1 SET UP CONSTANT ONE 0 2035 0 7 2 28 10 0& 2 1 02 1 658 * FOR FASTEST RATE OF CONVERGENCE, PLACE ARG BETWEEN .32 AND 3.2 0 0 0 0 0 659 C ACCHI&2,@31@ 0 2042 0 7 2 11 12 2AC ACCHIB 29 7 0@3 660 BH NOSHF 0 2049 0 5 1 193 12 0NO NOSHFB 661 ZA ACCHI-1&X3,ACCHI&X3 0 2054 0 7 2 11 12 -1AC3ACCHIB 11 12 0AC3ACCHIB 662 A &1, EXP SHIFT DEC POINT 1 TO LEFT 0 2061 0 7 2 28 10 0& 36 12 0EX EXP B 663 * 0 0 0 0 0 664 NOSHF S ACCHI&X3, SPOT-1 COMPUTE 1-X 193 2068 0 7 2 11 12 0AC3ACCHIB 10 12 -1SP SPOT B 665 ZS SPOT-1,LZONE CORRECT SIGN 0 2075 0 7 2 10 12 -1SP SPOT B 194 12 0LZ LZONEB 666 S &1, EXP SHIFT DEC POINT 1 TO RIGHT 0 2082 0 7 2 28 10 0& 36 12 0EX EXP B 667 A &1, ACCHI&1 COMPUTE X&1 0 2089 0 7 2 28 10 0& 11 12 1AC ACCHIB 668 S &0, SPOT&X3 CREATE QUOTIENT FIELD 0 2096 0 7 2 30 10 0& 10 12 0SP3SPOT B 669 D ACCHI&X3, SPOT-1 COMPUTE U # X-1 / X&1 0 2103 0 7 2 11 12 0AC3ACCHIB 10 12 -1SP SPOT B 670 LCA SPOT-1, HOLD 0 2110 0 7 2 10 12 -1SP SPOT B 195 12 0HO HOLD B 671 M HOLD, SPOT&1&X3 COMPUTE U **2 0 2117 0 7 2 195 12 0HO HOLD B 10 12 1SP3SPOT B 672 ZA SPOT-1, ACCHI&X3 0 2124 0 7 2 10 12 -1SP SPOT B 11 12 0AC3ACCHIB 673 ZA HOLD, SPOT&1 0 2131 0 7 2 195 12 0HO HOLD B 10 12 1SP SPOT B 674 ZA LINIT,DEC DEC SET TO 0 0 2138 0 7 2 196 12 0LI LINITB 79 12 0DE DEC B 675 ZA NCTR SET TO 1 0 2145 0 1 0 676 ZA NCON SET TO 2 0 2146 0 1 0 677 ZA UPBY SET TO 0 0 2147 0 1 0 678 SW LOGM1,LOGM2 0 2148 0 7 2 71 12 0LO LOGM1B 72 12 0LO LOGM2B 679 SBR LOGM1-4,HOLD 0 2155 0 7 2 71 12 -4LO LOGM1B 195 12 0HO HOLD B 680 SBR LOGM2-1 0 2162 0 4 1 72 12 -1LO LOGM2B 681 SBR CALXT&3,LOGRT 0 2166 0 7 2 73 12 3CA CALXTB 197 12 0LO LOGRTB 682 B CALC1 0 2173 0 4 1 70 12 0CA CALC1B 683 LOGRT A TOP&1&X3 DOUBLE RESULT 197 2177 0 4 1 9 12 1TO3TOP B 684 MZ LZONE, TOP&X3 GET PROPER SIGN 0 2181 0 7 2 194 12 0LZ LZONEB 9 12 0TO3TOP B 685 ZA LN10&1&X3,SPOT-2 0 2188 0 7 2 75 12 1LN3LN10 B 10 12 -2SP SPOT B 686 M EXP, SPOT&2 COMPUTE N * LOG10 0 2195 0 7 2 36 12 0EX EXP B 10 12 2SP SPOT B 687 A TOP&X3, SPOT&2 ADD N * LOG10 TO RESULT 0 2202 0 7 2 9 12 0TO3TOP B 10 12 2SP SPOT B 688 SBR X2, SPOT&2 0 2209 0 7 2 6 12 0X2 X2 B 10 12 2SP SPOT B 689 S EXPB 0 2216 0 4 1 29 12 0EX EXPB B 690 B MVZON 0 2220 0 4 1 40 12 0MV MVZONB 691 * 0 0 0 0 0 692 LOGER BW *&8,4&X2 191 2224 0 8 2 0 5 8* 4 1 04 2 693 B ERMSG 0 2232 0 4 1 45 12 0ER ERMSGB 694 DCW @LNN@ 0 2236 0 3 1 0 7 0@L 695 MZ LINIT,ACCHI&X3 MAKE SIGN PLUS AND FIND 0 2239 0 7 2 196 12 0LI LINITB 11 12 0AC3ACCHIB 696 B LOGF1 LOG OF ABSOLUTE VALUE 0 2246 0 4 1 192 12 0LO LOGF1B 697 LOG99 BW POWER,4&X2 190 2250 0 8 2 198 12 0PO POWERB 4 1 04 2 698 B ERMSG 0 2258 0 4 1 45 12 0ER ERMSGB 699 DCW @LNZ@ 0 2262 0 3 1 0 7 0@L 700 MZ -0,ACCHI&X3 GIVE LARGE NEG NUMBER AS RESULT 0 2265 0 7 2 31 10 0- 11 12 0AC3ACCHIB 701 B STR99 0 2272 0 4 1 46 12 0ST STR99B 702 POWER CW ZROSW 198 2276 0 4 1 65 12 0ZR ZROSWB 703 B STR1 0 2280 0 4 1 74 12 0ST STR1 B 704 * 0 0 0 0 0 705 DCW &0 UPBY 0 2284 0 1 1 0 10 0& 706 DCW &2 NCON 0 2285 0 1 1 0 10 0& 707 DCW &1 NCTR 0 2286 0 1 1 0 10 0& 708 LINIT DCW &0 DEC 196 2287 0 1 1 0 10 0& 709 HOLD DCW #26 195 2288 0 26 1 0 6 0# 710 LZONE DCW #1 194 2314 0 1 1 0 6 0# LITS 0 0 0 0 0 LIT DCW &1 0 2315 0 1 1 28 1 0 LIT DCW @31@ 0 2316 0 2 1 29 7 0 LIT DCW &0 0 2318 0 1 1 30 1 0 LIT DCW -0 0 2319 0 1 1 31 1 0 LITS 0 0 0 0 0 711 EX LOGF 0 2320 0 31 1 188 12 0 LOGF B 712 JOB 1401 FORTRAN FLOATING POINT EXPONENTIAL 50533 0 2320 0 0 0 713 * 0 0 0 0 0 714 ORG 2000 0 2320 0 0 1 2000 1 020 715 * 0 0 0 0 0 716 EXPF MZ ONE,NSIGN 199 2000 0 7 2 200 12 0ON ONE B 30 12 0NS NSIGNB 717 MN XPNUM,*&8 0 2007 0 7 2 67 12 0XP XPNUMB 0 5 8* 718 BCE OUTM1,@02468@,0 0 2014 0 8 3 201 12 0OU OUTM1B 32 7 0@0 0 1 00 MACRO 719 CHAIN4 0 0 0 0 0 GEN BCE 0 2022 0 1 0 GEN BCE 0 2023 0 1 0 GEN BCE 0 2024 0 1 0 GEN BCE 0 2025 0 1 0 720 MZ BASEZ,NSIGN 0 2026 0 7 2 66 12 0BA BASEZB 30 12 0NS NSIGNB 721 MN @8@,XPNUM 0 2033 0 7 2 33 7 0@8 67 12 0XP XPNUMB 722 OUTM1 BW RUNML,ZROSW 201 2040 0 8 2 202 12 0RU RUNMLB 65 12 0ZR ZROSWB 723 SW ZROSW BASE IS ZERO 0 2048 0 4 1 65 12 0ZR ZROSWB 724 ZS ACCHI&X3 0 2052 0 4 1 11 12 0AC3ACCHIB 725 BU QSIGN BRANCH IF ARG NOT ZERO 0 2056 0 5 1 203 12 0QS QSIGNB 726 B ERMSG 0 2061 0 4 1 45 12 0ER ERMSGB 727 DCW @ZTZ@ ZERO TO ZERO POWER 0 2065 0 3 1 0 7 0@Z 728 PETTY MZ NSIGN,TWTCH 204 2068 0 7 2 30 12 0NS NSIGNB 80 12 0TW TWTCHB 729 B STR1 0 2075 0 4 1 74 12 0ST STR1 B 730 RUNML BE PETTY 202 2079 0 5 1 204 12 0PE PETTYB 731 NRML ZA EXP,EXPB 205 2084 0 7 2 36 12 0EX EXP B 29 12 0EX EXPB B 732 S ONE,EXPB 0 2091 0 7 2 200 12 0ON ONE B 29 12 0EX EXPB B 733 BM SML,EXPB BRANCH IF EXP LESS OR # TO ZERO 0 2098 0 8 2 206 12 0SM SML B 29 12 0EX EXPB B 734 S THREE,EXPB 0 2106 0 7 2 207 12 0TH THREEB 29 12 0EX EXPB B 735 BM REDUC,EXPB BRANCH IF EXP GREATER THAN ZERO 0 2113 0 8 2 208 12 0RE REDUCB 29 12 0EX EXPB B 736 * AND LESS THAN FOUR 0 0 0 0 0 737 * 0 0 0 0 0 738 * DETERMINE WHETHER EXPONENT OVERFLOW OR UNDERFLOW 0 0 0 0 0 739 * 0 0 0 0 0 740 QSIGN BM STRZE,ACCHI&X3 BRANCH IF ARGUMENT NEGATIVE 203 2121 0 8 2 44 12 0ST STRZEB 11 12 0AC3ACCHIB 741 B ERMSG EXPONENT OVERFLOW 0 2129 0 4 1 45 12 0ER ERMSGB 742 DCW @EOF@ 0 2133 0 3 1 0 7 0@E 743 B STR99 0 2136 0 4 1 46 12 0ST STR99B 744 * 0 0 0 0 0 745 * EXPONENT # &1, &2, OR &3 0 0 0 0 0 746 * 0 0 0 0 0 747 REDUC SBR X1,LN10&X3 STORE ADDRESS OF DIVISOR 208 2140 0 7 2 5 12 0X1 X1 B 75 12 0LN3LN10 B 748 ZA EXP&1,X2&1 0 2147 0 7 2 36 12 1EX EXP B 6 12 1X2 X2 B 749 B DIVID 0 2154 0 4 1 68 12 0DI DIVIDB 750 C 0&X1,THC99 0 2158 0 7 2 0 1 00 1 209 12 0TH THC99B 751 BL QSIGN BRANCH IF QUOT GREATER THAN 99 0 2165 0 5 1 203 12 0QS QSIGNB 752 ZA 0&X1,EXP 0 2170 0 7 2 0 1 00 1 36 12 0EX EXP B 753 MZ ACCHI&X3,EXP 0 2177 0 7 2 11 12 0AC3ACCHIB 36 12 0EX EXP B 754 * 0 0 0 0 0 755 * PREPARE FIELDS FOR SERIES CALCULATION 0 0 0 0 0 756 * 0 0 0 0 0 757 S DEC 0 2184 0 4 1 79 12 0DE DEC B 758 FTERM C SPOT,ACCHI&X3 SET UP TERM DEVELOPMENT AREA 210 2188 0 7 2 10 12 0SP SPOT B 11 12 0AC3ACCHIB 759 SAR X1 0 2195 0 4 1 5 12 0X1 X1 B 760 SW 0&X1 0 2199 0 4 1 0 1 00 1 761 S SPOT&1 CLEAR TERM DEVELOPMENT AREA 0 2203 0 4 1 10 12 1SP SPOT B 762 MN ONE,0&X1 FIRST TERM # 1 0 2207 0 7 2 200 12 0ON ONE B 0 1 00 1 763 ZA THC99-2,NCTR SET NCTR # ZERO 0 2214 0 7 2 209 12 -2TH THC99B 78 12 0NC NCTR B 764 ZA SET NCON # 1 0 2221 0 1 0 765 ZA SET UPBY # ZERO 0 2222 0 1 0 766 B CALC 0 2223 0 4 1 69 12 0CA CALC B 767 * 0 0 0 0 0 768 * PREPARE FIELDS FOR NORMALIZING 0 0 0 0 0 769 * 0 0 0 0 0 770 MZ TOP&1&X3,TOP&X3 0 2227 0 7 2 9 12 1TO3TOP B 9 12 0TO3TOP B 771 SBR X2,TOP&X3 0 2234 0 7 2 6 12 0X2 X2 B 9 12 0TO3TOP B 772 B NMLZ1 0 2241 0 4 1 41 12 0NM NMLZ1B 773 * 0 0 0 0 0 774 * EXPONENTS LESS OR # TO ZERO 0 0 0 0 0 775 * 0 0 0 0 0 776 SML A X3,EXPB 206 2245 0 7 2 7 12 0X3 X3 B 29 12 0EX EXPB B 777 BM PETTY,EXPB BRANCH IF -E GREATER THAN PRECISION 0 2252 0 8 2 204 12 0PE PETTYB 29 12 0EX EXPB B 778 ZS EXP&1,DEC SET DEC # E 0 2260 0 7 2 36 12 1EX EXP B 79 12 0DE DEC B 779 S EXP 0 2267 0 4 1 36 12 0EX EXP B 780 MZ ACCHI&X3,ACCHI-1&X3 SET UP SERIES MULTIPLIER 0 2271 0 7 2 11 12 0AC3ACCHIB 11 12 -1AC3ACCHIB 781 ZA ACCHI-1&X3,ACCHI&X3 0 2278 0 7 2 11 12 -1AC3ACCHIB 11 12 0AC3ACCHIB 782 B FTERM 0 2285 0 4 1 210 12 0FT FTERMB 783 DCW 0 0 2289 0 1 1 0 1 00 784 ONE DCW &1 200 2290 0 1 1 0 10 0& 785 THC99 DCW &099 209 2291 0 3 1 0 10 0& 786 THREE DCW &3 207 2294 0 1 1 0 10 0& LITS 0 0 0 0 0 LIT DCW @02468@ 0 2295 0 5 1 32 7 0 LIT DCW @8@ 0 2300 0 1 1 33 7 0 LITS 0 0 0 0 0 787 EX EXPF 0 2301 0 33 1 199 12 0 EXPF B 788 JOB 1401 FLOATING POINT ARCTANGENT 50533 0 2301 0 0 0 789 * 0 0 0 0 0 790 ORG 2000 0 2301 0 0 1 2000 1 020 791 * 0 0 0 0 0 792 CASE1 BE STRZE 211 2000 0 5 1 44 12 0ST STRZEB 793 MZ &1,INITL 0 2005 0 7 2 34 10 0& 212 12 0IN INITLB 794 ZA ACCHI-1&X3,ACCHI&X3 0 2012 0 7 2 11 12 -1AC3ACCHIB 11 12 0AC3ACCHIB 795 S DEC 0 2019 0 4 1 79 12 0DE DEC B 796 S TOP&1&X3 0 2023 0 4 1 9 12 1TO3TOP B 797 C SPOT-2,ACCHI&X3 0 2027 0 7 2 10 12 -2SP SPOT B 11 12 0AC3ACCHIB 798 SAR X1 0 2034 0 4 1 5 12 0X1 X1 B 799 SW 0&X1 0 2038 0 4 1 0 1 00 1 800 ZA @0?@,SPOT&X3 0 2042 0 7 2 35 7 0@0 10 12 0SP3SPOT B 801 MCW @0?@,EXPB 0 2049 0 7 2 35 7 0@0 29 12 0EX EXPB B 802 MN EXP,EXPB 0 2056 0 7 2 36 12 0EX EXP B 29 12 0EX EXPB B 803 MN 0 2063 0 1 0 804 C EXPB,@0?@ 0 2064 0 7 2 29 12 0EX EXPB B 35 7 0@0 805 BE ZEREX 0 2071 0 5 1 213 12 0ZE ZEREXB 806 S X3,EXPB 0 2076 0 7 2 7 12 0X3 X3 B 29 12 0EX EXPB B 807 BM TEST,EXPB 0 2083 0 8 2 214 12 0TE TEST B 29 12 0EX EXPB B 808 BM CASE2,EXP 0 2091 0 8 2 215 12 0CA CASE2B 36 12 0EX EXP B 809 B CASE7 0 2099 0 4 1 216 12 0CA CASE7B 810 CASE2 MCW ACCHI&X3,TOP&X3 215 2103 0 7 2 11 12 0AC3ACCHIB 9 12 0TO3TOP B 811 A &1,EXP 0 2110 0 7 2 34 10 0& 36 12 0EX EXP B 812 B SIGN 0 2117 0 4 1 217 12 0SI SIGN B 813 CASE7 S EXP 216 2121 0 4 1 36 12 0EX EXP B 814 ADDPI2 A PIOV4&1&X3,TOP&1&X3 218 2125 0 7 2 219 12 1PI3PIOV4B 9 12 1TO3TOP B 815 ADDPI4 A PIOV4&1&X3,TOP&1&X3 220 2132 0 7 2 219 12 1PI3PIOV4B 9 12 1TO3TOP B 816 SIGN SBR X2,TOP&X3 217 2139 0 7 2 6 12 0X2 X2 B 9 12 0TO3TOP B 817 B NMLZ1 0 2146 0 4 1 41 12 0NM NMLZ1B 818 TEST BM CASE3,EXP 214 2150 0 8 2 221 12 0CA CASE3B 36 12 0EX EXP B 819 MN &1,2&X1 0 2158 0 7 2 34 10 0& 2 1 02 1 820 SHIFT ZA SPOT-1&X3,SPOT&X3 222 2165 0 7 2 10 12 -1SP3SPOT B 10 12 0SP3SPOT B 821 S &1,EXP 0 2172 0 7 2 34 10 0& 36 12 0EX EXP B 822 C EXP,@0?@ 0 2179 0 7 2 36 12 0EX EXP B 35 7 0@0 823 BL SHIFT 0 2186 0 5 1 222 12 0SH SHIFTB 824 D ACCHI&X3,SPOT-1 0 2191 0 7 2 11 12 0AC3ACCHIB 10 12 -1SP SPOT B 825 C 2&X1,@042@ 0 2198 0 7 2 2 1 02 1 36 7 0@0 826 BH CASE6 0 2205 0 5 1 223 12 0CA CASE6B 827 ZS INITL 0 2210 0 4 1 212 12 0IN INITLB 828 MCW SPOT-3,ACCHI&X3 0 2214 0 7 2 10 12 -3SP SPOT B 11 12 0AC3ACCHIB 829 ZA @0?@,SPOT&X3 0 2221 0 7 2 35 7 0@0 10 12 0SP3SPOT B 830 B CASE4 0 2228 0 4 1 224 12 0CA CASE4B 831 CASE6 SBR CALXT&3,ADDPI2 223 2232 0 7 2 73 12 3CA CALXTB 218 12 0AD ADDPI2 832 ZS INITL 0 2239 0 4 1 212 12 0IN INITLB 833 B MLTPLY 0 2243 0 4 1 225 12 0ML MLTPLY 834 CASE3 SBR CALXT&3,SIGN 221 2247 0 7 2 73 12 3CA CALXTB 217 12 0SI SIGN B 835 ZA EXP,EXPB 0 2254 0 7 2 36 12 0EX EXP B 29 12 0EX EXPB B 836 A EXPB 0 2261 0 4 1 29 12 0EX EXPB B 837 ZS EXPB&1,DEC 0 2265 0 7 2 29 12 1EX EXPB B 79 12 0DE DEC B 838 MCW ACCHI&X3,SPOT-3 0 2272 0 7 2 11 12 0AC3ACCHIB 10 12 -3SP SPOT B 839 B MLTPLY 0 2279 0 4 1 225 12 0ML MLTPLY 840 ZEREX C ACCHI&3,@042@ 213 2283 0 7 2 11 12 3AC ACCHIB 36 7 0@0 841 BH CASE3 0 2290 0 5 1 221 12 0CA CASE3B 842 CASE4 SBR CALXT&3,ADDPI4 224 2295 0 7 2 73 12 3CA CALXTB 220 12 0AD ADDPI4 843 ZS INITL 0 2302 0 4 1 212 12 0IN INITLB 844 MN &1,2&X1 0 2306 0 7 2 34 10 0& 2 1 02 1 845 S ACCHI&X3,SPOT-1 0 2313 0 7 2 11 12 0AC3ACCHIB 10 12 -1SP SPOT B 846 A &1,ACCHI&1 0 2320 0 7 2 34 10 0& 11 12 1AC ACCHIB 847 A @0?@,SPOT&X3 0 2327 0 7 2 35 7 0@0 10 12 0SP3SPOT B 848 D ACCHI&X3,SPOT-1 0 2334 0 7 2 11 12 0AC3ACCHIB 10 12 -1SP SPOT B 849 MLTPLY LCA SPOT-1,HOLDD 225 2341 0 7 2 10 12 -1SP SPOT B 226 12 0HO HOLDDB 850 M HOLDD,SPOT&2&X3 0 2348 0 7 2 226 12 0HO HOLDDB 10 12 2SP3SPOT B 851 ZS SPOT-1,ACCHI&X3 0 2355 0 7 2 10 12 -1SP SPOT B 11 12 0AC3ACCHIB 852 INITL ZA HOLDD 212 2362 0 4 1 226 12 0HO HOLDDB 853 ZA HOLDD,SPOT&1 0 2366 0 7 2 226 12 0HO HOLDDB 10 12 1SP SPOT B 854 ZA &2,NCON 0 2373 0 7 2 37 10 0& 77 12 0NC NCON B 855 S UPBY 0 2380 0 4 1 76 12 0UP UPBY B 856 ZA &1,NCTR 0 2384 0 7 2 34 10 0& 78 12 0NC NCTR B 857 SW LOGM1,LOGM2 0 2391 0 7 2 71 12 0LO LOGM1B 72 12 0LO LOGM2B 858 SBR LOGM1-4,HOLDD 0 2398 0 7 2 71 12 -4LO LOGM1B 226 12 0HO HOLDDB 859 SBR LOGM2-1 0 2405 0 4 1 72 12 -1LO LOGM2B 860 B CALC1 0 2409 0 4 1 70 12 0CA CALC1B 861 PIOV4 EQU *&1 219 2413 0 0 1 2412 5 1* 862 DCW @078539816339744830961566@ 0 2413 0 24 1 0 7 0@0 863 HOLDD DCW #24 226 2437 0 24 1 0 6 0# LITS 0 0 0 0 0 LIT DCW &1 0 2461 0 1 1 34 1 0 LIT DCW @0?@ 0 2462 0 2 1 35 7 0 LIT DCW @042@ 0 2464 0 3 1 36 7 0 LIT DCW &2 0 2467 0 1 1 37 1 0 LITS 0 0 0 0 0 864 EX CASE1 0 2468 0 37 1 211 12 0 CASE1B 865 JOB 1401 ABSOLUTE VALUE - NEGATE SUBROUTINE 50533 0 2468 0 0 0 866 * 0 0 0 0 0 867 ORG 2000 0 2468 0 0 1 2000 1 020 868 ABSVL MZ *&1,ACCHI&X3 NEGATE ABSOLUTE VALUE OF ARGUMENT 227 2000 0 7 2 0 5 1* 11 12 0AC3ACCHIB LITS 0 0 0 0 0 LITS 0 0 0 0 0 869 EX ABSVL 0 2007 0 37 1 227 12 0 ABSVLB 870 * 0 0 0 0 0 871 ORG 2000 0 2007 0 0 1 2000 1 020 872 NEGF ZS ACCHI&X3 228 2000 0 4 1 11 12 0AC3ACCHIB 873 B CLRWK 0 2004 0 4 1 35 12 0CL CLRWKB LITS 0 0 0 0 0 LITS 0 0 0 0 0 874 EX NEGF 0 2008 0 37 1 228 12 0 NEGF B 875 JOB FLOAT TO FIX CONVERSION 50533 0 2008 0 0 0 876 * 0 0 0 0 0 877 ORG 2000 0 2008 0 0 1 2000 1 020 878 * 0 0 0 0 0 879 FIXF SW FIXSW 229 2000 0 4 1 50 12 0FI FIXSWB 880 SBR X1,0&X3 0 2004 0 7 2 5 12 0X1 X1 B 0 1 00 3 881 MCW PARAMA&4,*&7 0 2011 0 7 2 82 12 4PA PARAMA 0 5 7* 882 SBR X3,000 0 2018 0 7 2 7 12 0X3 X3 B 0 1 000 883 S &1,EXP 0 2025 0 7 2 38 10 0& 36 12 0EX EXP B 884 BM STRZE,EXP STORE ZERO IF CHAR OF ARG LESS THAN 1 0 2032 0 8 2 44 12 0ST STRZEB 36 12 0EX EXP B 885 ZA EXP&1,X2&1 0 2040 0 7 2 36 12 1EX EXP B 6 12 1X2 X2 B 886 C X1,X2 0 2047 0 7 2 5 12 0X1 X1 B 6 12 0X2 X2 B 887 BL EXPLS 0 2054 0 5 1 230 12 0EX EXPLSB 888 S X1&1,X2&1 0 2059 0 7 2 5 12 1X1 X1 B 6 12 1X2 X2 B 889 C X3,X2 0 2066 0 7 2 7 12 0X3 X3 B 6 12 0X2 X2 B 890 BH STRZE 0 2073 0 5 1 44 12 0ST STRZEB 891 S SPOT&1&X2 0 2078 0 4 1 10 12 1SP2SPOT B 892 ZA ACCHI&X1,SPOT 0 2082 0 7 2 11 12 0AC1ACCHIB 10 12 0SP SPOT B 893 MZ SPOT,SPOT&1&X2 0 2089 0 7 2 10 12 0SP SPOT B 10 12 1SP2SPOT B 894 ZA SPOT&1&X2,ACCHI&X3 STORE FIXPT NUMBERS MODULO K 0 2096 0 7 2 10 12 1SP2SPOT B 11 12 0AC3ACCHIB 895 B CLRWK 0 2103 0 4 1 35 12 0CL CLRWKB 896 EXPLS MZ ACCHI&X1,ACCHI&1&X2 ADD ONLY INTEGER PLACES 230 2107 0 7 2 11 12 0AC1ACCHIB 11 12 1AC2ACCHIB 897 LCA ACCHI&1&X2,SPOT 0 2114 0 7 2 11 12 1AC2ACCHIB 10 12 0SP SPOT B 898 ZA SPOT,ACCHI&X3 0 2121 0 7 2 10 12 0SP SPOT B 11 12 0AC3ACCHIB 899 B CLRWK 0 2128 0 4 1 35 12 0CL CLRWKB LITS 0 0 0 0 0 LIT DCW &1 0 2132 0 1 1 38 1 0 LITS 0 0 0 0 0 900 EX FIXF 0 2133 0 38 1 229 12 0 FIXF B 901 JOB FIX TO FLOAT CONVERSION 50533 0 2133 0 0 0 902 * 0 0 0 0 0 903 ORG 2000 0 2133 0 0 1 2000 1 020 904 * 0 0 0 0 0 905 FLOT CW FIXSW 231 2000 0 4 1 50 12 0FI FIXSWB 906 BW *&5,4&X2 0 2004 0 8 2 0 5 5* 4 1 04 2 907 B *&8 0 2012 0 4 1 0 5 8* 908 MN ACCHI&X3,XPNUM 0 2016 0 7 2 11 12 0AC3ACCHIB 67 12 0XP XPNUMB 909 SBR X2,SPOT 0 2023 0 7 2 6 12 0X2 X2 B 10 12 0SP SPOT B 910 LCA ACCHI&X3 0 2030 0 4 1 11 12 0AC3ACCHIB 911 MCW PARAMA&6,*&7 0 2034 0 7 2 82 12 6PA PARAMA 0 5 7* 912 SBR X3,000 0 2041 0 7 2 7 12 0X3 X3 B 0 1 000 913 ZA X3,EXPB 0 2048 0 7 2 7 12 0X3 X3 B 29 12 0EX EXPB B 914 B MVZON 0 2055 0 4 1 40 12 0MV MVZONB LITS 0 0 0 0 0 LITS 0 0 0 0 0 915 EX FLOT 0 2059 0 38 1 231 12 0 FLOT B 916 JOB 1401 FLOATING POINT SQUARE ROOT 50533 0 2059 0 0 0 917 * 0 0 0 0 0 918 ORG 2000 0 2059 0 0 1 2000 1 020 919 * 0 0 0 0 0 920 SQRTF BM QERR,ACCHI&X3 BRANCH IF ARGUMENT NEGATIVE 232 2000 0 8 2 233 12 0QE QERR B 11 12 0AC3ACCHIB 921 MN ACCHI&X3,TOP&21&X3 0 2008 0 7 2 11 12 0AC3ACCHIB 9 12 21TO3TOP B 922 MCW 0 2015 0 1 0 923 SW 0 2016 0 1 0 924 SBR X1 0 2017 0 4 1 5 12 0X1 X1 B 925 LCA &1,TOP INITIALIZE SUBTRAHEND 0 2021 0 7 2 39 10 0& 9 12 0TO TOP B 926 SBR X2 0 2028 0 4 1 6 12 0X2 X2 B 927 ZA EXP&1,ACCHI&4 DETERMINE EXPONENT OF ROOT 0 2032 0 7 2 36 12 1EX EXP B 11 12 4AC ACCHIB 928 A &1, ACCHI&3 0 2039 0 7 2 39 10 0& 11 12 3AC ACCHIB 929 M &50,ACCHI&6 0 2046 0 7 2 40 10 0& 11 12 6AC ACCHIB 930 MN ACCHI&4, EXP 0 2053 0 7 2 11 12 4AC ACCHIB 36 12 0EX EXP B 931 MN 0 2060 0 1 0 932 BCE CKSGN,ACCHI&5,0 0 2061 0 8 3 234 12 0CK CKSGNB 11 12 5AC ACCHIB 0 1 00 933 SBR X1,1&X1 0 2069 0 7 2 5 12 0X1 X1 B 1 1 01 1 934 B QSTRT 0 2076 0 4 1 235 12 0QS QSTRTB 935 CKSGN BWZ QSTRT,EXP,B 234 2080 0 8 3 235 12 0QS QSTRTB 36 12 0EX EXP B 0 12 0B B B 936 A &1,EXP 0 2088 0 7 2 39 10 0& 36 12 0EX EXP B 937 QSTRT S ACCHI&X3 235 2095 0 4 1 11 12 0AC3ACCHIB 938 QRTN S &11,2&X2 ADJUST SUBTRAHEND 236 2099 0 7 2 41 10 0& 2 1 02 2 939 SW 21&X2 0 2106 0 4 1 21 1 0212 940 CW 0 2110 0 1 0 941 SBR X2, 1&X2 0 2111 0 7 2 6 12 0X2 X2 B 1 1 01 2 942 ZS &1, CNTR#1 0 2118 0 7 2 39 10 0& 42 4 0CN CNTR B 943 QLOOP A &1,CNTR COMPUTE RESULT DIGITS 237 2125 0 7 2 39 10 0& 238 12 0CN CNTR B 944 A &2,1&X2 INCREASE SUBTRAHEND 0 2132 0 7 2 43 10 0& 1 1 01 2 945 S 1&X2,2&X1 DO ODD-INTEGER SUBTRACTIONS 0 2139 0 7 2 1 1 01 2 2 1 02 1 946 BWZ QLOOP, 2&X1, B 0 2146 0 8 3 237 12 0QL QLOOPB 2 1 02 1 0 12 0B B B 947 A 1&X2, 2&X1 0 2154 0 7 2 1 1 01 2 2 1 02 1 948 MN CNTR, DELTA&X2 0 2161 0 7 2 238 12 0CN CNTR B 81 12 0DE2DELTAB 949 SBR X1, 2&X1 0 2168 0 7 2 5 12 0X1 X1 B 2 1 02 1 950 BWZ QRTN, DELTA&X2, 2 0 2175 0 8 3 236 12 0QR QRTN B 81 12 0DE2DELTAB 2 1 02 951 B CLRWK 0 2183 0 4 1 35 12 0CL CLRWKB 952 QERR B ERMSG 233 2187 0 4 1 45 12 0ER ERMSGB 953 DCW @SQN@ 0 2191 0 3 1 0 7 0@S 954 MZ &1,ACCHI&X3 0 2194 0 7 2 39 10 0& 11 12 0AC3ACCHIB 955 CS ACCHI-1 0 2201 0 4 1 11 12 -1AC ACCHIB 956 B SQRTF&8 0 2205 0 4 1 232 12 8SQ SQRTFB LITS 0 0 0 0 0 LIT DCW &1 0 2209 0 1 1 39 1 0 LIT DCW &50 0 2210 0 2 1 40 1 0 LIT DCW &11 0 2212 0 2 1 41 1 0 AREA CNTR B DCW #01 238 2214 0 1 1 42 4 0 LIT DCW &2 0 2215 0 1 1 43 1 0 LITS 0 0 0 0 0 957 EX SQRTF 0 2216 0 43 1 232 12 0 SQRTFB 958 JOB 1401 FORTRAN USER FUNCTIONS 50533 0 2216 0 0 0 959 SFX A 0 2216 0 0 0 960 ORG 2000 0 2216 0 0 1 2000 1 020 961 DCW @USER FUNCTION 1 GOES HERE@ 0 2000 0 26 1 0 7 0@U 962 XFR 0 0 2026 0 0 1 0 1 0 963 ORG 2000 0 2026 0 0 1 2000 1 020 964 DCW @USER FUNCTION 2 GOES HERE@ 0 2000 0 26 1 0 7 0@U 965 XFR 0 0 2026 0 0 1 0 1 0 966 ORG 2000 0 2026 0 0 1 2000 1 020 967 DCW @USER FUNCTION 3 GOES HERE@ 0 2000 0 26 1 0 7 0@U 968 XFR 0 0 2026 0 0 1 0 1 0 969 ORG 2000 0 2026 0 0 1 2000 1 020 970 DCW @USER FUNCTION 4 GOES HERE@ 0 2000 0 26 1 0 7 0@U 971 XFR 0 0 2026 0 0 1 0 1 0 972 ORG 2000 0 2026 0 0 1 2000 1 020 973 DCW @USER FUNCTION 5 GOES HERE@ 0 2000 0 26 1 0 7 0@U 974 XFR 0 0 2026 0 0 1 0 1 0 975 ORG 2000 0 2026 0 0 1 2000 1 020 976 DCW @USER FUNCTION 6 GOES HERE@ 0 2000 0 26 1 0 7 0@U 977 XFR 0 0 2026 0 0 1 0 1 0 978 ORG 2000 0 2026 0 0 1 2000 1 020 979 DCW @USER FUNCTION 7 GOES HERE@ 0 2000 0 26 1 0 7 0@U 980 XFR 0 0 2026 0 0 1 0 1 0 981 ORG 2000 0 2026 0 0 1 2000 1 020 982 DCW @USER FUNCTION 8 GOES HERE@ 0 2000 0 26 1 0 7 0@U 983 XFR 0 0 2026 0 0 1 0 1 0 984 ORG 2000 0 2026 0 0 1 2000 1 020 985 DCW @USER FUNCTION 9 GOES HERE@ 0 2000 0 26 1 0 7 0@U 986 XFR 0 0 2026 0 0 1 0 1 0 987 ORG 2000 0 2026 0 0 1 2000 1 020 988 DCW @USER FUNCTION 10 GOES HERE@ 0 2000 0 26 1 0 7 0@U 989 XFR 0 0 2026 0 0 1 0 1 0 990 ORG 2000 0 2026 0 0 1 2000 1 020 991 DCW @USER FUNCTION 11 GOES HERE@ 0 2000 0 26 1 0 7 0@U 992 XFR 0 0 2026 0 0 1 0 1 0 993 ORG 2000 0 2026 0 0 1 2000 1 020 994 DCW @USER FUNCTION 12 GOES HERE@ 0 2000 0 26 1 0 7 0@U 995 XFR 0 0 2026 0 0 1 0 1 0 996 JOB 1401 FORTRAN RELOCATABLE XLINKF 50533 0 2026 0 0 0 997 ORG 2000 0 2026 0 0 1 2000 1 020 998 START MCW CLRCON,359 CHANG ON REASM OF FIXED XLINK 239 2000 0 7 2 240 12 0CL CLRCON 359 1 035 999 B 337 0 2007 0 4 1 337 1 033 1000 CLRCON DCW #3 240 2011 0 3 1 0 6 0# LITS 0 0 0 0 0 LITS 0 0 0 0 0 1001 EX START 0 2014 0 43 1 239 12 0 STARTA 1002 JOB 1401 FORTRAN FUNCTION BRANCH ROUTINE 50533 0 2014 0 0 0 1003 ORG 2000 0 2014 0 0 1 2000 1 020 1004 T SINFUN,4&X2,S 0 2000 0 8 4 113 12 0SI SINFUN 4 1 04 2 0 12 0S S A 0 12 0S 1005 XFR 0 0 2008 0 0 1 0 1 0 1006 ORG 2000 0 2008 0 0 1 2000 1 020 1007 T SINFUN,4&X2,C 0 2000 0 8 4 113 12 0SI SINFUN 4 1 04 2 0 12 0C C A 0 12 0C 1008 XFR 0 0 2008 0 0 1 0 1 0 1009 ORG 2000 0 2008 0 0 1 2000 1 020 1010 T LOGFUN,4&X2,G 0 2000 0 8 4 112 12 0LO LOGFUN 4 1 04 2 0 12 0G G A 0 12 0G 1011 XFR 0 0 2008 0 0 1 0 1 0 1012 ORG 2000 0 2008 0 0 1 2000 1 020 1013 T XPNETL,4&X2,E 0 2000 0 8 4 111 12 0XP XPNETL 4 1 04 2 0 12 0E E A 0 12 0E 1014 XFR 0 0 2008 0 0 1 0 1 0 1015 ORG 2000 0 2008 0 0 1 2000 1 020 1016 T ATANFN,4&X2,T 0 2000 0 8 4 92 12 0AT ATANFN 4 1 04 2 0 12 0T T A 0 12 0T 1017 XFR 0 0 2008 0 0 1 0 1 0 1018 ORG 2000 0 2008 0 0 1 2000 1 020 1019 T ABSVAL,4&X2,A 0 2000 0 8 4 109 12 0AB ABSVAL 4 1 04 2 0 12 0A A A 0 12 0A 1020 XFR 0 0 2008 0 0 1 0 1 0 1021 ORG 2000 0 2008 0 0 1 2000 1 020 1022 T NEGTFN,4&X2,N 0 2000 0 8 4 108 12 0NE NEGTFN 4 1 04 2 0 12 0N N A 0 12 0N 1023 XFR 0 0 2008 0 0 1 0 1 0 1024 ORG 2000 0 2008 0 0 1 2000 1 020 1025 T FIXFUN,4&X2,X 0 2000 0 8 4 107 12 0FI FIXFUN 4 1 04 2 0 12 0X X A 0 12 0X 1026 XFR 0 0 2008 0 0 1 0 1 0 1027 ORG 2000 0 2008 0 0 1 2000 1 020 1028 T FLTFUN,4&X2,F 0 2000 0 8 4 106 12 0FL FLTFUN 4 1 04 2 0 12 0F F A 0 12 0F 1029 XFR 0 0 2008 0 0 1 0 1 0 1030 ORG 2000 0 2008 0 0 1 2000 1 020 1031 T SQRTFN,4&X2,Q 0 2000 0 8 4 105 12 0SQ SQRTFN 4 1 04 2 0 12 0Q Q A 0 12 0Q 1032 XFR 0 0 2008 0 0 1 0 1 0 1033 ORG 2000 0 2008 0 0 1 2000 1 020 1034 T YUSER1,4&X2,R 0 2000 0 8 4 104 12 0YU YUSER1 4 1 04 2 0 12 0R R A 0 12 0R 1035 XFR 0 0 2008 0 0 1 0 1 0 1036 ORG 2000 0 2008 0 0 1 2000 1 020 1037 T YUSER2,4&X2,U 0 2000 0 8 4 103 12 0YU YUSER2 4 1 04 2 0 12 0U U A 0 12 0U 1038 XFR 0 0 2008 0 0 1 0 1 0 1039 ORG 2000 0 2008 0 0 1 2000 1 020 1040 T YUSER3,4&X2,P 0 2000 0 8 4 102 12 0YU YUSER3 4 1 04 2 0 12 0P P A 0 12 0P 1041 XFR 0 0 2008 0 0 1 0 1 0 1042 ORG 2000 0 2008 0 0 1 2000 1 020 1043 T YUSER4,4&X2,W 0 2000 0 8 4 101 12 0YU YUSER4 4 1 04 2 0 12 0W W A 0 12 0W 1044 XFR 0 0 2008 0 0 1 0 1 0 1045 ORG 2000 0 2008 0 0 1 2000 1 020 1046 T YUSER5,4&X2,Y 0 2000 0 8 4 100 12 0YU YUSER5 4 1 04 2 0 12 0Y Y A 0 12 0Y 1047 XFR 0 0 2008 0 0 1 0 1 0 1048 ORG 2000 0 2008 0 0 1 2000 1 020 1049 T YUSER6,4&X2,Z 0 2000 0 8 4 99 12 0YU YUSER6 4 1 04 2 0 12 0Z Z A 0 12 0Z 1050 XFR 0 0 2008 0 0 1 0 1 0 1051 ORG 2000 0 2008 0 0 1 2000 1 020 1052 T YUSER7,4&X2,J 0 2000 0 8 4 98 12 0YU YUSER7 4 1 04 2 0 12 0J J A 0 12 0J 1053 XFR 0 0 2008 0 0 1 0 1 0 1054 ORG 2000 0 2008 0 0 1 2000 1 020 1055 T YUSER8,4&X2,K 0 2000 0 8 4 97 12 0YU YUSER8 4 1 04 2 0 12 0K K A 0 12 0K 1056 XFR 0 0 2008 0 0 1 0 1 0 1057 ORG 2000 0 2008 0 0 1 2000 1 020 1058 T YUSER9,4&X2,L 0 2000 0 8 4 96 12 0YU YUSER9 4 1 04 2 0 12 0L L A 0 12 0L 1059 XFR 0 0 2008 0 0 1 0 1 0 1060 ORG 2000 0 2008 0 0 1 2000 1 020 1061 T YUSR10,4&X2,M 0 2000 0 8 4 95 12 0YU YUSR10 4 1 04 2 0 12 0M M A 0 12 0M 1062 XFR 0 0 2008 0 0 1 0 1 0 1063 ORG 2000 0 2008 0 0 1 2000 1 020 1064 T YUSR11,4&X2,D 0 2000 0 8 4 94 12 0YU YUSR11 4 1 04 2 0 12 0D D A 0 12 0D 1065 XFR 0 0 2008 0 0 1 0 1 0 1066 ORG 2000 0 2008 0 0 1 2000 1 020 1067 T YUSR12,4&X2,H 0 2000 0 8 4 93 12 0YU YUSR12 4 1 04 2 0 12 0H H A 0 12 0H 1068 XFR 0 0 2008 0 0 1 0 1 0 1069 ORG 2000 0 2008 0 0 1 2000 1 020 1070 T XLINKS,4&X2,I 0 2000 0 8 4 91 12 0XL XLINKS 4 1 04 2 0 12 0I I A 0 12 0I 1071 XFR 0 0 2008 0 0 1 0 1 0 LITS 0 0 0 0 0 LITS 0 0 0 0 0 1072 END 0 2008 0 43 1 0 1 0