/WINCHESTER DISK NON SYSTEM HANDLER
/VERSION 00.13  DW0A.PA
/
/COMPUTER EXTENSION SYSTEMS INC. 2-DEC-83
/DANTE A MARCUCCIO
/
/THIS HANDLER WILL DRIVE A 5 1/4 INCH WINCHESTER DISK THRU EITHER THE MDC8
/ OR THE SBC8
/
/THE HANDLER SEPERATES THE DISK INTO 2 MEGABYTE SEGMENTS CALLED
/ W00,W01,W02,W03, FOR THE FIRST 8 MEGABYTES OF DISK 0
/ W04,W05,W06,W07, FOR THE NEXT 8 MEGABYTES OF DISK 0
/ W10,W11,W12,W13, FOR THE FIRST 8 MEGABYTES OF DISK 1
/ W14,W15,W16,W17, FOR THE NEXT 8 MEGABYTES OF DISK 1
/
/ EACH ASSEMBLY OF THE HANDLER WILL DRIVE 8 MEGABYTES ONLY
/
/THE FOLLOWING PARAMETERS MUST BE ASSIGNED AT ASSEMBLY TIME
/
/	UNIT= 0 FOR DRIVE 0    1 FOR DRIVE 1
/       OFST= 0 FOR IST 8 MBYTES OF DISK   10 FOR 2ND 8 MBYTES
/
/ FOR UNIT 0 FIRST 8 MBYTES
/
	UNIT=0
	OFST=0
/
	*0
[Z(m]"\\J|JlLMSL,ZJJ\<\(]])Xe* ]|YMlOM=d, <
	DEVICE DW0A;DEVICE W00;4600;WA&177;ZBLOCK 2
	DEVICE DW0A;DEVICE W01;4600;WB&177;ZBLOCK 2
YDeVICE DW0A;DEVICE W02;4600;WC&177;ZBLOCK 2
	DEVICE DW0A;DEVICE W03;4600;WD&177;ZBLOCK 2
	>
	IFZERO UNIT+OFST-10 <
	DEVICE DW0B;DEVICE W04;4600;WA&177;ZBLOCK 2
	DEVICE DW0B;DEVICE W05;4600;WB&177;ZBLOCK 2
	DEVICE DW0B;DEVICE W06;4600;WC&177;ZBLOCK 2
	DEVICE DW0B;DEVICE W07;4600;WD&177;ZBLOCK 2
	>
	IFZERO UNIT+OFST-1 <
	DEVICE DW1A;DEVICE W10;4600;WA&177;ZBLOCK 2
	DEVICE DW1A;DEVICE W11;4600;WB&177;ZBLOCK 2
	DEVICE DW1A;DEVICE W12;4600;WC&177;ZBLOCK 2
	DEVICE DW1A;DEVICE W13;4600;WD&177;ZBLOCK 2
	>
	IFZERO UNIT+OFST-11 <
	DEVICE DW1B;DEVICE W14;4600;WA&177;ZBLOCK 2
	DEVICE DW1B;DEVICE W15;4600;WB&177;ZBLOCK 2
	DEVICE DW1B;DEVICE W16;4600;WC&177;ZBLOCK 2
	DEVICE DW1B;DEVICE W17;4600;WD&177;ZBLOCK 2
	>
/
/
/	ASSEMBLY DEFINITIONS
/
 	DEV=70
Xz
]K=MmFL[`M0:h	;{::\
p\lNL|VLG,YH,C<D\]^<j[`;
/;5JL,N\|VLG,YH,H<\]^<j[6003	/LOAD HI ORDER COMM ADD
	DSLO=DEV^10+6004	/LOAD LO ORDER COMM ADD
	DSRS=DEV^10+6005	/READ STATUS
	DSGO=DEV^10+6007	/GO
/
	R3L=7014		/ROTATE 3 LEFT FOR SBC8
	PR0=6206		/PANEL REQ 0 FOR SBC8
/
/
	PAGE
/
COMPTR,	TABLE-LOC8	/COMM TABLE POINTER ADJ FACTOR
TSTKBD,	0		/ENTRY
	CLA+400		/CLEAN UP ALSO CONSTANT 7600
]8iL|
jL{_MYX- Z JDM<4\,H|w,r,,8YH-3*X!]DLHE CHAR
	AND K177	/7 BIT ONLY
	DCA LOC8	/TEMP STORE
	CLA CLL CMA RTL	/MINUS CONT C
	TAD LOC8	/ADD BACK CHAR
	SZA CLA		/WAS IT A CONT C?
	JMP I TSTKBD	/NO, GO BACK
KCIDF,	CIF CDF 00	/
	JMP I TSTKBD+1	/BACK TO OS8 MONITOR
/
K3700,	3700
/
/
MDC,	TAD LOC8	/GET ADD OF COMM TABLE
	DSLO		/SEND IT TO MDC8
	DSSF		/FLAG UP?
	JMP .-1		/NO, SO WAIT
	DSCD		/YES, SO CLEAR IT
	DSGO		/START IT UP
	JMS TSTKBD	/CHECK FOR CONT C
	DSSF		/TEST FOR DISK DONE
	JMP .-2		/WAIT FOR ONE OR THE OTHER
	DSCD		/DISK DONE, CLEAR THE FLAG
K70,	70
K177,	177
	DSRS		/GET RETURN STATUS
	SZA CLA		/SKIP IF ALL OK
ERR,	CLA CLL CML RAR	/AC=4000
	SMA		/SKIP IF ERROR
GOOD,	ISZ WA		/BUMP TO NORM RETURN
CALLRET,.-.		/STUFFED WITH CIF CDF INST FOR RETURN
	JMP I WA	/BACK TO CALLER
/
/
WD,	0		/ENTRY FOR 4TH UNIT
	CLA CLL		/CLEAN UP
	TAD WD		/GET CALLING ADD
	DCA WA		/STUFF IT
	IAC		/BUMP AC
	JMP .+5		/GO TO NEXT BUMP
/
WC,	0		/ENTRY FOR 3RD UNIT
	CLA CLL		/CLEAN UP
\MG\9,u
|CM,LLlJJL\ML,t
<V]mJYH,