/************ SEE *******************************************
/7.1.75
/CALL:	SEE	/BETTINGER BLOCK
/	INPUT	/1 BIT GANZ RECHTS
/	REGISTER/11 WORTE IN FELD 2
/	ZAEHLER	/1 WORT IN FELD 2
/	RECHTECK/1 WORT IN FELD 2
/	OUTPUT	/IN FELD 1


FIELD 1
*3400


SEE,	5
	BLOUT
	GETAD
	2
	DCA SEP0
	TAD SEP0
	DCA SEP1
	GETAD
	3
	DCA SEP2
	GETAD
	4
	DCA SEP3

	TAD SEM11
	DCA SECNT
	ACUM
	1
	RAR
	CLA
	CDF 20
	
SE1LP,	TAD I SEP1
	RAR
	DCA I SEP1
	ISZ SEP1
	ISZ SECNT
	JMP SE1LP

	TAD I SEP0
	RAL
	CLA RAL
	DCA NR1
	TAD SEP0
	TAD SEP10
	DCA SEP0
	TAD I SEP0
	AND SEMSK
	CLL RTR
	BSW
	DCA NR2
	TAD I SEP2
	DCA ZAEHLR
	TAD I SEP3
	DCA RCHTKZ
	CDF 10

	ISZ RCHTKZ
	NOP
	TAD RCHTKZ
	TAD NR1
	RAR
	CLA RAL
	DCA NR1
	TAD RCHTKZ
	TAD NR2
	RAR
	CLA RAL
	DCA NR2

	TAD NR1
	TAD NR2
	RAR
	SNL CLA
	JMP SELC2+2	/ZAEHLER NICHT AENDERN

	TAD NR2
	SNA CLA
	CLA CLL CMA RAL
	IAC

SELC2,	TAD ZAEHLR
	DCA ZAEHLR

	TAD ZAEHLR
	TAD SM18
	SPA CLA
	JMP SELC3

	TAD ZAEHLR
	TAD SM83
	SMA CLA

SELC3,	IAC
	DCA FF

	CDF 20
	TAD ZAEHLR
	DCA I SEP2
	TAD RCHTKZ
	DCA I SEP3
	TAD FF
	CDF 10
	PUT
	5

	INBLIP
	BLOTNT
	SEENT
	INEND



SEENT,	GETAD
	2
	DCA SEP1
	TAD SEM11
	DCA SECNT
	CDF 20

	TAD ZFZF
	DCA I SEP1
	ISZ SEP1
	ISZ SECNT
	JMP .-4

	TAD SEP50
	DCA I SEP2
	DCA I SEP3
	CDF 10
	PUT
	5
	INEND

SEP0,	0
SEP1,	0
SEP2,	0
SEP3,	0
ZFZF,	2525
SEM11,	-11
SECNT,	0
NR1,	0
NR2,	0
SEMSK,	400
ZAEHLR,	0
RCHTKZ,	0
SM18,	-22
SM83,	-123
FF,	0
SEP10,	10
SEP50,	62