C$SI

* PAGE 1

0001 * 0002 * 0003 SUBR C$SI CONVERT FROM 6-BIT TO INVISIBLE CODE 0004 * 0005 * 0006 CF5 H316 AND DDP-516 0007 REL RELOCATABLE 0008 * 0009 * 0010 * CONVERT FROM 6-BIT TO INVISIBLE CODE 0011 * 0012 00000 0 000000 C$SI DAC ** CONVERT FROM 6-BIT TO INVISIBLE CODE 0013 * A = JJJJJJJJJJXYYYYY ON ENTRY 0014 00001 0414 65 LGL 11 A = YYYYY00000000000, C = X 0015 * 0016 * IF Y = '005 THEN Z = '174 0017 00002 0 05 00034 ERA ='024000 00000101 BINARY. ROTATED 5 PLACES RIGHT 0018 00003 101040 SNZ SKIP IF NOT ENQ 0019 00004 0 02 00033 LDA ='144003 01111001 0020 * 0021 * IF Y = '012 THEN Z = '175 0022 00005 0 05 00032 ERA ='074000 00001111 0023 00006 101040 SNZ SKIP IF NOT LF 0024 00007 0 02 00031 LDA ='134003 01110111 0025 * 0026 * IF Y = '021 THEN Z = '176 0027 00010 0 05 00030 ERA ='154000 00011011 0028 00011 101040 SNZ SKIP IF NOT DC1 0029 00012 0 02 00027 LDA ='074003 01101111 0030 * 0031 * IF Y = '023 THEN Z = '177 0032 00013 0 05 00026 ERA ='010000 00000010 0033 00014 101040 SNZ SKIP IF NOT DC3 0034 00015 0 02 00025 LDA ='060003 01101100 0035 * 0036 * FORM INVISIBLE CODE IN A. AND EXIT 0037 00016 0 05 00024 ERA ='114000 00010011 ROTATED. A : ZZZZZ000000000ZZ 0038 00017 100001 SRC SKIP IF X = 0 0039 00020 0 05 00023 ERA ='4 A = ZZZZZ00000000XZZ 0040 00021 0416 73 ALR 5 A = 00000000XZZZZZZZ 0041 * 0042 00022 -0 01 00000 JMP* C$SI EXIT 0043 * 0044 * 0045 * CONSTANTS 0046 * 0047 00023 000004 FIN LITERALS 00024 114000 00025 060003 00026 010000
* PAGE 2

00027 074003 00030 154000 00031 134003 00032 074000 00033 144003 00034 024000 0048 * 0049 * 0050 END END OF C$SI 15.12.69 CBAP C$SI 000000 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71