File PCLEAN.PA (PAL assembler source file)

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

FIELD 2


*6400



/*************** CLEANER FOR NNX14 BIT WORDS ************************




/CALL:	PCLEAN
/	INPUT
/	INPUT PRECISION
/	OUTPUT
/	OUTPUT TAP
/	CLEAR TAP
/	COUNT			/ONE WORD STATE
/	REGISTER		/ZBLOCK N STATE



PCLEAN,	7

	BLOUT

	GETAD
	6
	DCA CLCNTP

	INBLIP

	BLOTNT
	CLINIT

	INBLIP

	COMPLM
	1
	CLTEM1

	ADDER
	CLTEM1
	NNX14
	7
	NNX14
	ONE
	CLTEM1

	BLOUT

	CLA
	TAD CLTM1P
	DCA TM2POI
	ACUM
	2
	DCA PRECIS
	JMS SIGNSR
	SNL CLA
	JMP CLREJ
CLINIT,	DCA I CLCNTP	/RESET COUNT

	INBLIP

	COPY			/INPUT BIGGER THAN REG.
	1
	7

	COPY
	ZERO
	3

	BLEND

CLREJ,	ISZ I CLCNTP		/INPUT SMALLES THAN REG.
	NOP
	ACUM
	4
	CIA
	TAD I CLCNTP
	CLA SZA
	JMP CLOVER

	INBLIP

	COPY			/DO OUTPUT
	7
	3

	BLOUT

CLCONT,	ACUM			/CHECK FOR CLEAR REG.
	5
	CIA
	TAD I CLCNTP
	SMA CLA
	JMP CLCLER
	INEND

	
CLOVER,	INBLIP			/NO OUTPUT BUT CHECK FOR CLEAR

	COPY
	ZERO
	3

	BLOUT
	JMP CLCONT


CLCLER,	DCA I CLCNTP		/CLEAR REGISTER AND COUNT

	INBLIP

	COPY
	ZERO
	7

	BLEND



CLTEM1,	ZBLOCK N
CLTM1P,	CLTEM1
CLCNTP,	0

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