noiflist
DS1SASI	EQU	(Offset $)
   DSEG	0
	ORG	DS1SASI
;************************************************
;* SASI DPB's AND DPH's     			*
;************************************************
;
DSMSSI1	EQU  (((8*9*8)+BZ4K-1)/BZ4K)*(77-1)
ALVSSI1 EQU  	(DSMSSI1 +7)/8
CSVSSI1	EQU	000H
	DB	SSITYPE+3		;First hard disk type
DPB1SSI	DW	8*9			;Sectors per track
	DB	5,31,1			;
	DW	DSMSSI1-1, 1024-1 	;DSM, number of directory entries
	DB	11111111B,11111111B	;Reserved entries
	DW	CSVSSI1 + HIGHBIT,1*8	;Check sum vector, reserved tracks

DSMSSI2	EQU  (((8*9*8)+BZ4K-1)/BZ4K)*(216-77)
ALVSSI2 EQU  	(DSMSSI2 +7)/8
CSVSSI2	EQU	000H
	DB	SSITYPE+3		;First hard disk type
DPB2SSI	DW	8*9			;Sectors per track
	DB	5,31,1			;
	DW	DSMSSI2-1, 1024-1 	;DSM, number of directory entries
	DB	11111111B,11111111B	;Reserved entries
	DW	CSVSSI2 + HIGHBIT,8*77	;Check sum vector, reserved tracks
;
DSMSSI3	EQU  (((8*9*8)+BZ4K-1)/BZ4K)*(355-216)
ALVSSI3 EQU  	(DSMSSI3 +7)/8
CSVSSI3	EQU	000H
	DB	SSITYPE+3		;First hard disk type
DPB3SSI	DW	8*9			;Sectors per track
	DB	5,31,1			;
	DW	DSMSSI3-1, 1024-1 	;DSM, number of directory entries
	DB	11111111B,11111111B	;Reserved entries
	DW	CSVSSI3+HIGHBIT,8*216	;Check sum vector, reserved tracks
;
DSMSSI4	EQU  (((8*9*8)+BZ4K-1)/BZ4K)*(494-355)
ALVSSI4 EQU  	(DSMSSI4 +7)/8
CSVSSI4	EQU	000H
	DB	SSITYPE+3		;First hard disk type
DPB4SSI	DW	8*9			;Sectors per track
	DB	5,31,1			;
	DW	DSMSSI4-1, 1024-1 	;DSM, number of directory entries
	DB	11111111B,11111111B	;Reserved entries
	DW	CSVSSI4+HIGHBIT,8*355	;Check sum vector, reserved tracks
;
; Last logical drive looks just like a floppy
DSMSSI5	EQU  ((8*9*8)/BZ2K)*(511-494)
ALVSSI5 EQU  	(DSMSSI5+7)/8
CSVSSI5	EQU	000H
	DB	SSITYPE+3		;First hard disk type
DPB5SSI	DW	8*9			;Sectors per track
	DB	4,15,0			;BSH,BLM,EXT
	DW	DSMSSI5-1,256-1 	;DSM, number of directory entries
	DB	11110000B,00000000B	;Reserved entries
	DW	CSVSSI5+HIGHBIT,8*494	;Check sum vector, reserved tracks
;
;
; Drive A: 5 megabyte SASI hard disk
CSVZA	EQU	CSVSSI1
ALVZA	EQU	ALVSSI1
DRV_A	DB	0			;Drive select
	DW	0			;Sector translate
	DW	0,0,0
	DW	Offset DIRBUF,Offset DPB1SSI
	DW	Offset CSVA,Offset ALVA
;
; Drive B: 10 megabyte SASI hard disk
CSVZB	EQU	CSVSSI2
ALVZB	EQU	ALVSSI2
DRV_B	DB	0			;Drive select
	DW	0			;Sector translate
	DW	0,0,0
	DW	Offset DIRBUF, Offset DPB2SSI
	DW	Offset CSVB,Offset ALVB
;
; Drive C: 10 megabyte SASI hard disk
CSVZC	EQU	CSVSSI3
ALVZC	EQU	ALVSSI3
DRV_C	DB	0			;Drive select
	DW	0			;Sector translate
	DW	0,0,0
	DW	Offset DIRBUF,Offset DPB3SSI
	DW	Offset CSVC,Offset ALVC
;
; Drive D: 10 megabyte SASI hard disk
CSVZD	EQU	CSVSSI4
ALVZD	EQU	ALVSSI4
DRV_D	DB	0			;Drive select
	DW	0			;Sector translate
	DW	0,0,0
	DW	Offset DIRBUF, Offset DPB4SSI
	DW	Offset CSVD,Offset ALVD
;
;
; Drive E: 1.2 megabyte SASI hard disk
CSVZE	EQU	CSVSSI5
ALVZE	EQU	ALVSSI5
DRV_E	DB	0			;Drive select
	DW	0			;Sector translate
	DW	0,0,0
	DW	Offset DIRBUF, Offset DPB5SSI
	DW	Offset CSVE,Offset ALVE
;
   if SASI2		;If second 40 mbyte sasi drive turned on 
; Drive J: 5 megabyte SASI hard disk
CSVZJ	EQU	CSVSSI1
ALVZJ	EQU	ALVSSI1
DRV_J	DB	1			;Drive select
	DW	0			;Sector translate
	DW	0,0,0
	DW	Offset DIRBUF,Offset DPB1SSI
	DW	Offset CSVJ,Offset ALVJ
;
; Drive K: 10 megabyte SASI hard disk
CSVZK	EQU	CSVSSI2
ALVZK	EQU	ALVSSI2
DRV_K	DB	1			;Drive select
	DW	0			;Sector translate
	DW	0,0,0
	DW	Offset DIRBUF, Offset DPB2SSI
	DW	Offset CSVK,Offset ALVK
;
; Drive L: 10 megabyte SASI hard disk
CSVZL	EQU	CSVSSI3
ALVZL	EQU	ALVSSI3
DRV_L	DB	1			;Drive select
	DW	0			;Sector translate
	DW	0,0,0
	DW	Offset DIRBUF,Offset DPB3SSI
	DW	Offset CSVL,Offset ALVL
;
; Drive N: 10 megabyte SASI hard disk
CSVZN	EQU	CSVSSI4
ALVZN	EQU	ALVSSI4
DRV_N	DB	1			;Drive select
	DW	0			;Sector translate
	DW	0,0,0
	DW	Offset DIRBUF, Offset DPB4SSI
	DW	Offset CSVN,Offset ALVN
;
;
; Drive O: 1.2 megabyte SASI hard disk
CSVZO	EQU	CSVSSI5
ALVZO	EQU	ALVSSI5
DRV_O	DB	1			;Drive select
	DW	0			;Sector translate
	DW	0,0,0
	DW	Offset DIRBUF, Offset DPB5SSI
	DW	Offset CSVO,Offset ALVO
;
   endif
   if not SASI2
;
DRV_J	EQU	0
CSVZ_J	EQU	0
ALVZ_J	EQU	0
;
DRV_K	EQU	0
CSVZ_K	EQU	0
ALVZ_K	EQU	0
;
DRV_L	EQU	0
CSVZ_L	EQU	0
ALVZ_L	EQU	0
;
DRV_N	EQU	0
CSVZ_N	EQU	0
ALVZ_N	EQU	0
;
DRV_O	EQU	0
CSVZ_O	EQU	0
ALVZ_O	EQU	0
;
    endif
   list