SECT    DISP
          JA      #ST
  #XR,    ORG     .+10
          TEXT    +DISP  +
  #RET,   SETX    #XR
          SETB    #BASE
          JA      .+3
  #BASE,  ORG     .+6
          ORG     #BASE+30
          FNOP
          JA      #RET
          FNOP
  #GOBAK, 0;0
  #ARGS,  ORG     .+3
  #TMP,   ORG     .+0011
  #LIT,   0001
          2000
          0000
          0002
          3000
          0000
          0003
          3000
          0000
          0004
          2200
          0000
          0000
          JA      ISTIKS-0003
          0000
          JA      JUNK-0003
          #LBL=.
          COMMON
  JUNK,   ORG     .+0033
  ISTIKS, ORG     .+0022
          ORG     #LBL
  #RTN,   BASE    #BASE
          JA      #GOBAK
  #ST,    STARTD
          0210
          FSTA    #GOBAK,0
          0200
          SETX    #XR
          SETB    #BASE
	TRAP3 DISPL	/TRAP TO 8MODE
          STARTF
          LDX     0002,0
          LDX     0003,0
          LDX     0004,0
          EXTERN  #NE
          JA      #RTN
          LDX     0005,0
          EXTERN  #NE
          JA      #RTN
	ORG	.+27
DISPL,	0
	NOP
	CLA CLL
	TAD	ADDA
	RTL
	RAL
	TAD	KCDF
	DCA	.+1
	0
	CLA CLL
	TAD	R3+1
	DCA	R2
	TAD	M2
	DCA	R1
	TAD	ADDA+1
	DCA	PTR
/PACK 2 3-WORD COORDS
PACK,	TAD%	PTR
	TAD	P2
	CIA
	DCA	EXP
	ISZ	PTR
	TAD%	PTR
	CLL
	RAL
	ISZ	EXP
	JMP	.-2
	ISZ	PTR
	ISZ	PTR
	DCA%	R2	/STORE WORD
	ISZ	R2
	ISZ	R1
	JMP	PACK
/DONE PACKING;2 COORDS IN WORD ARRAY
	TAD	WORD
	DCA	0017
	TAD	WORD+1
	LINC
	DIS	0017
	PDP
GETBAK,	CDF CIF 00
	JMP%	RETURN+1
	EXTERN	#RETRN
RETURN,	ADDR	#RETRN
ADDA,	ADDR	ISTIKS
P2,	2
M2,	-2
R1,	0
R2,	0
R3,	ADDR	WORD
PTR,	0
	EXP,	0
WORD,	0
	0
	0
	0
KCDF,	CDF
	LINC=6141
	PDP=0002
	XSKI=0201
	DIS=0140