File SPITEX.PA (PAL assembler source file)

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




/********************* SIMPLE PITCH EXTRACTOR ***********************:


/CALL:	SPITEX
/	INPUT		/14 BITS MAX!!!!!!!!!!!!
/	OUTPUT
/	DECAY 
/	MINIMUM
/	STATE



SPITEX,	5
	BLOTNT
	SPINIT

	GETAD
	1
	DCA SPINP

	GETAD
	6
	DCA  SPSTP

	ACUM
	4
	ACUM
	5
	CIA
	TAD I SPSTP
	SPA
	CLA
	ACUM
	5
	DCA I SPSTP

	TAD I STINP
	SPA CLA
	JMP SPZERO
	TAD I SPINP
	CIA
	TAD I STSTP
	SMA SZA CLA
	JMP SPZERO

	TAD I SPINP
	DCA I SPSTP
	TAD I SPINP
SPZERO,	PUT
	2
	INEND



SPINIT,	PUT
	6
	JMP SPZERO


SPSTP,	0
SPINP,	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