LENGTH=20		/LAENGE DES SCHIEBEREGISTERS

*10
AUTO,	0

FIELD 1

*3600

GTSMRS,	0	/INPUT VON SIGNAL

	ADSF
	JMP .-1

	CLA
	CLSK
	JMP INADC

	TSF
	SKP
	TLS
	CLSA
	CLA

INADC,	TAD I REGCTR	/ABSPEICHERN DES ALTEN WERTES
	DCA SAVOUT
	ADRB
	CLSK
	JMP .-1
	DCA I REGCTR
	CLSA
	CLA

	TAD REGCTR
	CIA
	TAD REGENP
	ISZ REGCTR
	SZA CLA

	JMP PEGIN
	TAD REGSTP
	DCA REGCTR

PEGIN,	6524		/INPUT DES PEGELS
	SZA CLA
	JMP INADC
	TAD SAVOUT
	CDF 0
	DCA I AUTO
	CDF 10
	JMP I GTSMRS

REGSTR,	ZBLOCK LENGTH
REGEND,	0
REGSTP,	REGSTR
SAVOUT,	0
REGCTR,	REGSTP		/INITIALISIERUNG DES ZAEHLERS
REGENP,	REGEND