*20
        CLR
        PDP
        PMODE         /TITLE: DAN 3
        JMP I P200    /THIS PROGRAN
P200,   0200          /IS LAB ASSIGNMENT
        PMODE         /NO. 3.  IT ACCEPS
	*200          /ALL TTY INPUT, 
START,	CLA CLL       /ECHOS, AND REPEAT
	TLS           /UPON INPUT OF A
	JMS CLRF      /PERIOD.
	JMS CLRF
	TAD LOC1
	DCA 10
        TAD K215
        DCA I 10
        TAD K212
        DCA I 10
 CARIN,	JMS LISN
        DCA CHAR
        TAD CHAR
        JMS TYPE
        TAD CHAR
	TAD NPER
	SNA
	JMP ALLIN
	TAD PER
	TAD NCR
	SNA
	JMP CRLF
	TAD K215
        TAD NRO
        SZA
        JMP .+7
        CMA
        TAD 10
        DCA 10
        TAD SL
        JMS TYPE
        JMP CARIN
        TAD RO
        DCA I 10
	JMP CARIN
ALLIN,	TAD PER
        DCA I 10
	TAD LOC1
	DCA 10
CAROUT,	TAD I 10
	TAD NPER
	SNA
	JMP ALLOUT
	TAD PER
	JMS TYPE
	JMP CAROUT
ALLOUT,	TAD PER
	JMS TYPE
	JMP START
PER,	0256
NPER,	7522
NRO,	7401
RO,	0377
SL,	0257
CLRF,	0
	TAD K215
	JMS TYPE
	TAD K212
	JMS TYPE
	JMP I CLRF
K212,	0212
K215,	0215
TYPE,	0
        TLS
	TSF
	JMP .-1       
        CLA CLL
	JMP I TYPE
CRLF,   TAD K215
	DCA I 10
	TAD K212
	DCA I 10
	JMS CLRF
	JMP CARIN
LISN,	0
	KSF
	JMP .-1
	KRB
 	JMP I LISN
LOC1,	0400
CHAR,	0000
NCR,	7563