1 / 2 / 3 / TRIG TABLE FOR THE FFT 4 / 1024 VALUES OF SIN(X) 5 / 0<=X<=2*PI 6 / 7 / 8 *1600 9 / 10 DECIMAL 11 001600 0000 ZEROPI,0 12 001601 0015 13 13 001602 0031 25 14 001603 0046 38 15 001604 0062 50 16 001605 0077 63 17 001606 0113 75 18 001607 0130 88 19 001610 0144 100 20 001611 0161 113 21 001612 0176 126 22 001613 0212 138 23 001614 0227 151 24 001615 0243 163 25 001616 0260 176 26 001617 0274 188 27 001620 0311 201 28 001621 0325 213 29 001622 0342 226 30 001623 0356 238 31 001624 0373 251 32 001625 0407 263 33 001626 0424 276 34 001627 0440 288 35 001630 0455 301 36 001631 0471 313 37 001632 0505 325 38 001633 0522 338 39 001634 0536 350 40 001635 0553 363 41 001636 0567 375 42 001637 0603 387 43 001640 0620 400 44 001641 0634 412 45 001642 0650 424 46 001643 0664 436 47 001644 0701 449 48 001645 0715 461 49 001646 0731 473 50 001647 0745 485 51 001650 0762 498 52 001651 0776 510 53 001652 1012 522 54 001653 1026 534 55 001654 1042 546 56 001655 1056 558 57 001656 1072 570 58 001657 1106 582 59 001660 1123 595 60 001661 1137 607 61 001662 1153 619 62 001663 1166 630 63 001664 1202 642 64 001665 1216 654 65 001666 1232 666 66 001667 1246 678 67 001670 1262 690 68 001671 1276 702 69 001672 1312 714 70 001673 1325 725 71 001674 1341 737 72 001675 1355 749 73 001676 1370 760 74 001677 1404 772 75 001700 1420 784 76 001701 1433 795 77 001702 1447 807 78 001703 1462 818 79 001704 1476 830 80 001705 1511 841 81 001706 1525 853 82 001707 1540 864 83 001710 1554 876 84 001711 1567 887 85 001712 1602 898 86 001713 1616 910 87 001714 1631 921 88 001715 1644 932 89 001716 1657 943 90 001717 1672 954 91 001720 1705 965 92 001721 1720 976 93 001722 1734 988 94 001723 1747 999 95 001724 1761 1009 96 001725 1774 1020 97 001726 2007 1031 98 001727 2022 1042 99 001730 2035 1053 100 001731 2050 1064 101 001732 2062 1074 102 001733 2075 1085 103 001734 2110 1096 104 001735 2122 1106 105 001736 2135 1117 106 001737 2147 1127 107 001740 2162 1138 108 001741 2174 1148 109 001742 2207 1159 110 001743 2221 1169 111 001744 2233 1179 112 001745 2246 1190 113 001746 2260 1200 114 001747 2272 1210 115 001750 2304 1220 116 001751 2316 1230 117 001752 2330 1240 118 001753 2342 1250 119 001754 2354 1260 120 001755 2366 1270 121 001756 2400 1280 122 001757 2411 1289 123 001760 2423 1299 124 001761 2435 1309 125 001762 2447 1319 126 001763 2460 1328 127 001764 2472 1338 128 001765 2503 1347 129 001766 2515 1357 130 001767 2526 1366 131 001770 2537 1375 132 001771 2551 1385 133 001772 2562 1394 134 001773 2573 1403 135 001774 2604 1412 136 001775 2615 1421 137 001776 2626 1430 138 001777 2637 1439 139 002000 2650 1448 140 002001 2661 1457 141 002002 2672 1466 142 002003 2703 1475 143 002004 2713 1483 144 002005 2724 1492 145 002006 2734 1500 146 002007 2745 1509 147 002010 2755 1517 148 002011 2766 1526 149 002012 2776 1534 150 002013 3007 1543 151 002014 3017 1551 152 002015 3027 1559 153 002016 3037 1567 154 002017 3047 1575 155 002020 3057 1583 156 002021 3067 1591 157 002022 3077 1599 158 002023 3107 1607 159 002024 3117 1615 160 002025 3126 1622 161 002026 3136 1630 162 002027 3145 1637 163 002030 3155 1645 164 002031 3164 1652 165 002032 3174 1660 166 002033 3203 1667 167 002034 3212 1674 168 002035 3222 1682 169 002036 3231 1689 170 002037 3240 1696 171 002040 3247 1703 172 002041 3256 1710 173 002042 3265 1717 174 002043 3274 1724 175 002044 3302 1730 176 002045 3311 1737 177 002046 3320 1744 178 002047 3326 1750 179 002050 3335 1757 180 002051 3343 1763 181 002052 3351 1769 182 002053 3360 1776 183 002054 3366 1782 184 002055 3374 1788 185 002056 3402 1794 186 002057 3410 1800 187 002060 3416 1806 188 002061 3424 1812 189 002062 3432 1818 190 002063 3440 1824 191 002064 3445 1829 192 002065 3453 1835 193 002066 3460 1840 194 002067 3466 1846 195 002070 3473 1851 196 002071 3501 1857 197 002072 3506 1862 198 002073 3513 1867 199 002074 3520 1872 200 002075 3525 1877 201 002076 3532 1882 202 002077 3537 1887 203 002100 3544 1892 204 002101 3551 1897 205 002102 3556 1902 206 002103 3562 1906 207 002104 3567 1911 208 002105 3573 1915 209 002106 3600 1920 210 002107 3604 1924 211 002110 3610 1928 212 002111 3614 1932 213 002112 3621 1937 214 002113 3625 1941 215 002114 3631 1945 216 002115 3635 1949 217 002116 3640 1952 218 002117 3644 1956 219 002120 3650 1960 220 002121 3653 1963 221 002122 3657 1967 222 002123 3662 1970 223 002124 3666 1974 224 002125 3671 1977 225 002126 3674 1980 226 002127 3700 1984 227 002130 3703 1987 228 002131 3706 1990 229 002132 3711 1993 230 002133 3713 1995 231 002134 3716 1998 232 002135 3721 2001 233 002136 3724 2004 234 002137 3726 2006 235 002140 3731 2009 236 002141 3733 2011 237 002142 3735 2013 238 002143 3740 2016 239 002144 3742 2018 240 002145 3744 2020 241 002146 3746 2022 242 002147 3750 2024 243 002150 3752 2026 244 002151 3754 2028 245 002152 3755 2029 246 002153 3757 2031 247 002154 3761 2033 248 002155 3762 2034 249 002156 3764 2036 250 002157 3765 2037 251 002160 3766 2038 252 002161 3767 2039 253 002162 3770 2040 254 002163 3771 2041 255 002164 3772 2042 256 002165 3773 2043 257 002166 3774 2044 258 002167 3775 2045 259 002170 3776 2046 260 002171 3776 2046 261 002172 3777 2047 262 002173 3777 2047 263 002174 3777 2047 264 002175 3777 2047 265 002176 3777 2047 266 / 267 / 268 / 269 /PI/2 270 002177 3777 PIHALF,2047 271 002200 3777 2047 272 002201 3777 2047 273 002202 3777 2047 274 002203 3777 2047 275 002204 3777 2047 276 002205 3777 2047 277 002206 3776 2046 278 002207 3776 2046 279 002210 3775 2045 280 002211 3774 2044 281 002212 3773 2043 282 002213 3772 2042 283 002214 3771 2041 284 002215 3770 2040 285 002216 3767 2039 286 002217 3766 2038 287 002220 3765 2037 288 002221 3764 2036 289 002222 3762 2034 290 002223 3761 2033 291 002224 3757 2031 292 002225 3755 2029 293 002226 3754 2028 294 002227 3752 2026 295 002230 3750 2024 296 002231 3746 2022 297 002232 3744 2020 298 002233 3742 2018 299 002234 3740 2016 300 002235 3735 2013 301 002236 3733 2011 302 002237 3731 2009 303 002240 3726 2006 304 002241 3724 2004 305 002242 3721 2001 306 002243 3716 1998 307 002244 3713 1995 308 002245 3711 1993 309 002246 3706 1990 310 002247 3703 1987 311 002250 3700 1984 312 002251 3674 1980 313 002252 3671 1977 314 002253 3666 1974 315 002254 3662 1970 316 002255 3657 1967 317 002256 3653 1963 318 002257 3650 1960 319 002260 3644 1956 320 002261 3640 1952 321 002262 3635 1949 322 002263 3631 1945 323 002264 3625 1941 324 002265 3621 1937 325 002266 3614 1932 326 002267 3610 1928 327 002270 3604 1924 328 002271 3600 1920 329 002272 3571 1913 330 002273 3567 1911 331 002274 3562 1906 332 002275 3556 1902 333 002276 3551 1897 334 002277 3544 1892 335 002300 3537 1887 336 002301 3532 1882 337 002302 3525 1877 338 002303 3520 1872 339 002304 3513 1867 340 002305 3506 1862 341 002306 3501 1857 342 002307 3473 1851 343 002310 3466 1846 344 002311 3460 1840 345 002312 3453 1835 346 002313 3445 1829 347 002314 3440 1824 348 002315 3432 1818 349 002316 3424 1812 350 002317 3416 1806 351 002320 3410 1800 352 002321 3402 1794 353 002322 3374 1788 354 002323 3366 1782 355 002324 3360 1776 356 002325 3351 1769 357 002326 3343 1763 358 002327 3335 1757 359 002330 3326 1750 360 002331 3320 1744 361 002332 3311 1737 362 002333 3302 1730 363 002334 3274 1724 364 002335 3265 1717 365 002336 3256 1710 366 002337 3247 1703 367 002340 3240 1696 368 002341 3231 1689 369 002342 3222 1682 370 002343 3212 1674 371 002344 3203 1667 372 002345 3174 1660 373 002346 3140 1632 374 002347 3155 1645 375 002350 3145 1637 376 002351 3136 1630 377 002352 3126 1622 378 002353 3117 1615 379 002354 3107 1607 380 002355 3077 1599 381 002356 3067 1591 382 002357 3057 1583 383 002360 3047 1575 384 002361 3037 1567 385 002362 3027 1559 386 002363 3017 1551 387 002364 3007 1543 388 002365 2776 1534 389 002366 2766 1526 390 002367 2755 1517 391 002370 2745 1509 392 002371 2734 1500 393 002372 2724 1492 394 002373 2713 1483 395 002374 2701 1473 396 002375 2672 1466 397 002376 2661 1457 398 002377 2650 1448 399 002400 2637 1439 400 002401 2626 1430 401 002402 2615 1421 402 002403 2604 1412 403 002404 2573 1403 404 002405 2562 1394 405 002406 2551 1385 406 002407 2537 1375 407 002410 2526 1366 408 002411 2515 1357 409 002412 2503 1347 410 002413 2472 1338 411 002414 2460 1328 412 002415 2447 1319 413 002416 2435 1309 414 002417 2423 1299 415 002420 2412 1290 416 002421 2400 1280 417 002422 2366 1270 418 002423 2354 1260 419 002424 2342 1250 420 002425 2330 1240 421 002426 2316 1230 422 002427 2304 1220 423 002430 2272 1210 424 002431 2260 1200 425 002432 2246 1190 426 002433 2233 1179 427 002434 2221 1169 428 002435 2207 1159 429 002436 2174 1148 430 002437 2162 1138 431 002440 2147 1127 432 002441 2135 1117 433 002442 2122 1106 434 002443 2110 1096 435 002444 2075 1085 436 002445 2062 1074 437 002446 2050 1064 438 002447 2035 1053 439 002450 2022 1042 440 002451 2007 1031 441 002452 1774 1020 442 002453 1761 1009 443 002454 1747 999 444 002455 1734 988 445 002456 1720 976 446 002457 1705 965 447 002460 1672 954 448 002461 1657 943 449 002462 1644 932 450 002463 1631 921 451 002464 1616 910 452 002465 1602 898 453 002466 1567 887 454 002467 1554 876 455 002470 1540 864 456 002471 1525 853 457 002472 1511 841 458 002473 1476 830 459 002474 1462 818 460 002475 1447 807 461 002476 1433 795 462 002477 1420 784 463 002500 1404 772 464 DECIMAL 465 002501 1370 760 466 002502 1355 749 467 002503 1341 737 468 002504 1325 725 469 002505 1312 714 470 002506 1276 702 471 002507 1262 690 472 002510 1246 678 473 002511 1232 666 474 002512 1216 654 475 002513 1202 642 476 002514 1166 630 477 002515 1153 619 478 002516 1137 607 479 002517 1123 595 480 002520 1106 582 481 002521 1072 570 482 002522 1056 558 483 002523 1042 546 484 002524 1026 534 485 002525 1012 522 486 002526 0776 510 487 002527 0762 498 488 002530 0745 485 489 002531 0731 473 490 002532 0715 461 491 002533 0701 449 492 002534 0664 436 493 002535 0650 424 494 002536 0634 412 495 002537 0620 400 496 002540 0603 387 497 002541 0567 375 498 002542 0553 363 499 002543 0536 350 500 002544 0522 338 501 002545 0505 325 502 002546 0471 313 503 002547 0455 301 504 002550 0440 288 505 002551 0424 276 506 002552 0407 263 507 002553 0373 251 508 002554 0356 238 509 002555 0342 226 510 002556 0325 213 511 002557 0311 201 512 002560 0274 188 513 002561 0260 176 514 002562 0243 163 515 002563 0227 151 516 002564 0212 138 517 002565 0176 126 518 002566 0161 113 519 002567 0144 100 520 002570 0130 88 521 002571 0113 75 522 002572 0077 63 523 002573 0062 50 524 002574 0046 38 525 002575 0031 25 526 002576 0015 13 527 / 528 / 529 / 530 / PI 531 002577 0000 PI,0 532 002600 7764 -12 533 002601 7750 -24 534 002602 7733 -37 535 002603 7717 -49 536 002604 7702 -62 537 002605 7666 -74 538 002606 7651 -87 539 002607 7634 -100 540 002610 7620 -112 541 002611 7603 -125 542 002612 7567 -137 543 002613 7552 -150 544 002614 7536 -162 545 002615 7521 -175 546 002616 7505 -187 547 002617 7470 -200 548 002620 7454 -212 549 002621 7437 -225 550 002622 7423 -237 551 002623 7406 -250 552 002624 7372 -262 553 002625 7355 -275 554 002626 7341 -287 555 002627 7324 -300 556 002630 7310 -312 557 002631 7273 -325 558 002632 7257 -337 559 002633 7243 -349 560 002634 7226 -362 561 002635 7212 -374 562 002636 7176 -386 563 002637 7161 -399 564 002640 7145 -411 565 002641 7131 -423 566 002642 7114 -436 567 002643 7100 -448 568 002644 7064 -460 569 002645 7050 -472 570 002646 7033 -485 571 002647 7017 -497 572 002650 7003 -509 573 002651 6767 -521 574 002652 6752 -534 575 002653 6736 -546 576 002654 6722 -558 577 002655 6706 -570 578 002656 6672 -582 579 002657 6656 -594 580 002660 6642 -606 581 002661 6626 -618 582 002662 6612 -630 583 002663 6576 -642 584 002664 6562 -654 585 002665 6546 -666 586 002666 6532 -678 587 002667 6517 -689 588 002670 6503 -701 589 002671 6467 -713 590 002672 6453 -725 591 002673 6437 -737 592 002674 6424 -748 593 002675 6410 -760 594 002676 6374 -772 595 002677 6361 -783 596 002700 6345 -795 597 002701 6332 -806 598 002702 6316 -818 599 002703 6303 -829 600 002704 6267 -841 601 002705 6254 -852 602 002706 6240 -864 603 002707 6225 -875 604 002710 6212 -886 605 002711 6176 -898 606 002712 6163 -909 607 002713 6150 -920 608 002714 6134 -932 609 002715 6121 -943 610 002716 6106 -954 611 002717 6073 -965 612 002720 6060 -976 613 002721 6045 -987 614 002722 6032 -998 615 002723 6017 -1009 616 002724 6004 -1020 617 002725 5771 -1031 618 002726 5756 -1042 619 002727 5743 -1053 620 002730 5730 -1064 621 002731 5716 -1074 622 002732 5703 -1085 623 002733 5670 -1096 624 002734 5656 -1106 625 002735 5643 -1117 626 002736 5631 -1127 627 002737 5616 -1138 628 002740 5604 -1148 629 002741 5571 -1159 630 002742 5557 -1169 631 002743 5545 -1179 632 002744 5533 -1189 633 002745 5520 -1200 634 002746 5506 -1210 635 002747 5474 -1220 636 002750 5462 -1230 637 002751 5450 -1240 638 002752 5436 -1250 639 002753 5424 -1260 640 002754 5412 -1270 641 002755 5400 -1280 642 002756 5367 -1289 643 002757 5355 -1299 644 002760 5343 -1309 645 002761 5331 -1319 646 002762 5320 -1328 647 002763 5306 -1338 648 002764 5275 -1347 649 002765 5263 -1357 650 002766 5252 -1366 651 002767 5241 -1375 652 002770 5227 -1385 653 002771 5216 -1394 654 002772 5205 -1403 655 002773 5174 -1412 656 002774 5163 -1421 657 002775 5152 -1430 658 002776 5141 -1439 659 002777 5130 -1448 660 003000 5117 -1457 661 003001 5106 -1466 662 003002 5075 -1475 663 003003 5065 -1483 664 003004 5054 -1492 665 003005 5044 -1500 666 003006 5033 -1509 667 003007 5023 -1517 668 003010 5012 -1526 669 003011 5002 -1534 670 003012 4771 -1543 671 003013 4761 -1551 672 003014 4751 -1559 673 003015 4741 -1567 674 003016 4731 -1575 675 003017 4721 -1583 676 003020 4711 -1591 677 003021 4701 -1599 678 003022 4671 -1607 679 003023 4661 -1615 680 003024 4652 -1622 681 003025 4642 -1630 682 003026 4633 -1637 683 003027 4623 -1645 684 003030 4614 -1652 685 003031 4604 -1660 686 003032 4575 -1667 687 003033 4566 -1674 688 003034 4556 -1682 689 003035 4547 -1689 690 003036 4540 -1696 691 003037 4531 -1703 692 003040 4522 -1710 693 003041 4513 -1717 694 003042 4505 -1723 695 003043 4476 -1730 696 003044 4467 -1737 697 003045 4460 -1744 698 003046 4452 -1750 699 003047 4443 -1757 700 003050 4435 -1763 701 003051 4427 -1769 702 003052 4420 -1776 703 003053 4412 -1782 704 003054 4404 -1788 705 003055 4376 -1794 706 003056 4370 -1800 707 003057 4362 -1806 708 003060 4354 -1812 709 003061 4346 -1818 710 003062 4340 -1824 711 003063 4333 -1829 712 003064 4325 -1835 713 003065 4320 -1840 714 003066 4312 -1846 715 003067 4305 -1851 716 003070 4277 -1857 717 003071 4272 -1862 718 003072 4265 -1867 719 003073 4260 -1872 720 003074 4253 -1877 721 003075 4246 -1882 722 003076 4241 -1887 723 003077 4234 -1892 724 003100 4227 -1897 725 003101 4222 -1902 726 003102 4216 -1906 727 003103 4211 -1911 728 003104 4205 -1915 729 003105 4200 -1920 730 003106 4174 -1924 731 003107 4170 -1928 732 003110 4164 -1932 733 003111 4157 -1937 734 003112 4153 -1941 735 003113 4147 -1945 736 003114 4143 -1949 737 003115 4140 -1952 738 003116 4134 -1956 739 003117 4130 -1960 740 003120 4125 -1963 741 003121 4121 -1967 742 / Tape 2 kludge begin 743 //BUGBUG: This is reconstructed and likely way off. 744 OCTAL 745 746 CLR=CLA CLL /CLEAR THE DECKS 747 HALF=CLL RAR /DIVIDE BY TWO 748 749 / 750 / AX08 DEFINITIONS 751 / 752 DXC=6301 /CLEAR X REGISTER 753 DXL=6302 /LOAD X REGISTER 754 DXCDXL=DXC DXL 755 DISY=6304 /INTENSIFY POINT (COMBINE WITH DXL) 756 DISY=6314 /INTENSIFY POINT (COMBINE WITH DXY) 757 SKAD=6332 /SKIP ON ADC DONE 758 SKRK=6341 /SKIP ON RC CLOCK FLAG 759 ZTEN=6342 /ZEROES TO ENABLE REGISTER 760 OTEN=6344 /ONES TO ENABLE REGISTER, CLEAR AC 761 CLRK=6354 /CLEAR RC CLOCK FLAG 762 ICMX=6361 /INCREMENT MULTIPLEXER CHANNEL 763 RADC=6362 /ADC BUFFER TO AC, CLEAR DONE, ADCIP 764 ADCV=6364 /INITIATE CONVERSION 765 ACMX=6371 /LOAD MULTIPLEX REGISTER 766 767 768 *10 769 000010 0000 AI10, .-. /AUTO-INDEX REGISTERS 770 000011 0000 AI11, .-. 771 000012 0000 AI12, .-. 772 000013 1000 K1000, 1000 /PRESUMED CONSTANTS 773 000014 0200 K200, 200 774 000015 0034 K34, 34 775 000016 3527 K3537, 3527 776 000017 0037 K37, 37 777 000020 0040 K40, 40 778 000021 0400 K400, 400 779 000022 4000 K4000, 4000 780 000023 0700 K700, 700 781 000024 7000 KNOP, 7000 782 000025 7777 M1, -1 783 000026 7000 M1000, -1000 784 000027 7600 M200, -200 785 000030 6000 M2000, -2000 786 000031 7774 M4, -4 787 000032 7400 M400, -400 788 000033 7776 MTWO, -2 789 790 /ENABLE REGISTER BIT VALUES 791 000034 2000 CVEN, 2000 /CONVERSION INITIATED BY RC CLOCK 792 000035 0010 R1, 0010 /RELAY 1 793 000036 0002 CNEN, 0002 /RC COUNTING CHAIN ENABLED 794 795 /VARIABLES 796 000037 0000 PTR1, .-. /NOT AUTOINDEX 797 000040 0000 PTR2, .-. 798 000041 0000 PTR3, .-. 799 000042 0000 PTR4, .-. 800 000043 0000 C, .-. 801 000044 0000 K, .-. 802 000045 0000 L, .-. 803 000046 0000 N, .-. 804 000047 0000 P, .-. 805 000050 0000 Q, .-. 806 000051 0000 S, .-. 807 000052 0000 CHANNE, .-. 808 000053 0000 CNT1, .-. 809 000054 0000 CNT3, .-. 810 000055 0000 COSK, .-. 811 000056 0000 GI, .-. 812 000057 0000 GR, .-. 813 000060 0000 HAN1, .-. 814 000061 0000 HAN2, .-. 815 000062 0000 HORIZ, .-. 816 000063 0000 KPI2, .-. 817 000064 0000 MMU, .-. 818 000065 0000 MN, .-. 819 000066 0000 MTWON, .-. 820 000067 0000 MP1, .-. 821 000070 0000 MP2, .-. 822 000071 0000 MP3, .-. 823 000072 0000 MP5, .-. 824 000073 0000 OFFSET, .-. 825 000074 0000 QUADI, .-. 826 000075 0000 SCLCNT, .-. 827 000076 0000 SINK, .-. 828 000077 0000 TEMP, .-. 829 000100 0000 TTEMP, .-. 830 000101 0000 WINC, .-. 831 000102 0000 WSTART, .-. 832 833 //BUGBUG: These resolve the symbols, but in no way creates a viable binary. 834 IMAGPT=. /USED AS A POINTER, NEVER SET 835 IMPTR=. /USED AS A CONSTANT TO INIT AI11 836 MU=. /USED AS A CONSTANT 837 MULTI=. /USED AS A POINTER TO A MULTIPLY ROUTINE 838 NEGATE=. /USED AS A CONSTANT 839 REALPT=. /USED AS A CONSTANT 840 RLPTR=. /USED AS A CONSTANT 841 THIR=. /USED AS A CONSTANT 842 TRIGPT=. /USED AS A CONSTANT 843 RSET=. /MISSING SUBROUTINE!! 844 / Tape 2 kludge ends 845 / 846 / 847 / FFT PART 1 848 / 849 *200 850 000200 7602 START, CLA HLT /SETUPS 851 000201 1046 TAD N 852 000202 7041 CIA 853 000203 3065 DCA MN 854 000204 1065 TAD MN 855 000205 1065 TAD MN 856 000206 3066 DCA MTWON 857 000207 1103 TAD RLPTR /SET STORAGE AREA TO 0000 858 000210 3010 DCA AI10 859 000211 1066 TAD MTWON 860 000212 3053 DCA CNT1 861 000213 3410 DCA I AI10 862 000214 2053 ISZ CNT1 /ALL? 863 000215 5213 JMP .-2 864 / 865 / 866 / SAMPLING ROUTINE 867 / BIT 0 DOWN MEANS USE TIMED SAMPLING 868 / BIT 0 UP MEANS SAMPLE ON RC TICK 869 / 870 000216 1103 SAMPLR,TAD RLPTR 871 000217 3010 DCA AI10 872 000220 1052 TAD CHANNEL 873 000221 6371 ACMX /SELECT CHANNEL 874 000222 7300 CLR 875 000223 1065 TAD MN 876 000224 3054 DCA CNT3 877 000225 1035 TAD R1 /SET RELAY 1 FOR DURATION OF SAMPLING 878 000226 6344 OTEN 879 / 880 000227 7604 LAS 881 000230 7710 SPA CLA /IS BIT 0 UP? 882 000231 5246 JMP CLKSAM /YES 883 000232 6364 TIMSAM,ADCV /CONVERT 884 000233 6332 SKAD /DONE? 885 000234 5233 JMP .-1 /NO, WAIT 886 000235 6362 RADC /YES, READ IT 887 000236 3410 DCA I AI10 /PUT IT AWAY 888 /ROUTINE TO WAIT 0.01 SEC 889 000237 1016 TAD K3537 890 000240 3053 DCA CNT1 891 000241 2053 ISZ CNT1 892 000242 5241 JMP .-1 /STALL 893 000243 2054 ISZ CNT3 /ALL SAMPLES TAKEN? 894 000244 5232 JMP TIMSAM 895 000245 5264 JMP ENDSAM 896 / 897 / 898 000246 7000 CLKSAM,NOP /COULD BE TAD SKEN 899 / /(=4000) TO SLOW THE CLOCK DOWN 900 000247 1034 TAD CVEN /(=2000) TO START CONVERSION ON TICK 901 000250 1036 TAD CNEN /(=0002) TO ENABLE RC COUNT CHAIN 902 000251 6344 OTEN /WHATEVER TURNS YOU ON!! 903 / 904 000252 6354 CLRK 905 000253 6341 TIKSAM,SKRK /WAIT FOR A TICK 906 000254 5253 JMP .-1 907 000255 6354 CLRK 908 / 909 000256 6332 SKAD /WAIT FOR COMPLETE CONVERSION 910 000257 5256 JMP .-1 911 000260 6362 RADC 912 000261 3410 DCA I AI10 913 000262 2054 ISZ CNT3 /ALL IN? 914 000263 5253 JMP TIKSAM 915 000264 6342 ENDSAM,ZTEN /DISABLE THE ENABLE REGISTER 916 / 917 / 918 / 919 / DISPLAY INPUT WAVEFORM 920 / FIRST HALF IN UPPER PORTION OF SCREEN 921 / SECOND HALF IN LOWER PORTION OF SCREEN 922 / 923 000265 0033 INDISP,MTWO 924 000266 3054 DCA CNT3 /NUMBER OF HALVES 925 000267 1103 TAD RLPTR 926 000270 3010 DCA AI10 927 000271 1014 TAD K200 928 000272 3073 DIS1, DCA OFFSET /SET FOR 1/2 OF SCREEN 929 000273 1026 TAD M1000 /POINTS ALONG X AXIS 930 000274 3053 DCA CNT1 931 000275 3062 DCA HORIZ /STARTING X 932 000276 1062 DISPLA,TAD HORIZ 933 000277 6303 DXCDXL 934 000300 2062 ISZ HORIZ 935 000301 7300 CLR 936 000302 1410 TAD I AI10 /GET A SAMPLE 937 000303 7110 HALF /SCALE IT 938 000304 1073 TAD OFFSET 939 000305 6314 DISY /DISPLAY IT 940 000306 7300 CLR 941 000307 2053 ISZ CNT1 /1000(8) PTS? 942 000310 5276 JMP DISPLA 943 000311 2054 ISZ CNT3 /BOTH HALVES? 944 000312 7410 SKP 945 000313 5316 JMP ENDISP 946 000314 1027 TAD M200 /SECOND 1/2 947 000315 5272 JMP DIS1 948 000316 7604 ENDISP,LAS /SHOULD WE STOP OR GO ON 949 000317 7010 RAR 950 000320 7630 SZL CLA /IS BIT 11 UP? 951 000321 5265 JMP INDISP /YES, KEEP DISPLAYING 952 / 953 / 954 / 955 /FIRST STAGE INITIALIZATIONS 956 000322 7300 STAGE1,CLR 957 000323 1103 TAD MU 958 000324 7041 CIA 959 000325 3064 DCA MMU 960 000326 7001 IAC 961 000327 3045 DCA L /L=1 962 000330 1046 TAD N /N=#OF SAMPLES=1024(DECIMAL)=2000(OCTAL) 963 000331 7110 HALF 964 000332 3051 DCA S /S=(1/2)*N 965 000333 1051 TAD S /FOR TRIG ROUTINES 966 000334 7110 HALF 967 000335 3063 DCA KPI2 / PI/2 968 000336 7040 CMA 969 000337 1063 TAD KPI2 970 000340 3074 DCA QUADI /1ST QUADRANT PART 971 000341 7040 CMA /-1 972 000342 1051 TAD S 973 000343 3050 DCA Q /Q=((1/2)*N)-1 974 / 975 / 976 /PASS 1&2 ARE ADDITIONS WITH NO MULTIPLICATIONS 977 /NO IMAGINARY PARTS IN PASS1 (0+0=0) 978 / SMALL NUMBERS SO USE SINGLE PRECISION 979 /AND DON'T WORRY ABOUT OVERFLOWS 980 / 981 000344 7300 PASS1, CLR 982 000345 1050 LOOP1, TAD Q 983 000346 1103 TAD REALPT 984 000347 3037 DCA PTR1 /POINTS TO X(Q) 985 000350 1103 TAD REALPT 986 000351 1050 TAD Q 987 000352 1051 TAD S /N/2 NOW 988 000353 3040 DCA PTR2 /POINTS TO X(Q+N/2) 989 / 990 / X(Q)=X(Q+N/2)+X(Q) 991 000354 1437 ADDER, TAD I PTR1 992 000355 1440 TAD I PTR2 993 000356 3077 DCA TEMP 994 / 995 / X(Q+N/2)=X(Q)-X(Q+N/2) 996 000357 1440 TAD I PTR2 997 000360 7041 CIA 998 000361 1437 TAD I PTR1 999 000362 3440 DCA I PTR2 /SAVE IT 1000 000363 1077 TAD TEMP 1001 000364 3437 DCA I PTR1 /SAVE IT 1002 / 1003 000365 1050 TAD Q 1004 000366 7740 SMA SZA CLA /IS Q 0 1007 000371 7040 CMA /YES, -1 1008 000372 1050 TAD Q 1009 000373 3050 DCA Q /Q=Q-1 1010 000374 5345 JMP LOOP1 1011 / 1012 / 1013 / 1014 *377 1015 / 1016 / 1017 / PART 2 1018 / 1019 000377 7300 PASS2, CLR 1020 / 1021 /DIVIDE PASS2 INTO LOWER AND UPPER 1022 / LOWER REDUCES TO: 1023 / XR(P)=XR(Q) 1024 / XI(P)=XR(P) 1025 / XR(Q)=XR(Q) 1026 / XI(Q)=-XR(P) 1027 / UPPER REDUCES TO: 1028 / XR(P)=XR(Q)-XR(P) 1029 / XR(Q)=XR(Q)+XR(P) 1030 / ALL XI=0 1031 / 1032 000400 4273 LOW2, JMS SETMUP 1033 000401 4247 JMS SETSS 1034 000402 1437 MOVE2L,TAD I PTR1 1035 000403 3441 DCA I PTR3 /XI(P)=XR(P) 1036 000404 1437 TAD I PTR1 1037 000405 7041 CIA 1038 000406 3442 DCA I PTR4 /XI(Q)=-XR(P) 1039 000407 1440 TAD I PTR2 1040 000410 3437 DCA I PTR1 /XR(P)=XR(Q) 1041 000411 7040 CMA 1042 000412 1047 TAD P 1043 000413 3047 DCA P /P=P-1 1044 000414 2043 ISZ C /IS C=S? 1045 000415 7410 SKP /NOT YET 1046 000416 5221 JMP HIGH2 /YES, DO UPPER 1047 000417 4103 JMS RSET /NO, DO SOME RESETTING 1048 000420 5202 JMP MOVE2L 1049 / 1050 000421 1051 HIGH2, TAD S 1051 000422 7041 CIA 1052 000423 1047 TAD P 1053 000424 3047 DCA P /P=P-S 1054 000425 4247 JMS SETSS 1055 000426 1437 MOVE2H,TAD I PTR1 1056 000427 7041 CIA 1057 000430 1440 TAD I PTR2 1058 000431 3077 DCA TEMP /XR(Q)-XR(P) 1059 000432 1437 TAD I PTR1 1060 000433 1440 TAD I PTR2 1061 000434 3440 DCA I PTR2 /XR(Q)=XR(P)+XR(Q) 1062 000435 1077 TAD TEMP 1063 000436 3437 DCA I PTR1 /XR(P)=XR(Q)-XR(P) 1064 000437 7040 CMA 1065 000440 1047 TAD P 1066 000441 3047 DCA P /P=P-1 1067 000442 2043 ISZ C /IS C=S? 1068 000443 7410 SKP /NOT YET 1069 000444 5311 JMP PASSES 1070 000445 4103 JMS RSET 1071 000446 5226 JMP MOVE2H 1072 / 1073 000447 0000 SETSS, 0 /SET UP SUBSCRIPTS 1074 000450 1051 TAD S 1075 000451 7041 CIA 1076 000452 3043 DCA C /C=-S (C IS A COUNTER) 1077 000453 1043 TAD C 1078 000454 1047 TAD P 1079 000455 3050 DCA Q /Q=P-S 1080 000456 1103 TAD REALPT 1081 000457 1047 TAD P 1082 000460 3037 DCA PTR1 /POINTS TO XR(P) 1083 000461 1103 TAD REALPT 1084 000462 1050 TAD Q 1085 000463 3040 DCA PTR2 /POINTS TO XR(Q) 1086 000464 1103 TAD IMAGPT 1087 000465 1047 TAD P 1088 000466 3041 DCA PTR3 /POINTS TO XI(P) 1089 000467 1103 TAD IMAGPT 1090 000470 1050 TAD Q 1091 000471 3042 DCA PTR4 /POINTS TO XI(Q) 1092 000472 5647 JMP I SETSS 1093 / 1094 / 1095 1096 / 1097 000473 0000 SETMUP,0 /INITIALIZATIONS FOR PASS2 ON UP 1098 000474 7300 CLR 1099 000475 1064 TAD MMU 1100 000476 1045 TAD L 1101 000477 7650 SNA CLA /IS L=MU? 1102 000500 5777 JMP ORDER /...ALL BUT DONE... 1103 / /NO, DO INITIALIZATIONS 1104 000501 2045 ISZ L /L=L+1 1105 000502 1051 TAD S 1106 000503 7110 HALF 1107 000504 3051 DCA S /S=S/2 1108 000505 7040 CMA 1109 000506 1046 TAD N 1110 000507 3047 DCA P /P=N-1 1111 000510 5673 JMP I SETMUP 1112 / 1113 / 1114 / 1115 / 1116 / 1117 / 1118 / PART 3 A 1119 / 1120 / 1121 / PASSES 3 AND ABOVE 1122 / 1123 000511 4273 PASSES,JMS SETMUP 1124 000512 4247 MIDPAS,JMS SETSS 1125 000513 1064 INTPRT,TAD MMU /TAKE INTEGER PART OF (P*2^H) 1126 000514 1045 TAD L /ACTUALLY SCALE P (MU-L) MANY PLACES RIGHT 1127 000515 7450 SNA /WHAT IF IT IS 0? 1128 000516 5352 JMP ZSCAL 1129 000517 3053 DCA CNT1 1130 000520 1047 TAD P 1131 000521 7110 HALF /SCALE RIGHT 1 BIT 1132 000522 2053 ISZ CNT1 /MU-L TIMES? 1133 000523 5321 JMP .-2 1134 000524 4354 HAVINT,JMS REVBIT /YES, REVERSE THE BITS 1135 000525 3044 DCA K /K=BINARY REVERSE OF 1136 / 1137 / 1138 / FIND SINE AND COSINE VALUES FROM TABLE 1139 000526 1044 SINE, TAD K 1140 000527 1103 TAD TRIGPT /TABLE ADDRESS 1141 000530 3077 DCA TEMP 1142 000531 1477 TAD I TEMP 1143 000532 3076 DCA SINK /SIN(2*PI*K/N) 1144 / 1145 000533 1044 COSINE,TAD K /COS(Z)=SIN(Z+PI/2) 1146 000534 1063 TAD KPI2 1147 000535 1065 TAD MN 1148 000536 7710 SPA CLA /IS K+PI/2>2*PI? 1149 000537 5347 JMP COS1 /NO 1150 000540 1044 TAD K /YES, PERIODICITY MEANS 1151 000541 0074 AND QUADI /GET 1ST QUADRANT PART OF K 1152 000542 1103 COS2, TAD TRIGPT /TABLE ADDRESS 1153 000543 3077 DCA TEMP 1154 000544 1477 TAD I TEMP 1155 000545 3055 DCA COSK /COS(2*PI*K/N) 1156 000546 5776 JMP COMPUT 1157 / 1158 000547 1044 COS1, TAD K 1159 000550 1063 TAD KPI2 /ADD PI/2 1160 000551 5342 JMP COS2 1161 / 1162 / 1163 000552 1047 ZSCAL, TAD P /DON'T SCALE P 1164 000553 5324 JMP HAVINT 1165 / 1166 /ROUTINE TO REVERSE BINARY BITS 1167 /BY MOVING RIGHT AND SAVING LEFT 1168 / ENTER WITH BITS TO BE REVERSED IN THE AC 1169 / LEAVE WITH REVERSED BITS IN THE AC 1170 / 1171 000554 0000 REVBIT,0 1172 000555 3077 DCA TEMP /SAVE THEM 1173 000556 1064 TAD MMU 1174 000557 3053 DCA CNT1 /MINUS NUMBER OF BITS TO BE REVERSED 1175 000560 7100 CLL /MAKE SURE ITS EMPTY 1176 000561 7004 ROT, RAL /SHIFT INTO LINK 1177 000562 3100 DCA TTEMP /SAVE SHIFTED WORD 1178 000563 1077 TAD TEMP /GET BITS TO BE REVERSED 1179 000564 7010 RAR /MOVE RIGHT INTO LINK 1180 000565 3077 DCA TEMP /SAVE UNSHIFTED BITS 1181 000566 7204 GLK /GET THE LINK BIT 1182 000567 1100 TAD TTEMP /ADD TO PREVIUS SHIFTS 1183 000570 2053 ISZ CNT1 /ALL ? 1184 000571 5361 JMP ROT /NO 1185 000572 5754 JMP I REVBIT /YES, LEAVE 1186 / 1187 / 1188 / 1189 000576 0655 PAGE 000577 1020 1190 / PART 3 B 1191 / 1192 /TWO'S COMPLEMENT SINGLE PRECISION MULTIPLY ROUTINE 1193 /RETURN HIGH ORDER PRODUCT IN AC, NO LO ORDER 1194 1195 000600 0000 MULT, 0 1196 000601 7100 CLL 1197 000602 7510 SPA /TEST FOR NEGATIVE MULTIPLIER 1198 000603 7061 CMA CML IAC 1199 000604 3067 DCA MP1 /STORE MULTIPLIER 1200 000605 3072 DCA MP5 1201 000606 1600 TAD I MULT 1202 000607 7450 SNA /TEST FOR ZERO MULTIPLICAND 1203 000610 5230 JMP MPSN-2 1204 000611 7510 SPA /TEST FOR NEGATIVE MULTIPLICAND 1205 000612 7061 CMA CML IAC 1206 000613 3070 DCA MP2 /STORE MULTIPLICAND 1207 000614 1103 TAD THIR 1208 000615 3071 DCA MP3 1209 000616 1067 MP4, TAD MP1 /MULTIPLY LOOP PROPER 1210 000617 7010 RAR 1211 000620 3067 DCA MP1 1212 000621 1072 TAD MP5 1213 000622 7430 SZL /TEST IF MULTIPLICAND SHOULD BE ADDED 1214 000623 1070 TAD MP2 1215 000624 7110 CLL RAR 1216 000625 3072 DCA MP5 1217 000626 2071 ISZ MP3 /TEST FOR END OF LOOP 1218 000627 5216 JMP MP4 1219 000630 1067 TAD MP1 1220 000631 7010 RAR 1221 000632 7430 MPSN, SZL 1222 000633 5242 JMP COMP 1223 000634 7710 SPA CLA /ROUND UP? 1224 000635 7001 IAC /YES 1225 000636 1072 TAD MP5 1226 000637 7104 CLL RAL /TIMES 2 1227 000640 2200 MPZ, ISZ MULT /EXIT 1228 000641 5600 JMP I MULT 1229 000642 7141 COMP, CMA CLL IAC /COMPLEMENT PRODUCT 1230 000643 7710 SPA CLA /ROUND OFF? 1231 000644 7001 IAC /YES 1232 000645 1072 TAD MP5 1233 000646 7040 CMA 1234 000647 7430 SZL 1235 000650 7001 IAC 1236 000651 7104 CLL RAL /TIMES 2 1237 000652 7500 SMA /DID WE LOSE THE SIGN? 1238 000653 1022 TAD K4000 /YES, RESTORE IT 1239 000654 5240 JMP MPZ 1240 MLTPLY=JMS MULT 1241 / 1242 / 1243 / G=(W^K)*X(P) 1244 / 1245 / 1246 / COMPUTATION SECTION 1247 / 1248 000655 1055 COMPUT,TAD COSK /START ACTUAL COMPUTATIOMS 1249 000656 3263 DCA .+5 1250 000657 1437 TAD I PTR1 1251 000660 7450 SNA 1252 000661 5264 JMP .+3 1253 000662 4200 MLTPLY 1254 000663 0000 000 1255 000664 3077 DCA TEMP /COS(K)*XR(P) 1256 / 1257 000665 1076 TAD SINK 1258 000666 3273 DCA .+5 1259 000667 1441 TAD I PTR3 1260 000670 7450 SNA 1261 000671 5274 JMP .+3 1262 000672 4200 MLTPLY 1263 000673 0000 000 1264 000674 1077 TAD TEMP 1265 000675 3057 DCA GR /GR=COS(K)*XR(P)+SIN(K)*XI(P) 1266 / 1267 000676 1055 TAD COSK 1268 000677 3304 DCA .+5 1269 000700 1441 TAD I PTR3 1270 000701 7450 SNA 1271 000702 5305 JMP .+3 1272 000703 4200 MLTPLY 1273 000704 0000 000 1274 000705 3077 DCA TEMP /COS(K)*XI(P) 1275 / 1276 000706 1076 TAD SINK 1277 000707 3314 DCA .+5 1278 000710 1437 TAD I PTR1 1279 000711 7450 SNA 1280 000712 5316 JMP .+4 1281 000713 4200 MLTPLY 1282 000714 0000 000 1283 000715 7041 CIA /-SIN(K)*XR(P) 1284 000716 1077 TAD TEMP 1285 000717 3056 DCA GI /GI=COS(K)*XI(P)-SIN(K)*XR(P) 1286 / PART 4 1287 / 1288 / X(P)=G+X(Q) 1289 / X(Q)=X(Q)-G 1290 / 1291 000720 1057 COMP0, TAD GR 1292 000721 1440 TAD I PTR2 1293 000722 3437 DCA I PTR1 /XR(P)=GR+XR(Q) 1294 / 1295 000723 1056 TAD GI 1296 000724 1442 TAD I PTR4 1297 000725 3441 DCA I PTR3 /XI(P)=GI+XI(Q) 1298 / 1299 000726 1057 COMP1, TAD GR 1300 000727 7041 CIA 1301 000730 1440 TAD I PTR2 1302 000731 3440 DCA I PTR2 /XR(Q)=XR(Q)-GR 1303 / 1304 000732 1056 TAD GI 1305 000733 7041 CIA 1306 000734 1442 TAD I PTR4 1307 000735 3442 DCA I PTR4 /XI(Q)=XI(Q)-GI 1308 / 1309 / 1310 / 1311 / END COMPUTATION SECTION 1312 / 1313 / 1314 000736 7040 CMA 1315 000737 1047 TAD P 1316 000740 3047 DCA P /P=P-1 1317 / 1318 000741 2043 ISZ C /IS C=S? 1319 000742 7410 SKP /NOT YET 1320 000743 5346 JMP NXTCHK /YES, "DANGER ZONE" 1321 000744 4103 JMS RSET 1322 000745 5255 JMP COMPUT 1323 / 1324 / 1325 / 1326 / 1327 / 1328 000746 1047 NXTCHK,TAD P 1329 000747 7040 CMA 1330 000750 1051 TAD S 1331 000751 7650 SNA CLA /IS P+1=S? 1332 000752 5361 JMP CHKSCL /YES, MAJOR RESET...END OF PASS!!! 1333 000753 1051 TAD S 1334 000754 7041 CIA 1335 000755 1047 TAD P 1336 000756 3047 DCA P /P=P-S 1337 000757 5760 JMP I .+1 1338 000760 0512 MIDPAS 1339 / 1340 / 1341 / 1342 / 1343 / 1344 / 1345 / 1346 000761 1103 CHKSCL,TAD RLPTR /NEED WE SCALE? 1347 000762 3010 DCA AI10 1348 000763 1066 TAD MTWON 1349 000764 3053 DCA CNT1 1350 1351 000765 1410 SCALL, TAD I AI10 1352 000766 7510 SPA /GET ABSOLUTE VALUE 1353 000767 7041 CIA 1354 000770 1030 TAD M2000 1355 000771 7700 SMA CLA /MORE THAN 2000(8)? 1356 000772 5777 JMP SCALE /YES 1357 000773 2053 ISZ CNT1 /ALL CHECKED? 1358 000774 5365 JMP SCALL /NO, KEEP CHECKING 1359 000775 5776 JMP PASSES /YES 1360 / 1361 000776 0511 PAGE 000777 1000 1362 / 1363 / 1364 /SCALING 1365 / SCALE ALL VALUES IN HALF 1366 / 1367 001000 1103 SCALE, TAD RLPTR 1368 001001 3010 DCA AI10 1369 001002 1103 TAD RLPTR 1370 001003 3011 DCA AI11 1371 001004 1066 TAD MTWON 1372 001005 3053 DCA CNT1 1373 / 1374 001006 1410 SCALER,TAD I AI10 /GET UNSCALED VALUE 1375 001007 7510 SPA /IS IT POSITIVE? 1376 001010 5216 JMP NEGSCL /NEGATIVE 1377 001011 7110 HALF /SCALE BY 1/2 1378 001012 3411 PUTBAK,DCA I AI11 /PUT SCALED VALUE IN 1379 001013 2053 ISZ CNT1 /ALL SCALED? 1380 001014 5206 JMP SCALER /NOPE 1381 001015 5777 JMP PASSES /BEGIN NEXT PASS 1382 / 1383 001016 7130 NEGSCL,STL RAR /PRESERVE SIGN 1384 001017 5212 JMP PUTBAK 1385 / 1386 / 1387 / 1388 / 1389 / 1390 / PART 5 1391 / 1392 / AT THIS POINT THE TRANSFORMATION HAS TAKEN PLACE 1393 / BUT THE COEFFICIENTS ARE IN BIT REVERSE ORDER 1394 / SO STRAIGHTEN THEM OUT 1395 / 1396 / 1397 / 1398 / PUT THE COEFFICIENTS IN PROPER NUMERICAL ORDER 1399 / 1400 001020 1046 ORDER, TAD N /Q=N-1 1401 001021 1025 ORDER0,TAD M1 /-1 1402 001022 3050 DCA Q 1403 001023 1050 TAD Q 1404 001024 4776 JMS REVBIT 1405 001025 3047 DCA P 1406 001026 1047 TAD P 1407 001027 7041 CIA 1408 001030 1050 TAD Q 1409 001031 7710 SPA CLA /IS P 1471 / 1472 / SQUARE ALL TERMS 1473 SQUARE=JMS I MULTI 1474 / 1475 001104 1066 MAG1, TAD MTWON 1476 001105 3053 DCA CNT1 1477 001106 1103 TAD RLPTR 1478 001107 3010 DCA AI10 1479 001110 1103 TAD RLPTR 1480 001111 3011 DCA AI11 1481 / 1482 001112 1410 MAG, TAD I AI10 1483 001113 7510 SPA /GET ABS VALUE 1484 001114 7041 CIA 1485 001115 7450 SNA /IS IT 0? 1486 001116 5323 JMP MAGCNT-1 /YES 1487 001117 3322 DCA MAG0 1488 001120 1322 TAD MAG0 1489 001121 4503 SQUARE 1490 001122 0000 MAG0, 000 1491 001123 3411 DCA I AI11 /TERM HAS BEEN SQUARED 1492 001124 2053 MAGCNT,ISZ CNT1 /ALL TERMS? 1493 001125 5312 JMP MAG /NO 1494 / 1495 / 1496 / SUM SQUARED TERMS 1497 001126 1103 TAD RLPTR 1498 001127 3010 DCA AI10 1499 001130 1103 TAD IMPTR 1500 001131 3011 DCA AI11 1501 001132 1103 TAD RLPTR 1502 001133 3012 DCA AI12 1503 / 1504 001134 1065 TAD MN 1505 001135 3053 DCA CNT1 1506 / 1507 001136 1410 MAG2, TAD I AI10 1508 001137 1411 TAD I AI11 /ADD THEM 1509 001140 3412 DCA I AI12 1510 001141 2053 ISZ CNT1 /ALL ADDED? 1511 001142 5336 JMP MAG2 /NO 1512 / 1513 / 1514 / 1515 / 1516 / 1517 / 1518 / PART 6 1519 / 1520 / 1521 /HANN THE FINAL SPECTRUMM 1522 / 1523 001143 7000 HANN2, NOP 1524 001144 1024 TAD KNOP /REMOVE THE MINUS SIGNS 1525 001145 3775 DCA OPR1 1526 001146 1024 TAD KNOP 1527 001147 3774 DCA OPR2 1528 / 1529 001150 3503 HANNPS,DCA I IMAGPT /H(N+1)=0 [LAST VALUE] 1530 001151 1103 TAD REALPT 1531 001152 4773 JMS HANN 1532 / 1533 001153 5772 JMP FINDSP 1534 / 1535 / 1536 001172 1256 PAGE 001173 1200 001174 1236 001175 1212 001176 0554 001177 0511 1537 / 1538 / 1539 / HANNING PROCESS 1540 / EQUATION 1541 / H'(N)=[+-](1/4)*H(N-1) +(1/2)*H(N) [+-](1/4)*H(N+1) 1542 / 1543 001200 0000 HANN, 0 1544 001201 3037 DCA PTR1 1545 001202 3077 DCA TEMP /=0 1546 001203 1065 TAD MN 1547 001204 3053 DCA CNT1 1548 001205 1077 H0, TAD TEMP /H(N-1) 1549 001206 7510 SPA 1550 001207 5246 JMP NEG1 1551 001210 7110 HALF 1552 001211 7110 HALF / (1/4) 1553 001212 7402 OPR1, HLT /SET TO CIA OR NOP 1554 001213 3060 H1, DCA HAN1 1555 001214 1437 TAD I PTR1 /H(N) 1556 001215 3077 DCA TEMP /H(N-1) NEXT TIME 1557 001216 1077 TAD TEMP 1558 001217 7510 SPA 1559 001220 5251 JMP NEG2 1560 001221 7110 HALF / (1/2) 1561 001222 3061 H2, DCA HAN2 1562 001223 2037 ISZ PTR1 1563 001224 1437 TAD I PTR1 /H(N+1) 1564 001225 3100 DCA TTEMP 1565 001226 7040 CMA 1566 001227 1037 TAD PTR1 1567 001230 3037 DCA PTR1 1568 001231 1100 TAD TTEMP 1569 001232 7510 SPA 1570 001233 5253 JMP NEG3 1571 001234 7110 HALF 1572 001235 7110 HALF / (1/4) 1573 001236 7402 OPR2, HLT /SET TO CIA OR NOP 1574 001237 1060 H3, TAD HAN1 1575 001240 1061 TAD HAN2 1576 001241 3437 DCA I PTR1 /STORE HANNED TERM 1577 001242 2037 ISZ PTR1 1578 001243 2053 ISZ CNT1 /HANN JOB DONE? 1579 001244 5205 JMP H0 /NO, KEEP HANNING 1580 001245 5600 JMP I HANN /YES, EXIT 1581 / 1582 001246 7130 NEG1, STL RAR /NEGATIVE SCALING ROUTINES 1583 001247 7130 STL RAR /PRESERVE THE SIGN BIT 1584 001250 5212 JMP OPR1 1585 / 1586 001251 7130 NEG2, STL RAR 1587 001252 5222 JMP H2 1588 / 1589 001253 7130 NEG3, STL RAR 1590 001254 7130 STL RAR 1591 001255 5236 JMP OPR2 1592 / 1593 / 1594 / 1595 / 1596 / 1597 / 1598 / 1599 / 1600 / DISPLAY OF FINAL RESULTS 1601 / THE POWER SPECTRUM 1602 / 1603 / KNOB 34 CONTROLS VERTICAL SCALING 1604 / KNOB 35 CONTROLS HORIZONTAL SCALING 1605 / KNOB 36 CONTROLS STARTING VALUE OF FREQUENCY 1606 / 1607 / BIT 9 UP MEANS DRAW HISTOGRAM FORM 1608 / BIT 10 UP MEANS KEEP DISPLAYING 1609 / 1610 001256 7300 FINDSP,CLR 1611 001257 1015 TAD K34 1612 001260 6371 ACMX 1613 001261 4360 JMS SAM 1614 001262 0023 AND K700 1615 001263 7112 CLL RTR 1616 001264 7012 RTR 1617 001265 7012 RTR 1618 001266 7040 CMA 1619 001267 3075 DCA SCLCNT /MINUS(0-7) FOR VERT SCALE 1620 001270 4360 JMS SAM /CHANNEL 35 1621 001271 7112 CLL RTR 1622 001272 7012 RTR 1623 001273 0017 AND K37 1624 001274 7450 SNA 1625 001275 1020 TAD K40 1626 001276 3101 DCA WINC /0-40 FOR HORIZ SCALE 1627 001277 4360 JMS SAM /CHANNEL 36 1628 001300 7104 CLL RAL 1629 001301 3102 DCA WSTART /0-2000 FOR STARTING ADDRESS 1630 / 1631 / 1632 001302 1103 TAD RLPTR /WHERE FINAL SPECTRUM IS 1633 001303 1102 TAD WSTART 1634 001304 3010 DCA AI10 /POINTS TO COEFFICIENTS 1635 001305 6303 SPCDIS,DXCDXL /ACTUAL SPECTRAL DISPLAY 1636 001306 3062 DCA HORIZ 1637 001307 1075 TAD SCLCNT 1638 001310 3053 DCA CNT1 1639 001311 1410 TAD I AI10 /GET THE COEFFICIENT 1640 001312 7410 SKP /1ST TIME 1641 001313 7104 CLL RAL /*2 (SCALING 1642 001314 2053 ISZ CNT1 /ANY SCALING TO BE DONE? 1643 001315 5313 JMP .-2 /YES 1644 001316 1032 TAD M400 /NO, SHIFT FOR SCOPE 1645 001317 6314 DISY /DISPLAY THE POINT 1646 001320 3077 DCA TEMP /SAVE IT, JUST IN CASE 1647 001321 7404 OSR 1648 001322 7012 RTR 1649 001323 7010 RAR 1650 001324 7630 SZL CLA /IS BIT 9 UP? 1651 001325 5344 JMP HIST /YES, DRAW A HISTOGRAM 1652 001326 1101 NXTDIS,TAD WINC /NO,SET FOR NEXT 1653 001327 1062 TAD HORIZ 1654 001330 1026 TAD M1000 1655 001331 7500 SMA /PAST THE END OF THE SCREEN? 1656 001332 5335 JMP CHKDIS /YES 1657 001333 1013 TAD K1000 /NO, RESTORE X POSITION 1658 001334 5305 JMP SPCDIS /KEEP DISPLAYING POINTS 1659 / 1660 / 1661 001335 7604 CHKDIS,LAS /SHOULD WE REFRESH THE DISPLAY? 1662 001336 7012 RTR 1663 001337 7430 SZL /IS BIT 10 UP? 1664 001340 5256 JMP FINDSP /YES, RESTART THE DISPLAY 1665 001341 7000 NOP /NO,END OF ANALYSIS!!! 1666 001342 5743 JMP I .+1 1667 001343 0200 START /GLUTTON FOR PUNISHMENT! 1668 / 1669 / 1670 001344 1077 HIST, TAD TEMP 1671 001345 7500 SMA /IS IT NEGATIVE? 1672 001346 5354 JMP HISDIS /NO 1673 001347 7041 CIA /YES, HOW MUCH SO? 1674 001350 1032 TAD M400 1675 001351 7700 SMA CLA /LESS THAN -400? 1676 001352 5326 JMP NXTDIS /YES, DONE WITH THIS LINE 1677 001353 1077 TAD TEMP /NO 1678 001354 1031 HISDIS,TAD M4 /DECREMENT POINT BY 4 1679 001355 6314 DISY 1680 001356 3077 DCA TEMP /SAVE IT 1681 001357 5344 JMP HIST /KEEP DRAWING 1682 / 1683 / 1684 / 1685 001360 0000 SAM, 0 /READ THIS CHANNEL 1686 001361 6364 ADCV 1687 001362 6332 SKAD 1688 001363 5362 JMP .-1 1689 001364 6362 RADC 1690 001365 6361 ICMX 1691 001366 7500 SMA /NEGATIVE? 1692 001367 7001 IAC /NO, ADD 1 1693 001370 1021 TAD K400 /LEAVE WITH 0<=AC<=1000 1694 001371 5760 JMP I SAM 1695 / 1696 / 1697 / 1698 $ ACMX 6371 ADCV 6364 ADDER 0354 unreferenced AI10 0010 AI11 0011 AI12 0012 C 0043 CHANNE 0052 CHECKQ 1063 CHKDIS 1335 CHKSCL 0761 CLKSAM 0246 CLR 7300 CLRK 6354 CNEN 0036 CNT1 0053 CNT3 0054 COMP 0642 COMP0 0720 unreferenced COMP1 0726 unreferenced COMPUT 0655 COS1 0547 COS2 0542 COSINE 0533 unreferenced COSK 0055 CVEN 0034 DIS1 0272 DISPLA 0276 DISY 6314 DXC 6301 DXCDXL 6303 DXL 6302 ENDISP 0316 ENDSAM 0264 FINDSP 1256 GI 0056 GR 0057 H0 1205 H1 1213 unreferenced H2 1222 H3 1237 unreferenced HALF 7110 HAN1 0060 HAN2 0061 HANN 1200 HANN1 1066 unreferenced HANN1I 1100 unreferenced HANN1R 1073 unreferenced HANN2 1143 unreferenced HANNPS 1150 unreferenced HAVINT 0524 HIGH2 0421 HISDIS 1354 HIST 1344 HORIZ 0062 ICMX 6361 IMAGPT 0103 IMPTR 0103 INDISP 0265 INTPRT 0513 unreferenced K 0044 K1000 0013 K200 0014 K34 0015 K3537 0016 K37 0017 K40 0020 K400 0021 K4000 0022 K700 0023 KNOP 0024 KPI2 0063 L 0045 LOOP1 0345 LOW2 0400 unreferenced M1 0025 M1000 0026 M200 0027 M2000 0030 M4 0031 M400 0032 MAG 1112 MAG0 1122 MAG1 1104 unreferenced MAG2 1136 MAGCNT 1124 MIDPAS 0512 MLTPLY 4200 MMU 0064 MN 0065 MOVE2H 0426 MOVE2L 0402 MP1 0067 MP2 0070 MP3 0071 MP4 0616 MP5 0072 MPSN 0632 MPZ 0640 MTWO 0033 MTWON 0066 MU 0103 MULT 0600 MULTI 0103 N 0046 NEG1 1246 NEG2 1251 NEG3 1253 NEGATE 0103 NEGSCL 1016 NXTCHK 0746 NXTDIS 1326 OFFSET 0073 OPR1 1212 OPR2 1236 ORDER 1020 ORDER0 1021 OTEN 6344 P 0047 PASS1 0344 unreferenced PASS2 0377 PASSES 0511 PI 2577 unreferenced PIHALF 2177 unreferenced PTR1 0037 PTR2 0040 PTR3 0041 PTR4 0042 PUTBAK 1012 Q 0050 QUADI 0074 R1 0035 RADC 6362 REALPT 0103 REVBIT 0554 RLPTR 0103 ROT 0561 RSET 0103 S 0051 SAM 1360 SAMPLR 0216 unreferenced SCALE 1000 SCALER 1006 SCALL 0765 SCLCNT 0075 SETMUP 0473 SETSS 0447 SINE 0526 unreferenced SINK 0076 SKAD 6332 SKRK 6341 SPCDIS 1305 SQUARE 4503 STAGE1 0322 unreferenced START 0200 TEMP 0077 THIR 0103 TIKSAM 0253 TIMSAM 0232 TRIGPT 0103 TTEMP 0100 WINC 0101 WSTART 0102 ZEROPI 1600 unreferenced ZSCAL 0552 ZTEN 6342