/ PS/8 TO DIAL CONVERSION / / OUTPUT GOES TO BLOCK 0 AND FOLLOWING / ON UNIT 1, INPUT USES IOBUFF / *20 SETUP=7000 ENDFIL=177 GET=JMS I 174 PUT=JMS I .;PUTD *200 JMS SETUP TAD (EOF) DCA ENDFIL NCHAR, GET SNA JMP NCHAR DCA CHAR TAD CHAR TAD (-340) SMA JMP NCHAR TAD (340-240) SPA JMP SPECAL TAD (240) AND (77) TAD (-43) SNA JMP NCHAR TAD (43-47) SNA JMP NCHAR DIALTB, TAD (47) PUT JMP NCHAR SPECAL, TAD (240-215) SNA JMP DIALEL IAC SNA JMP DIALEL /FF = EOL TAD (214-211) SZA CLA JMP NCHAR JMP DIALTB DIALEL, TAD (43) PUT JMP NCHAR EOF, PUT ISZ COUNTE JMP EOF JMP I (7600) COUNTE, -1000 PUTD, 0 AND (77) DCA XCHAR TAD XCHAR TAD (-43) SZA CLA JMP NOTEOL TAD LCHAR TAD (-43) SZA CLA JMP NOTEOL TAD (57) JMS PUTIT NOTEOL, TAD XCHAR DCA LCHAR TAD XCHAR JMS PUTIT JMP I PUTD PUTIT, 0 ISZ SWITCH JMP RHALF LHALF, CLL RTL; RTL; RTL DCA I POINT JMP I PUTIT RHALF, TAD I POINT DCA I POINT STA DCA SWITCH ISZ POINT ISZ COUNT JMP I PUTIT LINC LDF 0 AXO WRC U PUTBN, 3000 PDP CLA IAC TAD PUTBN DCA PUTBN TAD (OBUFF) DCA POINT TAD (-400) DCA COUNT JMP I PUTIT POINT, OBUFF+2 COUNT, -400+2 SWITCH, 7777 CHAR, 0 XCHAR, 0 LCHAR, 0 *1400 TEXT "*20#" LINC=6141 WRC=704 PDP=2 LDF=640 AXO=1 U=10 OBUFF=1400 $ POINT STA DCA SWITCH ISZ POINT ISZ COUNT JMP I PUTIT LINC LDF 0 AXO WRC U PUTBN, 3000 PDP CLA IAC TAD PUTBN DC