<div id='wikitext'>
<pre><b> File: RESOV3.MA of Tape: Various/Tests/Blank-Tape-Unit1</b></pre>
<pre><b>(Source file text) </b></pre>
<hr />
<pre>
/OS/8 RESOURCES OVLY. 3 FOR KBM V40
/
/
/
/
/
/
/
/
/
/COPYRIGHT  (C)  1978 BY DIGITAL EQUIPMENT CORPORATION
/		 AND 1979 BY DATAPLAN GMBH
/
/
/
/
/
/
/
/
/
/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
/CORPORATION.  DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
/
/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
/(WITH INCLUSION OF DIGITAL&#039;S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
/
/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
/DIGITAL.
/
/
/
/
/
/
/
/
/
/
	LFT=33
	RT=LFT+1

	.ENTRY DNTONM

	.RSECT OV3
	FIELD 1

/DEVICE CODE TO NAME AND STORE ROUTINE
/	TAD NAM
/	JMS DNTONM
/	NORMAL RETURN (GOTIT)
/	ERROR RETURN (NOT IN LIST)

DNTONM,	0
	CIA
	DCA DCCODE	/STORE -DEV.CODE
	TAD PDVCDNM	/START SEARCH
	DCA DNPTR
DNLOOP,	CLA CLL
	TAD DCCODE
	TAD I DNPTR	/GET CODE,IS IT .GE. DCCODE?
	ISZ DNPTR
	SNA
	JMP DNFND+2	/EXACT
	SZL		
	JMP DNEXIT	/NOT IN LIST
	TAD I DNPTR	/SEE IF WE GET AN INDEXED NAME
	SZL
	JMP DNFND	/YES;OVERFLOW IS MAX#-#
	ISZ DNPTR
	ISZ DNPTR	/BUMP POINTER-SEARCH ON
	ISZ DNPTR
	JMP DNLOOP
DNFND,	CIA		/#-MAX#
	TAD I DNPTR	/#
	DCA	DCCODE
	ISZ DNPTR
	TAD I DNPTR	/TRANSFER NAME
	DCA LFT
	ISZ DNPTR
	TAD DCCODE	/ADD IN OFFSET
	TAD I DNPTR
	DCA RT
	JMP I DNTONM	/NORMAL RETURN
DNEXIT,	CLA CLL
	ISZ DNTONM	/NOT FOUND
	JMP I DNTONM

DNPTR,	0
DCCODE,	0
PDVCDNM,DVCDNM
/DEVICE NAME TABLE:	CODE
/			# OF OF INDEXED NAMES-1
/			DEVICE NAME
/7777 IN CODE ENDS LIST
/CODES IN INCREASING ORDER!

DVCDNM,	4000	/
	0
	DEVICE KIT7	/HAHA
	4004	/
	0
	DEVICE HDX
	4020	/
	0
	DEVICE LPT
	4023	/
	0
	DEVICE LST
	4024	/
	0
	DEVICE PTP
	4215	/4217
	2
	DEVICE RL0A
	4224	/
	0
	DEVICE PTR
	4315	/4317
	2
	DEVICE RL1A
	4325	/
	0
	DEVICE OUT
	4415	/4417
	2
	DEVICE RL2A
	4503	/4512
	7
	DEVICE CSA0
	4513	/
	0
	DEVICE DIAB
	4515	/4517
	2
	DEVICE RL3A
	4573	/4576
	3
	DEVICE DKA0
	4604	/4613
	7
	DEVICE DTA0
	4622	/
	0
	DEVICE TERM
	4631	/
	0
	DEVICE SYS
	4673	/4676
	3
	DEVICE DKB0
	4731	/
	0
	DEVICE TEST
	5074	/5103
	7
	DEVICE SLU0
	5374	/5377
	3
	DEVICE VLU0
	5524	/
	0
	DEVICE TTY
	5604	/5613
	7
	DEVICE LTA0
	5704	/5713
	7
	DEVICE MTA0
	5723	/
	0
	DEVICE DSK
	6000	/
	0
	DEVICE 0
	6002	/
	0
	DEVICE DBL
	6003	/6012
	7
	DEVICE DSK0
	6034	/
	0
	DEVICE	COMM
	6145	/
	0
	DEVICE DUMP
	6304	/
	0
	DEVICE CDP
	6311	/
	0
	DEVICE EIN
	6362	/6371
	7
	DEVICE RBA0
	6373	/6376
	3
	DEVICE RKA0
	6410	/6417
	7
	DEVICE RXA0
	6425	/
	0
	DEVICE AUS
	6464	/6467
	3
	DEVICE SDA0
	6473	/6476
	3
	DEVICE RKB0
	6504	/
	0
	DEVICE CDR
	6564	/6567
	3
	DEVICE SDB0
	6601	/
	0
	DEVICE BAT
	6605	/6614
	7
	DEVICE TUA0
	7010	/7017
	7
	DEVICE VXA0
	7116	/
	0
	DEVICE INP
	7205	/
	0
	DEVICE DEV
	7216	/
	0
	DEVICE VIDE
	7241	/
	0
	DEVICE NULL
	7265	/7274
	7
	DEVICE DEV0
	7310	/7317
	7
	DEVICE RXH0	/HIGH DENS FLOPPY?
	7421	/
	0
	DEVICE LQP
	7501	/7510
	7
	DEVICE LQP0
	7735	/
	0
	DEVICE LIST
	7777
</pre>
<hr/>
</div>