O$PLL

* PAGE 1

0001 * 0002 * 0003 SUBR O$PLL,PLL HSP LIST LINE 0004 * 0005 * 0006 CF5 H316 AND DDP-516 0007 REL RELOCATABLE 0008 * 0009 * 0010 00000 0 000000 PLL DAC ** HSP LIST LINE 0011 00001 -0 02 00000 LDA* PLL GET BUFFER ADDRESS 0012 00002 0 12 00000 IRS PLL TALLY RETURN ADDRESS 0013 00003 0 04 00006 STA BUFF STORE IN CALLING SEQUENCE FOR C$SW 0014 00004 0 02 00022 LDA =A SPACES 0015 00005 0 10 00000 CALL C$SW STRIP TRAILING WORDS 0016 00006 0 000000 BUFF DAC ** BUFFER ADDRESS 0017 00007 0 02 00000 LDA 0 INDEX 0018 00010 101040 SNZ SKIP UNLESS LINE EMPTY 0019 00011 -0 01 00000 JMP* PLL RETURN 0020 * 0021 00012 -0 02 00006 OUTP LDA* BUFF GET NEXT WORD 0022 00013 0 12 00006 IRS BUFF TALLY POINTER 0023 00014 0 10 00000 CALL O$PKP HSP OUTPUT CHARACTER WITH PARITY 0024 00015 141340 ICA 0025 00016 0 10 00000 CALL O$PKP HSP OUTPUT CHARACTER WITH PARITY 0026 00017 0 12 00000 IRS 0 TALLY AND TEST INDEX REGISTER 0027 00020 0 01 00012 JMP OUTP REPEAT 0028 00021 -0 01 00000 JMP* PLL RETURN 0029 * 0030 * 0031 * LITERALS 0032 * 0033 00022 120240 FIN LITERALS 0034 * 0035 * 0036 END END OF O$PLL 21.MAY.70 G.S.LITTLE BUFF 000006 OUTP 000012 PLL 000000 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71