|
91
|
1 * COPYRIGHT 1987 BURKE & BURKE
|
|
|
2 * COPYRIGHT 1992 BURKE & BURKE
|
|
|
3 * ALL RIGHTS RESERVED
|
|
|
4 *
|
|
|
5 * Variables for all CoCo XT hard disk drivers.
|
|
|
6 *
|
|
|
7 * Chris Burke Schaumburg, IL
|
|
|
8 *
|
|
|
9 * Modification History
|
|
|
10 * --------------------
|
|
|
11 *
|
|
|
12 * Date Who Description
|
|
|
13 * -------- --- ---------------------------------------
|
|
|
14 * 10/01/87 CJB Added PCCYL variable.
|
|
|
15 * Added unique drive parameters for each drive
|
|
|
16 * 12/20/87 CJB Added park track copied from DD for each drive
|
|
|
17 * 12/23/87 CJB Added level-dependent equates for use w/ 2 drives.
|
|
|
18 * 01/28/88 CJB Added area to preserve active slot 100%
|
|
|
19 * 02/08/88 CJB Eliminated DIVA, DIVY; changed read cache
|
|
|
20 * 04/15/92 CJB Added RETRYEN (should have been there already!?)
|
|
|
21 *
|
|
|
22
|
|
|
23 *
|
|
|
24 * Static Storage
|
|
|
25 *
|
|
|
26 org XDrvBeg ;(level dependent)
|
|
|
27
|
|
|
28 * The controller handles up to 2 drives.
|
|
|
29 * The size of the drive table differs between
|
|
|
30 * level 1 and level 2.
|
|
|
31
|
|
|
32 DRVTBL rmb XDrvMen*Drives
|
|
|
33
|
|
|
34 ifne (Drives-1) ;If 2 drives,
|
|
|
35 ACTDRV rmb 2
|
|
|
36 PRVDRV rmb 1 ;Previous drive #
|
|
|
37 endc
|
|
|
38
|
|
|
39 DRVSEM rmb 1 ;New drive semaphore
|
|
|
40
|
|
|
41 * Register image for disk controller
|
|
|
42 *
|
|
|
43 * SDHREG 00D0HHHH
|
|
|
44 * HICYL MM0SSSSS
|
|
|
45 * LOWCYL LLLLLLLL
|
|
|
46 * SECCNT NNNNNNNN
|
|
|
47 *
|
|
|
48 * D = drive #
|
|
|
49 * H = head #
|
|
|
50 * M = MSB's of cylinder #
|
|
|
51 * S = sector # on cylinder
|
|
|
52 * L = LSB's of cylinder #
|
|
|
53 * N = sector count or interleave
|
|
|
54
|
|
|
55 IMAGE equ .
|
|
|
56
|
|
|
57 SDHREG RMB 1 ;Drive and head number
|
|
|
58 HICYL RMB 1 ;High cylinder # and sector number
|
|
|
59 LOWCYL RMB 1 ;Low cylinder number
|
|
|
60 SECCNT RMB 1 ;Sector count (interleave factor for format)
|
|
|
61 OPTION RMB 1 ;Options / step rate
|
|
|
62
|
|
|
63 ifne cchflg ;If read cache supported,
|
|
|
64
|
|
|
65 * Sector number for pre-read
|
|
|
66
|
|
|
67 OLDLSN rmb 3 ;Old LSN -- this + 1 in buffer if BFRFLG
|
|
|
68 BFRFLG rmb 1 ;$FF = pre-read sector is in verify buffer
|
|
|
69
|
|
|
70 endc
|
|
|
71
|
|
|
72 * Miscellaneous flags
|
|
|
73
|
|
|
74 Temp rmb 2 ;Scratch variable
|
|
|
75 SECNUM rmb 1 ;Used for sector splitting
|
|
|
76 PSECNM rmb 1 ;Previous sector number (used for pre-read feature)
|
|
|
77 OLDSLT rmb 1 ;Old MPAK slot # (to leave it as we found it)
|
|
|
78
|
|
|
79 * Variables for park track location and pre-comp.
|
|
|
80
|
|
|
81 OBSTART equ . ;Base of option variables
|
|
|
82
|
|
|
83 * Drive #0 variables
|
|
|
84
|
|
|
85 PCCYL rmb 1 ;precomp cylinder / 4
|
|
|
86 PRKLSN rmb 3 ;Park LSN -- sector 0, head 0 of park track
|
|
|
87
|
|
|
88 OBSIZE equ (.-OBSTART)
|
|
|
89
|
|
|
90 ifne (Drives-1)
|
|
|
91
|
|
|
92 * Drive #1 variables
|
|
|
93
|
|
|
94 PCCYL1 rmb 1 ;precomp cylinder / 4
|
|
|
95 PRKLSN1 rmb 3
|
|
|
96
|
|
|
97 endc
|
|
|
98
|
|
|
99 * Value of stack pointer, in case we have to recover from an
|
|
|
100 * error. This is used by CMEXEC and it's subroutines.
|
|
|
101
|
|
|
102 AbtStk rmb 2 ;Saved stack pointer
|
|
|
103 RetryEn rmb 1 ;non-zero if hard disk hardware retries are enabled
|
|
|
104 ErrHCyl rmb 2 ;store clyinder number of formatting error here
|
|
|
105
|
|
|
106 * Sector buffer for read caching, write verification,
|
|
|
107 * and pre-reading of adjacent "write" sectors.
|
|
|
108 *
|
|
|
109 * Note that this buffer is shared between both drives, so
|
|
|
110 * the read cache is invalidated by switching drives.
|
|
|
111
|
|
|
112 VRFBUF rmb 256
|
|
|
113 VB.END equ .
|
|
|
114
|
|
|
115 * Reserve some room for the stack
|
|
|
116
|
|
|
117 rmb 128 ;Stack
|
|
|
118
|
|
|
119 endmem equ .
|
|
|
120
|
