File TYPWRT

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

*20
	CLR
	SET I 15
	-100
	SET I 14
	TAB1-4001
	LDA I
	240
	STA I 14
	XSK I 15
	JMP .-3
BEGIN,	LDA I
	TAB1-1
	STC TBEND-4000
	PDP
	PMODE
	KCC
	TLS
IN,	KSF
	JMP RFSH
	KRB
	TAD NCR
	CML
	SNA
	JMP OUT
	TAD CR
	ISZ TBEND
	SNL
	DCA I TBEND
	CLA
	TAD I TBEND
	JMS TYPE
	CLA
	JMP IN
RFSH,	LINC
	LMODE
	SNS 0
	JMP .+5
	SFA
	BCL I
	200
	ESF
	SET I 1
	40
	SET I 16
	TAB1-4001
MORE,	LDA
	TBEND-4000
	ADA I
	-4000
	SAE
	16
	JMP .+3
	PDP
	PMODE
	JMP IN
	LMODE
	LDA I 16
	BCL I
	7700
	ROL 1
	ADA I
	ZSTART-4001
	STC 17
	LDA I
	0000
	DSC I 17
	DSC I 17
	LDA I
	4
	ADM
	1
	JMP MORE
	PMODE
OUT,	TAD CR
	JMS TYPE
	CLA
	TAD LF
	JMS TYPE
	CLA CLL
	CML
	KCC
	LINC
	LMODE
	JMP BEGIN
	PMODE
TYPE,	0000
	TSF
	JMP .-1
	TLS
	JMP I TYPE
CR,	215
NCR,	-215
LF,	212
TBEND,	0000
/BEGIN TAB1
	PMODE
	*4500
TAB1,	0000
	PMODE
	*5002
/ADD PATRNS HERE



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