Mercurial > hg > Members > kono > os9 > sbc09

annotate src/os9/level2/init.asm @ 57:2088fd998865

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sbc09 directry clean up
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 23 Jul 2018 16:07:12 +0900
parents os9/level2/init.asm@51b437557f42
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
52
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
1 ********************************************************************
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
2 * Init - NitrOS-9 Configuration module
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
3 *
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
4 * $Id$
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
5 *
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
6 * Edt/Rev YYYY/MM/DD Modified by
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
7 * Comment
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
8 * ------------------------------------------------------------------
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
9 * 204 1998/10/12 Boisy G. Pitre
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
10 * Original OS-9 L2 Tandy distribution.
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
11 *
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
12 * 205 1998/10/20 Boisy G. Pitre
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
13 * Added CC3IO and Clock sections.
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
14 *
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
15 * 205r2 1998/10/20 Boisy G. Pitre
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
16 * Removed clock information from here.
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
17 *
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
18 * 1 2003/01/08 Boisy G. Pitre
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
19 * Restarted edition number back to 1, removed CMDS/cc3go reference and
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
20 * just have cc3go so that in certain cases, cc3go can be in the bootfile,
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
21 * and so that ROMmed systems don't have to have a special init module.
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
22 *
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
23 * 2003/11/05 Robert Gault
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
24 * Corrected CC3IO info regards mouse. Changed from fcb to fdb low res/ right
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
25 * Corrected OS9Defs to match.
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
26 *
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
27 * 2006/07/06 P.Harvey-Smith.
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
28 * Conditionally excluded port messages on Dragon Alpha, due to insufficient
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
29 * space !
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
30 *
8
96a067cf4c4f level2 rom done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
31
52
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
32 nam Init
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
33 ttl NitrOS-9 Configuration module
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
34
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
35 ifp1
11
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 9
diff changeset
36 use defsfile
52
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
37 IFGT Level-1
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
38 use cocovtio.d
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
39 ENDC
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
40 endc
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
41
8
96a067cf4c4f level2 rom done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
42 tylg set Systm+$00
96a067cf4c4f level2 rom done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
43 atrv set ReEnt+rev
52
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
44 rev set $00
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
45 edition set 1
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
46
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
47 *
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
48 * Usually, the last two words here would be the module entry
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
49 * address and the dynamic data size requirement. Neither value is
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
50 * needed for this module so they are pressed into service to show
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
51 * MaxMem and PollCnt. For example:
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
52 * $0FE0,$0015 means
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
53 * MaxMem = $0FE000
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
54 * PollCnt = $0015
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
55 *
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
56 mod eom,name,tylg,atrv,$0FE0,$0015
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
57
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
58 ***** USER MODIFIABLE DEFINITIONS HERE *****
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
59
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
60 *
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
61 * refer to
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
62 * "Configuration Module Entry Offsets"
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
63 * in os9.d
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
64 *
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
65 start equ *
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
66 fcb $27 entries in device table
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
67 fdb DefProg offset to program to fork
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
68 fdb DefDev offset to default disk device
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
69 fdb DefCons offset to default console device
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
70 fdb DefBoot offset to boot module name
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
71 fcb $01 write protect flag (?)
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
72 fcb Level OS level
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
73 fcb NOS9VER OS version
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
74 fcb NOS9MAJ OS major revision
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
75 fcb NOS9MIN OS minor revision
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
76 IFNE H6309
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
77 fcb Proc6309+CRCOff feature byte #1
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
78 ELSE
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
79 fcb CRCOff feature byte #1
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
80 ENDC
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
81 fcb $00 feature byte #2
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
82 fdb OSStr
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
83 fdb InstStr
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
84 fcb 0,0,0,0 reserved
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
85
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
86 IFGT Level-1
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
87 * CC3IO section
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
88 fcb Monitor monitor type
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
89 fcb 0,1 mouse info, low res right mouse
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
90 fcb $1E key repeat start constant
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
91 fcb $03 key repeat delay constant
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
92 ENDC
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
93
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
94 name fcs "Init"
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
95 fcb edition
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
96
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
97 DefProg fcs "SysGo"
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
98 DefDev fcs "/V0"
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
99 DefCons fcs "/Term"
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
100 DefBoot fcs "Boot"
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
101
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
102 *
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
103 * The DragonAlpha is so pushed for boot track space, that we have to exclude these
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
104 * messages !
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
105 *
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
106
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
107 IFEQ dalpha
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
108 OSStr equ *
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
109 fcc "NitrOS-9/"
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
110 IFNE H6309
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
111 fcc /6309 /
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
112 ELSE
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
113 fcc /6809 /
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
114 ENDC
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
115 fcc /Level /
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
116 fcb '0+Level
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
117 fcc / V/
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
118 fcb '0+NOS9VER
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
119 fcc /./
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
120 fcb '0+NOS9MAJ
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
121 fcc /./
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
122 fcb '0+NOS9MIN
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
123 fcb 0
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
124
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
125 InstStr equ *
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
126 IFNE coco1
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
127 fcc "Radio Shack Color Computer"
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
128 ELSE
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
129 IFNE deluxe
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
130 fcc "Deluxe Color Computer"
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
131 ELSE
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
132 IFNE coco2
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
133 fcc "Radio Shack Color Computer 2"
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
134 ELSE
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
135 IFNE coco2b
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
136 fcc "Tandy Color Computer 2"
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
137 ELSE
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
138 IFNE coco3
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
139 fcc "Tandy Color Computer 3"
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
140 ELSE
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
141 IFNE tano
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
142 fcc "Tano Dragon (US)"
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
143 ELSE
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
144 IFNE d64
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
145 fcc "Dragon 64 (UK)"
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
146 ELSE
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
147 IFNE dalpha
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
148 fcc "Dragon Alpha"
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
149 ELSE
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
150 IFNE atari
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
151 fcc "Atari XL/XE"
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
152 ELSE
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
153 IFNE mc09
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
154 fcb $1B text in bright blue
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
155 fcc "[94mMulticomp09"
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
156 fcb $1B
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
157 fcc "[0m"
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
158 ELSE
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
159 IFNE coco3fpga
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
160 fcc "Gary Becker's Coco3FPGA"
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
161 ELSE
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
162 IFNE corsham
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
163 fcc "Corsham 6809"
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
164 ELSE
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
165 fcc "Unknown Machine"
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
166 ENDC match IFNE corsham
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
167 ENDC match IFNE coco3fpga
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
168 ENDC match IFNE mc09
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
169 ENDC match IFNE atari
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
170 ENDC match IFNE dalpha
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
171 ENDC match IFNE d64
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
172 ENDC match IFNE tano
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
173 ENDC match IFNE coco3
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
174 ENDC match IFNE coco2b
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
175 ENDC match IFNE coco2
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
176 ENDC match IFNE delux
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
177 ENDC match IFNE coco1
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
178 fcb 0 null-terminate the name string
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
179 ELSE
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
180 * DragonAlpha
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
181 OSStr equ *
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
182 InstStr equ *
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
183 fcb 0 null-length string
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
184 ENDC match IFEQ dalpha
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
185
8
96a067cf4c4f level2 rom done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
186 emod
96a067cf4c4f level2 rom done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
187 eom equ *
52
51b437557f42 boot without disk image
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 11
diff changeset
188 end