Mercurial > hg > Members > kono > nitros9-code

annotate 3rdparty/drivers/emudsk/h0.asm @ 2592:7d8831f053ff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Corrected cosmetic error in drive address R. Gault
author robertgault
date Sat, 24 Dec 2011 12:48:56 +0000
parents 28ca7d4dd2c8
children 3eeef3d4f272
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
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
13 USE os9defs
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
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
19 FCB $07,$FF,$E0 device address
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
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
29 FDB $005a tracks
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
30 FCB $40 one side
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
31 FCB $01 no verify
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
32 FDB $0040 sectors/track
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
33 FDB $0040 "", track 0
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