/011 GENERAL BRANCH ROUTINE
/BRANCH ROUTINE BRANCHES ACCORDING TO THE CONTENTS
/OF THE AC, COMPARED TO EACH ITEM OF A LIST.
/EXIT FROM BRANCH IS ALWAYS WITH AC=0
/
/	TAD AC
/	JMS BRANCH
/		LIST-1
/	RETURN IF NOT IN LIST (AC=0)
/
/LIST,	212
/	LF		/IF "CHAR"=212,PROGRAM JUMPS TO "LF"
/	215
/	CR;ETC;ETC.......
/	0		/0 IS LIST TERMINATOR!!!!!!

	0		/AC
	0		/BRANCH POINTER
BRANCH,	0		/ENTER WITH ARGUMENT IN "CHAR"
	DCA BRANCH-2
	TAD I BRANCH
	ISZ BRANCH
	DCA BRANCH-1	/INIT POINTER
BRANC,	ISZ BRANCH-1
	TAD I BRANCH-1	/FETCH ELEMENT FRM LIST
	SNA		/END OF LIST?
	JMP I BRANCH	/YES
	CIA
	TAD BRANCH-2
	ISZ BRANCH-1
	SZA CLA
	JMP BRANC	/NO, TRY NEXT
	TAD I BRANCH-1	/YES, GO TO IT
	DCA BRANCH
	JMP I BRANCH