FIELD 1
*4000

CLA CLL
	NTBLIP
	INBLIP
	STSTK2
	A
	BLNTOF
	BLOUT
LP,	ISZ A
	NOP

	INBLIP
	STSTK2
	A
	BLOUT

	MOSTSR
	JMP LP

A,	0;0

STSTK2,	1
	BLOTNT
	STSTNT
	GETAD
	1
	DCA STADR
	SWAB
	CAM DAD
	
STADR,	0
	NMI
	SCA CLA
	SZA CLA
	TAD (-27
	CIA
	TAD TABLA
	DCA TABLP
	ISZ I TABLP
	INEND

STSTNT,	TAD TABLA
	DCA TABLP
	TAD (-30
	DCA TABLC
	DCA I TABLP
	ISZ TABLP
	ISZ TABLC
	JMP .-3
	INEND

TABLP,	0
TABLC,	0
TABLA,	TABL
TABL,	ZBLOCK 30