FIELD 1

*7200


DELCOD,	2
	BLOTNT
	DCNT

	GETAD
	1
	DCA DCPOI
	SWAB
	CAM DAD
	RUECKF
	DCM
	DAD
DCPOI,	0
	DPSZ
	SKP
	JMP NULL
	RAL
	CLA
	TAD DCREG
	RAR
	DCA DCREG
	JMP DELPUT

NULL,	CLA CLL
	TAD DCREG
	ASR
	1
	DCA DCREG

DELPUT,	TAD DCREG
	SPA CLA
	IAC
	PUT
	2

	TAD MSKTFA
	DCA MSKPOI
	TAD BEWTFA
	DCA BEWPOI
	TAD ADDNUM
	CIA CLL
	DCA DCCNT
	DCA SUMME

SUMLOP,	CLA CLL
	TAD DCREG
	AND I MSKPOI

	RAR
	SPA
	TAD N4000
	SZA
	JMP .-4
	CLA MQL
	SNL
	TAD I BEWPOI
	TAD SUMME
	DCA SUMME
	ISZ MSKPOI
	ISZ BEWPOI
	ISZ DCCNT
	JMP SUMLOP

	TAD DCREG
	RAL
	SNL CLA
	CLA CMA
	DCA B1FLG
	CLA IAC BSW
	TAD SUMME
	DVI
	YTEMP
	SZL CLA
	JMS DEINS
	MUY
	ZTEMP
	ISZ B1FLG
	DCM
	DAD
	RUECKF
	DST
	RUECKF
	INEND

DCNT,	SWAB
	TAD DCRGNT
	DCA DCREG
	CAM DST
	RUECKF
	CLA IAC BSW
	TAD K1
	TAD K2
	TAD KK3
	TAD K4
	DCA YTEMP
	INEND

MSKTFA,	MSKTAF
MSKTAF,	6000
	3000
	1400
	600
	300
	140
	60

DEINS,	0
	CAM
	CMA
	MQL
	CLA
	JMP I DEINS

ZTEMP,	0
B1FLG,	0
BEWTFA,	BEWERT
BEWERT,
K1,	100	/WERTE^100
K2,	214
KK3,	223
K4,	106
DCCNT,	0
DCREG,	0
MSKPOI,	0
ADDNUM,	4
N4000,	4000

SUMME,	0
YTEMP,	0
RUECKF,	0
	0
BEWPOI,	0
DCRGNT,	5200





PAGE

CMPAND,	0
	DCA CMPIPT
	SWAB
	CLA CLL CMA RAL
	DCA CMPFLG

	TAD CMPIPT
	SMA
	ISZ CMPFLG
	SPA
	CIA
	DCA ABSCMP

	TAD ABSCMP
	DCA XNEW
	TAD ABSCMP
	LSR
	6
	DST
	CMPSIG
	DPSZ
	SKP
	JMP CMPLOC

WURZEL,	CAM DAD
	ITERAT
	SWP
	DST
	ITERAT
	CAM DAD
	CMPSIG
	DVI
	XOLD
	SZL CLA
	CLA HLT
	ACL
	TAD XOLD
	CLL RAR
	SNA
	HLT
	DCA XNEW

	TAD XNEW
	CIA
	TAD XOLD
	CLLRAR
	SZA
	JMP WURZEL

CMPLOC,	CAM
	TAD XNEW
	LSR
	6
	ISZ CMPFLG
	DCM
	JMP I CMPAND


EXPAND,	0
	DCA EXPIPT+1
	ACL
	DCA EXPIPT

	SWAB
	CAM DAD
	EXPIPT
	ASR
	6
	SMA
	ISZ EXPFLG
	SPA
	DCM
	ACL
	DCA ABSEXP
	NOP
	MUY
	ABSEXP

	SMA
	JMP .+4
	HLT
	CAM
	CLL CMA RAR

	ISZ EXPFLG
	DCM
	JMP I EXPAND

EXPIPT,	0
	0
EXPFLG,	0


CMPIPT,	0
CMPFLG,	0
ABSCMP,	0
CMPSIG,	0
	0
ITERAT,
XOLD,	0
XNEW,	0

*5400

TESTT,	2
	BLOUT

	CAM
	ACUM
	1
	JMS CMPAND
	DST
	DELIN

	INBLIP
	DELCOD
	DELIN
	DELOUT
	BLOUT

	CAM DAD
	RUECKF
	JMS EXPAND
	PUT
	2

	INEND

DELIN,	0
	0
DELOUT,	0
	0