*20
	PMODE
	*200     /TITLE:  DAN 2
START,	CLA CLL  /THIS PROGRAM IS
	TLS      /AN ABORTIVE ATTEMPT
        KCC      /TO APPLY TTY IO TO
	JMS CLRF /THE 2ND  LAB ASNMT.
	JMS CLRF /IT TAKES IN TWO NUMBS
        JMS LISN /& COMPARES THEM,
	DCA A    /SWITCHES STORAGE LOC
        TAD A    /ATIONS IF DIFFERENT,
        JMS TYPE /AND TYPES THEM BACK
        JMS CLRF /OUT ON THE TTY.
	JMS LISN
	DCA B
        TAD B
        JMS TYPE
SWITCH,	TAD A
	CIA
	TAD B
	SNA
	JMP OUTPUT
	TAD A
	DCA C
	TAD A
	DCA B
	TAD C
	DCA A
OUTPUT,	JMS CLRF
	TAD A
	JMS TYPE
	JMS CLRF
	TAD B
	JMS TYPE
	JMP START
TYPE,	0
	TSF
	JMP.-1
	TLS
	CLA CLL
	JMP I TYPE
LISN,	0
	KSF
	JMP.-1
	KRB
	JMP I LISN
CLRF,	0
	CLA
        TAD K215
	JMS TYPE
	TAD K212
	JMS TYPE
	JMP I CLRF
A,	0000
B,	0000
C,	0000
K212,	0212
K215,	0215