1 2 / BUZZTAPE READER - OCT 69 3 XRCL=6334 4 XRIN=6331 5 *7625 6 007625 7040 START, CMA 7 007626 6334 XRCL / CLEAR EXTERNAL 8 007627 7300 CLA CLL / REGISTER 9 007630 4314 JMS LISN / GET PULSE 10 007631 4275 JMS ADTEST / ADDRESS CODE? 11 007632 5230 JMP .-2 / YES 12 007633 3271 DCA GETHLD / NO, STORE PULSE 13 007634 1272 TAD CNTRN 14 007635 3273 DCA CNTR / SET UP TO COUNT BITS 15 007636 3274 DCA VALUE / CLEAR DATA REGISTER 16 007637 7100 CLL 17 007640 1271 TAD GETHLD / GET FIRST BIT 18 007641 7006 GO, RTL 19 007642 7004 RAL / ROTATE INTO BIT 11 AND 20 007643 7100 CLL / CLEAN OFF SYNCH PULSE 21 007644 3271 DCA GETHLD / STORE RESULT 22 007645 1274 TAD VALUE / GET DATA WORD 23 007646 7004 RAL 24 007647 1271 TAD GETHLD / ADD IN NEXT BIT 25 007650 3274 DCA VALUE 26 007651 2273 ISZ CNTR / 12 BITS YET? 27 007652 5255 JMP .+3 28 007653 1274 TAD VALUE / YES, GET WHOLE WORD 29 007654 5257 JMP .+3 / GO TO PROCESSING 30 007655 4314 JMS LISN / NO, GET NEXT BIT 31 007656 5241 JMP GO 32 007657 7000 BRANCH, NOP / PROCESSING BRANCH 33 007660 3670 DCA I ADD / DEPOSIT AS DATA 34 007661 2270 ISZ ADD / INCREMENT ADDRESS 35 007662 5227 JMP START+2 36 007663 3270 ADDRS, DCA ADD / DEPOSIT AS ADDRESS 37 007664 1267 TAD NORP 38 007665 3257 DCA BRANCH / SET BRANCH FOR DATA 39 007666 5227 JMP START+2 40 007667 7000 NORP, NOP 41 007670 0000 ADD, 0 / ADDRESS REGISTER 42 007671 0000 GETHLD, 0 43 007672 7764 CNTRN, -14 44 007673 0000 CNTR, 0 45 007674 0000 VALUE, 0 46 007675 0000 ADTEST, 0 / ROUTINE FOR SENSING 47 007676 3311 DCA ADHOLD / ADDRESS CODE 48 007677 1311 TAD ADHOLD 49 007700 1312 TAD ADKEY 50 007701 7640 SZA CLA / ADDRESS CODE? 51 007702 5306 JMP .+4 52 007703 1313 TAD ADPACH / YES, SET BRANCH FOR 53 007704 3257 DCA BRANCH / ADDRESS CHANGE 54 007705 5675 JMP I ADTEST 55 007706 2275 ISZ ADTEST 56 007707 1311 TAD ADHOLD / NO, GET PULSE AND 57 007710 5675 JMP I ADTEST / RETURN 58 007711 0000 ADHOLD, 0 59 007712 6000 ADKEY, -2000 60 007713 5263 ADPACH, JMP ADDRS 61 007714 0000 LISN, 0 62 007715 1334 TAD SPD / SET UP FOR 63 007716 3335 DCA WAIT / 50 USEC LAG 64 007717 6331 XRIN / LOOK FOR PULSE 65 007720 6334 XRCL 66 007721 7450 SNA / SEE ONE? 67 007722 5317 JMP .-3 / NO, LOOK AGAIN 68 007723 3336 DCA HOLD / YES, STORE PULSE 69 007724 6331 XRIN 70 007725 6334 XRCL 71 007726 7440 SZA 72 007727 5332 JMP .+3 / WAIT FOR 50 USEC 73 007730 2335 ISZ WAIT / OR ANOTHER PULSE 74 007731 5324 JMP .-5 75 007732 1336 TAD HOLD / ADD FIRST PULSE 76 007733 5714 JMP I LISN / TO SECOND PULSE, 77 007734 7775 SPD, 7775 / IF ANY, AND RETURN 78 007735 0000 WAIT, 0 79 007736 0000 HOLD, 0 80 $ ADD 7670 ADDRS 7663 ADHOLD 7711 ADKEY 7712 ADPACH 7713 ADTEST 7675 BRANCH 7657 CNTR 7673 CNTRN 7672 GETHLD 7671 GO 7641 HOLD 7736 LISN 7714 NORP 7667 SPD 7734 START 7625 VALUE 7674 WAIT 7735 XRCL 6334 XRIN 6331