Mercurial > hg > Members > kono > nitros9-code

comparison level1/modules/sysgo_rom.asm @ 0:6641a883d6b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial revision
author boisy
date Thu, 04 Apr 2002 16:34:12 +0000
parents
children 668388823050
comparison
equal deleted inserted replaced
-1:000000000000 0:6641a883d6b0
1 ********************************************************************
2 * SysGo - OS-9 Level One 2 ROM SysGo
3 *
4 * $Id$
5 *
6 * Ed. Comments Who YY/MM/DD
7 * ------------------------------------------------------------------
8 * 12 Tandy/Microware original version
9 * 13 Y2K BGP 99/05/11
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