C$II, C$IT, C$IF

* PAGE 2

0051 * 0052 * CHARACTER INPUT FILL 0053 * 0054 00036 0 000000 C$IF DAC ** RETURN ADDRESS 0055 00037 0 11 00101 CAS ='210 CONTROL H 0056 00040 100000 SKP 0057 00041 0 01 00065 JMP DELT DELETE 0058 00042 0402 70 LRR 8 SAVE IN B 0059 00043 0 02 00073 LDA CC CURRENT CHARACTER 0060 00044 -0 11 00076 CAS* C$CC CHARACTER COUNT 0061 00045 0 01 00063 JMP FULL FULL 0062 00046 101000 NOP 0063 00047 0 06 00103 ADD =-1 0064 00050 0 06 00075 ADD WORK WORK 0065 00051 0404 77 LGR 1 SET C BIT APPROPRIATELY 0066 00052 0 04 00074 STA TEMP TEMPORARY 0067 00053 -0 02 00074 LDA* TEMP TEMPORARY 0068 00054 101001 SSC TEST C BIT 0069 00055 000201 IAB SETUP CHARACTER IN WORD 0070 00056 141140 ICL 0071 00057 0412 70 LLR 8 0072 00060 -0 04 00074 STA* TEMP TEMPORARY 0073 00061 0 12 00073 IRS CC CURRENT CHARACTER 0074 00062 -0 01 00036 JMP* C$IF RETURN 0075 * 0076 00063 0 12 00036 FULL IRS C$IF RETURN ADDRESS 0077 00064 -0 01 00036 JMP* C$IF RETURN 0078 00065 0 02 00073 DELT LDA CC CHARACTER COUNT 0079 00066 0 07 00104 SUB =1 DELETE LAST CHARACTER 0080 00067 101040 SNZ 0081 00070 141206 AOA 0082 00071 0 04 00073 STA CC CHARACTER COUNT 0083 00072 -0 01 00036 JMP* C$IF RETURN 0084 * 0085 * 0086 * CONSTANTS AND VARIABLES 0087 * 0088 00073 000000 CC BSZ 1 CURRENT CHARACTER 0089 00074 000000 TEMP BSZ 1 TEMPORARY 0090 00075 000000 WORK BSZ 1 WORK 0091 * 0092 00076 0 000000 C$CC XAC C$CC CHARACTER COUNT 0093 * 0094 00077 0 000000 C$TC XAC C$TC TAB COUNT 0095 * 0096 00100 0 000000 C$TT XAC C$TT TAB TABLE LINK 0097 * 0098 00101 000210 FIN LITERALS 00102 000240 00103 177777