91
|
1 *******************************************
|
|
2 *** ***
|
|
3 *** COPYRIGHT 1990 BURKE & BURKE ***
|
|
4 *** ALL RIGHTS RESERVED ***
|
|
5 *** ***
|
|
6 *******************************************
|
|
7
|
|
8 nam BBHDISK
|
|
9
|
|
10 *
|
|
11 * CoCo XT Hard Disk Driver Version 2.0
|
|
12 *
|
|
13 *
|
|
14 * For Western Digital WD1002-WX2 (or WX1) Controller.
|
|
15 *
|
|
16 * This is a general purpose driver. It can handle
|
|
17 * 1-4 hard drives, the parameters of which are described
|
|
18 * in the device descriptors. The drives may be of different
|
|
19 * sizes. This version is optimized for the CoCo 3 under level
|
|
20 * 2 OS9. It does not mess with the clock speed -- the native
|
|
21 * speed is used. It also verifies disk writes, and uses
|
|
22 * read caching.
|
|
23 *
|
|
24
|
|
25 *
|
|
26 * Chris Burke Schaumburg, IL 01/26/88
|
|
27 *
|
|
28
|
|
29 page
|
|
30 *
|
|
31 * Conditional assembly control
|
|
32 *
|
|
33
|
|
34 *Drives equ 2 ;Number of drives supported
|
|
35 Drives equ 4 ;Number of drives supported (2 per controller)
|
|
36
|
|
37 irqflg equ 0 ;non-zero to mask interrupts during HD access
|
|
38 trsflg equ 0 ;non-zero if optimized for 4 heads, 32 SPT
|
|
39 cchflg equ 1 ;non-zero if read cache supported
|
|
40 vrfflg equ 1 ;non-zero if write verification supported
|
|
41 tboflg equ 0 ;non-zero if jump to 2 MHz for block moves
|
|
42 fstflg equ 1 ;non-zero if fast transfers supported
|
|
43 sysram equ 1 ;non-zero to use system RAM for verf buffer
|
|
44 sizflg equ 1 ;non-zero to allow drives of different sizes
|
|
45
|
|
46 fmtflg equ 0 ;non-zero if hard formatting supported
|
|
47 errflg equ 1 ;non-zero for good error messages
|
|
48 icdflg equ 0 ;non-zero to ignore C/D status bit
|
|
49 timflg equ 0 ;non-zero to support access timer
|
|
50
|
|
51 XLEVEL equ 2 ;Bogus level 2 flag
|
|
52
|
|
53 testing equ 0 ;non-zero to call driver "XD", not "HD"
|
|
54
|
|
55 *
|
|
56 * Include the main line
|
|
57 *
|
|
58
|
|
59 use xtos9.src
|
|
60
|