Mercurial > hg > Members > kono > nitros9-code

annotate level1/modules/sysgo.asm @ 1071:853a796a1bcd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Removed logbook
author boisy
date Mon, 31 Mar 2003 14:10:56 +0000
parents dd0ed5ec3106
children 6264431d0c88
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1 ********************************************************************
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
2 * SysGo - OS-9 Level One 2 SysGo
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
3 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
4 * $Id$
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
5 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
6 * Ed. Comments Who YY/MM/DD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
7 * ------------------------------------------------------------------
201
668388823050 Fixed headers to be consistent
boisy
parents: 76
diff changeset
8 * 12 From Tandy OS-9 Level One VR 02.00.00
668388823050 Fixed headers to be consistent
boisy
parents: 76
diff changeset
9 * 13 Incremented version number to reflect Y2K BGP 99/05/11
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
10 * fixes
256
9e9648e17298 Additional source improvements
boisy
parents: 252
diff changeset
11 * 14 Updated to reflect new release, changed /H0 BGP 02/07/19
9e9648e17298 Additional source improvements
boisy
parents: 252
diff changeset
12 * to /DD
274
00fe04149e6e Added AutoEx feature, ala Level Two
boisy
parents: 272
diff changeset
13 * 15 Merged ROM and non-ROM sysgos, removed 'tsmon' BGP 02/07/19
00fe04149e6e Added AutoEx feature, ala Level Two
boisy
parents: 272
diff changeset
14 * and added 'AutoEx' feature ala Level Two
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
15
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
16 nam SysGo
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
17 ttl OS-9 Level One 2 SysGo
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
18
588
e70529a05aca Cleanup for Phoenix Release
boisy
parents: 365
diff changeset
19 IFP1
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
20 use defsfile
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
21 use scfdefs
588
e70529a05aca Cleanup for Phoenix Release
boisy
parents: 365
diff changeset
22 ENDC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
23
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
24 tylg set Systm+Objct
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
25 atrv set ReEnt+rev
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
26 rev set $01
274
00fe04149e6e Added AutoEx feature, ala Level Two
boisy
parents: 272
diff changeset
27 edition set 15
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
28
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
29 mod eom,name,tylg,atrv,start,size
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
30
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
31 dataarea rmb 200
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
32 size equ .
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
33
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
34 name fcs /SysGo/
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
35 fcb edition
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
36
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
37 * default OS-9 priority
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
38 DefPrior set 128
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
39
1003
56498700dfb2 Preparation for 2.1.1 Beta1 release
boisy
parents: 1001
diff changeset
40 BootMsg fcc !OS-9 LEVEL ONE VR. 0!
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
41 fcb 48+OS9Vrsn
1003
56498700dfb2 Preparation for 2.1.1 Beta1 release
boisy
parents: 1001
diff changeset
42 fcc !.0!
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
43 fcb 48+OS9Major
1003
56498700dfb2 Preparation for 2.1.1 Beta1 release
boisy
parents: 1001
diff changeset
44 fcc !.0!
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
45 fcb 48+OS9Minor
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
46 fdb C$CR,C$LF
274
00fe04149e6e Added AutoEx feature, ala Level Two
boisy
parents: 272
diff changeset
47
00fe04149e6e Added AutoEx feature, ala Level Two
boisy
parents: 272
diff changeset
48 * For ROM version, cut down on verbage
588
e70529a05aca Cleanup for Phoenix Release
boisy
parents: 365
diff changeset
49 IFNE DiskGo
1025
a20d2fd36cfa Releases of all OS-9 packages are now under a common version number
boisy
parents: 1018
diff changeset
50 fcc !Release Date: 03/07/2003!
591
40cc40e9ff5f New sysgo
boisy
parents: 588
diff changeset
51 fcb C$CR,C$LF
40cc40e9ff5f New sysgo
boisy
parents: 588
diff changeset
52 fcc !"A CoCo Community Project"!
40cc40e9ff5f New sysgo
boisy
parents: 588
diff changeset
53 fcb C$CR,C$LF
1003
56498700dfb2 Preparation for 2.1.1 Beta1 release
boisy
parents: 1001
diff changeset
54 fcc !Visit us on the web:!
591
40cc40e9ff5f New sysgo
boisy
parents: 588
diff changeset
55 fcb C$CR,C$LF
1003
56498700dfb2 Preparation for 2.1.1 Beta1 release
boisy
parents: 1001
diff changeset
56 fcc !http://cocoos9.sourceforge.net!
591
40cc40e9ff5f New sysgo
boisy
parents: 588
diff changeset
57 fcb C$CR,C$LF
588
e70529a05aca Cleanup for Phoenix Release
boisy
parents: 365
diff changeset
58 ENDC
274
00fe04149e6e Added AutoEx feature, ala Level Two
boisy
parents: 272
diff changeset
59
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
60 fcb C$LF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
61 MsgEnd equ *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
62
588
e70529a05aca Cleanup for Phoenix Release
boisy
parents: 365
diff changeset
63 IFNE DiskGo
256
9e9648e17298 Additional source improvements
boisy
parents: 252
diff changeset
64 ChdDev fcc "/DD"
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
65 fcb C$CR
256
9e9648e17298 Additional source improvements
boisy
parents: 252
diff changeset
66 ChxDev fcc "/DD/"
9e9648e17298 Additional source improvements
boisy
parents: 252
diff changeset
67 ChxPath fcc "CMDS"
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
68 fcb C$CR
1003
56498700dfb2 Preparation for 2.1.1 Beta1 release
boisy
parents: 1001
diff changeset
69 * fcc ",,,,,,,,,,"
588
e70529a05aca Cleanup for Phoenix Release
boisy
parents: 365
diff changeset
70 ENDC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
71
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
72 Shell fcc "Shell"
274
00fe04149e6e Added AutoEx feature, ala Level Two
boisy
parents: 272
diff changeset
73 CrRtn fcb C$CR
00fe04149e6e Added AutoEx feature, ala Level Two
boisy
parents: 272
diff changeset
74
00fe04149e6e Added AutoEx feature, ala Level Two
boisy
parents: 272
diff changeset
75 AutoEx fcc "AutoEx"
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
76 fcb C$CR
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
77
588
e70529a05aca Cleanup for Phoenix Release
boisy
parents: 365
diff changeset
78 IFNE DiskGo
256
9e9648e17298 Additional source improvements
boisy
parents: 252
diff changeset
79 Startup fcc "startup -p"
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
80 fcb C$CR
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
81 fcc ",,,,,,,,,,"
252
06775bf93f3a sysgo source commented additionally
boisy
parents: 201
diff changeset
82 StartupL equ *-Startup
588
e70529a05aca Cleanup for Phoenix Release
boisy
parents: 365
diff changeset
83 ENDC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
84
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
85 * Default time packet
274
00fe04149e6e Added AutoEx feature, ala Level Two
boisy
parents: 272
diff changeset
86 * YY MM DD HH MM SS
1028
dd0ed5ec3106 Updated default time
boisy
parents: 1025
diff changeset
87 TimePckt fcb 103,03,07,00,00,59
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
88
252
06775bf93f3a sysgo source commented additionally
boisy
parents: 201
diff changeset
89 * BASIC reset code
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
90 BasicRst fcb $55
252
06775bf93f3a sysgo source commented additionally
boisy
parents: 201
diff changeset
91 neg <$0074
76
6f72b77131c0 Disassembled reset code a little
boisy
parents: 0
diff changeset
92 nop
6f72b77131c0 Disassembled reset code a little
boisy
parents: 0
diff changeset
93 clr >$FF03
6f72b77131c0 Disassembled reset code a little
boisy
parents: 0
diff changeset
94 nop
6f72b77131c0 Disassembled reset code a little
boisy
parents: 0
diff changeset
95 nop
252
06775bf93f3a sysgo source commented additionally
boisy
parents: 201
diff changeset
96 sta >$FFDF turn off ROM mode
06775bf93f3a sysgo source commented additionally
boisy
parents: 201
diff changeset
97 jmp >$EF0E jump to boot
06775bf93f3a sysgo source commented additionally
boisy
parents: 201
diff changeset
98 BasicRL equ *-BasicRst
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
99
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
100 * SysGo entry point
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
101 start leax >IcptRtn,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
102 os9 F$Icpt
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
103 leax >BasicRst,pcr
252
06775bf93f3a sysgo source commented additionally
boisy
parents: 201
diff changeset
104 ldu #D.CBStrt
06775bf93f3a sysgo source commented additionally
boisy
parents: 201
diff changeset
105 ldb #BasicRL
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
106 CopyLoop lda ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
107 sta ,u+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
108 decb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
109 bne CopyLoop
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
110
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
111 * Print boot message
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
112 leax >BootMsg,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
113 ldy #MsgEnd-BootMsg
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
114 lda #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
115 os9 I$Write
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
116 leax >TimePckt,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
117 os9 F$STime
274
00fe04149e6e Added AutoEx feature, ala Level Two
boisy
parents: 272
diff changeset
118
588
e70529a05aca Cleanup for Phoenix Release
boisy
parents: 365
diff changeset
119 IFNE DiskGo
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
120 leax >ChxPath,pcr
252
06775bf93f3a sysgo source commented additionally
boisy
parents: 201
diff changeset
121 lda #EXEC.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
122 os9 I$ChgDir
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
123 leax >ChdDev,pcr
252
06775bf93f3a sysgo source commented additionally
boisy
parents: 201
diff changeset
124 lda #UPDAT.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
125 os9 I$ChgDir
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
126 bcs DoStrtup
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
127 leax >ChxDev,pcr
252
06775bf93f3a sysgo source commented additionally
boisy
parents: 201
diff changeset
128 lda #EXEC.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
129 os9 I$ChgDir
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
130 bcc DoStrtup
588
e70529a05aca Cleanup for Phoenix Release
boisy
parents: 365
diff changeset
131 ENDC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
132
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
133 * Set priority and do startup file
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
134 DoStrtup os9 F$ID
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
135 ldb #DefPrior
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
136 os9 F$SPrior
274
00fe04149e6e Added AutoEx feature, ala Level Two
boisy
parents: 272
diff changeset
137
588
e70529a05aca Cleanup for Phoenix Release
boisy
parents: 365
diff changeset
138 IFNE DiskGo
274
00fe04149e6e Added AutoEx feature, ala Level Two
boisy
parents: 272
diff changeset
139 * First, do startup
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
140 leax >Shell,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
141 leau >Startup,pcr
252
06775bf93f3a sysgo source commented additionally
boisy
parents: 201
diff changeset
142 ldd #256
06775bf93f3a sysgo source commented additionally
boisy
parents: 201
diff changeset
143 ldy #StartupL
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
144 os9 F$Fork
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
145 bcs DeadEnd
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
146 os9 F$Wait
588
e70529a05aca Cleanup for Phoenix Release
boisy
parents: 365
diff changeset
147 ENDC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
148
274
00fe04149e6e Added AutoEx feature, ala Level Two
boisy
parents: 272
diff changeset
149 * Second, attempt to find AutoEx
00fe04149e6e Added AutoEx feature, ala Level Two
boisy
parents: 272
diff changeset
150 FrkAuto leax >AutoEx,pcr
00fe04149e6e Added AutoEx feature, ala Level Two
boisy
parents: 272
diff changeset
151 leau >CrRtn,pcr
00fe04149e6e Added AutoEx feature, ala Level Two
boisy
parents: 272
diff changeset
152 ldd #256
00fe04149e6e Added AutoEx feature, ala Level Two
boisy
parents: 272
diff changeset
153 ldy #1
00fe04149e6e Added AutoEx feature, ala Level Two
boisy
parents: 272
diff changeset
154 os9 F$Fork
281
dc8e5781c23f Fixed small goof in sysgo where AutoEx went to dead wait upon failure.
boisy
parents: 274
diff changeset
155 bcs FrkShell
274
00fe04149e6e Added AutoEx feature, ala Level Two
boisy
parents: 272
diff changeset
156 os9 F$Wait
00fe04149e6e Added AutoEx feature, ala Level Two
boisy
parents: 272
diff changeset
157
00fe04149e6e Added AutoEx feature, ala Level Two
boisy
parents: 272
diff changeset
158 * Third, do Shell
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
159 FrkShell leax >Shell,pcr
252
06775bf93f3a sysgo source commented additionally
boisy
parents: 201
diff changeset
160 ldd #256
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
161 ldy #$0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
162 os9 F$Fork
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
163 bcs DeadEnd
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
164 os9 F$Wait
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
165 bcc FrkShell
274
00fe04149e6e Added AutoEx feature, ala Level Two
boisy
parents: 272
diff changeset
166
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
167 DeadEnd bra DeadEnd
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
168
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
169 * Intercept routine
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
170 IcptRtn rti
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
171
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
172 emod
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
173 eom equ *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
174 end