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