.MCALL	.MODULE
.MODULE	ERRTXT,VERSION=10,COMMENT=<Error Log Text File>

; Copyright (c) 1998 by Mentec, Inc., Nashua, NH.
; All rights reserved
;
; This software is furnished under a license for use only on a
; single computer system and  may  be  copied  only  with  the
; inclusion of the above copyright notice.  This software,  or
; any other copies thereof, may not be provided  or  otherwise
; made available to any other person except for  use  on  such
; system and to one who agrees to these license  terms.  Title
; to  and  ownership of the software shall at all times remain
; in Mentec, Inc.
;
; The information in this document is subject to change without
; notice and should not be construed as a commitment by Digital
; Equipment Corporation, or Mentec, Inc.
;
; Digital and Mentec  assume  no  responsibility for the use or
; reliability of its software on equipment which is not supplied
; by Digital  or Mentec,  and listed  in the  Software  Product
; Description.
ELERRT	== 0
	.SBTTL	DEVICE DEPENDENT TEXT BUILDER
	.MACRO	ELBLDR	DVCODE,DTYPE,WHICH1,FIRST2,RGSTR
	.IIF B	DVCODE,	.ERROR
	.IIF LT	DVCODE,	.ERROR
	.IIF GT	<DVCODE-377>,	.ERROR
	.PSECT	PART1
DV'DVCODE:
	.IF IDN	<WHICH1>,<DISK>
		.BYTE	0
	.IFF
	 .IF IDN <WHICH1>,<TAPE>
		.BYTE	5
	 .IFF
	.ERROR	WHICH1
	 .ENDC
	.ENDC
	.NCHR	SYMTYP,<DTYPE>
	.IIF GT <SYMTYP-59.>,	.ERROR
		.BYTE	SYMTYP
		.ASCII	%DTYPE%
	.NCHR	SYMFIR,<FIRST2>
	.IF NE	<SYMFIR-2>
	.ERROR FIRST2
	.ENDC
		.ASCII	%FIRST2%
		.BYTE	COUNT
	COUNT	= -1
	.BYTE	TMP'DVCODE
	.IRP	NAME,<RGSTR>
	COUNT	= COUNT + 1
	.NCHR	SYMREG,<NAME>
	.IIF NDF CHR'DVCODE,CHR'DVCODE=SYMREG
	 .IF LT	CHR'DVCODE-SYMREG
	CHR'DVCODE = SYMREG
	 .ENDC
	.ENDR
	.IF GT <CHR'DVCODE-13.>
	.ERROR
	.ENDC
TMP'DVCODE	= CHR'DVCODE
	.IRP	NAME,<RGSTR>
	.NCHR	SYMREG,<NAME>
		.ASCII	%NAME%
	 .REPT	CHR'DVCODE-SYMREG
		.BYTE	40
	 .ENDR
	.ENDR
	.EVEN
	.PSECT	PART2
	.IF NDF	POINTL
POINTL::
	.ENDC
	.IF EQ	.-POINTL
POINTL::
	.IFF
	.	= .-4
	.ENDC
		.WORD	DVCODE
		.WORD	DV'DVCODE
		.WORD	-1,-1
	.ENDM	ELBLDR
	.SBTTL	SUPPORTED DEVICES
	ELBLDR	0,<RK11/RK05>,DISK,RK,<DS,ER,CS,WC,BA,DA,DB>
	ELBLDR	1,<TC11/TU56>,TAPE,TC,<ST,CM,WC,BA,DT>
	ELBLDR	5,<RL11/RL01/RL02>,DISK,RL,<CS,BA,DA,MP,STAT,ADDR,BAE>
	ELBLDR	6,<RX211/RX02>,DISK,RX,<2CS,2DB,2ES>
	ELBLDR	12,<RF11/RS11>,DISK,RF,<CS,WC,MA,DA,AE,BR,MA,AS>
	ELBLDR	16,<RJS03/RJS04>,DISK,RS,<CS1,WC,BA,DA,CS2,DS,ER,AS,LA,DB,MR,DT>
	ELBLDR	21,<RP11C/RP02/RP03>,DISK,RP,<DS,ER,CS,WC,BA,CA,DA,M1,M2,M3,-SUCA,-SILO>
	ELBLDR	22,<RX11/RX01>,DISK,RX,<CS,DB,ES>
	ELBLDR	23,<RK06/RK07>,DISK,RK,<CS1,WC,BA,DA,CS2,DS,ER,ASOF,DC,ECPS,ECPT,MR2,MR3>
	ELBLDR	34,<TU58>,TAPE,**,<LCHAR,BYTES/FLAG,S-CODE/OPCODE,UNIT,SEQ#,BYTES,STATUS,BYTES/FLAG,MOD/OPCODE,UNIT>
	ELBLDR	50,<DU/MSCP>,DISK,DU,<1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20>
	ELBLDR	52,<RX/PRO>,DISK,RX,<5CS0,5CS1,5CS2,5CS3,5CS4,5CS5,5DEB>
	ELBLDR	53,<RD/PRO>,DISK,RD,<STAT,CYL,HEAD,SEC,ERR,ST2>
	ELBLDR	60,<MU/TMSCP>,TAPE,MU,<1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20>

HSPACE::.LIMIT
	.END