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