5000 FIXMRI FGET=5000 6000 FIXMRI FPUT=6000 1000 FIXMRI FADD=1000 2000 FIXMRI FSUB=2000 0000 FIXMRI FJMP=0000 3000 FIXMRI FMPY=3000 4000 FIXMRI FDIV=4000 0013 FFIX=0013 0014 FLOT=0014 0002 FSQR=0002 0001 FSQU=0001 0000 FISZ=0000 7001 FCDF=7001 7100 FSPA=7100 0000 FEXT=0000 0070 *70 00070 0000 TYPE, 0 00071 6041 TSF 00072 5071 JMP .-1 /WAIT TILL TTY IS READY 00073 6046 TLS 00074 7200 CLA 00075 5470 JMP I TYPE /RETURN 00076 0000 CRLF, 0 00077 1177 TAD (215 /CR 00100 4070 JMS TYPE 00101 1176 TAD (212 /LF 00102 4070 JMS TYPE 00103 5476 JMP I CRLF /RETURN 0160 *160 00160 0000 N, 0 00161 0000 T, 0 00162 0000 M, 0 00163 0000 K, 0 00164 0000 L, 0 00165 0000 P, 0 00166 0000 NN, 0 0200 *200 00200 7300 CLA CLL /INITIALIZE TTY 00201 6046 TLS 00202 6032 KCC 00203 1377 TAD (N 00204 3345 DCA R1 00205 1376 TAD (7772 /INITIALIZE LOOP 00206 3347 DCA CNT 00207 1375 TAD (ADDR 00210 3346 DCA R2 00211 4076 LOOP, JMS CRLF 00212 1746 TAD I R2 /LOOP TYPES 00213 4774' JMS PRINT /QUESTIONS 00214 4773' JMS LISTN /ON THE TTY 00215 3745 DCA I R1 /STORES 00216 2345 ISZ R1 /ESPONCES 00217 2346 ISZ R2 / IN LOCATIONS 00220 2347 ISZ CNT /N THRU P 00221 5211 JMP LOOP 00222 1165 TAD P 00223 7440 SZA 00224 5227 JMP .+3 /JULP IF POLARITY IS + 00225 1372 TAD (7041 /CIA INSTRUCTUON CO@E 00226 3771' DCA S0 /PUT IN SAMPLE ROUTINE 00227 7200 CLA 00230 1160 TAD N 00231 7041 CIA 00232 3166 DCA NN 00233 1163 TAD K 00234 7006 RTL 00235 7004 RAL 00236 1370 TAD (6201 /SET UP CDF INSTRUCTION 00237 3767' DCA S1 00240 5766 JMP I (400 00241 1625 Q1, TEXT /NUMBER OF SAMPLES:/ 00242 1502 00243 0522 00244 4017 00245 0640 00246 2301 00247 1520 00250 1405 00251 2372 00252 0000 00253 2301 Q2, TEXT /SAMPLE INTERVAL IN MSEC:/ 00254 1520 00255 1405 00256 4011 00257 1624 00260 0522 00261 2601 00262 1440 00263 1116 00264 4015 00265 2305 00266 0372 00267 0000 00270 0310 Q3, TEXT /CHANNEL NUMBER:/ 00271 0116 00272 1605 00273 1440 00274 1625 00275 1502 00276 0522 00277 7200 00300 2301 Q4, TEXT /SAMPLES STORED IN FIELD:/ 00301 1520 00302 1405 00303 2340 00304 2324 00305 1722 00306 0504 00307 4011 00310 1640 00311 0611 00312 0514 00313 0472 00314 0000 00315 2324 Q5, TEXT /STARTING AT LOCATION:/ 00316 0122 00317 2411 00320 1607 00321 4001 00322 2440 00323 1417 00324 0301 00325 2411 00326 1716 00327 7200 00330 2017 Q6, TEXT /POLARITY OF START PULSE:/ 00331 1401 00332 2211 00333 2431 00334 4017 00335 0640 00336 2324 00337 0122 00340 2440 00341 2025 00342 1423 00343 0572 00344 0000 00345 0000 R1, 0 00346 0000 R2, 0 00347 0000 CNT, 0 00350 0241 ADDR, Q1 00351 0253 Q2 00352 0270 Q3 00353 0300 Q4 00354 0315 Q5 00355 0330 Q6 00366 0400 00367 0445 00370 6201 00371 0420 00372 7041 00373 0600 00374 0631 00375 0350 00376 7772 00377 0160 0400 *400 00400 7200 CLA 00401 6221 CDF 20 /ZERO OUT 00402 1377 TAD (2400 /THE 00403 3320 DCA DA /DISPLAY 00404 3720 DCA I DA /BUFFER 00405 2320 ISZ DA 00406 5204 JMP .-2 00407 6500 6500 /START UP ADC 00410 6506 6506 /RE@D CHANNEL 0 00411 7000 NOP 00412 7000 NOP 00413 7000 NOP 00414 7000 NOP 00415 6505 6505 /WAIT FOR START PULSE 00416 6501 6501 00417 5216 JMP .-1 00420 7000 S0, NOP /CHANFE@ TO CIA ON - POLARTY 00421 1376 TAD (7463 00422 7710 SPA CLA 00423 5215 JMP .-6 00424 1162 SAMPLE, TAD M 00425 6506 6506 /SAMPLE CHANNEL M 00426 7000 NOP 00427 7000 NOP 00430 7000 NOP 00431 7000 NOP 00432 6505 6505 00433 6501 6501 /WAIT FOR SAMPLE 00434 5233 JMP .-1 00435 7100 CLL 00436 7500 SMA 00437 5243 JMP POS /JUMP IF SAMPLE IP POSITIVE 00440 7130 STL RAR 00441 7130 STL RAR /DIVIDE BY 4 00442 5245 JMP .+3 00443 7110 POS, CLL RAR 00444 7010 RAR 00445 6211 S1, CDF 10 /SEL@CT DATA FIELD K 00446 3564 DCA I L /SAVE SAMPL@ 00447 1564 TAD I L 00450 6221 CDF 20 00451 3564 DCA I L /SAVE IN FIELD 2 ALSO 00452 6201 CDF 0 00453 2164 ISZ L 00454 2166 ISZ NN 00455 5257 JMP .+2 00456 5261 JMP S2 00457 4302 JMS DELAY 00460 5224 JMP SAMPLE /TAKE NEXT SAMPLE 00461 7100 S2, CLL 00462 6211 CDF 10 /SET UP 00463 1160 TAD N 00464 3775 DCA I (20 /FOR FFT 00465 1374 TAD (-1 00466 3773 DCA I (21 00467 1160 TAD N /ROUTINE 00470 7010 RAR 00471 2773 ISZ I (21 00472 7440 SZA 00473 5270 JMP .-3 00474 6212 CIF 10 00475 4772 JMS I (150 /DO FFT ON SAMPLES 00476 6201 CDF 0 00477 4771' JMS POWER /COMPUTE THE COEF SQUARED 00500 4770 JMS I (3400 /DISPLAY 00501 7402 HLT 00502 0000 DELAY, 0 00503 1161 TAD T 00504 7041 CIA 00505 3317 DCA TC 00506 1367 TAD (7435 /1ST TIME DDLAY ONLY .967 MSEC 00507 3320 DCA DA 00510 2320 ISZ DA 00511 5310 JMP .-1 /DELAY 00512 1366 TAD (7375 / DELAY 1MSEC 00513 3320 DCA DA 00514 2317 ISZ TC 00515 5310 JMP .-5 / DELAY SOME MORE 00516 5702 JMP I DELAY 00517 0000 TC, 0 00520 0000 DA, 0 00566 7375 00567 7435 00570 3400 00571 1000 00572 0150 00573 0021 00574 7777 00575 0020 00576 7463 00577 2400 0600 *600 00600 0000 LISTN, 0 00601 7300 CLA CLL 00602 3260 DCA NEXT 00603 6031 L1, KSF 00604 5203 JMP L1 /WAIT FOR A CHAR 00605 6036 KRB 00606 6046 TLS /READ AND ECHO CHAR 00607 1377 TAD (7530 /-250 00610 7510 SPA 00611 5224 JMP LISTRN 00612 1376 TAD (7770 /-10 00613 7500 SMA 00614 5217 JMP .+3 / JUMP IF A NUMBER 00615 1375 TAD (5 /AC=0 IF MINUS AC=2 IF POSITIVE 00616 0374 AND (7 00617 1260 TAD NEXT 00620 7006 RTL 00621 7004 RAL 00622 3260 DCA NEXT / SAVE NUMBER*8 00623 5203 JMP L1 00624 7200 LISTRN, CLA 00625 1260 TAD NEXT 00626 7010 RAR 00627 7012 RTR 00630 5600 JMP I LISTN /RET@RN WITH NIMBER IN AC 00631 0000 PRINT, 0 00632 3260 DCA NEXT 00633 1660 PRT, TAD I NEXT 00634 7002 BSW 00635 0373 AND (77 /GET 1ST CHAR 00636 7450 SNA 00637 5631 JMP I PRINT /RETURN IF DONE 00640 1372 TAD (-40 00641 7510 SPA 00642 1371 TAD (100 00643 1370 TAD (240 /MAKE 8 B@T ASCII CODE 00644 4070 JMS TYPE 00645 1660 TAD I NEXT 00646 0373 AND (77 /GET 2ND CHAR 00647 7450 SNA 00650 5631 JMP I PRINT /RETURN IF DONE 00651 1372 TAD (-40 00652 7510 SPA 00653 1371 TAD (100 00654 1370 TAD (240 00655 4070 JMS TYPE /TYPE CHAP 00656 2260 ISZ NEXT 00657 5233 JMP PRT 00660 0000 NEXT, 0 00770 0240 00771 0100 00772 7740 00773 0077 00774 0007 00775 0005 00776 7770 00777 7530 1000 *1000 01000 0000 POWER, 0 01001 7300 CLA CLL 01002 1160 TAD N 01003 7010 RAR 01004 7041 CIA 01005 3351 DCA NCOUNT 01006 1377 TAD (2400 01007 3336 DCA S 01010 1376 TAD (1600 /INITIALIZATION 01011 3337 DCA TEMP 01012 6211 P1, CDF 10 01013 1736 TAD I S /GET REAL PART 01014 6201 CDF 0 01015 3044 DCA 44 01016 4407 JMS I 7 01017 0014 FLOT 01020 0001 FSQU /SQUARE IT 01021 6343 FPUT STEMP /SAVE TEMPORARILY 01022 0000 FEXT 01023 2336 ISZ S 01024 6211 CDF 10 01025 1736 TAD I S /GET IMAG PART 01026 6201 CDF 0 01027 3044 DCA 44 01030 4407 JMS I 7 01031 0014 FLOT 01032 0001 FSQU /SQUARE IT 01033 1343 FADD STEMP /ADD REAL PART 01034 7031 FCDF 30 01035 6737 FPUT I TEMP /SAVE IN FIELD 3 01036 5737 FGET I TEMP 01037 7001 FCDF 0 01040 2340 FSUB SMAX /CHECK FOR MAX VALUE 01041 7100 FSPA 01042 0245 FJMP .+3 /JUMP IF NOT > MAX VZLUE 01043 1340 FADD SMAX 01044 6340 FPUT SMAX /SAVE NEW MAX VALUE 01045 0000 FEXT 01046 6201 CDF 0 01047 2337 ISZ TEMP 01050 2337 ISZ TEMP 01051 2337 ISZ TEMP 01052 2336 ISZ S 01053 2351 ISZ NCOUNT /INCREMENY COUNTER 01054 5212 JMP P1 01055 1160 TAD N 01056 7010 RAR 01057 7041 CIA 01060 3351 DCA NCOUNT 01061 1376 TAD (1600 /REINITIALIZE 01062 3337 DCA TEMP 01063 1375 TAD (4400 01064 3336 DCA S 01065 4407 P2, JMS I 7 01066 5340 FGET SMAX 01067 0002 FSQR 01070 6340 FPUT SMAX 01071 7031 FCDF 30 01072 5737 FGET I TEMP /GET COEF SQUARED 01073 7001 FCDF 0 01074 0002 FSQR 01075 4340 FDIV SMAX /DIVIDE BY MAX VALUE 01076 3346 FMPY NUMB /MULTIPLY BY 2047 01077 0013 FFIX 01100 0000 FEXT 01101 6221 CDF 20 01102 1044 TAD 44 01103 3736 DCA I S /STORE IN BUFFER 01104 6201 CDF 0 01105 2337 ISZ TEMP 01106 2337 ISZ TEMP 01107 2337 ISZ TEMP 01110 2336 ISZ S 01111 2351 ISZ NCOUNT 01112 5265 JMP P2 /DO NEXT COEF 01113 7300 CLA CLL 01114 1160 TAD N 01115 7010 RAR 01116 7041 CIA 01117 3351 DCA NCOUNT / N/2 01120 1336 TAD S 01121 1374 TAD (-1 01122 3337 DCA TEMP 01123 6221 CDF 20 01124 1737 P3, TAD I TEMP /SAVE MIRROR 01125 3736 DCA I S /IMAGE OF COEF 01126 2336 ISZ S 01127 1337 TAD TEMP 01130 1374 TAD (-1 01131 3337 DCA TEMP 01132 2351 ISZ NCOUNT 01133 5324 JMP P3 01134 6201 CDF 0 01135 5600 JMP I POWER /RETURN 01136 2400 S, 2400 01137 1600 TEMP, 1600 01140 0000 SMAX, 0;0;0 01141 0000 01142 0000 01143 0000 STEMP, 0;0;0 01144 0000 01145 0000 01146 0013 NUMB, 0013;3777;0000 01147 3777 01150 0000 01151 0000 NCOUNT, 0 01174 7777 01175 4400 01176 1600 01177 2400 00176 0212 00177 0215 0001 FIELD 1 0150 *150 0060 DOFFT=60 0054 SORT=54 10150 0000 FFT, 0 10151 6211 CDF 10 10152 4460 JMS I DOFFT 10153 4454 JMS I SORT 10154 6202 CIF 0 10155 5550 JMP I FFT /RETURN $ ADDR 0350 S0 0420 CNT 0347 S1 0445 CRLF 0076 S2 0461 DA 0520 T 0161 DELAY 0502 TC 0517 DOFFT 0060 TEMP 1137 FADD 1000 TYPE 0070 FCDF 7001 FDIV 4000 FEXT 0000 FFIX 0013 FFT 0150 FGET 5000 FISZ 0000 FJMP 0000 FLOT 0014 FMPY 3000 FPUT 6000 FSPA 7100 FSQR 0002 FSQU 0001 FSUB 2000 K 0163 L 0164 LISTN 0600 LISTRN 0624 LOOP 0211 L1 0603 M 0162 N 0160 NCOUNT 1151 NEXT 0660 NN 0166 NUMB 1146 P 0165 POS 0443 POWER 1000 PRINT 0631 PRT 0633 P1 1012 P2 1065 P3 1124 Q1 0241 Q2 0253 Q3 0270 Q4 0300 Q5 0315 Q6 0330 R1 0345 R2 0346 S 1136 SAMPLE 0424 SMAX 1140 SORT 0054 STEMP 1143 ERRORS DETECTED: 0 LINKS GENERATED: 5