EOT	EQU	14
NEG_37	equ	$DB
NEG_EOT	equ	-14
			
	org	$237
IN_TAB	dc.b	$E2, 55, 37, 19, 37, 14
;EOTDCB	dc.b	EOT
	
	org	$1037
NUM37s	ds.b	1
	
	org	0
	ldaa	#0
	staa	NUM37s
	ldx	#IN_TAB
	
LOOP	ldaa	0,x
	ldab	#NEG_EOT
	sum_ba
	beq	DONE
	ldaa	0,X
	ldab	#NEG_37
	sum_ba
	bne	SKIP
	ldaa	NUM37s
	ldab	#1
	sum_ba
	staa	NUM37s

SKIP	inx
	ldaa	#0
	beq	LOOP
	
DONE:	beq	DONE