annotate src/os9/level1/v0.asm @ 57:2088fd998865

sbc09 directry clean up
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 23 Jul 2018 16:07:12 +0900
parents os9/level1/v0.asm@4fa2bdb0c457
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
56
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 ********************************************************************
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2 * progname - program module
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 *
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 * $Id: d0.asm,v 1.1 2002/06/14 12:35:43 roug Exp $
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
5 *
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 * Ed. Comments Who YY/MM/DD
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
7 * ------------------------------------------------------------------
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
8 * - Original Dragon Data distribution version
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
9 *
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 * $Log: d0.asm,v $
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
11 * Revision 1.1 2002/06/14 12:35:43 roug
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
12 * Add work done on ideal devices
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
13 *
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
14 *
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
15
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
16 nam V0
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
17 ttl 40-track floppy disk device descriptor
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
18
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
19 ifp1
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
20 use defsfile
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
21 endc
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
22 tylg set Devic+Objct
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
23 atrv set ReEnt+rev
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
24 rev set $02
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
25 mod eom,name,tylg,atrv,mgrnam,drvnam
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
26 fcb $FF mode byte
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
27 fcb $00 extended controller address
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
28 fdb $e040 physical controller address
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
29 fcb initsize-*-1 initilization table size
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
30 fcb $01 device type:0=scf,1=rbf,2=pipe,3=scf
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
31 fcb $00 drive number
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
32 fcb $00 step rate
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
33 fcb $20 drive device type
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
34 fcb $01 media density:0=single,1=double
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
35 fdb $0100 number of cylinders (tracks)
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
36 fcb $01 number of sides
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
37 fcb $00 verify disk writes:0=on
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
38 fdb $0012 # of sectors per track
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
39 fdb $0012 # of sectors per track (track 0)
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
40 fcb $01 sector interleave factor
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
41 fcb $08 minimum size of sector allocation
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
42 initsize equ *
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
43 name equ *
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
44 fcs /V0/
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
45 mgrnam equ *
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
46 fcs /VRBF/
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
47 drvnam equ *
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
48 fcs /PDisk/
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
49 emod
4fa2bdb0c457 level vrbf and clock
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
50 eom equ *