|
212
|
1 ********************************************************************
|
|
507
|
2 * SysGo - Kickstart module
|
|
212
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
|
6 * Ed. Comments Who YY/MM/DD
|
|
|
7 * ------------------------------------------------------------------
|
|
|
8 * - Original Dragon Data distribution version
|
|
|
9 *
|
|
|
10 * $Log$
|
|
1287
|
11 * Revision 1.3 2003/08/30 20:16:51 boisy
|
|
|
12 * Made all modules rev 0
|
|
|
13 *
|
|
507
|
14 * Revision 1.2 2002/10/10 14:50:22 boisy
|
|
|
15 * Added appropriate header
|
|
|
16 *
|
|
212
|
17 * Revision 1.1 2002/07/15 21:34:54 roug
|
|
|
18 * SysGo is simpler on Dragon 64.
|
|
|
19 *
|
|
|
20 * Revision 1.1 2002/04/21 21:27:50 roug
|
|
|
21 * These are the kernel modules from Dragon 64's OS9Boot.
|
|
|
22 * OS9 and OS9p2 are older than what's in ../MODULES so I checked them
|
|
|
23 * in as well.
|
|
|
24
|
|
|
25 nam SysGo
|
|
507
|
26 ttl Kickstart module
|
|
212
|
27
|
|
|
28 * Disassembled 02/04/21 22:38:39 by Disasm v1.6 (C) 1988 by RML
|
|
|
29
|
|
|
30 ifp1
|
|
|
31 use defsfile
|
|
|
32 use scfdefs
|
|
|
33 endc
|
|
|
34 tylg set Systm+Objct
|
|
|
35 atrv set ReEnt+rev
|
|
1287
|
36 rev set $00
|
|
212
|
37 mod eom,name,tylg,atrv,start,size
|
|
|
38 dataarea rmb 200
|
|
|
39 size equ .
|
|
|
40 name equ *
|
|
|
41 fcs /SysGo/
|
|
|
42 fcb $05
|
|
|
43 BootMsg fcc " OS-9 LEVEL ONE VERSION 1.2"
|
|
|
44 fcb C$CR,C$LF
|
|
|
45 fcc "COPYRIGHT 1980 BY MOTOROLA INC."
|
|
|
46 fcb C$CR,C$LF
|
|
|
47 fcc " AND MICROWARE SYSTEMS CORP."
|
|
|
48 fcb C$CR,C$LF
|
|
|
49 fcc " REPRODUCED UNDER LICENSE"
|
|
|
50 fcb C$CR,C$LF
|
|
|
51 fcc " TO DRAGON DATA LTD."
|
|
|
52 fcb C$CR,C$LF
|
|
|
53 fcc " ALL RIGHTS RESERVED."
|
|
|
54 fcb C$CR,C$LF
|
|
|
55 fcb C$LF
|
|
|
56 MsgEnd equ *
|
|
|
57 ChxPath fcc "Cmds"
|
|
|
58 fcb C$CR
|
|
|
59 fcc ",,,,,,,,,,"
|
|
|
60 Shell fcc "Shell"
|
|
|
61 fcb C$CR
|
|
|
62 fcc ",,,,,,,,,,"
|
|
|
63 Startup fcc "STARTUP -P"
|
|
|
64 fcb C$CR
|
|
|
65 fcc ",,,,,,,,,,"
|
|
|
66
|
|
|
67 BasicRst fcb $55 U
|
|
|
68 fcb $00
|
|
|
69 fcb $74 t
|
|
|
70 fcb $12
|
|
|
71 fcb $7F ÿ
|
|
|
72 fcb $FF
|
|
|
73 fcb $03
|
|
|
74 fcb $B7 7
|
|
|
75 fcb $FF
|
|
|
76 fcb $DF _
|
|
|
77 fcb $7E þ
|
|
|
78 fcb $F0 p
|
|
|
79 fcb $02
|
|
|
80 start equ *
|
|
|
81 leax >IcptRtn,pcr
|
|
|
82 os9 F$Icpt
|
|
|
83 leax >BasicRst,pcr
|
|
|
84 ldu #$0071
|
|
|
85 ldb #$0D
|
|
|
86 CopyLoop lda ,x+
|
|
|
87 sta ,u+
|
|
|
88 decb
|
|
|
89 bne CopyLoop
|
|
|
90
|
|
|
91 * Print boot message
|
|
|
92 leax >BootMsg,pcr
|
|
|
93 ldy #MsgEnd-BootMsg
|
|
|
94 lda #$01
|
|
|
95 os9 I$Write
|
|
|
96 leax >ChxPath,pcr
|
|
|
97 lda #$04
|
|
|
98 os9 I$ChgDir
|
|
|
99
|
|
|
100 leax >Shell,pcr
|
|
|
101 leau >Startup,pcr
|
|
|
102 ldd #$0100
|
|
|
103 ldy #$0015
|
|
|
104 os9 F$Fork
|
|
|
105 bcs DeadEnd
|
|
|
106 os9 F$Wait
|
|
|
107
|
|
|
108 FrkShell leax >Shell,pcr
|
|
|
109 ldd #$0100
|
|
|
110 ldy #$0000
|
|
|
111 os9 F$Fork
|
|
|
112 bcs DeadEnd
|
|
|
113 os9 F$Wait
|
|
|
114 bcc FrkShell
|
|
|
115 DeadEnd bra DeadEnd
|
|
|
116
|
|
|
117 * Intercept routine
|
|
|
118 IcptRtn rti
|
|
|
119
|
|
|
120 emod
|
|
|
121 eom equ *
|
|
|
122 end
|
