/WINCHESTER DISK NON SYSTEM HANDLER
/VERSION 00.10 DW0B.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
]w

+Ku=@:}g[J+|:m$M
 ,]hL[HM*\rLYTES 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 SECOND 8 MBYTES
/
	UNIT=0
	OFST=10
/
	*0
	-4		/NUMBER OF HANDLERS IN THIS GROUP
	IFZERO UNIT+OFST <
	DEVICE DW0A;DEVICE W00;4600;WA&177;ZBLOCK 2
	DEVICE DW0A;DEVICE W01;4600;WB&177;ZBLOCK 2
	DEVICE 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;WDf177;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
/
	DSSF=DEV^10+6001	/SKIP ON DONE FLAG
	DSCD=DEV^10+6002	/CLEAR DONE FLAG
	DSHI=DEV^10+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 VOb SBC8
/
/
	PAGE
/
COMPTR,	TABLE-LOC8	/COMM TABLE POINTER ADJ FACTOR
TSTKBD,	0		/ENTRY
	CLA+400		/CLEAN UP ALSO CONSTANT 7600
	KSF		/FLAG UP?
	JMP I TSTKBD	/NO GO BACK
	KRS		/READ THE 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
Xz
Xz
\SMDJ