|
0
|
1 ********************************************************************
|
|
|
2 * SysGo - OS-9 Level One 2 ROM SysGo
|
|
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
|
6 * Ed. Comments Who YY/MM/DD
|
|
|
7 * ------------------------------------------------------------------
|
|
201
|
8 * 12 From Tandy OS-9 Level One VR 02.00.00
|
|
|
9 * 13 Y2K BGP 99/05/11
|
|
0
|
10
|
|
|
11 nam SysGo
|
|
|
12 ttl OS-9 Level One 2 ROM SysGo
|
|
|
13
|
|
|
14 ifp1
|
|
|
15 use defsfile
|
|
|
16 use scfdefs
|
|
|
17 endc
|
|
|
18
|
|
|
19 tylg set Systm+Objct
|
|
|
20 atrv set ReEnt+rev
|
|
|
21 rev set $01
|
|
|
22 edition set 13
|
|
|
23
|
|
|
24 mod eom,name,tylg,atrv,start,size
|
|
|
25
|
|
|
26 dataarea rmb 200
|
|
|
27 size equ .
|
|
|
28
|
|
|
29 name fcs /SysGo/
|
|
|
30 fcb edition
|
|
|
31
|
|
|
32 * default OS-9 priority
|
|
|
33 DefPrior set 128
|
|
|
34
|
|
|
35 BootMsg fcc "OS-9 LEVEL ONE VR. 0"
|
|
|
36 fcb 48+OS9Vrsn
|
|
|
37 fcc ".0"
|
|
|
38 fcb 48+OS9Major
|
|
|
39 fcc ".0"
|
|
|
40 fcb 48+OS9Minor
|
|
|
41 fdb C$CR,C$LF
|
|
|
42 fcc "COPR. 1980 BY MOTOROLA INC. AND"
|
|
|
43 fdb C$CR,C$LF
|
|
|
44 fcc "MICROWARE SYSTEMS CORP."
|
|
|
45 fdb C$CR,C$LF
|
|
|
46 fcc "LICENSED TO TANDY CORP."
|
|
|
47 fdb C$CR,C$LF
|
|
|
48 fcc "ALL RIGHTS RESERVED."
|
|
|
49 fdb C$CR,C$LF
|
|
|
50 fcb C$LF
|
|
|
51 MsgEnd equ *
|
|
|
52
|
|
|
53 Shell fcc "Shell"
|
|
|
54 fcb C$CR
|
|
|
55
|
|
|
56 * Default time packet
|
|
|
57 * YY MM DD HH MM SS
|
|
|
58 TimePckt fcb 85,06,01,00,00,00
|
|
|
59
|
|
|
60 * SysGo entry point
|
|
|
61 start leax >IcptRtn,pcr
|
|
|
62 os9 F$Icpt
|
|
|
63
|
|
|
64 * Print boot message
|
|
|
65 leax >BootMsg,pcr
|
|
|
66 ldy #MsgEnd-BootMsg
|
|
|
67 lda #$01
|
|
|
68 os9 I$Write
|
|
|
69 leax >TimePckt,pcr
|
|
|
70 os9 F$STime
|
|
|
71
|
|
|
72 * Set priority and do startup file
|
|
|
73 DoStrtup os9 F$ID
|
|
|
74 ldb #DefPrior
|
|
|
75 os9 F$SPrior
|
|
|
76
|
|
|
77 FrkShell leax >Shell,pcr
|
|
|
78 ldd #$0100
|
|
|
79 ldy #$0000
|
|
|
80 os9 F$Fork
|
|
|
81 bcs DeadEnd
|
|
|
82 os9 F$Wait
|
|
|
83 bcc FrkShell
|
|
|
84 DeadEnd bra DeadEnd
|
|
|
85
|
|
|
86 * Intercept routine
|
|
|
87 IcptRtn rti
|
|
|
88
|
|
|
89 emod
|
|
|
90 eom equ *
|
|
|
91 end
|
