C$OI, C$OE

* PAGE 1

0001 * 0002 * 0003 SUBR C$OI CHARACTER OUTPUT INITIALISE 0004 SUBR C$OE CHARACTER OUTPUT EXTRACT 0005 * 0006 * 0007 CF5 H316 AND DDP-516 0008 REL RELOCATABLE 0009 * 0010 * 0011 * CHARACTER OUTPUT INITIALISE 0012 * 0013 00000 0 000000 C$OI DAC ** RETURN ADDRESS 0014 00001 140040 CRA 0015 00002 0 04 00070 STA CC CURRENT CHARACTER 0016 00003 0 04 00071 STA LC LAST CHARACTER 0017 00004 -0 01 00000 JMP* C$OI RETURN 0018 * 0019 * 0020 * CHARACTER OUTPUT EXTRACT 0021 * 0022 00005 0 000000 C$OE DAC ** RETURN ADDRESS 0023 00006 0 02 00070 RSTR LDA CC CURRENT CHARACTER 0024 00007 -0 11 00065 CAS* C$CC CHARACTER COUNT 0025 00010 101000 NOP 0026 00011 0 01 00037 JMP BXEX BUFFER EXHAUSTED 0027 00012 0 12 00070 IRS CC TALLY CURRENT CHARACTER 0028 00013 -0 06 00005 ADD* C$OE BUFFER ADDRESS 0029 00014 0404 77 LGR 1 A 0030 00015 0 04 00000 STA 0 INDEX 0031 00016 1 02 00000 LDA 0,1 GET NEXT WORD FROM BUFFER 0032 00017 101001 SSC POSITION FOR OUTPUT CHARACTER 0033 00020 141340 ICA 0034 00021 141050 CAL 0035 00022 0 11 00075 CAS ='240 SPACE? 0036 00023 100000 SKP 0037 00024 0 01 00006 JMP RSTR Go EXAMINE NEXT CHARACTER 0038 00025 0 04 00000 STA 0 SAVE CHARACTER IN INDEX 0039 00026 0 02 00070 LDA CC CURRENT CHARACTER 0040 00027 0 07 00074 SUB =1 0041 00030 0 11 00071 CAS LC LAST CHARACTER 0042 00031 0 01 00042 JMP CONT CONTINUE 0043 00032 0 12 00071 NMEX IRS LC NORMAL EXIT - TALLY LAST CHARACTER 0044 00033 0 02 00071 LDA LC LAST CHARACTER 0045 00034 0 04 00070 TBEX STA CC CURRENT CHARACTER 0046 00035 0 02 00000 LDA 0 RESTORE CHARACTER FROM INDEX 0047 00036 100000 SKP 0048 00037 0 12 00005 BXEX IRS C$OE BUFFER EXHAUSTED EXIT - TALLY RETURN ADDRESS 0049 00040 0 12 00005 IRS C$OE TALLY RETURN ADDRESS 0050 00041 -0 01 00005 JMP* C$OE RETURN
* 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