PAGE

/***************** MWMOD2 *****************************************
/21.11.74
/17.3.76				D.COY  CS/FZNR
/CALL:	MWMOD2		/BLIP-BLOCK M(ULTI)-W(ORD)-MOD2-(QUERSUMME)
/	REGISTER
/	MASKE		/REPRAESENTIERT DIE ANZAPFUNGEN
/	ERGEBNIS	/1 BIT GANZ RECHTS
/	PRECISION	/VON REGISTER UND MASKE (WOERTER)
/	FELDNR


MWMOD2,	5
	BLOUT

	GETAD
	1
	DCA MWMPO1
	GETAD
	2
	DCA MWMPO2
	ACUM
	4
	CIA
	DCA MWMCNT
	ACUM
	5
	TAD MWMCDF
	DCA MWMDTF
	RIF
	TAD MWMCDF
	DCA MWMRTF			/VERARBEITEN DER ARGUMENTE

MWMDTF,	HLT

MWMLOP,	DCA MWMTM2
	TAD I MWMPO1
	AND I MWMPO2			/AMZAPFUNGEN MASKIEREN
	DCA MWMTM1

	TAD MWMTM1		/EXCLUSIVE ODER DER WOERTER
	AND MWMTM2
	CIA
	CLL RAL
	TAD MWMTM1
	TAD MWMTM2

	ISZ MWMPO1
	ISZ MWMPO2
	ISZ MWMCNT
	JMP MWMLOP

MWMRTF,	HLT

	CLL			/EXCLUSIVE ODER DER BITS
	NOP
	RAR
	SPA
	TAD VIERTS
	SZA
	JMP .-4

	RAL
	PUT			/AUSGABE DES ERG. MOD2
	3
	INEND

MWMPO1,	0
MWMPO2,	0
MWMTM1,	0
MWMTM2,	0
MWMCNT,	0
MWMCDF,	CDF
VIERTS,	4000