Mercurial > hg > Members > kono > nitros9-code
annotate level2/modules/cc3go.asm @ 1214:701f6a80163f
bootscripts and bootlists added
| author | boisy |
|---|---|
| date | Sat, 28 Jun 2003 18:43:08 +0000 |
| parents | e555626fd781 |
| children | 292efcec1926 |
| rev | line source |
|---|---|
| 0 | 1 ******************************************************************** |
| 2 * CC3Go - Kickstart program module | |
| 3 * | |
| 4 * $Id$ | |
| 5 * | |
| 6 * Ed. Comments Who YY/MM/DD | |
| 7 * ------------------------------------------------------------------ | |
|
752
9e166adbc547
Put /DD back to /H0 like original cc3go, for those wanting to do floppy boots.
boisy
parents:
741
diff
changeset
|
8 * 5 Taken from OS-9 L2 Tandy distribution and BGP 98/10/12 |
| 0 | 9 * modified banner for V3 |
|
752
9e166adbc547
Put /DD back to /H0 like original cc3go, for those wanting to do floppy boots.
boisy
parents:
741
diff
changeset
|
10 * 5r2 Fixed fork behavior so that if 'shell startup' BGP 03/01/08 |
|
9e166adbc547
Put /DD back to /H0 like original cc3go, for those wanting to do floppy boots.
boisy
parents:
741
diff
changeset
|
11 * fails, system doesn't jmp to Crash, but tries |
|
9e166adbc547
Put /DD back to /H0 like original cc3go, for those wanting to do floppy boots.
boisy
parents:
741
diff
changeset
|
12 * AutoEx instead. Also changed /DD back to /H0 |
|
9e166adbc547
Put /DD back to /H0 like original cc3go, for those wanting to do floppy boots.
boisy
parents:
741
diff
changeset
|
13 * for certain boot floppy cases. |
|
9e166adbc547
Put /DD back to /H0 like original cc3go, for those wanting to do floppy boots.
boisy
parents:
741
diff
changeset
|
14 |
| 0 | 15 |
| 16 nam CC3Go | |
| 17 ttl Kickstart program module | |
| 18 | |
| 983 | 19 IFP1 |
| 0 | 20 use defsfile |
| 983 | 21 ENDC |
| 0 | 22 |
| 23 tylg set Prgrm+Objct | |
| 24 atrv set ReEnt+rev | |
|
752
9e166adbc547
Put /DD back to /H0 like original cc3go, for those wanting to do floppy boots.
boisy
parents:
741
diff
changeset
|
25 rev set $02 |
| 0 | 26 edition set $05 |
| 27 | |
| 28 mod eom,name,tylg,atrv,start,size | |
| 29 | |
| 30 u0000 rmb 32 | |
| 31 u0020 rmb 42 | |
| 32 u004A rmb 33 | |
| 33 u006B rmb 6 | |
| 34 u0071 rmb 655 | |
| 35 size equ . | |
| 36 | |
| 37 name fcs /CC3Go/ | |
| 38 fcb edition | |
| 39 | |
|
384
850b16b2aa76
cc3go_rom now folded into cc3go... Makefile modified to adjust
boisy
parents:
372
diff
changeset
|
40 Banner |
| 983 | 41 IFNE NitrOS9 |
| 388 | 42 fcc /NitrOS-9 Level Two Vr. 0/ |
| 983 | 43 ELSE |
| 388 | 44 fcc / OS-9 Level Two Vr. 0/ |
| 983 | 45 ENDC |
| 0 | 46 fcb 48+OS9Vrsn |
| 47 fcc /.0/ | |
| 48 fcb 48+OS9Major | |
| 49 fcc /.0/ | |
| 50 fcb 48+OS9Minor | |
| 51 fcb C$CR,C$LF | |
| 1214 | 52 fcc " Release Date: 07/01/2003" |
|
372
b3bfa479f8d0
scfdefs is now included from level2v3/defsfile and all references to it
boisy
parents:
0
diff
changeset
|
53 fcb C$CR,C$LF |
| 388 | 54 fcc / "A CoCo Community Project"/ |
| 0 | 55 fcb C$CR,C$LF |
| 388 | 56 fcc / Visit us on the web:/ |
| 0 | 57 fcb C$CR,C$LF |
| 388 | 58 fcc !http://cocoos9.sourceforge.net/! |
| 0 | 59 fcb C$CR,C$LF |
| 60 fcb C$LF | |
| 61 BannLen equ *-Banner | |
| 983 | 62 IFEQ ROM |
| 63 DefDev equ * | |
| 64 IFNE DD | |
| 65 fcc "/DD" | |
| 66 ELSE | |
| 67 fcc "/H0" | |
| 68 ENDC | |
| 0 | 69 fcb C$CR |
| 983 | 70 HDDev equ * |
| 71 IFNE DD | |
| 72 fcc "/DD/" | |
| 73 ELSE | |
| 74 fcc "/H0/" | |
| 75 ENDC | |
|
752
9e166adbc547
Put /DD back to /H0 like original cc3go, for those wanting to do floppy boots.
boisy
parents:
741
diff
changeset
|
76 ExecDir fcc "CMDS" |
| 0 | 77 fcb C$CR |
| 78 fcc ",,,,," | |
| 983 | 79 ENDC |
| 0 | 80 Shell fcc "Shell" |
| 81 fcb C$CR | |
| 82 fcc ",,,,," | |
| 83 AutoEx fcc "AutoEx" | |
| 84 fcb C$CR | |
| 85 fcc ",,,,," | |
| 983 | 86 IFEQ ROM |
| 0 | 87 Startup fcc "STARTUP -P" |
| 88 fcb C$CR | |
| 89 fcc ",,,,," | |
| 983 | 90 ENDC |
| 0 | 91 ShellPrm fcc "i=/1" |
| 92 CRtn fcb C$CR | |
| 93 fcc ",,,,," | |
| 94 ShellPL equ *-ShellPrm | |
| 95 | |
| 1028 | 96 DefTime fcb 103,3,07,00,00,59 |
| 0 | 97 |
| 98 start leax >IcptRtn,pcr | |
| 99 os9 F$Icpt | |
| 100 os9 F$ID | |
| 101 ldb #$80 | |
| 102 os9 F$SPrior | |
| 103 leax >Banner,pcr | |
| 104 ldy #BannLen | |
| 105 lda #$01 standard output | |
| 106 os9 I$Write write out banner | |
| 107 leax >DefTime,pcr | |
| 108 os9 F$STime set time to default | |
| 983 | 109 IFEQ ROM |
| 0 | 110 leax >ExecDir,pcr |
| 111 lda #EXEC. | |
| 112 os9 I$ChgDir change exec. dir | |
| 113 leax >DefDev,pcr | |
| 114 lda #READ.+WRITE. | |
| 115 os9 I$ChgDir change data dir. | |
| 116 bcs L0125 | |
| 117 leax >HDDev,pcr | |
| 118 lda #EXEC. | |
| 119 os9 I$ChgDir change exec. dir to HD | |
| 983 | 120 ENDC |
| 0 | 121 L0125 pshs u,y |
| 122 os9 F$ID | |
| 123 bcs L01A9 | |
| 124 leax ,u | |
| 125 os9 F$GPrDsc | |
| 126 bcs L01A9 | |
| 127 leay ,u | |
| 128 ldx #$0000 | |
| 129 ldb #$01 | |
| 130 os9 F$MapBlk | |
| 131 bcs L01A9 | |
| 132 * Set flag for Color BASIC | |
| 133 lda #$55 | |
| 134 sta <D.CBStrt,u | |
| 135 * Copy our default I/O ptrs to the system process | |
| 136 ldd <D.SysPrc,u | |
| 137 leau d,u | |
| 138 leau <P$DIO,u | |
| 139 leay <P$DIO,y | |
| 140 ldb #DefIOSiz-1 | |
| 141 L0151 lda b,y | |
| 142 sta b,u | |
| 143 decb | |
| 144 bpl L0151 | |
| 983 | 145 IFEQ ROM |
| 0 | 146 * Fork shell startup here |
| 147 leax >Shell,pcr | |
| 148 leau >Startup,pcr | |
| 149 ldd #256 | |
| 150 ldy #16 | |
| 151 os9 F$Fork | |
|
752
9e166adbc547
Put /DD back to /H0 like original cc3go, for those wanting to do floppy boots.
boisy
parents:
741
diff
changeset
|
152 bcs DoAuto |
| 0 | 153 os9 F$Wait |
| 983 | 154 ENDC |
| 0 | 155 * Fork AutoEx here |
|
752
9e166adbc547
Put /DD back to /H0 like original cc3go, for those wanting to do floppy boots.
boisy
parents:
741
diff
changeset
|
156 DoAuto leax >AutoEx,pcr |
| 0 | 157 leau >CRtn,pcr |
| 158 ldd #$0100 | |
| 159 ldy #$0001 | |
| 160 os9 F$Fork | |
| 161 bcs L0186 | |
| 162 os9 F$Wait | |
| 163 L0186 puls u,y | |
| 164 leax >ShellPrm,pcr | |
| 165 leay ,u | |
| 166 ldb #ShellPL | |
| 167 L0190 lda ,x+ | |
| 168 sta ,y+ | |
| 169 decb | |
| 170 bne L0190 | |
| 171 * Fork final shell here | |
| 172 leax >Shell,pcr | |
| 173 ldd #$0100 | |
| 174 ldy #ShellPL | |
| 175 os9 F$Chain | |
| 176 L01A5 ldb #$06 | |
| 177 bra Crash | |
| 178 L01A9 ldb #$04 | |
| 179 Crash clr $FFA8 turn off disk motor | |
| 180 jmp <D.Crash | |
| 181 | |
| 182 IcptRtn rti | |
| 183 | |
| 184 emod | |
| 185 eom equ * | |
| 186 end |