File STSTK2.PA (PAL assembler source file)

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

FIELD 1
*4000

CLA CLL
	NTBLIP
	INBLIP
	STSTK2
	A
	BLNTOF
	BLOUT
LP,	ISZ A
	NOP

	INBLIP
	STSTK2
	A
	BLOUT

	MOSTSR
	JMP LP

A,	0;0

STSTK2,	1
	BLOTNT
	STSTNT
	GETAD
	1
	DCA STADR
	SWAB
	CAM DAD
	
STADR,	0
	NMI
	SCA CLA
	SZA CLA
	TAD (-27
	CIA
	TAD TABLA
	DCA TABLP
	ISZ I TABLP
	INEND

STSTNT,	TAD TABLA
	DCA TABLP
	TAD (-30
	DCA TABLC
	DCA I TABLP
	ISZ TABLP
	ISZ TABLC
	JMP .-3
	INEND

TABLP,	0
TABLC,	0
TABLA,	TABL
TABL,	ZBLOCK 30

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