|
0
|
1 ********************************************************************
|
|
|
2 * SysGo - OS-9 Level One 2 SysGo
|
|
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
|
6 * Ed. Comments Who YY/MM/DD
|
|
|
7 * ------------------------------------------------------------------
|
|
|
8 * 12 Tandy/Microware original version
|
|
|
9 * 13 Incremented version number to reflect Y2K BGP 99/05/11
|
|
|
10 * fixes
|
|
|
11
|
|
|
12 nam SysGo
|
|
|
13 ttl OS-9 Level One 2 SysGo
|
|
|
14
|
|
|
15 ifp1
|
|
|
16 use defsfile
|
|
|
17 use scfdefs
|
|
|
18 endc
|
|
|
19
|
|
|
20 tylg set Systm+Objct
|
|
|
21 atrv set ReEnt+rev
|
|
|
22 rev set $01
|
|
|
23 edition set 13
|
|
|
24
|
|
|
25 mod eom,name,tylg,atrv,start,size
|
|
|
26
|
|
|
27 dataarea rmb 200
|
|
|
28 size equ .
|
|
|
29
|
|
|
30 name fcs /SysGo/
|
|
|
31 fcb edition
|
|
|
32
|
|
|
33 * default OS-9 priority
|
|
|
34 DefPrior set 128
|
|
|
35
|
|
|
36 BootMsg fcc "OS-9 LEVEL ONE VR. 0"
|
|
|
37 fcb 48+OS9Vrsn
|
|
|
38 fcc ".0"
|
|
|
39 fcb 48+OS9Major
|
|
|
40 fcc ".0"
|
|
|
41 fcb 48+OS9Minor
|
|
|
42 fdb C$CR,C$LF
|
|
|
43 fcc "COPR. 1980 BY MOTOROLA INC. AND"
|
|
|
44 fdb C$CR,C$LF
|
|
|
45 fcc "MICROWARE SYSTEMS CORP."
|
|
|
46 fdb C$CR,C$LF
|
|
|
47 fcc "LICENSED TO TANDY CORP."
|
|
|
48 fdb C$CR,C$LF
|
|
|
49 fcc "ALL RIGHTS RESERVED."
|
|
|
50 fdb C$CR,C$LF
|
|
|
51 fcb C$LF
|
|
|
52 MsgEnd equ *
|
|
|
53
|
|
|
54 ChdDev fcc "/H0"
|
|
|
55 fcb C$CR
|
|
|
56 ChxDev fcc "/H0/"
|
|
|
57 ChxPath fcc "Cmds"
|
|
|
58 fcb C$CR
|
|
|
59 fcc ",,,,,,,,,,"
|
|
|
60
|
|
|
61 Shell fcc "Shell"
|
|
|
62 fcb C$CR
|
|
|
63
|
|
|
64 fcc "TSMON"
|
|
|
65 fcb C$CR
|
|
|
66 Startup fcc "STARTUP -P"
|
|
|
67 fcb C$CR
|
|
|
68 fcc ",,,,,,,,,,"
|
|
|
69
|
|
|
70 * Default time packet
|
|
|
71 * YY MM DD HH MM SS
|
|
|
72 TimePckt fcb 85,06,01,00,00,00
|
|
|
73
|
|
|
74 BasicRst fcb $55
|
|
|
75 fcb $00
|
|
|
76 fcb $74
|
|
|
77 fcb $12
|
|
|
78 fcb $7F
|
|
|
79 fcb $FF
|
|
|
80 fcb $03
|
|
|
81 fcb $12
|
|
|
82 fcb $12
|
|
|
83 fcb $B7
|
|
|
84 fcb $FF
|
|
|
85 fcb $DF
|
|
|
86 fcb $7E
|
|
|
87 fcb $EF
|
|
|
88 fcb $0E
|
|
|
89
|
|
|
90 * SysGo entry point
|
|
|
91 start leax >IcptRtn,pcr
|
|
|
92 os9 F$Icpt
|
|
|
93 leax >BasicRst,pcr
|
|
|
94 ldu #$0071
|
|
|
95 ldb #$0F
|
|
|
96 CopyLoop lda ,x+
|
|
|
97 sta ,u+
|
|
|
98 decb
|
|
|
99 bne CopyLoop
|
|
|
100
|
|
|
101 * Print boot message
|
|
|
102 leax >BootMsg,pcr
|
|
|
103 ldy #MsgEnd-BootMsg
|
|
|
104 lda #$01
|
|
|
105 os9 I$Write
|
|
|
106 leax >TimePckt,pcr
|
|
|
107 os9 F$STime
|
|
|
108 leax >ChxPath,pcr
|
|
|
109 lda #$04
|
|
|
110 os9 I$ChgDir
|
|
|
111 leax >ChdDev,pcr
|
|
|
112 lda #$03
|
|
|
113 os9 I$ChgDir
|
|
|
114 bcs DoStrtup
|
|
|
115 leax >ChxDev,pcr
|
|
|
116 lda #$04
|
|
|
117 os9 I$ChgDir
|
|
|
118 bcc DoStrtup
|
|
|
119
|
|
|
120 * Set priority and do startup file
|
|
|
121 DoStrtup os9 F$ID
|
|
|
122 ldb #DefPrior
|
|
|
123 os9 F$SPrior
|
|
|
124 leax >Shell,pcr
|
|
|
125 leau >Startup,pcr
|
|
|
126 ldd #$0100
|
|
|
127 ldy #$0015
|
|
|
128 os9 F$Fork
|
|
|
129 bcs DeadEnd
|
|
|
130 os9 F$Wait
|
|
|
131
|
|
|
132 FrkShell leax >Shell,pcr
|
|
|
133 ldd #$0100
|
|
|
134 ldy #$0000
|
|
|
135 os9 F$Fork
|
|
|
136 bcs DeadEnd
|
|
|
137 os9 F$Wait
|
|
|
138 bcc FrkShell
|
|
|
139 DeadEnd bra DeadEnd
|
|
|
140
|
|
|
141 * Intercept routine
|
|
|
142 IcptRtn rti
|
|
|
143
|
|
|
144 emod
|
|
|
145 eom equ *
|
|
|
146 end
|
