C$SW

* PAGE 1

0001 * 0002 * 0003 SUBR C$SW STRIP TRAILING WORDS 0004 * 0005 * 0006 CF5 H316 AND DDP-516 0007 REL RELOCATABLE 0008 * 0009 * 0010 00000 0 000000 C$SW DAC ** RETURN ADDRESS 0011 00001 0 04 00017 STA WORD WORD 0012 00002 -0 02 00000 LDA* C$SW BUFFER ADDRESS 0013 00003 0 12 00000 IRS C$SW TALLY RETURN ADDRESS 0014 00004 0 07 00000 SUB 0 INDEX 0015 00005 0 07 00020 NEXT SUB =1 0016 00006 0 13 00017 IMA WORD WORD 0017 00007 -0 11 00017 CAS* WORD WORD 0018 00010 100000 SKP 0019 00011 100000 SKP 0020 00012 -0 01 00000 JMP* C$SW RETURN 0021 00013 0 13 00017 IMA WORD WORD 0022 00014 0 12 00000 IRS 0 INDEX 0023 00015 0 01 00005 JMP NEXT NEXT 0024 00016 -0 01 00000 JMP* C$SW RETURN 0025 * 0026 * 0027 * VARIABLES AND CONSTANTS 0028 * 0029 00017 000000 WORD BSZ 1 WORD 0030 * 0031 00020 000001 FIN LITERALS 0032 * 0033 * 0034 END END OF C$SW 9.MAR.70 P.J.VYSE C$SW 000000 NEXT 000005 WORD 000017 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71