|
0
|
1 ********************************************************************
|
|
|
2 * CC3Go - Kickstart program module for ROM systems
|
|
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
|
6 * Ed. Comments Who YY/MM/DD
|
|
|
7 * ------------------------------------------------------------------
|
|
|
8 * 5 Taken from OS-9 L2 Tandy distribution and BGP 98/10/12
|
|
|
9 * modified banner for V3
|
|
|
10
|
|
|
11 nam CC3Go
|
|
|
12 ttl Kickstart program module for ROM systems
|
|
|
13
|
|
|
14 ifp1
|
|
|
15 use defsfile
|
|
|
16 use scfdefs
|
|
|
17 endc
|
|
|
18
|
|
|
19 tylg set Prgrm+Objct
|
|
|
20 atrv set ReEnt+rev
|
|
|
21 rev set $01
|
|
|
22 edition set $05
|
|
|
23
|
|
|
24 mod eom,name,tylg,atrv,start,size
|
|
|
25
|
|
|
26 u0000 rmb 32
|
|
|
27 u0020 rmb 42
|
|
|
28 u004A rmb 33
|
|
|
29 u006B rmb 6
|
|
|
30 u0071 rmb 655
|
|
|
31 size equ .
|
|
|
32
|
|
|
33 name fcs /CC3Go/
|
|
|
34 fcb edition
|
|
|
35
|
|
|
36 Banner fcc / OS-9 LEVEL TWO VR. 0/
|
|
|
37 fcb 48+OS9Vrsn
|
|
|
38 fcc /.0/
|
|
|
39 fcb 48+OS9Major
|
|
|
40 fcc /.0/
|
|
|
41 fcb 48+OS9Minor
|
|
|
42 fcb C$CR,C$LF
|
|
|
43 fcc / COPYRIGHT 1988 BY/
|
|
|
44 fcb C$CR,C$LF
|
|
|
45 fcc / MICROWARE SYSTEMS CORP./
|
|
|
46 fcb C$CR,C$LF
|
|
|
47 fcc / LICENSED TO TANDY CORP./
|
|
|
48 fcb C$CR,C$LF
|
|
|
49 fcc / ALL RIGHTS RESERVED./
|
|
|
50 fcb C$CR,C$LF
|
|
|
51 fcb C$LF
|
|
|
52 BannLen equ *-Banner
|
|
|
53 AutoEx fcc "AutoEx"
|
|
|
54 fcb C$CR
|
|
|
55 Shell fcc "Shell"
|
|
|
56 fcb C$CR
|
|
|
57 ShellPrm fcc "i=/1"
|
|
|
58 CRtn fcb C$CR
|
|
|
59 ShellPL equ *-ShellPrm
|
|
|
60
|
|
|
61 DefTime fcb 88,10,01,00,00,00
|
|
|
62
|
|
|
63 start leax >IcptRtn,pcr
|
|
|
64 os9 F$Icpt
|
|
|
65 os9 F$ID
|
|
|
66 ldb #128
|
|
|
67 os9 F$SPrior
|
|
|
68 leax >Banner,pcr
|
|
|
69 ldy #BannLen
|
|
|
70 lda #$01 standard output
|
|
|
71 os9 I$Write write out banner
|
|
|
72 leax >DefTime,pcr
|
|
|
73 os9 F$STime set time to default
|
|
|
74
|
|
|
75 * Fork AutoEx here
|
|
|
76 pshs u
|
|
|
77 leax >AutoEx,pcr
|
|
|
78 leau >CRtn,pcr
|
|
|
79 ldd #$0100
|
|
|
80 ldy #$0001
|
|
|
81 os9 F$Fork
|
|
|
82 bcs L0186
|
|
|
83 os9 F$Wait
|
|
|
84 L0186 puls u
|
|
|
85 leax >ShellPrm,pcr
|
|
|
86 leay ,u
|
|
|
87 ldb #ShellPL
|
|
|
88 L0190 lda ,x+
|
|
|
89 sta ,y+
|
|
|
90 decb
|
|
|
91 bne L0190
|
|
|
92 * Fork final shell here
|
|
|
93 leax >Shell,pcr
|
|
|
94 ldd #$0100
|
|
|
95 ldy #ShellPL
|
|
|
96 os9 F$Chain
|
|
|
97 L01A5 ldb #$06
|
|
|
98 bra Crash
|
|
|
99 L01A9 ldb #$04
|
|
|
100 Crash clr $FFA8 turn off disk motor
|
|
|
101 jmp <D.Crash
|
|
|
102
|
|
|
103 IcptRtn rti
|
|
|
104
|
|
|
105 emod
|
|
|
106 eom equ *
|
|
|
107 end
|
