C$IS

* PAGE 1

0001 * 0002 * 0003 SUBR C$IS CONVERT FROM INVISIBLE TO 6-BIT CODE 0004 * 0005 * 0006 CF5 H316 AND DDP-516 0007 REL RELOCATABLE 0008 * 0009 * 0010 00000 0 000000 C$IS DAC ** RETURN ADDRESS 0011 00001 0400 70 LRL 8 0012 00002 140040 CRA DISCARD BITS 1-8 OF A-REG. 0013 00003 0411 71 LLS 7 SAVE MOST SIGNIFICANT BIT OF CHARACTER IN B 0014 00004 0 11 00025 CAS ='174 ARE LEAST SIG. 7 BITS OF CHARACTER >'173? 0015 00005 101000 NOP 0016 00006 0 01 00013 JMP CONV YES. GO CONVERT TO APPROPRIATE CODES 0017 * 0018 00007 0401 73 ADBT LRS 5 0019 00010 140040 CRA CLEAR ANY SPURIOUS '100 AND '40 BITS 0020 00011 0410 72 LLL 6 REPLACE M.S. CHAR BIT AS '40. IF PRESENT 0021 00012 -0 01 00000 JMP* C$IS RETURN 0022 * 0023 00013 0 15 00020 CONV STX XREG SAVE X-REG 0024 00014 0 04 00000 STA 0 SET INDEX 0025 00015 1 02 77625 LDA TABL-'174,1 CONVERT FROM TABLE 0026 00016 0 35 00020 LDX XREG RESTORE X-REG 0027 00017 0 01 00007 JMP ADBT GO REPLACE BIT SAVED IN B 0028 * 0029 * 0030 * VARIABLES AND CONSTANTS 0031 * 0032 00020 XREG BSS 1 X-REG BUFFER 0033 * 0034 00021 000005 TABL OCT 05 CONVERSION TABLE - '174 TO '05 0035 00022 000012 OCT 12 '175 TO '12 0036 00023 000021 OCT 21 '176 TO '21 0037 00024 000023 OCT 23 '177 TO '23 0038 * 0039 * 0040 00025 000174 FIN LITERALS 0041 * 0042 * 0043 END END OF C$IS 27.JUL.70 G.S.LITTLE ADBT 000007 C$IS 000000 CONV 000013 TABL 000021 XREG 000020 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71