SUBR BITS REV B 27 PAGE 1

0001 SUBR BITS REV B 27-9-70 El 0002 * RECEIVES BIT PATTERN FROM MAIN PROG- 0003 * RAMME AND TYPES IT OUT. 0004 * "." BIT NOT SET "1" BIT SET. 0005 * 0006 REL 0007 00000 0 000000 BITS DAC ** 0008 00001 0 04 00044 STA SAVA SAVE PATTERN 0009 00002 140040 CRA 0010 00003 74 0020 SMK '20 0011 00004 0 02 00052 LDA =-16 0012 00005 0 04 00045 STA M16 SET UP CONTER 0013 00006 34 0104 SKS '104 0014 00007 0 01 00006 JMP *-1 0015 00010 14 0104 OCP '104 0016 00011 140040 CRA 0017 00012 0 10 00000 CALL TYP2 0018 00013 0 02 00051 LDA ='106612 0019 00014 0 10 00000 CALL TYP2 0020 00015 0 02 00044 LOOP LDA SAVA GET PATTERN 0021 00016 100400 SPL 0022 00017 0 01 00024 JMP SET IT IS SET 0023 00020 0 02 00050 LDA ='256 NOT SET 0024 00021 74 0004 OTA 4 0025 00022 0 01 00021 JMP *-1 0026 00023 0 01 00027 JMP IRS 0027 00024 0 02 00047 SET LDA ='261 0028 00025 74 0004 OTA 4 0029 00026 0 01 00025 JMP *-1 0030 00027 0 02 00044 IRS LDA SAVA 0031 00030 0416 77 ALR 1 ROTATE 1 BIT 0032 00031 0 04 00044 STA SAVA 0033 00032 0 12 00045 IRS M16 0034 00033 0 01 00015 JMP LOOP 0035 00034 0 02 00051 LDA ='106612 0036 00035 0 10 00000 CALL TYP2 0037 00036 34 0104 SKS '104 0038 00037 0 01 00036 JMP *-1 0039 00040 14 0004 OCP 4 0040 00041 0 02 00046 LDA ='40 0041 00042 74 0020 SMK '20 0042 00043 -0 01 00000 JMP* BITS 0043 * 0044 00044 000000 SAVA BSZ 1 0045 00045 000000 M16 BSZ 1 COUNTER 0046 00046 000040 END 00047 000261 00050 000256 00051 106612 00052 177760 BITS 000000 IRS 000027 LOOP 000015 M16 000045 SAVA 000044 SET 000024 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71