C$6TO8

* PAGE 1

0001 * 0002 * 0003 SUBR C$6TO8 CONVERT 6 BIT CODE TO ISO CODE 0004 * 0005 * 0006 CF5 H316 AND DDP-516 0007 REL RELOCATABLE 0008 * 0009 * 0010 00000 0 000000 C$6T DAC ** RETURN ADDRESS 0011 00001 -0 02 00000 LDA* C$6T GET BUFFER ADDRESS 0012 00002 0 12 00000 IRS C$6T TALLY RETURN ADDRESS 0013 00003 0 04 00027 STA POIN POINTER 0014 00004 -0 02 00000 LDA* C$6T GET NO. OF WORDS 0015 00005 0 12 00000 IRS C$6T TALLY RETURN ADDRESS 0016 00006 140407 TCA NEGATE 0017 00007 0 04 00000 STA 0 PUT IN INDEX 0018 * 0019 00010 -0 02 00027 CONV LDA* POIN GET WORD FROM BUFFER 0020 00011 0416 72 ALR 6 MOST SIGNIFICANT BYTE I 0021 00012 0 10 00000 CALL C$CTLU CHARACTER TABLE LOOK-UP 0022 00013 0 000000 XAC C$CT68 6 BIT CODE TO ISO CODE CONVERSION TABLE 0023 00014 141340 ICA PUT IN MOST SIGNIFICANT BYTE 0024 00015 -0 13 00027 IMA* POIN EXCHANGE 0025 00016 0404 74 LGR 4 LEAST SIGNIFICANT BYTE 0026 00017 0 10 00000 CALL C$CTLU CHARACTER TABLE LOOK-UP 0027 00020 0 000000 XAC C$CT68 6 BIT CODE TO ISO CODE CONVERSION TABLE 0028 00021 -0 06 00027 ADD* POIN ADD MOST SIGNIFICANT BYTE 0029 00022 -0 04 00027 STA* POIN STORE IN BUFFER 0030 00023 0 12 00027 IRS POIN TALLY POINTER 0031 00024 0 12 00000 IRS 0 TALLY AND TEST INDEX REGISTER 0032 00025 0 01 00010 JMP CONV REPEAT 0033 00026 -0 01 00000 JMP* C$6T RETURN 0034 * 0035 * 0036 * VARIABLES 0037 * 0038 00027 POIN BSS 1 POINTER 0039 * 0040 * 0041 END END OF C$6TO8 07.JUL.70 G.S.LITTLE C$6T 000000 CONV 000010 POIN 000027 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71