C$IN, etc.

* PAGE 1

0001 * 0002 * 0003 SUBR C$IN INITIALISE SOURCE 0004 SUBR I$AI,C$IN INITIALISE SOURCE ASR 0005 SUBR I$AIE,C$IN INITIALISE SOURCE ASR 0006 SUBR I$PI,C$IN INITIALISE SOURCE HSR 0007 SUBR I$PIE,C$IN INITIALISE SOURCE HSR 0008 SUBR O$AI,C$IN INITIALISE SOURCE ASR 0009 SUBR O$AIE,C$IN INITIALISE SOURCE ASR 0010 SUBR O$PI,C$IN INITIALISE SOURCE HSP 0011 SUBR O$PIE,C$IN INITIALISE SOURCE HSP A 0012 * 0013 * 0014 CF5 H316 AND DDP-516 0015 REL RELOCATABLE 0016 * 0017 * 0018 00000 0 000000 C$IN DAC ** RETURN ADDRESS 0019 00001 -0 02 00000 LDA* C$IN WORD COUNT RE BUFFER 0020 00002 0414 77 LGL 1 CHARACTERS 0021 00003 -0 04 00016 STA* C$CC CHARACTER COUNT 0022 00004 0 12 00000 IRS C$IN TALLY RETURN ADDRESS 0023 00005 -0 02 00000 LDA* C$IN TAB COUNT 0024 00006 140407 TCA 0025 00007 -0 04 00017 STA* C$TC TAB COUNT NEGATED 0026 00010 0 02 00000 LDA C$IN RETURN ADDRESS 0027 00011 141206 AOA 0028 00012 -0 04 00020 STA* C$TT TAB TABLE LINK 0029 00013 -0 07 00017 SUB* C$TC TAB COUNT NEGATED 0030 00014 0 04 00000 STA C$IN RETURN ADDRESS 0031 00015 -0 01 00000 JMP* C$IN RETURN 0032 * 0033 * 0034 * PARAMETERS 0035 * 0036 00016 0 000000 C$CC XAC C$CC CHARACTER COUNT 0037 00017 0 000000 C$TC XAC C$TC TAB COUNT NEGATED 0038 00020 0 000000 C$TT XAC C$TT TAB TABLE LINK 0039 * 0040 * 0041 END END OF C$IN 9.MAR.70 P.J.VYSE C$CC 000016 C$IN 000000 C$TC 000017 C$TT 000020 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71