Mercurial > hg > Members > kono > nitros9-code
comparison 3rdparty/drivers/emudsk/h0.asm @ 402:28ca7d4dd2c8
Initial checkin.
author | tlindner |
---|---|
date | Wed, 28 Aug 2002 14:52:56 +0000 |
parents | |
children | 7d8831f053ff |
comparison
equal
deleted
inserted
replaced
401:bc2fb1daef5d | 402:28ca7d4dd2c8 |
---|---|
1 ******************************************************************** | |
2 * Emudsk - Virtual disk driver for CoCo emulators | |
3 * | |
4 * $Id$ | |
5 * | |
6 * Ed. Comments Who YY/MM/DD | |
7 * ------------------------------------------------------------------ | |
8 * 01 Modified to compile under OS9Source tjl 02/08/28 | |
9 | |
10 IFP1 | |
11 USE os9defs | |
12 ENDC | |
13 | |
14 type SET Devic+Objct | |
15 MOD rend,rnam,type,ReEnt+1,fmnam,drvnam | |
16 FCB $FF all access modes | |
17 FCB $07,$FF,$E0 device address | |
18 | |
19 FCB optl number of options | |
20 | |
21 optns EQU * | |
22 FCB DT.RBF RBF device | |
23 FCB $00 drive number | |
24 FCB $00 step rate | |
25 FCB $80 type=nonstd,coco | |
26 FCB $01 double density | |
27 FDB $005a tracks | |
28 FCB $40 one side | |
29 FCB $01 no verify | |
30 FDB $0040 sectors/track | |
31 FDB $0040 "", track 0 | |
32 FCB $03 interleave | |
33 FCB $20 min allocation | |
34 optl EQU *-optns | |
35 | |
36 rnam FCS /H0/ | |
37 fmnam FCS /RBF/ | |
38 drvnam FCS /EmuDsk/ | |
39 | |
40 EMOD | |
41 rend EQU * | |
42 end | |
43 |