<div id='wikitext'>
<pre><b> File: PDPPLT.RA of Tape: Sources/Fortran/s2</b></pre>
<pre><b>(Source file text) </b></pre>
<hr />
<pre>
	FIELD1	PDPPLT
	EXTERN ONQI
	EXTERN	#DISMS
INTST,	0
	CLA CMA
	DCA%	PBFCNT+1
	TAD	PUBFMX+1
	CIA
	TAD	PUBFMN+1
	DCA%	PMBFLG+1
	TAD 	PUBFMN+1
	DCA%	OCHAR+1
	TAD	PUBFMN+1
	DCA%	ICHAR+1
	TAD	DISMS+1
	DCA%	PDISMS+1
	TAD	MACHCK
	SNA CLA
	6507
	CDF	10
	JMS%	QPLDBL+1
	JMS%	VONQI+1
	6501
	ADDR	INTPLT
	CIF CDF
	JMP%	INTST
VONQI,	ADDR	ONQI

SETUP,	0
	TAD	SETXR
	AND 	A3
	CLL RAR
	SZA
	SNL CLA
	IAC
	CLL
	JMS%	QPLDBL+1
	CIF CDF
	JMP%	SETUP
QPLDBL,	ADDR	PLDBL
A3,	3
SETXR,
OCHAR,	ADDR	POCHAR+1
PBFCNT,	ADDR	BUFCNT
MACHCK,
ICHAR,	ADDR	PICHAR+1
PMBFLG,	ADDR	MBUFLG
PUBFMN,	ADDR	USBFMN
PUBFMX,	ADDR	USBFMX
DISMS,	ADDR	#DISMS
PDISMS,	ADDR	DISPTR
USBFMN,	ZBLOCK 107
USBFMX,	0

	ORG	INTST+200

LEFT,	0
	JMS	GETXYS
	RTR
	RTR
	RTR
	JMS	PASSXY
	CIF CDF
	JMP%	LEFT
P7,	7
PASSXY,	0
	DCA	LETCD2
	TAD	LETCD2
	CLL RTR
	RAR
	AND	P7
	DCA	LETCD1
	TAD	LETCD2
	AND	P7
	DCA	LETCD2
	JMP%	PASSXY
RIGHT,	0
	JMS	GETXYS
	JMS	PASSXY
	CIF CDF
	JMP%	RIGHT
LETCOD,	0
LETCD1,	0
LETCD2,	0

GETXYS,	0
	TAD	LETCOD
	CLL
	TAD	LOCNPT
	DCA	LETCD2
	RAL
	TAD	LOCNFL
	CLL RTL
	RAL
	TAD	CDFINS
	DCA	NFLD
NFLD,	0
	TAD%	LETCD2
	CDF 10
	JMP%	GETXYS
CDFINS,	6201
LOCNFL,	0
LOCNPT,	0

OCT8BL,	6503
	6505
	40
	44
	4
	44
	20
	24
	4
	24
	40
	50
	10
	50
	20
	30
	10
	30

OCT12,	6504
	6524
	6511
	6513
	6522
	6513
	6521
	6523
	6522
	6523
	6511
	6515
	6514
	6515
	6521
	-6514
	6514
	-6514

FIGURE,	0
	CLL
	TAD	RATIO2
	TAD	HOLD2
	DCA	HOLD2
	RAL
	TAD	RATIO1
	TAD	HOLD1
	DCA	HOLD1
	CLL
	TAD	HOLD1
	RAL
	SNL
	JMP	MAJONL
	CLL RAR
	DCA	HOLD1
	IAC
	JMP%	FIGURE
MAJONL,	CLA
	JMP%	FIGURE
RATIO,	0
RATIO1,	0
RATIO2,	0
HOLD1,	0
HOLD2,	0

SPCAS,	0
	DCA	HOLD1
	TAD	RFUDGE
	DCA	HOLD2
	JMP%	SPCAS
RFUDGE,	1000
	ORG	LEFT+200
NXTLCN,
PLETPS,	ADDR	LOCNPT
COUNT,
PLCNM1,	ADDR	LOCNFL
TXTADR,	0
	0
	0
LETTER,	0
PSYMB,	ADDR	SYMTBL
PP7,	7

FINDLF,	0
	TAD	TXTADR+1
	AND	PP7
	CLL RTL
	RAL
	TAD	CDF
	DCA	DOCDF
DOCDF,	NOP
	TAD%	TXTADR+2
	CDF 10
	DCA	LETTER
	CLL
	TAD	LETTER
	RTR
	RTR
	RTR
	AND	P77
	JMS	FINDIT
	ISZ	TXTADR+2
	JMP	FLDOK
	ISZ	TXTADR+1
FLDOK,	CIF CDF
	JMP%	FINDLF

FINDIT,	0
	SPA SNA
	TAD	P40
	CIA CLL
	DCA	TXTADR
	DCA	COUNT
	TAD	PTRTBL+1
	DCA	NXTLCN
	TAD	PTRTBL
	CLL RTL
	RAL
	TAD	CDF
	DCA	SCANTB
SCANTB,	NOP
	TAD%	NXTLCN
	CDF 10
	TAD	COUNT
	DCA	COUNT
	ISZ	NXTLCN
	SKP
	TAD	P10
	TAD	SCANTB
	DCA	SCANTB
	ISZ	TXTADR
	JMP	SCANTB
	CLL
	TAD	COUNT
	TAD	PSYMB+1
	DCA%	PLETPS+1
	RAL
	TAD	PSYMB
	DCA%	PLCNM1+1
	JMP%	FINDIT
P40,	40
P77,	77
PTRTBL,	ADDR	SYMCNT
CDF,	6201
P10,	10

FINDRT,	0
	TAD	LETTER
	AND	P77
	JMS	FINDIT
	CIF CDF
	JMP%	FINDRT

PASNUM,	0
	TAD	TXTADR
	IAC
	SNA
	JMP	USZRO
	TAD	T2
	SPA
	JMP	USZRO
	TAD	M15
	SPA CLA
	JMP	USEIT
USZRO,	CLA
INDEX,	TAD	P60
	JMS	FINDIT
	CIF CDF
	JMP%	PASNUM
USEIT,	TAD	TXTADR
	JMP	INDEX

PASINT,	0
	TAD	TXTADR
	SPA SNA
	JMP	USSPAC
	TAD	M166
	SMA
	JMP	USSPAC
	TAD	A22
	SMA
	JMP	OKVAL
	TAD	P44
	SMA CLA
	JMP	USSPAC
	TAD	TXTADR
ACHAR,	JMS	FINDIT
	CIF CDF
	JMP%	PASINT
USSPAC,	CLA
	TAD	P40
	JMP	ACHAR
OKVAL,	TAD	P100
	JMP	ACHAR
P100,	100
A22,	22
P44,	44
M166,	-166
P60,	60
M15,	-15
T2,	2
	ORG	NXTLCN+200
	EXTERN	#HANG
NINPLT,	0
	TAD	TOTSTP
	CMA
	DCA	TOTSTP
	JMS%	PSPCAS+1
MORE,	ISZ	TOTSTP
	JMP	ANOTHR
DONE,	CIF CDF
	JMP%	NINPLT
ANOTHR,	JMS%	PFIGUR+1
	TAD	PDPXR
	JMS	PLDBL
	JMP	MORE
PLDBL,	0
	TAD	POCTBL+1
	TAD	MACHTP
	DCA	PLTVCT
	CIF 10
	TAD	BUFCNT
	TAD	MBUFLG
	CLL
	SPA CLA
	JMP	ISROOM
	IOF
	CIF 0
	JMS%	PHANG+1
DISPTR,	0
	ION
ISROOM,	TAD%	PLTVCT
	DCA%	PICHAR+1
	ISZ	PICHAR+1
	TAD	PICHAR+1
	CIA
	TAD	PBMX+1
	CLL
	SMA CLA
	JMP 	LIMOK
	TAD	PBMN+1
	DCA	PICHAR+1
LIMOK,	ISZ	BUFCNT
	JMP%	PLDBL
	JMP	OUTSUB

PENOP,	0
	TAD	PDPXR
	JMS	PLDBL
	CIF CDF
	JMP%	PENOP
PDPXR,	0
TOTSTP,	0
PSPCAS,	ADDR	SPCAS
POCHAR,	ADDR	USBFMN
INTFLG,
PHANG,	ADDR	#HANG
PICHAR,	ADDR	USBFMN
BUFCNT,
POCTBL,	ADDR	OCT8BL
MBUFLG,
PBMN,	ADDR	USBFMN
MACHTP,
PFIGUR,	ADDR	FIGURE
PLTVCT,
PBMX,	ADDR	USBFMX

OUTSUB,	CLA
	TAD%	POCHAR+1
	DCA	QTEMP5
	ISZ	POCHAR+1
	TAD	POCHAR+1
	CIA
	TAD	PBMX+1
	CLL
	SMA CLA
	JMP	CLRFLG
	TAD	PBMN+1
	DCA	POCHAR+1
CLRFLG,	6502
	TAD	QTEMP5
	AND	A7000
	SZA CLA
	JMP	PENUD
	TAD	QTEMP5
	6506
	CLA
	JMP	OUTCHK
PENUD,	TAD	QTEMP5
	SMA CLA
	JMP	TWOWD
QTEMP5,	0
OUTCHK,	TAD	INTFLG
	SNA CLA
	JMP%	PLDBL
	DCA	INTFLG
	CIF CDF
	JMP%	XDISMS+1
XDISMS,	ADDR	#DISMS
A7000,	7000
TWOWD,	6514
	6521
	JMP	OUTCHK

INTPLT,	0
	CLA CMA
	TAD	BUFCNT
	SPA
	JMP	EMPTY
	DCA	BUFCNT
	ISZ	INTFLG
	NOP
	JMP	OUTSUB
EMPTY,	CLA CMA
	DCA	BUFCNT
	6502
	JMP%	INTPLT

DONECK,	0
	CLA
	JMS	PLDBL
WAIT,	TAD	BUFCNT
	SMA CLA
	JMP	WAIT
	TAD	MACHTP
	SNA CLA
	6500
	CIF CDF
	JMP%	DONECK
</pre>
<hr/>
</div>