;COMMENT *
;	DRIVER ADDRESSES FOR LUN'S 1 THROUGH 10
;
LPT	EQU	0		;UNIT 2 IS LPT
DSK	EQU	1		;UNITS 6-10 ARE DSK
DTC	EQU	0		;DTC COMMUNICATIONS UNIT 4
MOSTEK	EQU	0		;MOSTEK VERSION
TEK	EQU	0		;TEKTRONIX VERSION
ZILOG	EQU	0		;ZILOG VERSION
;
IF2
.PRINTX/LUNTB/
IFT	LPT
.PRINTX/LINE PRINTER INTERFACE/
ENDIF
IFT	DSK
.PRINTX/DISK INTERFACE/
ENDIF
IFT	DTC
.PRINTX/DTC VERSION/
ENDIF
IFT	ZILOG
.PRINTX/ZILOG VERSION/
ENDIF
IFT	MOSTEK
.PRINTX/MOSTEK VERSION/
ENDIF
IFT	TEK
.PRINTX/TEKTRONIX VERSION/
ENDIF
ENDIF
IFT	DSK
	EXT	DSKDRV
ENDIF
IFT	ZILOG
	EXT	$DRV4
ENDIF
;

	ENTRY	$LUNTB
IFF	MOSTEK
	EXT	$DRV3
$LUNTB:	DB	13Q		;MAX LUN + 1
	DW	$DRV3	;THEY ALL POINT TO $DRV3 FOR NOW
IFF	ZILOG
	IFF	LPT
	DW	$DRV3
	ENDIF
	IFT	LPT
	EXT	LPTDRV
	DW	LPTDRV
	ENDIF
	DW	$DRV3
	IFF	DTC
	DW	$DRV3
	ENDIF
	IFT	DTC
	EXT	$CMDRV
	DW	$CMDRV
	ENDIF
IFF	TEK
	DW	$DRV3
ENDIF
IFT	TEK
	DW	DSKDRV
ENDIF
ENDIF
IFT	ZILOG
	DW	$DRV4
	DW	$DRV4
	DW	$DRV4
	DW	$DRV4
ENDIF
;
	IFF	DSK
	DW	$DRV3
	DW	$DRV3
	DW	$DRV3
	DW	$DRV3
	DW	$DRV3
	ENDIF
	IFT	DSK
	DW	DSKDRV
	DW	DSKDRV
	DW	DSKDRV
	DW	DSKDRV
	DW	DSKDRV
	ENDIF
ENDIF
IFT	MOSTEK
$LUNTB:	DW	0FF2CH
;EXIT ROUTINE
	ENTRY $EX,$EXIT,EXIT
;
$EX:
$EXIT:
EXIT:	MVI	A,14		;REQUEST CODE
	LHLD	$LUNTB		;GET OS ADDRESS
	PCHL			;EXIT
	ENDIF
	END