*20
/
/
/
/	FPP NUCLEUS AND I/O ROUTINES.
/
/
/
/
/
/
/	COPYRIGHT 1971
/	DIGITAL EQUIPMENT CORPORATION
/	146 MAIN STREET,
/	MAYNARD, MASSACHUSSETTS.
/				01754
/
/
/
/	WRITTEN BY JACK BURNESS.
/
/
/
/
/
/
/
/
/
/
/
/
/
/
	FPPOLD=.
	ORG	0
	0
	JMP I	.+1
	FPPINT
	FPPXXX
	FPPCTL
	FPPTAB
	ORG	200
	IFREF	FPPORG
	ORG	FPPORG
	$
	PAGE
FPPCTL,	0
	CLA
	TAD I	FPPCTL
	ISZ	FPPCTL
	AND	(17
	TAD	FPPCTL+10
	DCA	.+1
	0
	JMP I	.+1
	FPPCTL+33
	FPPCTL+45
	FPPCTL+47
	FPPCTL+51
	FPPCTL+53
	FPPCTL+55
	FPPCTL+57
	FPPCTL+61
	FPPCTL+63
	FPPCTL+101
	FPPCTL+112
	FPPCTL+114
	FPPCTL+31
	FPPCTL+31
	FPPCTL+31
	FPPCTL+31
	CLA
	JMP I	FPPCTL
	TAD	FPPTAB+1
	AND	(7770
	DCA	FPPTAB+1
	JMS	FPPCTL+124
	AND	(7
	TAD	FPPTAB+1
	DCA	FPPTAB+1
	JMS	FPPCTL+124
	DCA	FPPTAB+2
	JMP I	FPPCTL
	JMS	FPPCTL+116
	FPPCTL+263
	JMS	FPPCTL+116
	FPPCTL+333
	JMS	FPPCTL+116
	FPPCTL+240
	JMS	FPPCTL+116
	FPPCTL+247
	JMS	FPPCTL+116
	FPPCTL+331
	JMS	FPPCTL+116
	FPPCTL+236
	JMS	FPPCTL+116
	FPPCTL+265
	TAD	FPPTAB
	FPCOM
	CLA
	TAD	(FPPTAB+1
	FPST
	SKP CLA
	JMP	FPPCTL+31
	JMS I	FPPCTL+75
	CLA
	JMP	FPPCTL+63
	.+1
	0
	FPICL
	JMP I	.-2
	FPICL
	TAD	(2400
	DCA	FPPTAB
	JMS I	FPPOOO
	JMP I	FPPCTL
FPPOOO,	.+2
	.+1
	0
	JMP I	.-1
	JMS	FPPCTL+116
	FPPOOO+1
	JMS	FPPCTL+116
	FPPCTL+75
	0
	TAD I	.-1
	DCA	.-2
	JMS	FPPCTL+124
	DCA I	.-4
	JMP I	FPPCTL
	0
	TAD I	FPPCTL
	ISZ	FPPCTL
	JMP I	.-3
	0
	CLA
	
	TAD I	.-2
	DCA	.-3
	JMS I	.-4
	CLA CLL
	TAD	3
	DCA	FPPCTL+130
	TAD	FPPTAB-4
	7421
	TAD	FPPTAB-3
	CLL RAL
	TAD	FPPTAB-2
	JMP I	FPPCTL+130
FPPXXX,	JMP I	0
	0
	0
	0
	0
FPPTAB,	2400
	0
	0
	0
	0
	0
	0
	0
	0
	PAGE
FPPINT,	DCA I	(FPPTAB-2
	RAR
	DCA I	(FPPTAB-3
	7701
	DCA I	(FPPTAB-4
	JMS I	FPPITS
	FPIST
	JMP I	(FPPCTL+135
	DCA I	(FPPTAB-1
	CLA CLL CML RAR
	AND I	(FPPTAB-1
	TAD	(2400
	DCA I	(FPPTAB
	TAD I	(FPPTAB-1
	RTL
	SZL
	JMP	FPPCTL+272
	SPA
	JMP	FPPCTL+264
	RTL
	SZL
	JMP	FPPCTL+262
	SPA
	JMP	FPPCTL+246
	RTL
	SZL
	JMP	FPPCTL+332
	SPA CLA
	JMP	FPPCTL+237
	JMS I	(FPPCTL+130
	FPPOOO+2
	JMS I	(FPPCTL+130
	.+1
	0
	DCA I	(FPPTAB+6
	DCA I	(FPPTAB+7
	DCA I	(FPPTAB+10
	JMP	FPPCTL+325
	JMS I	(FPPCTL+130
	.+1
	0
	CLA CLL CML RAR
	AND I	(FPPTAB+7
	SMA
	CLA CLL CMA RAR
	DCA I	(FPPTAB+7
	SZL
	CMA
	DCA I	(FPPTAB+10
	JMP	FPPCTL+325
	JMS I	(FPPCTL+130
	FPPCTL+334
	JMS I	(FPPCTL+130
	.+1
	0
	JMS I	4
	10
	JMP I	.-3
	CLA CLL CMA RAL
	TAD I	(FPPTAB+2
	DCA	FPPCTL+266
	SZL
	CMA
	TAD I	(FPPTAB+1
	RTL
	RAL
	AND	(70
	TAD	.+4
	DCA	.+1
	0
	TAD I	FPPCTL+266
	CDF	0
	SPA CLA
	JMP	FPPCTL+330
	TAD I	(FPPTAB+1
	RTR
	RTR
	RTR
	AND	(70
	TAD	(6203
	DCA	.+2
	TAD I	(FPPTAB+5
	0
	DCA	FPPCTL+266
	JMS I	FPPCTL+266
	CLA
	JMS	FPPCTL+266
	JMP I	(FPPCTL+135
	JMS I	(FPPCTL+130
	FPPCTL+266
	JMS I	(FPPCTL+130
	.+1
	0
	CLA CLL CMA RAR
	DCA I	(FPPTAB+6
	JMS	FPPCTL+250
FPPITS,	FPPOOO+2
	PAGE
	IFREF	BUFFER
	PAGE
	BUFFER=.
	ORG	FPPOOO
	BUFFER+30
	ORG	FPPITS
	BUFFER+402
	ORG	BUFFER
	0
	TAD I	BUFFER+16
	DCA I	BUFFER+166
	CLA CMA
	TAD	BUFFER+23
	DCA	BUFFER+23
	TAD I	BUFFER+16
	TAD I	(BUFFER+262
	SZA CLA
	JMP	.+4
	CLA CMA
	TAD	BUFFER+22
	DCA	BUFFER+22
	JMS I	(BUFFER+220
	GPLOW
	JMP I	BUFFER
	27
	0
	0
	0
	GPLOW-GPHIGH-1
	0
	0
	GPLOW
	0
	DCA	BUFFER+23
	DCA	BUFFER+22
	DCA	BUFFER+26
	TAD	BUFFER+27
	DCA	BUFFER+16
	TAD	BUFFER+27
	DCA I	(BUFFER+216
	JMS I	(BUFFER+357
	JMP I	BUFFER+30
	0
	KSF
	JMP I	.-2
	KRB
	AND	BUFFER+153
	TAD	BUFFER+154
	DCA	BUFFER+25
	TAD I	BUFFER+167
	DCA	BUFFER+30
	TAD	BUFFER+25
	JMS I	BUFFER+30
	SKP CLA
	JMP	BUFFER+103
	TAD	BUFFER+25
	TAD I	(BUFFER+262
	SNA
	JMP	BUFFER+116
	TAD	BUFFER+155
	SNA
	JMP I	(BUFFER+200
	TAD	BUFFER+156
	SNA CLA
	JMP	BUFFER+135
	TAD	BUFFER+25
	JMS I	(BUFFER+204
	TAD	BUFFER+26
	SNA CLA
	JMP	BUFFER+101
	DCA	BUFFER+26
	TAD	BUFFER+157
	JMS	BUFFER+105
	TAD	BUFFER+25
	JMS	BUFFER+105
	CLA
	JMP I	BUFFER+42
	0
	DCA I	(BUFFER+232
	TAD I	BUFFER+163
	TAD I	BUFFER+164
	SNA CLA
	JMP I	BUFFER+105
	TAD I	(BUFFER+232
	JMS I	BUFFER+165
	JMP I	BUFFER+105
	ISZ	BUFFER+22
	TAD	BUFFER+160
	JMS I	(BUFFER+204
	CLA
	TAD	BUFFER+26
	SNA CLA
	JMP	.+4
	DCA	BUFFER+26
	TAD	BUFFER+157
	JMS	BUFFER+105
	TAD	BUFFER+160
	JMS	BUFFER+105
	TAD	BUFFER+161
	JMS	BUFFER+105
	JMP I	BUFFER+42
	TAD	BUFFER+26
	SZA CLA
	JMP	BUFFER+143
	ISZ	BUFFER+26
	TAD	BUFFER+157
	JMS	BUFFER+105
	JMS I	(BUFFER+232
	SPA SNA
	JMP	BUFFER+121
	JMS	BUFFER+105
	JMP I	BUFFER+42
	TAD	BUFFER+162
	JMS	BUFFER+105
	JMP I	BUFFER+42
	177
	200
	-10
	-152
	334
	215
	212
	207
	BUFFER+325
	BUFFER+326
	BUFFER+272
	FPPTAB+10
	FPPOOO+1
	PAGE
	JMS	BUFFER+232
	SMA SZA CLA
	JMP	.-2
	JMP I	(BUFFER+135
	0
	DCA I	(BUFFER+105
	TAD I	(BUFFER+23
	TAD I	(BUFFER+24
	SNA CLA
	JMP I	(BUFFER+150
	TAD I	(BUFFER+105
	DCA I	BUFFER+216
	ISZ I	(BUFFER+23
	JMS	BUFFER+220
	GPLOW
	JMP I	BUFFER+204
	0
	ISZ I	.-1
	TAD I	.-2
	TAD	BUFFER+265
	SZA CLA
	JMP	BUFFER+230
	TAD I	(BUFFER+27
	DCA I	BUFFER+220
	ISZ	BUFFER+220
	JMP I	BUFFER+220
	0
	CLA CMA
	TAD I	(BUFFER+23
	SPA
	JMP I	BUFFER+232
	DCA I	(BUFFER+23
	CLA CMA
	TAD	BUFFER+216
	DCA	BUFFER+216
	TAD	BUFFER+216
	TAD	BUFFER+264
	SZA CLA
	JMP	.+3
	TAD	BUFFER+263
	DCA	BUFFER+216
	TAD I	BUFFER+216
	TAD	BUFFER+262
	SNA CLA
	JMP	BUFFER+257
	TAD I	BUFFER+216
	JMP I	BUFFER+232
	TAD I	(BUFFER+160
	JMS	BUFFER+204
	JMP I	BUFFER+232
	-215
	GPHIGH
	-GPLOW+1
	-GPHIGH-1
	0
	TAD I	(FPPTAB+10
	JMS	BUFFER+272
	JMP I	BUFFER+266
	0
	DCA	BUFFER+232
	TAD	BUFFER+325
	TAD	BUFFER+326
	SNA CLA
	JMP	BUFFER+307
	TAD	BUFFER+232
	DCA I	BUFFER+305
	ISZ	BUFFER+325
	JMS	BUFFER+333
	JMS	BUFFER+314
	PULOWER
	JMP I	BUFFER+272
	JMS I	4
	0
	JA	BUFFER+430
	JMP I	BUFFER+272
	0
	TAD I	.-1
	TAD	BUFFER+327
	SNA
	TAD	BUFFER+330
	TAD	BUFFER+331
	DCA I	BUFFER+314
	ISZ	BUFFER+314
	JMP I	BUFFER+314
	0
	PULOWER-PUUPPER-1
	-PUUPPER
	PULOWER-PUUPPER-1
	PUUPPER+1
	0
	0
	TSF
	JMP	.+3
	TCF
	DCA	BUFFER+332
	TAD	BUFFER+325
	SNA CLA
	JMP I	BUFFER+333
	TAD	BUFFER+332
	SZA CLA
	JMP I	BUFFER+333
	TAD I	BUFFER+355
	TLS
	CLA CMA
	TAD	BUFFER+325
	DCA	BUFFER+325
	ISZ	BUFFER+332
	JMS	BUFFER+314
	PULOWER
	JMP I	BUFFER+333
	0
	TAD	BUFFER+305
	DCA	BUFFER+355
	DCA	BUFFER+325
	DCA	BUFFER+332
	JMP I	.-5
	PAGE
	BUFFER+42
	BUFFER+333
	0
	JMS I	.-2
	JMS I	.-4
	JMP I	.-3
GETC,	JA	.
	FLDA	BUFFER+20
	JEQ	GETC+2
	TRAP3	BUFFER
	FNORM
	JA	GETC
PUTC,	JA	.
	ALN	0
	TRAP3	BUFFER+266
	JA	PUTC
	LDX	-1000,0
	JXN	.,0+
	JA	BUFFER+424
IOOUTW,	JA	.
	STARTD
	FLDA	BUFFER+324
	ATX	0
	STARTF
	JXN	IOOUTW+2,0
	JA	IOOUTW
	GPLOW=.
	PAGE
	GPHIGH=.-1+13
	PULOWER=GPHIGH+1
	PUUPPER=.+177
	0
	PAGE
	$
	IFPOS	FPPOLD-.
	ORG	FPPOLD
	$
	CHAIN	"FPPLB1"1