File PSDIAL.PA (PAL assembler source file)

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

/ PS/8 TO DIAL CONVERSION
/
/ OUTPUT GOES TO BLOCK 0 AND FOLLOWING
/ ON UNIT 1, INPUT USES IOBUFF
/
*20
SETUP=7000
ENDFIL=177
GET=JMS I 174
PUT=JMS I .;PUTD

*200
	JMS SETUP
	TAD (EOF)
	DCA ENDFIL
NCHAR,	GET
	SNA
	JMP NCHAR
	DCA CHAR
	TAD CHAR
	TAD (-340)
	SMA
	JMP NCHAR
	TAD (340-240)
	SPA
	JMP SPECAL
	TAD (240)
	AND (77)
	TAD (-43)
	SNA
	JMP NCHAR
	TAD (43-47)
	SNA
	JMP NCHAR
DIALTB,	TAD (47)
	PUT
	JMP NCHAR
SPECAL,	TAD (240-215)
	SNA
	JMP DIALEL
	IAC
	SNA
	JMP DIALEL	/FF = EOL
	TAD (214-211)
	SZA CLA
	JMP NCHAR
	JMP DIALTB
DIALEL,	TAD (43)
	PUT
	JMP NCHAR
EOF,	PUT
	ISZ COUNTE
	JMP EOF
	JMP I (7600)
COUNTE,	-1000

PUTD,	0
	AND (77)
	DCA XCHAR
	TAD XCHAR
	TAD (-43)
	SZA CLA
	JMP NOTEOL
	TAD LCHAR
	TAD (-43)
	SZA CLA
	JMP NOTEOL
	TAD (57)
	JMS PUTIT
NOTEOL,	TAD XCHAR
	DCA LCHAR
	TAD XCHAR
	JMS PUTIT
	JMP I PUTD

PUTIT,	0
	ISZ SWITCH
	JMP RHALF
LHALF,	CLL RTL; RTL; RTL
	DCA I POINT
	JMP I PUTIT
RHALF,	TAD I POINT
	DCA I POINT
	STA
	DCA SWITCH
	ISZ POINT
	ISZ COUNT
	JMP I PUTIT
	LINC
	LDF 0
	AXO
	WRC U
PUTBN,	3000
	PDP
	CLA IAC
	TAD PUTBN
	DCA PUTBN
	TAD (OBUFF)
	DCA POINT
	TAD (-400)
	DCA COUNT
	JMP I PUTIT

POINT,	OBUFF+2
COUNT,	-400+2
SWITCH,	7777
CHAR,	0
XCHAR,	0
LCHAR,	0

*1400

	TEXT "*20#"

LINC=6141
WRC=704
PDP=2
LDF=640
AXO=1
U=10

OBUFF=1400

$

POINT STA DCA SWITCH ISZ POINT ISZ COUNT JMP I PUTIT LINC LDF 0 AXO WRC U PUTBN, 3000 PDP CLA IAC TAD PUTBN DC



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