1 FEXT=0000 2 FIXMRI FADD=1000 3 FIXMRI FSUB=2000 4 FIXMRI FMPY=3000 5 FIXMRI FDIV=4000 6 FIXMRI FGET=5000 7 FIXMRI FPUT=6000 8 9 /A-07-01 10 11 /FOUR WORD FLOATING POINT 12 /FUNCTION PACKAGE 13 14 FSQ=0001 15 FSQRT=0002 16 FSIN=0003 17 FCOS=0004 18 FATN=0005 19 FLOG=0006 20 FEXP=0007 21 FNEG=0016 22 23 FPAC=0052 24 25 26 /ADDITIONS, CHANGES, AND CORRECTIONS 27 /TO FOUR WORD FLOATING POINT PACKAGE 28 29 *63 30 00063 6261 NEG, 6261 31 32 /TABLE6 ADDITIONS 33 *5751 34 05751 5772 SQUARE 35 05752 5000 ROOT 36 05753 5200 SINE 37 05754 5355 COS 38 05755 5400 ARTN 39 05756 4600 LOG 40 05757 5076 EXP 41 42 *5766 43 05766 6261 6261 /NEGATE 44 45 /SQUARE FAC 46 *5772 47 05772 0000 SQUARE, 0 48 05773 4407 JMS I 7 49 05774 6052 FPUT FPAC 50 05775 3052 FMPY FPAC 51 05776 0000 FEXT 52 05777 5772 JMP I SQUARE 53 54 55 /CORRECTION TO FSUB ROUTINE 56 *6030 57 06030 5364 JMP 6164 58 *6164 59 06164 4200 JMS 6000 60 06165 5626 JMP I 6026 61 62 /RELOCATE PRCHAR ROUTINE FROM 6767 63 *6166 64 06166 0000 PRCHAR, 0 65 06167 1057 TAD 57 66 06170 7650 SNA CLA 67 06171 5766 JMP I PRCHAR 68 06172 1375 TAD LFED 69 06173 4776 JMS I OPUT 70 06174 5766 JMP I PRCHAR 71 06175 0212 LFED, 0212 72 06176 7345 OPUT, 7345 73 74 75 /GET INTEGRAL PORTION OF FAC INTO FAC 76 *6752 77 06752 0000 INT, 0 78 06753 1044 TAD 44 79 06754 7550 SPA SNA 80 06755 5365 JMP INT2 81 06756 1375 TAD M13 82 06757 3044 DCA 44 83 06760 1044 INT1, TAD 44 84 06761 7700 SMA CLA 85 06762 5367 JMP INT3 86 06763 4777 JMS I SHFT 87 06764 5360 JMP INT1 88 06765 7200 INT2, CLA 89 06766 3045 DCA 45 90 06767 3046 INT3, DCA 46 91 06770 3047 DCA 47 92 06771 1376 TAD P13 93 06772 3044 DCA 44 94 06773 3050 DCA 50 95 06774 5752 JMP I INT 96 97 06775 7765 M13, -13 98 06776 0013 P13, 13 99 06777 6116 SHFT, 6116 100 101 102 /CALL PRCHAR AT NEW LOCATION 103 *7173 104 07173 6166 6166 105 106 107 108 109 110 111 112 113 114 /FLOATING SQUARE ROOT 115 *5000 116 05000 0000 ROOT, 0 117 05001 1045 TAD 45 118 05002 7450 SNA 119 05003 5600 JMP I ROOT /ZERO INPUT 120 05004 7700 SMA CLA 121 05005 5210 JMP ROOT1 122 05006 4463 JMS I NEG /NEGATIVE INPUT 123 05007 7001 IAC 124 05010 3061 ROOT1, DCA 61 /SET INPUT ERROR FLAG 125 05011 1044 TAD 44 /PUT INITIAL APPROX INTO ITER 126 05012 7100 CLL 127 05013 7510 SPA 128 05014 7020 CML 129 05015 7010 RAR 130 05016 3272 DCA ITER 131 05017 1210 TAD ROOT1 132 05020 3273 DCA ITER +1 133 05021 3274 DCA ITER+2 134 05022 3275 DCA ITER+3 135 05023 4407 JMS I 7 /PUT INPUT INTO FPAC 136 05024 6052 FPUT FPAC 137 05025 0000 FEXT 138 05026 5232 JMP ROOT3 139 05027 4407 ROOT2, JMS I 7 /PUT FAC INTO ITER 140 05030 6272 FPUT ITER 141 05031 0000 FEXT 142 05032 4407 ROOT3, JMS I 7 /GENERATE NEXT APPROX IN FAC 143 05033 5052 FGET FPAC 144 05034 4272 FDIV ITER 145 05035 1272 FADD ITER 146 05036 0000 FEXT 147 05037 7240 CLA CMA 148 05040 1044 TAD 44 149 05041 3044 DCA 44 150 05042 1044 TAD 44 /ITER=FAC WITHIN ONE BIT? 151 05043 7041 CMA IAC 152 05044 1272 TAD ITER 153 05045 7640 SZA CLA 154 05046 5227 JMP ROOT2 155 05047 1045 TAD 45 156 05050 7041 CMA IAC 157 05051 1273 TAD ITER+1 158 05052 7640 SZA CLA 159 05053 5227 JMP ROOT2 160 05054 1046 TAD 46 161 05055 7041 CMA IAC 162 05056 1274 TAD ITER+2 163 05057 7640 SZA CLA 164 05060 5227 JMP ROOT2 165 05061 1047 TAD 47 166 05062 7041 CMA IAC 167 05063 1275 TAD ITER+3 168 05064 7500 SMA 169 05065 7041 CMA IAC 170 05066 7001 IAC 171 05067 7710 SPA CLA 172 05070 5227 JMP ROOT2 173 05071 5600 JMP I ROOT /YES 174 175 05072 0000 ITER, 0 176 05073 0000 0 177 05074 0000 0 178 05075 0000 0 179 180 181 182 183 184 185 186 187 188 /FLOATING EXPONENT 189 05076 0000 EXP, 0 190 05077 1045 TAD 45 191 05100 7700 SMA CLA /IS ARGUMENT NEGATIVE? 192 05101 5304 JMP EXP1 193 05102 4463 JMS I NEG /YES, NEGATE 194 05103 7240 CLA CMA 195 05104 7040 EXP1, CMA 196 05105 3272 DCA ITER /NEGATIVE ARGUMENT FLAG 197 05106 4407 JMS I 7 198 05107 4756 FDIV I ELGE2 /GET N+F 199 05110 6052 FPUT FPAC 200 05111 0000 FEXT 201 05112 4755 JMS I EINT /DROP F 202 05113 1045 TAD 45 203 05114 7041 CMA IAC 204 05115 3273 DCA ITER+1 /STORE INTEGER -N 205 05116 4463 JMS I NEG /FORM FLOATING (-N). 206 05117 4407 JMS I 7 207 05120 1052 FADD FPAC /FORM F 208 05121 3756 FMPY I ELGE2 209 05122 6052 FPUT FPAC 210 05123 3766 FMPY I EK7 211 05124 1767 FADD I EK6 212 05125 3052 FMPY FPAC 213 05126 1770 FADD I EK5 214 05127 3052 FMPY FPAC 215 05130 1771 FADD I EK4 216 05131 3052 FMPY FPAC 217 05132 1772 FADD I EK3 218 05133 3052 FMPY FPAC 219 05134 1773 FADD I EK2 220 05135 3052 FMPY FPAC 221 05136 1774 FADD I EK1 222 05137 3052 FMPY FPAC 223 05140 1362 FADD EK0 224 05141 0000 FEXT 225 05142 1273 TAD ITER+1 226 05143 1044 TAD 44 227 05144 3044 DCA 44 /DIVIDE SUM BY 2 TO THE N. 228 05145 2272 ISZ ITER 229 05146 5676 JMP I EXP 230 05147 4407 JMS I 7 /POSITIVE ARGUMENT, 231 05150 6052 FPUT FPAC /TAKE RECIPROCAL. 232 05151 5357 FGET ONE 233 05152 4052 FDIV FPAC 234 05153 0000 FEXT 235 05154 5676 JMP I EXP 236 237 05155 6752 EINT, INT 238 05156 4714 ELGE2, LGE2 239 05157 0001 ONE, 0001 240 05160 2000 2000 241 05161 0000 0000 242 05162 0000 EK0, 0000 243 05163 3777 3777 244 05164 7777 7777 245 05165 7775 7775 246 247 /POINTERS TO EXPONENT SERIES CONSTANTS 248 05166 5364 EK7, X7 249 05167 5370 EK6, X6 250 05170 5374 EK5, X5 251 05171 5560 EK4, X4 252 05172 5564 EK3, X3 253 05173 5570 EK2, X2 254 05174 5574 EK1, X1 255 256 257 258 259 260 261 262 /FLOATING SINE 263 *5200 264 05200 0000 SINE, 0 265 05201 1045 TAD 45 266 05202 7740 SMA SZA CLA 267 05203 5211 JMP SIN1 268 05204 1045 TAD 45 269 05205 7700 SMA CLA 270 05206 5600 JMP I SINE /ZERO INPUT 271 05207 4463 JMS I NEG /NEGATIVE INPUT 272 05210 7240 CLA CMA 273 05211 3306 SIN1, DCA PNTR 274 05212 4407 JMS I 7 /REDUCE TO MODULO 2PI 275 05213 4315 FDIV PI 276 05214 4321 FDIV TWO 277 05215 6710 FPUT I XSQR 278 05216 0000 FEXT 279 05217 4707 JMS I SINT /GET INTEGRAL PART OF FAC 280 05220 4463 JMS I NEG 281 05221 4407 JMS I 7 282 05222 1710 FADD I XSQR /GET FRACTIONAL PART 283 05223 3315 FMPY PI 284 05224 3321 FMPY TWO 285 05225 6052 FPUT FPAC /SIN(2 PI I + F)=SIN(F) 286 05226 2315 FSUB PI /REDUCE TO MODULO PI 287 05227 0000 FEXT 288 05230 1045 TAD 45 289 05231 7710 SPA CLA 290 05232 5242 JMP SIN2 291 05233 4407 JMS I 7 /F G.T. PI. SIN (F-PI)==-SIN(F) 292 05234 6052 FPUT FPAC 293 05235 0000 FEXT 294 05236 1306 TAD PNTR 295 05237 7650 SNA CLA 296 05240 7040 CMA 297 05241 3306 DCA PNTR 298 05242 4407 SIN2, JMS I 7 /REDUCE MODULO PIBY2 299 05243 5052 FGET FPAC 300 05244 2311 FSUB PIOT 301 05245 0000 FEXT 302 05246 1045 TAD 45 303 05247 7710 SPA CLA 304 05250 5256 JMP SIN3 305 05251 4407 JMS I 7 /F G.T. PI/2. SIN(PI-F)=SIN(F) 306 05252 5315 FGET PI 307 05253 2052 FSUB FPAC 308 05254 6052 FPUT FPAC 309 05255 0000 FEXT 310 05256 4407 SIN3, JMS I 7 /EVALUATE SERIES 311 05257 5052 FGET FPAC 312 05260 4311 FDIV PIOT /REDUCE ARGUMENT L.T. 1 313 05261 6052 FPUT FPAC 314 05262 3052 FMPY FPAC 315 05263 6710 FPUT I XSQR 316 05264 3325 FMPY C13 317 05265 1331 FADD C11 318 05266 3710 FMPY I XSQR 319 05267 1335 FADD C9 320 05270 3710 FMPY I XSQR 321 05271 1341 FADD C7 322 05272 3710 FMPY I XSQR 323 05273 1345 FADD C5 324 05274 3710 FMPY I XSQR 325 05275 1351 FADD C3 326 05276 3710 FMPY I XSQR 327 05277 1311 FADD PIOT 328 05300 3052 FMPY FPAC 329 05301 0000 FEXT /SERIES EVALUATED 330 05302 2306 ISZ PNTR 331 05303 5600 JMP I SINE 332 05304 4463 JMS I NEG 333 05305 5600 JMP I SINE 334 335 05306 0000 PNTR, 0 /NEGATION FLAG 336 05307 6752 SINT, INT 337 05310 5072 XSQR, ITER 338 339 05311 0001 PIOT, 0001 340 05312 3110 3110 341 05313 3755 3755 342 05314 2421 2421 343 05315 0002 PI, 0002 344 05316 3110 3110 345 05317 3755 3755 346 05320 2421 2421 347 05321 0002 TWO, 0002 348 05322 2000 2000 349 05323 0000 0000 350 05324 0000 0000 351 352 /SINE CONSTANTS 353 05325 7750 C13, 7750 354 05326 3643 3643 355 05327 6415 6415 356 05330 1500 1500 357 05331 7756 C11, 7756 358 05332 4163 4163 359 05333 7054 7054 360 05334 0206 0206 361 05335 7764 C9, 7764 362 05336 2501 2501 363 05337 7015 7015 364 05340 1042 1042 365 05341 7771 C7, 7771 366 05342 5464 5464 367 05343 5514 5514 368 05344 6150 6150 369 05345 7775 C5, 7775 370 05346 2431 2431 371 05347 5361 5361 372 05350 4736 4736 373 05351 0000 C3, 0000 374 05352 5325 5325 375 05353 0414 0414 376 05354 3167 3167 377 378 /FLOATING COSINE 379 05355 0000 COS, 0 380 05356 4463 JMS I NEG 381 05357 4407 JMS I 7 382 05360 1311 FADD PIOT /COS(F)=SIN(PIBY2 - F) 383 05361 0000 FEXT 384 05362 4200 JMS SINE 385 05363 5755 JMP I COS 386 387 /FLOATING EXPONENT CONSTANTS 388 389 05364 7764 X7, 7764 390 05365 5542 5542 391 05366 5227 5227 392 05367 4775 4775 393 05370 7767 X6, 7767 394 05371 2560 2560 395 05372 3573 3573 396 05373 7333 7333 397 05374 7772 X5, 7772 398 05375 5700 5700 399 05376 2131 2131 400 05377 0200 0200 401 402 403 404 405 /FLOATING ARCTANGENT 406 *5400 407 05400 0000 ARTN, 0 408 05401 1045 TAD 45 409 05402 7700 SMA CLA 410 05403 5206 JMP ATN1 411 05404 4463 JMS I NEG /NEGATIVE INPUT 412 05405 7240 CLA CMA 413 05406 3274 ATN1, DCA FLAG3 414 05407 4407 JMS I 7 415 05410 6052 FPUT FPAC 416 05411 2677 FSUB I AONE 417 05412 0000 FEXT 418 05413 1045 TAD 45 419 05414 7710 SPA CLA 420 05415 5224 JMP ATN2 421 05416 4407 JMS I 7 /INPUT G.T. ONE 422 05417 5677 FGET I AONE /TAKE RECIPROCAL 423 05420 4052 FDIV FPAC 424 05421 6052 FPUT FPAC 425 05422 0000 FEXT 426 05423 7240 CLA CMA 427 05424 3273 ATN2, DCA FLAG2 428 05425 4407 JMS I 7 /EVALUATE SERIES 429 05426 5052 FGET FPAC 430 05427 3052 FMPY FPAC 431 05430 6676 FPUT I ARG2 432 05431 3300 FMPY K23 433 05432 1304 FADD K21 434 05433 3676 FMPY I ARG2 435 05434 1310 FADD MK19 436 05435 3676 FMPY I ARG2 437 05436 1314 FADD K17 438 05437 3676 FMPY I ARG2 439 05440 1320 FADD MK15 440 05441 3676 FMPY I ARG2 441 05442 1324 FADD K13 442 05443 3676 FMPY I ARG2 443 05444 1330 FADD MK11 444 05445 3676 FMPY I ARG2 445 05446 1334 FADD K9 446 05447 3676 FMPY I ARG2 447 05450 1340 FADD MK7 448 05451 3676 FMPY I ARG2 449 05452 1344 FADD K5 450 05453 3676 FMPY I ARG2 451 05454 1350 FADD MK3 452 05455 3676 FMPY I ARG2 453 05456 1354 FADD K1 454 05457 3052 FMPY FPAC 455 05460 0000 FEXT /SERIES EVALUATED 456 05461 2273 ISZ FLAG2 457 05462 5267 JMP ATN3 458 05463 4463 JMS I NEG 459 05464 4407 JMS I 7 460 05465 1675 FADD I PI2 /ARTN(F)=PIBY2 - ARTN(1/F) 461 05466 0000 FEXT /FOR F G.T. ONE. 462 05467 2274 ATN3, ISZ FLAG3 463 05470 5600 JMP I ARTN 464 05471 4463 JMS I NEG 465 05472 5600 JMP I ARTN 466 467 05473 0000 FLAG2, 0 /INPUT G.T. ONE FLAG 468 05474 0000 FLAG3, 0 /NEGATION FLAG 469 05475 5311 PI2, PIOT 470 05476 5072 ARG2, ITER 471 05477 5157 AONE, ONE 472 473 /ARCTANGENT CONSTANTS 474 05500 7766 K23, 7766 475 05501 5457 5457 476 05502 4432 4432 477 05503 1701 1701 478 05504 7771 K21, 7771 479 05505 2145 2145 480 05506 4241 4241 481 05507 4605 4605 482 05510 7772 MK19, 7772 483 05511 4166 4166 484 05512 3357 3357 485 05513 4120 4120 486 05514 7774 K17, 7774 487 05515 2040 2040 488 05516 1626 1626 489 05517 5457 5457 490 05520 7774 MK15, 7774 491 05521 4507 4507 492 05522 1221 1221 493 05523 3170 3170 494 05524 7775 K13, 7775 495 05525 2222 2222 496 05526 2557 2557 497 05527 0167 0167 498 05530 7775 MK11, 7775 499 05531 5107 5107 500 05532 0475 0475 501 05533 7567 7567 502 05534 7775 K9, 7775 503 05535 3427 3427 504 05536 7472 7472 505 05537 2175 2175 506 05540 7776 MK7, 7776 507 05541 5555 5555 508 05542 7621 7621 509 05543 6402 6402 510 05544 7776 K5, 7776 511 05545 3146 3146 512 05546 3041 3041 513 05547 1767 1767 514 05550 7777 MK3, 7777 515 05551 5252 5252 516 05552 5253 5253 517 05553 5611 5611 518 05554 0000 K1, 0000 519 05555 3777 3777 520 05556 7777 7777 521 05557 7755 7755 522 523 /EXPONENT CONSTANTS 524 05560 7774 X4, 7774 525 05561 2524 2524 526 05562 7613 7613 527 05563 5106 5106 528 05564 7776 X3, 7776 529 05565 5252 5252 530 05566 5353 5353 531 05567 1521 1521 532 05570 7777 X2, 7777 533 05571 3777 3777 534 05572 7775 7775 535 05573 1652 1652 536 05574 0000 X1, 0000 537 05575 4000 4000 538 05576 0000 0000 539 05577 0275 0275 540 541 542 543 544 /FLOATING LOGARITHM 545 *4600 546 04600 0000 LOG, 0 547 04601 1045 TAD 45 548 04602 7700 SMA CLA 549 04603 5206 JMP LOG1 550 04604 4463 JMS I NEG /NEGATIVE INPUT 551 04605 7001 IAC 552 04606 3061 LOG1, DCA 61 553 04607 4407 JMS I 7 554 04610 6052 FPUT FPAC /STORE POSITIVE ARGUMENT 555 04611 2705 FSUB I LONE 556 04612 0000 FEXT 557 04613 1045 TAD 45 558 04614 7700 SMA CLA /ARG L.T. 1? 559 04615 5224 JMP LOG2 /NO 560 04616 4407 JMS I 7 /INPUT L.T. 1, INVERT 561 04617 5705 FGET I LONE 562 04620 4052 FDIV FPAC 563 04621 6052 FPUT FPAC 564 04622 0000 FEXT 565 04623 7240 CLA CMA 566 04624 3307 LOG2, DCA FLAG4 /FLAG4 SET IF ARG L.T. 1 567 04625 4407 JMS I 7 /RESTORE FAC 568 04626 5052 FGET FPAC 569 04627 0000 FEXT 570 04630 7040 CMA /GET N 571 04631 1044 TAD 44 572 04632 3045 DCA 45 573 04633 1313 TAD RA /SET UP RETURN FROM INT 574 04634 3710 DCA I LINT 575 04635 5712 JMP I AFLOAT 576 04636 4407 BACK, JMS I 7 577 04637 3314 FMPY LGE2 578 04640 6711 FPUT I LITER /STORE N*LGE2 579 04641 5052 FGET FPAC 580 04642 0000 FEXT 581 04643 7001 IAC /GET F 582 04644 3044 DCA 44 583 04645 4407 JMS I 7 584 04646 2705 FSUB I LONE /GET F-1 585 04647 6052 FPUT FPAC /EVALUATE SERIES 586 04650 3320 FMPY L12 587 04651 1324 FADD L11 588 04652 3052 FMPY FPAC 589 04653 1330 FADD L10 590 04654 3052 FMPY FPAC 591 04655 1334 FADD L9 592 04656 3052 FMPY FPAC 593 04657 1340 FADD L8 594 04660 3052 FMPY FPAC 595 04661 1344 FADD L7 596 04662 3052 FMPY FPAC 597 04663 1350 FADD L6 598 04664 3052 FMPY FPAC 599 04665 1354 FADD L5 600 04666 3052 FMPY FPAC 601 04667 1360 FADD L4 602 04670 3052 FMPY FPAC 603 04671 1364 FADD L3 604 04672 3052 FMPY FPAC 605 04673 1370 FADD L2 606 04674 3052 FMPY FPAC 607 04675 1374 FADD L1 608 04676 3052 FMPY FPAC /SERIES NOW EVALUATED 609 04677 1711 FADD I LITER /ADD N*LGE2 610 04700 0000 FEXT 611 04701 2307 ISZ FLAG4 /WAS ARGUMENT L.T. 1? 612 04702 5600 JMP I LOG 613 04703 4463 JMS I NEG /YES, NEGATE SUM 614 04704 5600 JMP I LOG 615 616 04705 5157 LONE, ONE 617 04706 5321 LTWO, TWO 618 04707 0000 FLAG4, 0 /NEGATION FLAG 619 04710 6752 LINT, INT 620 04711 5072 LITER, ITER 621 04712 6767 AFLOAT, INT2+2 622 04713 4636 RA, BACK 623 624 04714 0000 LGE2, 0 625 04715 2613 2613 626 04716 4413 4413 627 04717 7676 7676 628 /LOGARITHM CONSTANTS 629 04720 7766 L12, 7766 630 04721 4132 4132 631 04722 5467 5467 632 04723 5141 5141 633 04724 7771 L11, 7771 634 04725 3467 3467 635 04726 0413 0413 636 04727 5110 5110 637 04730 7773 L10, 7773 638 04731 4633 4633 639 04732 3721 3721 640 04733 5500 5500 641 04734 7774 L9, 7774 642 04735 3470 3470 643 04736 0312 0312 644 04737 3507 3507 645 04740 7775 L8, 7775 646 04741 4770 4770 647 04742 3123 3123 648 04743 3611 3611 649 04744 7776 L7, 7776 650 04745 2050 2050 651 04746 7523 7523 652 04747 5173 5173 653 04750 7776 L6, 7776 654 04751 5312 5312 655 04752 1653 1653 656 04753 0406 0406 657 04754 7776 L5, 7776 658 04755 3137 3137 659 04756 6765 6765 660 04757 6402 6402 661 04760 7776 L4, 7776 662 04761 4000 4000 663 04762 7041 7041 664 04763 0031 0031 665 04764 7777 L3, 7777 666 04765 2525 2525 667 04766 2301 2301 668 04767 7431 7431 669 04770 7777 L2, 7777 670 04771 4000 4000 671 04772 0006 0006 672 04773 2241 2241 673 04774 0000 L1, 0000 674 04775 3777 3777 675 04776 7777 7777 676 04777 7445 7445 677 678 679 680 681 $ AFLOAT 4712 AONE 5477 ARG2 5476 ARTN 5400 ATN1 5406 ATN2 5424 ATN3 5467 BACK 4636 C11 5331 C13 5325 C3 5351 C5 5345 C7 5341 C9 5335 COS 5355 EINT 5155 EK0 5162 EK1 5174 EK2 5173 EK3 5172 EK4 5171 EK5 5170 EK6 5167 EK7 5166 ELGE2 5156 EXP 5076 EXP1 5104 FADD 11000 FATN 0005 unreferenced FCOS 0004 unreferenced FDIV 14000 FEXP 0007 unreferenced FEXT 0000 FGET 15000 FLAG2 5473 FLAG3 5474 FLAG4 4707 FLOG 0006 unreferenced FMPY 13000 FNEG 0016 unreferenced FPAC 0052 FPUT 16000 FSIN 0003 unreferenced FSQ 0001 unreferenced FSQRT 0002 unreferenced FSUB 12000 INT 6752 INT1 6760 INT2 6765 INT3 6767 ITER 5072 K1 5554 K13 5524 K17 5514 K21 5504 K23 5500 K5 5544 K9 5534 L1 4774 L10 4730 L11 4724 L12 4720 L2 4770 L3 4764 L4 4760 L5 4754 L6 4750 L7 4744 L8 4740 L9 4734 LFED 6175 LGE2 4714 LINT 4710 LITER 4711 LOG 4600 LOG1 4606 LOG2 4624 LONE 4705 LTWO 4706 unreferenced M13 6775 MK11 5530 MK15 5520 MK19 5510 MK3 5550 MK7 5540 NEG 0063 ONE 5157 OPUT 6176 P13 6776 PI 5315 PI2 5475 PIOT 5311 PNTR 5306 PRCHAR 6166 RA 4713 ROOT 5000 ROOT1 5010 ROOT2 5027 ROOT3 5032 SHFT 6777 SIN1 5211 SIN2 5242 SIN3 5256 SINE 5200 SINT 5307 SQUARE 5772 TWO 5321 X1 5574 X2 5570 X3 5564 X4 5560 X5 5374 X6 5370 X7 5364 XSQR 5310