/DEVTST: SIMPLE (CHAR BY CHAR) TRANSFER FOR PDP8 /SWITCHES: ENABLE.STOP. : . . :IN:OUT RSF1=6401;RRB1=6406 TSF1=6411;TLB1=6416;TCF1=6412 *30 NIN LREC KB NIN PR NIN NIN NIN NOUT LTRANS TT NOUT PP NOUT NOUT NOUT LRI, 0 KBI, 0 PRI, 0 LTI, 0 TTI, 0 PPI, 0 *177 HLT BEG, CLA OSR; SMA; JMP BEG AND Q7 TAD QJMSOU DCA OUT OSR CLL RAR CLL RAR CLL RAR AND Q7 TAD QJMSIN DCA IN DCA LRI; DCA KBI; DCA PRI DCA LTI; DCA TTI; DCA PPI NOP NOP TCF; PCF; TCF1 CLL IN, HLT OUT, HLT SZL; JMP END OSR; RTL SNL CLA; JMP IN END, JMP BEG QJMSIN, JMS I 30 QJMSOU, JMS I 40 Q77, 77 Q7, 7 *400 NIN, 0 STL JMP I NIN LREC, 0 RSF1; JMP .-1 RRB1 JMP I LREC KB, 0 KSF; JMP .-1 KRB JMP I KB PR, 0 RFC RSF; JMP .-1 CLA; RRB JMP I PR NOUT, 0 JMP I NOUT LTRANS, 0 ISZ LTI; JMP .+3 TSF1; JMP .-1 TLB1 STA; DCA LTI JMP I LTRANS TT, 0 ISZ TTI; JMP .+3 TSF; JMP .-1 TLS STA; DCA TTI JMP I TT PP, 0 ISZ PPI; JMP .+3 PSF; JMP .-1 PLS STA; DCA PPI JMP I PP $ $$ $$$