FIELD 1


			/***MULTIPLIKATIONSROUTINE***

*1000





MULSUB,	0
	CLA CLL
	TAD I MULSUB
	DCA DOPIND
	TAD I DOPIND
	DCA X1
	ISZ MULSUB
	TAD I MULSUB
	DCA DOPIND
	TAD I DOPIND
	DCA X2
	ISZ MULSUB


START,	CLA CLL
	DCA SUM
	DCA SPX1
	DCA COUNT
	TAD X1
	DCA SPX1
MULT,	TAD SPX1	/REST DES MULTIPLIKANTEN
	SNA		/PRUFUNG OB ALLE RESTBITS GLEICH 0
	JMP ENDE	/MULTIPLIKATION BEENDET
	RAR		/ROTATION DES MULTIPLIKANTEN
	ISZ COUNT	/ZAHLEN DER RECHSVERSCHIEBUNGEN
	NOP
	SNL		/PRUFUNG OB BIT 0 ODER 1
	JMP .-4
	CLL		/LOSCHEN DES LINKBITS
	DCA SPX1	/REST VON X1 IN SPEICHER
	TAD COUNT
	CIA
	DCA COUNTL	/ZAHLEN DER LINKSVERSCHIEBUNGEN
	TAD X2		/VON X2 BEI ADDITION
	RAR
ROTATE,	RAL
	ISZ COUNTL	/LINKSVERSCHIEBUNGEN VON X2
	JMP ROTATE
	TAD SUM		/ADDITION
	DCA SUM		/ERGEBNISSPEICHER
	JMP MULT




ENDE,	CLA
	TAD I MULSUB
	DCA DOPIND
	TAD SUM
	DCA I DOPIND
	ISZ MULSUB
	JMP I MULSUB



SPX1,	0
X1,	0
X2,	0
SUM,	0
COUNT,	0
COUNTL,	0
DOPIND,	0




PAGE



INIT,	0	/INITIALIZATION
	CLA
	DCA RAMP
	RDF
	TAD CCIF
	DCA .+1
	0
	JMS I INIT


HAUPT,	0
	CLA
	RDF 
	TAD CCIF
	DCA FELD
	CDF 10
	ISZ RAMP
	JMS MULSUB
	RAMP
	RAMP
	ERGEB
FELD,	0
	JMP I HAUPT

RAMP,	0
CCIF,	CIF
ERGEB,	0


$$$$$$$$$$$$$$$$$$$$$$$$