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