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