BITS

SUBR BITS REV B 27-9-70 El 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