
	.TITLE	DPY
	.GLOBL	DPY,.DA
ENA=701521
ENB=701541
XFR=701564
DPY	0
	JMS*	.DA
	JMP	.+3
HOR	.DSA	0
VERT	.DSA	0
	LAC*	HOR
	AND	(777000
	DAC	X#
	LAC*	VERT
	AND	(777000
	SWHA
	TAD	X#
	ENA
	ENB
	XFR
	JMP*	DPY
	.END
@