File CLEANR.PA (PAL assembler source file)

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




/******************* CLEANER FOR RESIDUAL ***********************



/CALL:	CLEANR
/	INPUT
/	OUTPUT			/14 BITS MAX!!!!!!!!!!!



CLEANR,	2


	BLOTNT
	CLINIT

	ACUM
	1
	TAD CLOFST
	SPA
	CLA CLL CMA RAR
	CLL CIA
	TAD CLREG
	SMA CLA
	JMP CLREJ
	ACUM
	1
CLINIT,	DCA CLREG
	DCA CLCNT
	PUT
	2

	INEND

CLREJ,	ISZ CLCNT
	NOP
	TAD CLOTTP
	CIA
	TAD CLCNT
	CLA SNA
	TAD CLREG
	PUT
	2
	TAD CLCLTP
	CIA
	TAD CLCNT
	SNA CLA
	DCA CLREG

	INEND


CLCNT,	0
CLREG,	0
CLOTTP,	14
CLCLTP,	40
CLOFST,	10






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