C$8TO6

* PAGE 1

0001 * 0002 * 0003 SUBR C$8TO6 CONVERT ISO CODE TO 6 BIT CODE 0004 * 0005 * 0006 CF5 H316 AND DDP-516 0007 REL RELOCATABLE 0008 * 0009 * 0010 00000 0 000000 C$8T DAC ** RETURN ADDRESS 0011 00001 -0 02 00000 LDA* C$8T GET BUFFER ADDRESS 0012 00002 0 12 00000 IRS C$8T TALLY RETURN ADDRESS 0013 00003 0 04 00027 STA POIN POINTER 0014 00004 -0 02 00000 LDA* C$8T GET NO. OF WORDS 0015 00005 0 12 00000 IRS C$8T 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 141340 ICA MOST SIGNIFICANT BYTE 0021 00012 0 10 00000 CALL C$CTLU CHARACTER TABLE LOOK-UP 0022 00013 0 000000 XAC C$CT86 ISO CODE TO 6 BIT CODE CONVERSION TABLE 0023 00014 0406 72 ARR 6 PUT IN MOST SIGNIFICANT BYTE 0024 00015 -0 13 00027 IMA* POIN EXCHANGE 0025 00016 0 10 00000 CALL C$CTLU CHARACTER TABLE LOOK-UP 0026 00017 0 000000 XAC C$CT86 ISO CODE TO 6 BIT CODE CONVERSION TABLE 0027 00020 0414 74 LGL 4 PUT IN LEAST SIGNIFICANT BYTE 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$8T RETURN 0034 * 0035 * 0036 * VARIABLES 0037 * 0038 00027 POIN BSS 1 POINTER 0039 * 0040 * 0041 END END OF C$8TO6 07.JUL.70 G.S.LITTLE C$8T 000000 CONV 000010 POIN 000027 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71