|
7
|
1 ********************************************************************
|
|
|
2 * progname - program module
|
|
|
3 *
|
|
|
4 * $Id: d0.asm,v 1.1 2002/06/14 12:35:43 roug Exp $
|
|
|
5 *
|
|
|
6 * Ed. Comments Who YY/MM/DD
|
|
|
7 * ------------------------------------------------------------------
|
|
|
8 * - Original Dragon Data distribution version
|
|
|
9 *
|
|
|
10 * $Log: d0.asm,v $
|
|
|
11 * Revision 1.1 2002/06/14 12:35:43 roug
|
|
|
12 * Add work done on ideal devices
|
|
|
13 *
|
|
|
14 *
|
|
|
15
|
|
|
16 nam D1
|
|
|
17 ttl 40-track floppy disk device descriptor
|
|
|
18
|
|
|
19 ifp1
|
|
11
|
20 use defsfile
|
|
7
|
21 endc
|
|
|
22 tylg set Devic+Objct
|
|
|
23 atrv set ReEnt+rev
|
|
|
24 rev set $02
|
|
|
25 mod eom,name,tylg,atrv,mgrnam,drvnam
|
|
|
26 fcb $FF mode byte
|
|
|
27 fcb $00 extended controller address
|
|
20
|
28 fdb $ffc0 physical controller address
|
|
7
|
29 fcb initsize-*-1 initilization table size
|
|
|
30 fcb $01 device type:0=scf,1=rbf,2=pipe,3=scf
|
|
|
31 fcb $01 drive number
|
|
|
32 fcb $00 step rate
|
|
|
33 fcb $20 drive device type
|
|
|
34 fcb $01 media density:0=single,1=double
|
|
|
35 fdb $0100 number of cylinders (tracks)
|
|
|
36 fcb $01 number of sides
|
|
|
37 fcb $00 verify disk writes:0=on
|
|
|
38 fdb $0012 # of sectors per track
|
|
|
39 fdb $0012 # of sectors per track (track 0)
|
|
|
40 fcb $01 sector interleave factor
|
|
|
41 fcb $08 minimum size of sector allocation
|
|
|
42 initsize equ *
|
|
|
43 name equ *
|
|
|
44 fcs /D1/
|
|
|
45 mgrnam equ *
|
|
|
46 fcs /RBF/
|
|
|
47 drvnam equ *
|
|
|
48 fcs /PDisk/
|
|
|
49 emod
|
|
|
50 eom equ *
|
