PAGE
/**************** SCRAMB **********************************
/22.7.75
/17.3.76				D.COY  CS/FZNR
/CALL:	SCRAMB		/BLIP-BLOCK SCRAMBLER
/	EINGANG		/1 BIT GANZ RECHTS
/	AUSGANG		/1 BIT GANZ RECHTS
/	ZUSTAND		/DES SCRAMBLER-REGISTERS
/	POLYNOM		/REPRAESENTIERT DIE ANZAPFUNGEN
/	GENAUIGKEIT	/VON ZUSTAND UND POLYNOM(WOERTER)
/	FELDNR		/MULTIPLIZIERT MIT 10 FUER ARG. 3,4


SCRAMB,	6
	MWMOD2
	3
	4
	FDBK
	5
	6

	BLOTNT
	SCRNT2
	
	ACUM
	1
	TAD FDBK
	RAR
	CLA RAL
	DCA LNK1
	TAD LNK1
SCRNT1,	PUT		/INIT. DES ZUSTANDES MIT 0
	2

	INBLIP
	
	ROTATR
	LNK1
	3
	5
	6

	BLEND

SCRNT2,	PUT
	2
	INBLIP
	KOPIE		/INIT. DES ZUSTANDES MIT DEM POLYNOM
	6
	4
	5
	3
	6
	BLEND
LNK1,	0
FDBK,	0




/************ DESCRA ********************************************
/21.11.74
/17.3.76				D.COY  CS/FZNR
/CALL:	DESCRA		/BLIP-BLOCK DESCRAMBLER
/	EINGANG		/1 BIT GANZ RECHTS
/	AUSGANG		/1 BIT GANZ RECHTS
/	ZUSTAND		/DES DESRAMBLER-REGISTERS
/	POLYNOM		/REPRAESENTIERT DIE ANZAPFUNGEN
/	GENAUIGKEIT	/VON ZUSTAND UND POLYNOM (WOERTER)
/	FELDNR		/MULTIPLIZIERT MIT 10


DESCRA,	6
	MWMOD2
	3
	4
	FDFW
	5
	6
	
	BLOTNT
	DESNT2

	ACUM
	1
	DCA LNK2
	TAD LNK2
	TAD FDFW
	RAR
	CLA RAL		/EING.+RUECKF. MOD2
DESNT1,	PUT
	2

	INBLIP

	ROTATR			/SCHIEBEN
	LNK2
	3
	5
	6
	
	
	BLEND

DESNT2,	PUT
	2
	INBLIP
	KOPIE
	6
	4
	5
	3
	6
	BLEND

LNK2,	0
FDFW,	0

PAGE

XLIST

/************* SEE ******************************************
/26.9.75
/CALL:	SEE
/	INPUT	/1 BIT GANZ RECHTS
/	REGISTER	/11 WORTE
/	RECHTECK	1 WORT IN FELD 1
/	OUTPUT


FIELD 1
*7200

SEE,	4
	BLOUT
	GETAD
	2
	DCA SEP0
	JMS WAIT2
	TAD SEP0
	DCA SEP1
	ACUM
	3
	DCA RCHTKZ
	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
	CLL CLA IAC RAL
	BSW
	AND I SEP0
	CDF 10
	SZA CLA
	IAC
	DCA NR2
	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

	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

	PUT
	4
	INBLIP
	BLOTNT
	SEENT
	INEND

SEENT,	GETAD
	2
	DCA SEP1
	TAD SEM11
	DCA SECNT
	CDF 20
	TAD DAUR1
	DCA I SEP1
	ISZ SEP1
	ISZ SECNT
	JMP .-4

	TAD SEP50
	DCA ZAEHLR
	CDF 10
	PUT
	4
	INEND

WAIT2,	0
	INBLIP
	BLOTNT
	WAI2NT

	ISZ WAI2C
	TAD WAI2C
	SPA CLA
	INEND
	
	JMP I WAIT2

WAI2NT,	TAD (-100
	DCA WAI2C
	JMP I WAIT2

WAI2C,	0
SEP0,	0
SEP1,	0
DAUR1,	-1
SEM11,	-11
SECNT,	0
NR1,	0
NR2,	0

ZAEHLR,	0
RCHTKZ,	0
SM18,	-22
SM83,	-123
FF,	0
SEP10,	10
SEP50,	62



*3400

	
X2,	0
	INBLIP
	BLOTNT
	X1NT

	TAD ALLSUM
	TAD (-40
	SPA CLA
	JMP I X2

	IAC
	DCA FLAGZ
	DCA SWEL
	DCA VSCHW

	TAD (CLA
	DCA L0
	JMP I X1

X1NT,	TAD (30
	DCA VSCHW
	TAD (3
	DCA SWEL
	DCA FLAGZ
	TAD (5311
	DCA L0
	JMP I X2


X1,	0
	CLA
	TAD FLAGZ
	SNA CLA
	JMP I X1
	
	SWAB
	CDF 20
	CAM DAD
	SYNREG+1
	CDF 10
	AND (20
	TAD EMPFR2
	SNA CLA
	JMP THRDLC
	JMP I X1

FLAGZ,	0