File MWQSUM.PA (PAL assembler source file)

Directory of image this file is from
This file as a plain text file

PAGE

/*************** MWQSUM ******************************************

/28.7.75
/17.3.76				D.COY  CS/FZNR
/CALL:	M(ULTI)W(ORD)Q(UER)SUM(ME)
/	REGISTER
/	MASKE
/	ERGEBNIS
/	GENAUIGKEIT
/	FELDNR.*10

MWQSUM,	5
	BLOUT
	GETAD
	1
	DCA MWQPO1
	GETAD
	2
	DCA MWQPO2
	ACUM
	4
	CIA
	DCA MWQCNT
	ACUM
	5
	TAD MWQCDF
	DCA MWQDTF
	RIF
	TAD MWQCDF
	DCA MWQRTF
	DCA MWQSM

MWQDTF,	HLT
	
MWQLOP,	TAD I MWQPO1
	AND I MWQPO2
	CLL RAL
	SZL
	ISZ MWQSM
	SZA
	JMP .-4
	ISZ MWQPO1
	ISZ MWQPO2
	ISZ MWQCNT
	JMP MWQLOP

MWQRTF,	HLT
	TAD MWQSM
	PUT
	3
	INEND

MWQSM,	0
MWQPO1,	0
MWQPO2,	0
MWQCNT,	0
MWQCDF,	CDF




Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search