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