1 2 / BUZZTAPE WRITER - OCT 69 3 ZTEN=6342 4 OTEN=6344 5 *7625 6 007625 7300 START, CLA CLL 7 007626 7604 LAS / GET INITIAL ADDRESS 8 007627 3251 DCA BEG / SET ADDRESS REGISTER 9 007630 7402 HLT 10 007631 7604 LAS / GET FINAL ADDRESS 11 007632 7040 CMA 12 007633 1251 TAD BEG / CALCULATE BLOCK LENGTH 13 007634 3252 DCA NUM / SET COUNTER FOR 14 007635 7402 HLT / BLOCK LENGTH 15 007636 1253 TAD ADCODE 16 007637 4277 JMS PRINT / OUTPUT ADDRESS CODE 17 007640 1251 TAD BEG 18 007641 4254 JMS WRITE / OUTPUT INITIAL ADDRESS 19 007642 1651 TAD I BEG / GET DATA WORD 20 007643 4254 JMS WRITE / OUTPUT DATA WORD 21 007644 2251 ISZ BEG / INCREMENT ADDRESS 22 007645 2252 ISZ NUM / DONE WITH BLOCK? 23 007646 5242 JMP .-4 / NO, GET NEXT WORD 24 007647 7402 HLT / YES, PREPARE FOR 25 007650 5225 JMP START / NEXT BLOCK 26 007651 0000 BEG, 0 / ADDRESS REGISTER 27 007652 0000 NUM, 0 28 007653 0040 ADCODE, 40 29 007654 0000 WRITE, 0 / WORD OUTPUT ROUTINE 30 007655 3272 DCA WRHOLD / STORE DATA WORD 31 007656 1273 TAD M14 32 007657 3274 DCA SET / INITIALIZE COUNTER 33 007660 1272 NEXT, TAD WRHOLD 34 007661 7004 RAL / ROTATE FIRST DATA BIT 35 007662 3272 DCA WRHOLD / INTO LINK 36 007663 7430 SZL / IS THE BIT A '1'? 37 007664 1276 TAD BIT / YES, GET BIT CODE 38 007665 1275 TAD SYNCH / NO, OUTPUT SYNCH CODE 39 007666 4277 JMS PRINT / ALONE 40 007667 2274 ISZ SET / DONE WITH WORD? 41 007670 5260 JMP NEXT / NO, GET NEXT BIT 42 007671 5654 JMP I WRITE / YES, RETURN 43 007672 0000 WRHOLD, 0 44 007673 7764 M14, -14 45 007674 0000 SET, 0 46 007675 0020 SYNCH, 20 47 007676 0040 BIT, 40 48 007677 0000 PRINT, 0 / OUTPUT ROUTINE 49 007700 6342 ZTEN / SET CONTINGENCY 50 007701 6344 OTEN / OUTPUTS 51 007702 1315 TAD DELY1 52 007703 3317 DCA DELY3 / LEAVE ON FOR 53 007704 2317 ISZ DELY3 / 0.1 MSEC 54 007705 5304 JMP .-1 55 007706 6342 ZTEN / CLEAR OUTPUTS 56 007707 6344 OTEN 57 007710 1316 TAD DELY2 58 007711 3317 DCA DELY3 59 007712 2317 ISZ DELY3 / WAIT FOR 0.2 MSEC 60 007713 5312 JMP .-1 / INTERPULSE INTERVAL 61 007714 5677 JMP I PRINT 62 007715 7752 DELY1, 7752 63 007716 7724 DELY2, 7724 64 007717 0000 DELY3, 0 65 $ ADCODE 7653 BEG 7651 BIT 7676 DELY1 7715 DELY2 7716 DELY3 7717 M14 7673 NEXT 7660 NUM 7652 OTEN 6344 PRINT 7677 SET 7674 START 7625 SYNCH 7675 WRHOLD 7672 WRITE 7654 ZTEN 6342