/BOOT				EDITED 10/8/73
/COPYRIGHT 1972, 1973
/DIGITAL EQUIPMENT CORPORATION
/MAYNARD, MASS.  01754
	/SR
/
/THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE
/ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION
/OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT
/AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC.
/
/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
/NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
/EQUIPMENT CORPORATION.
/
/DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
/OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
/

	PTR=14
	OLDLOC=15
	NEWLOC=16
	CDOIO=27
	SCAN=17
	*100
INNER,	0
OUTR,	-20
CODE,	0
LENGTH,	0
ERROR,	TAD I [7600
	SPA CLA
	JMP I (OS8
COS,	CLA IAC
	JMS I CDOIO
	Q-1
	NOP
	JMP I [7600
Q,	-1
	5760

PUT,	0
	TLS
	TSF
	JMP .-1
	CLA
	JMP I PUT
GET,	0
	KSF
	JMP .-1
	KRB
	TLS
	TSF
	JMP .-1
	TAD [-203
	SNA
	JMP I [7605
	TAD [203-377
	SNA
	JMP I (RETRY
	TAD [377-215
	SNA
	ISZ GET
	TAD [215
	AND [77
	JMP I GET

	*200
START,	TAD I [7600
	SPA CLA
	JMP OS8IN
	ISZ INNER
	JMP .-1
	ISZ OUTR
	JMP .-3
	TAD [70
	6732
	SZA CLA
	JMP RK05
COSIN,	TAD I [7776
COMN,	CIA
	DCA CODE
	TAD [TABLE-1
	DCA PTR
LOOP,	TAD I PTR
	SNA
	JMP ERROR
	TAD CODE
	SZA CLA
	JMP NXT
	IOF
	STA
	TAD I PTR
	DCA OLDLOC
	STA
	TAD I PTR
	DCA NEWLOC
	TAD I PTR
	CIA
	DCA LENGTH
	TAD I OLDLOC
	DCA I NEWLOC
	ISZ LENGTH
	JMP .-3
	TAD I PTR
	DCA TEMP
	JMP I TEMP
RK05,	TAD [RK8E
	DCA I [RKADR
	JMP COSIN
NXT,	TAD PTR
	TAD [4
	DCA PTR
	JMP LOOP

OS8,	TAD ["N
	JMS PUT
	TAD ["O
	JMS PUT
RETRY,	JMS CRLF
	TAD ["/
	JMS PUT
	JMS GET
	SKP
	JMP RETRY
	CLL RTL
	RTL
	RTL
	DCA TEMP
	JMS GET
	SKP
	JMP RETRY
	TAD TEMP
	DCA TEMP
	JMS GET
	JMP .-1
	CLA
	JMS CRLF
	TAD TEMP
	JMP COMN
OS8IN,	TAD I [1000
	TAD [777
	SNA CLA
	TAD [600
	TAD [1000-1
	DCA SCAN
SKAN,	TAD I SCAN
	SNA
	JMP RETRY
	TAD [-"/
	SZA CLA
	JMP SKAN
	TAD I SCAN
	AND [77
	CLL RTL
	RTL
	RTL
	DCA TEMP
	TAD I SCAN
	AND [77
	TAD TEMP
	JMP COMN
TEMP,	0
CRLF,	0
	TAD [215
	JMS PUT
	TAD [212
	JMS PUT
	JMP I CRLF

TABLE,	0424	/DT
	DECTAP
	7554
	25
	7554
	2213	/RK
RKADR,	RK8
	21
	11
	21
	2404	/TD
	TD8E
	7277
	34
	7277
	1424	/LT
	LINCTP
	4400
	7
	4400
	2206	/RF
	RF08
	7746
	7
	7746
	2024	/PT
	BINLDR
	7626
	152
	7700
	3205	/ZE
	ZERO
	4
	6
	4
	2431	/TY
	TYPSET
	7730
	42
	7730
	0414	/DL
	DIAL
	4012
	6
	4012
	0

DECTAP,	7600
	6774
	1374
	6766
	6771
	5360
	7240
	1354
	3773
	1354
	3772
	1375
	6766
	5376
	7754
	7755
	0600
	0220
	6771
	5376

RK8,	6732
	6751
	6745
	5023
	6742
	6753
	6755
	6733
	5031
RK8E,	7000
	7000
	7000
	7000
	7201
	6742
	6742
	6743
	5031

TD8E,	6007
	1312
	4312
	4312
	6773
	5303
	6777
	3726
	2326
	5303
	5732
	2000
	1300
	6774
	6771
	5315
	6776
	0331
	1327
	7640
	5315
	2321
	5712
	7354
	7756
	7747
	0077
	7400

LINCTP,	6141
	1020
	0020
	0004
	0700
	0000
	6020

RF08,	6643
	6615
	7600
	6603
	6622
	5352
	5752

BINLDR,	0000
	3212
	4260
	1300
	7750
	5237
	2212
	7040
	5227
	1212
	7640
	5230
	1214
	0274
	1341
	7510
	2226
	7750
	5626
	1214
	0256
	1257
	3213
	5230
	0070
	6201
	0000
	0000
	6031
	5262
	6036
	3214
	1214
	5660
	6011
	5270
	6016
	5265
	0300
	4343
	7041
	1215
	7402
	6032
	6014
	6214
	1257
	3213
	7604
	7700
	1353
	1352
	3261
	4226
	5313
	3215
	1213
	3336
	1214
	3376
	4260
	3355
	4226
	5275
	4343
	7420
	5336
	3216
	1376
	1355
	1215
	5315
	0000
	3616
	2216
	7600
	5332
	0000
	1376
	7106
	7006
	7006
	1355
	5743
	5262
	0006
	0000
	0000
	6014
	6011
	5357
	6016
	7106
	7006
	7510
	5374
	7006
	6011
	5367
	6016
	7420
	3776
	3376
	5357
	0000
	5301

ZERO,	1005
	3410
	5004
	5404
	0011
	2010

DIAL,	6141
	1020
	0020
	0004
	0701
	7300

/	7300
/	6002
/	6042
/	6022
/	6012
/	6032
/	6601
/	6764
/	1221
/	3010
/	1622
/	2222
/	7450
/	5620
/	3410
/	5212
/	7730
/	7727
/	0223
TYPSET,	6774
	1347
	4341
	7240
	1353
	3355
	1352
	4341
	5753
	7777
	6766
	3354
	6771
	5344
	5741
	4600
	7777
	7777
	4220
	7400
	7777
	7777
	7777
	6014
	6011
	5360
	7106
	6012
	7420
	5357
	5756
	4356
	3373
	4356
/	0000
	$