.GLOBL	TYPE,.DA,FILE
TYPE	XX
	JMS*	.DA	/ FIND ARGUMENT ADDRESSES
	JMP	.+4
I	.DSA	0	/ADDRESSES OF SUBROUTINE
J	.DSA	0	/ARGUMENTS
MODE	.DSA	0
	LAC	FILE
	ADD*	I
	TAD	(-1
	DAC	PLACE#	/REQUIRED ADDRESS
	LAC*	PLACE
	LMQ
	CLA
	LLS+3
	DAC*	MODE
	SAD	(1	/  POINT MODE
	JMP	DEEPER
	SAD	(2	/  LINES AND CURVES MODE
	JMP	DEEPER
	SAD	(3	/  PLANE MODE
	JMP	DOWN
	LAC*	I	/  NOT A VALID MODE FOR
	ADD	(1	/  THIS SUBROUTINE
	DAC*	J
	JMP*	TYPE
DOWN	LAC*	I	/  PLANE MODE REQUIRES 3*3 REAL NMB'S
	ADD	(23	/  =3*3*2 = 22 WORDS
	DAC*	J	/  OR 23 WORDS FOR NEXT MODE WORD
	JMP*	TYPE
DEEPER	LAC*	PLACE
	AND	(1777
	MUL
	.DSA	000006	/  HAS N*3 REAL NUMBERS WHICH
	LACQ		/  IS 6 WORDS FOR EACH POINT
	ADD*	I
	ADD	(1	/  FOR NEXT MODE WORD
	DAC*	J
	JMP*	TYPE
	.END