C$BB

* PAGE 1

0001 * 0002 * 0003 SUBR C$BB CONVERT BINARY TO BCI 0004 * 0005 * 0006 CF5 H316 AND DDP-516 0007 REL RELOCATABLE 0008 * 0009 * 0010 00000 0 000000 C$BB DAC ** RETURN ADDRESS 0011 * 0012 * NUMBER TO CONVERT MODULO 10,000 0013 00001 0 07 00047 SUB =10000 0014 00002 101400 SMI TEST LESS THAN 10,000 0015 00003 0 01 00001 JMP *-2 NO 0016 00004 0 06 00047 ADD =10000 RESTORE NUMBER MODULO 10,000 0017 * 0018 00005 -0 35 00000 LDX* C$BB BUFFER ADDRESS 0019 00006 0 12 00000 IRS C$BB RETURN ADDRESS 0020 00007 1 04 00000 STA 0,1 NO. 0021 00010 0 10 00015 JST WORD WORD 0022 00011 1 04 00001 STA 1,1 BUFFER WORD 0023 00012 0 10 00015 JST WORD WORD 0024 00013 1 04 00000 STA 0,1 BUFFER WORD 0025 00014 -0 01 00000 JMP* C$BB RETURN 0026 * 0027 * WORD 0028 00015 0 000000 WORD DAC ** RETURN ADDRESS 0029 00016 0 10 00022 JST CHAR CHARACTER 0030 00017 0 10 00022 JST CHAR CHARACTER 0031 00020 000201 IAB WORD TO A 0032 00021 -0 01 00015 JMP* WORD RETURN 0033 * 0034 * CHARACTER 0035 00022 0 000000 CHAR DAC ** RETURN ADDRESS 0036 00023 140040 CRA 0037 00024 1 13 00000 IMA 0,1 NO. 0038 00025 0 07 00046 LOOP SUB =10 0039 00026 100400 SPL 0040 00027 0 01 00032 JMP EXIT EXIT 0041 00030 1 12 00000 IRS 0,1 NO. 0042 00031 0 01 00025 JMP LOOP LOOP 0043 * 0044 00032 0 06 00046 EXIT ADD =10 0045 00033 100040 SZE 0046 00034 0 01 00041 JMP NZRO NON-ZERO 0047 * 0048 00035 1 02 00000 LDA 0,1 NO. 0049 00036 100040 SZE 0050 00037 0 02 00045 LDA ='20 ZERO