view 3rdparty/drivers/burke/bb1fhdisk.asm @ 3226:9749d0dfc4a2

Changed a puls PC to rts to save cycles
author David Ladd <drencor-xeen@users.sourceforge.net>
date Sat, 20 Jan 2018 19:32:22 -0600
parents c10820aa211b
children
line wrap: on
line source

*******************************************
***                                     ***
***     COPYRIGHT 1988 BURKE & BURKE    ***
***     ALL RIGHTS RESERVED             ***
***                                     ***
*******************************************

        nam     BB1FHDISK

*
*   CoCo XT Hard Disk Driver  07/26/87
*   (with formatting capability)
*
*
*   For Western Digital WD1002-WX2 (or WX1) Controller.
*
*   This is a general purpose driver.  It can handle
*   1-2 hard drives, the parameters of which are described
*   in the device descriptors.  The drives may be of
*   different sizes.  This version is optimized
*   for the CoCo 3 under level 1, version 2 OS9.
*   It does not mess with the clock speed -- the native 
*   speed is used. It also verifies disk writes, and uses 
*   read caching.
*
*   THIS VERSION CAN FORMAT THE HARD DISK!
*
*   Chris Burke  Schaumburg, IL  07/26/87
*

 page
*
*  Conditional assembly control
*

Drives  equ     2           ;Number of drives supported

irqflg  equ     0           ;non-zero to mask interrupts during HD access
trsflg  equ     0           ;non-zero if optimized for 4x32 disk
cchflg  equ     1           ;non-zero if read cache supported
vrfflg  equ     1           ;non-zero if write verification supported
tboflg  equ     0           ;non-zero if jump to 2 MHz for block moves
fstflg  equ     1           ;non-zero if fast transfers supported
sysram  equ     1           ;non-zero to use system RAM for verf buffer
sizflg  equ     1           ;non-zero to allow drives of different sizes

fmtflg  equ     1           ;non-zero if hard formatting supported
errflg  equ     0           ;non-zero for good error messages
icdflg  equ     0           ;non-zero to ignore C/D status bit
timflg  equ     0           ;non-zero to support access timer

XLEVEL  equ     1           ;Bogus level 2 flag

testing equ     0           ;non-zero to call driver "XD", not "HD"

*
*   Include the main line
*

        use     xtos9.src