Mercurial > hg > Members > kono > nitros9-code

annotate 3rdparty/drivers/emudsk/h0.asm @ 402:28ca7d4dd2c8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial checkin.
author tlindner
date Wed, 28 Aug 2002 14:52:56 +0000
parents
children 7d8831f053ff
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
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
9
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
10 IFP1
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
11 USE os9defs
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
12 ENDC
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
13
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
14 type SET Devic+Objct
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
15 MOD rend,rnam,type,ReEnt+1,fmnam,drvnam
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
16 FCB $FF all access modes
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
17 FCB $07,$FF,$E0 device address
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
18
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
19 FCB optl number of options
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
20
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
21 optns EQU *
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
22 FCB DT.RBF RBF device
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
23 FCB $00 drive number
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
24 FCB $00 step rate
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
25 FCB $80 type=nonstd,coco
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
26 FCB $01 double density
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
27 FDB $005a tracks
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
28 FCB $40 one side
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
29 FCB $01 no verify
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
30 FDB $0040 sectors/track
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
31 FDB $0040 "", track 0
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
32 FCB $03 interleave
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
33 FCB $20 min allocation
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
34 optl EQU *-optns
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
35
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
36 rnam FCS /H0/
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
37 fmnam FCS /RBF/
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
38 drvnam FCS /EmuDsk/
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
39
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
40 EMOD
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
41 rend EQU *
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
42 end
28ca7d4dd2c8 Initial checkin.
tlindner
parents:
diff changeset
43