Mercurial > hg > Members > kono > nitros9-code

annotate 3rdparty/drivers/emudsk/h0.asm @ 3211:aa01cfa11267

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Updated makefile for EmuDsk driver so that a disk image would be created with a layout that matches the distribution of the NitrOS-9 disk images so that the files can be easily dsaved across onto existing disk images. Also updated ddh0.asm, h0.asm, and h1.asm to use a geometry that will yield a clust size of 1 disk image with almost the max 128MB size as well as using a geometry that is more friendly with storing a boot track on it for use with being shared with the CoCoSDC.
author David Ladd <drencor-xeen@users.sourceforge.net>
date Wed, 20 Dec 2017 15:26:30 -0600
parents b8c7b7fbf3c9
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
402
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
1 ********************************************************************
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
2 * Emudsk - Virtual disk driver for CoCo emulators
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
3 *
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
4 * $Id$
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
5 *
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
6 * Ed. Comments Who YY/MM/DD
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
7 * ------------------------------------------------------------------
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
8 * 01 Modified to compile under OS9Source tjl 02/08/28
2592
7d8831f053ff Corrected cosmetic error in drive address R. Gault
robertgault
parents: 402
diff changeset
9 * 02 Corrected device address for MESS R.Gault 11/12/24
7d8831f053ff Corrected cosmetic error in drive address R. Gault
robertgault
parents: 402
diff changeset
10 * Address not used by driver but still ....
402
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
11
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
12 IFP1
2624
b8c7b7fbf3c9 Major changes:
Boisy Pitre <boisy.pitre@nuance.com>
parents: 2594
diff changeset
13 USE os9.d
402
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
14 ENDC
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
15
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
16 type SET Devic+Objct
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
17 MOD rend,rnam,type,ReEnt+1,fmnam,drvnam
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
18 FCB $FF all access modes
2594
3eeef3d4f272 Corrected cosmetic error in drive address R. Gault
robertgault
parents: 2592
diff changeset
19 FCB $07,$FF,$80 device address
402
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
20
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
21 FCB optl number of options
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
22
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
23 optns EQU *
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
24 FCB DT.RBF RBF device
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
25 FCB $00 drive number
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
26 FCB $00 step rate
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
27 FCB $80 type=nonstd,coco
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
28 FCB $01 double density
3211
aa01cfa11267 Updated makefile for EmuDsk driver so that a disk image would be
David Ladd <drencor-xeen@users.sourceforge.net>
parents: 2624
diff changeset
29 FDB $71c6 tracks
aa01cfa11267 Updated makefile for EmuDsk driver so that a disk image would be
David Ladd <drencor-xeen@users.sourceforge.net>
parents: 2624
diff changeset
30 FCB $01 one side
402
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
31 FCB $01 no verify
3211
aa01cfa11267 Updated makefile for EmuDsk driver so that a disk image would be
David Ladd <drencor-xeen@users.sourceforge.net>
parents: 2624
diff changeset
32 FDB $0012 sectors/track
aa01cfa11267 Updated makefile for EmuDsk driver so that a disk image would be
David Ladd <drencor-xeen@users.sourceforge.net>
parents: 2624
diff changeset
33 FDB $0012 "", track 0
402
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
34 FCB $03 interleave
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
35 FCB $20 min allocation
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
36 optl EQU *-optns
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
37
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
38 rnam FCS /H0/
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
39 fmnam FCS /RBF/
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
40 drvnam FCS /EmuDsk/
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
41
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
42 EMOD
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
43 rend EQU *
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
44 end
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
45