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