C$OI, C$OE

* PAGE 2

0051 * 0052 00042 -0 02 00066 CONT LDA* C$TC TAB COUNT 0053 00043 101400 SMI 0054 00044 0 01 00063 JMP SPCE SPACE 0055 00045 0 04 00072 STA WORK WORK 0056 00046 -0 35 00067 LDX* C$TT TAB TABLE LINK 0057 00047 1 02 00000 LOOP LDA 0,1 GET NEXT TAB POSITION 0058 00050 0 07 00074 SUB =1 ADJUST TO POSN. SCALE USED IN THIS ROUTINE 0059 00051 0 11 00071 CAS LC DOES THIS TAB POSITION LIE BETWEEN 0060 00052 0 11 00070 CAS CC LAST CHARACTER AND CURRENT CHARACTER? 0061 00053 101000 NOP 0062 00054 0 01 00060 JMP CSCH NO - CONTINUE SEARCH 0063 00055 0 04 00071 STA LC YES - UPDATE LAST CHARACTER TO TAB POSITION 0064 00056 0 35 00073 LDX ='334 TAB (BACKSLASH) TO INDEX 0065 00057 0 01 00034 JMP TBEX TAB EXIT 0066 * 0067 00060 0 12 00000 CSCH IRS 0 TALLY AND TEST INDEX 0068 00061 0 12 00072 IRS WORK WORK 0069 00062 0 01 00047 JMP LOOP LOOP 0070 * 0071 00063 0 35 00075 SPCE LDX ='240 SPACE 0072 00064 0 01 00032 JMP NMEX NORMAL EXIT 0073 * 0074 * 0075 * CONSTANTS AND VARIABLES 0076 * 0077 00065 0 000000 C$CC XAC C$CC CHARACTER COUNT 0078 00066 0 000000 C$TC XAC C$TC TAB COUNT 0079 00067 0 000000 C$TT XAC C$TT TAB TABLE LINK 0080 * 0081 00070 000000 CC BSZ 1 CURRENT CHARACTER 0082 00071 000000 LC BSZ 1 LAST CHARACTER 0083 00072 000000 WORK BSZ 1 WORK 0084 * 0085 00073 000334 FIN LITERALS 00074 000001 00075 000240 0086 * 0087 * 0088 END END OF C$OI 31.JUL.70 G.S.LITTLE BXEX 000037 C$CC 000065 C$OE 000005 C$OI 000000 C$TC 000066 C$TT 000067 CC 000070 CONT 000042 CSCH 000060 LC 000071 LOOP 000047 NMEX 000032 RSTR 000006 SPCE 000063 TBEX 000034 WORK 000072 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71