Mercurial > hg > Members > kono > nitros9-code

comparison 3rdparty/drivers/burke/bbxfhdisk.asm @ 91:c10820aa211b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added
author boisy
date Wed, 03 Jul 2002 03:41:59 +0000
parents
children
comparison
equal deleted inserted replaced
90:6aa54d3691e5 91:c10820aa211b
1 *******************************************
2 *** ***
3 *** COPYRIGHT 1988 BURKE & BURKE ***
4 *** ALL RIGHTS RESERVED ***
5 *** ***
6 *******************************************
7
8 nam BBXFHDISK
9
10 *
11 * CoCo XT Hard Disk Driver 07/26/87
12 * (with formatting capability)
13 *
14 *
15 * For Western Digital WD1002-WX2 (or WX1) Controller.
16 *
17 * This is a general purpose driver. It can handle
18 * 1-2 hard drives, the parameters of which are described
19 * in the device descriptors. The drives may be of different
20 * sizes. This version is optimized for the CoCo 2 under
21 * level 1, version 1 OS9. It does not mess with the clock
22 * speed -- the native speed is used. It also verifies disk
23 * writes, and uses read caching.
24 *
25 * THIS VERSION CAN FORMAT THE HARD DISK! IT ALSO
26 * SUPPORTS WRITE PROTECTION.
27 *
28 * Chris Burke Schaumburg, IL 07/26/87
29 *
30
31 page
32 *
33 * Conditional assembly control
34 *
35
36 Drives equ 2 ;Number of drives supported
37
38 irqflg equ 1 ;non-zero to mask interrupts during HD access
39 trsflg equ 0 ;non-zero if optimized for 4x40 disk
40 cchflg equ 1 ;non-zero if read cache supported
41 vrfflg equ 1 ;non-zero if write verification supported
42 tboflg equ 0 ;non-zero if jump to 2 MHz for block moves
43 fstflg equ 1 ;non-zero if fast transfers supported
44 sysram equ 1 ;non-zero to use system RAM for verf buffer
45 sizflg equ 1 ;non-zero to allow drives of different sizes
46
47 fmtflg equ 1 ;non-zero if hard formatting supported
48 errflg equ 0 ;non-zero for good error messages
49 icdflg equ 0 ;non-zero to ignore C/D status bit
50 timflg equ 0 ;non-zero to support access timer
51
52 XLEVEL equ 1 ;Bogus level 2 flag
53
54 testing equ 0 ;non-zero to call driver "XD", not "HD"
55
56 *
57 * Include the main line
58 *
59
60 use xtos9.src
61