Mercurial > hg > Members > kono > nitros9-code
annotate level2/modules/cc3go.asm @ 899:6841c75afc62
Modified
| author | boisy |
|---|---|
| date | Fri, 17 Jan 2003 21:04:02 +0000 |
| parents | aca4b54ed8f3 |
| children | 03033eef4b93 |
| 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 | |
| 19 ifp1 | |
| 20 use defsfile | |
| 21 endc | |
| 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 |
|
850b16b2aa76
cc3go_rom now folded into cc3go... Makefile modified to adjust
boisy
parents:
372
diff
changeset
|
41 ifne NitrOS9 |
| 388 | 42 fcc /NitrOS-9 Level Two Vr. 0/ |
|
384
850b16b2aa76
cc3go_rom now folded into cc3go... Makefile modified to adjust
boisy
parents:
372
diff
changeset
|
43 else |
| 388 | 44 fcc / OS-9 Level Two Vr. 0/ |
|
384
850b16b2aa76
cc3go_rom now folded into cc3go... Makefile modified to adjust
boisy
parents:
372
diff
changeset
|
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 | |
|
384
850b16b2aa76
cc3go_rom now folded into cc3go... Makefile modified to adjust
boisy
parents:
372
diff
changeset
|
52 ifne NitrOS9 |
| 755 | 53 fcc " ORION BETA3 Release ??/??/2003" |
|
384
850b16b2aa76
cc3go_rom now folded into cc3go... Makefile modified to adjust
boisy
parents:
372
diff
changeset
|
54 else |
| 755 | 55 fcc " ARIES BETA3 Release ??/??/2003" |
|
384
850b16b2aa76
cc3go_rom now folded into cc3go... Makefile modified to adjust
boisy
parents:
372
diff
changeset
|
56 endc |
|
372
b3bfa479f8d0
scfdefs is now included from level2v3/defsfile and all references to it
boisy
parents:
0
diff
changeset
|
57 fcb C$CR,C$LF |
| 388 | 58 fcc / "A CoCo Community Project"/ |
| 0 | 59 fcb C$CR,C$LF |
| 388 | 60 fcc / Visit us on the web:/ |
| 0 | 61 fcb C$CR,C$LF |
| 388 | 62 fcc !http://cocoos9.sourceforge.net/! |
| 0 | 63 fcb C$CR,C$LF |
| 64 fcb C$LF | |
| 65 BannLen equ *-Banner | |
|
384
850b16b2aa76
cc3go_rom now folded into cc3go... Makefile modified to adjust
boisy
parents:
372
diff
changeset
|
66 ifeq ROM |
|
752
9e166adbc547
Put /DD back to /H0 like original cc3go, for those wanting to do floppy boots.
boisy
parents:
741
diff
changeset
|
67 DefDev fcc "/H0" |
| 0 | 68 fcb C$CR |
|
752
9e166adbc547
Put /DD back to /H0 like original cc3go, for those wanting to do floppy boots.
boisy
parents:
741
diff
changeset
|
69 HDDev fcc "/H0/" |
|
9e166adbc547
Put /DD back to /H0 like original cc3go, for those wanting to do floppy boots.
boisy
parents:
741
diff
changeset
|
70 ExecDir fcc "CMDS" |
| 0 | 71 fcb C$CR |
| 72 fcc ",,,,," | |
|
384
850b16b2aa76
cc3go_rom now folded into cc3go... Makefile modified to adjust
boisy
parents:
372
diff
changeset
|
73 endc |
| 0 | 74 Shell fcc "Shell" |
| 75 fcb C$CR | |
| 76 fcc ",,,,," | |
| 77 AutoEx fcc "AutoEx" | |
| 78 fcb C$CR | |
| 79 fcc ",,,,," | |
|
384
850b16b2aa76
cc3go_rom now folded into cc3go... Makefile modified to adjust
boisy
parents:
372
diff
changeset
|
80 ifeq ROM |
| 0 | 81 Startup fcc "STARTUP -P" |
| 82 fcb C$CR | |
| 83 fcc ",,,,," | |
|
384
850b16b2aa76
cc3go_rom now folded into cc3go... Makefile modified to adjust
boisy
parents:
372
diff
changeset
|
84 endc |
| 0 | 85 ShellPrm fcc "i=/1" |
| 86 CRtn fcb C$CR | |
| 87 fcc ",,,,," | |
| 88 ShellPL equ *-ShellPrm | |
| 89 | |
| 439 | 90 DefTime fcb 101,9,11,08,59,00 |
| 0 | 91 |
| 92 start leax >IcptRtn,pcr | |
| 93 os9 F$Icpt | |
| 94 os9 F$ID | |
| 95 ldb #$80 | |
| 96 os9 F$SPrior | |
| 97 leax >Banner,pcr | |
| 98 ldy #BannLen | |
| 99 lda #$01 standard output | |
| 100 os9 I$Write write out banner | |
| 101 leax >DefTime,pcr | |
| 102 os9 F$STime set time to default | |
|
384
850b16b2aa76
cc3go_rom now folded into cc3go... Makefile modified to adjust
boisy
parents:
372
diff
changeset
|
103 ifeq ROM |
| 0 | 104 leax >ExecDir,pcr |
| 105 lda #EXEC. | |
| 106 os9 I$ChgDir change exec. dir | |
| 107 leax >DefDev,pcr | |
| 108 lda #READ.+WRITE. | |
| 109 os9 I$ChgDir change data dir. | |
| 110 bcs L0125 | |
| 111 leax >HDDev,pcr | |
| 112 lda #EXEC. | |
| 113 os9 I$ChgDir change exec. dir to HD | |
|
384
850b16b2aa76
cc3go_rom now folded into cc3go... Makefile modified to adjust
boisy
parents:
372
diff
changeset
|
114 endc |
| 0 | 115 L0125 pshs u,y |
| 116 os9 F$ID | |
| 117 bcs L01A9 | |
| 118 leax ,u | |
| 119 os9 F$GPrDsc | |
| 120 bcs L01A9 | |
| 121 leay ,u | |
| 122 ldx #$0000 | |
| 123 ldb #$01 | |
| 124 os9 F$MapBlk | |
| 125 bcs L01A9 | |
| 126 * Set flag for Color BASIC | |
| 127 lda #$55 | |
| 128 sta <D.CBStrt,u | |
| 129 * Copy our default I/O ptrs to the system process | |
| 130 ldd <D.SysPrc,u | |
| 131 leau d,u | |
| 132 leau <P$DIO,u | |
| 133 leay <P$DIO,y | |
| 134 ldb #DefIOSiz-1 | |
| 135 L0151 lda b,y | |
| 136 sta b,u | |
| 137 decb | |
| 138 bpl L0151 | |
|
384
850b16b2aa76
cc3go_rom now folded into cc3go... Makefile modified to adjust
boisy
parents:
372
diff
changeset
|
139 ifeq ROM |
| 0 | 140 * Fork shell startup here |
| 141 leax >Shell,pcr | |
| 142 leau >Startup,pcr | |
| 143 ldd #256 | |
| 144 ldy #16 | |
| 145 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
|
146 bcs DoAuto |
| 0 | 147 os9 F$Wait |
|
384
850b16b2aa76
cc3go_rom now folded into cc3go... Makefile modified to adjust
boisy
parents:
372
diff
changeset
|
148 endc |
| 0 | 149 * 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
|
150 DoAuto leax >AutoEx,pcr |
| 0 | 151 leau >CRtn,pcr |
| 152 ldd #$0100 | |
| 153 ldy #$0001 | |
| 154 os9 F$Fork | |
| 155 bcs L0186 | |
| 156 os9 F$Wait | |
| 157 L0186 puls u,y | |
| 158 leax >ShellPrm,pcr | |
| 159 leay ,u | |
| 160 ldb #ShellPL | |
| 161 L0190 lda ,x+ | |
| 162 sta ,y+ | |
| 163 decb | |
| 164 bne L0190 | |
| 165 * Fork final shell here | |
| 166 leax >Shell,pcr | |
| 167 ldd #$0100 | |
| 168 ldy #ShellPL | |
| 169 os9 F$Chain | |
| 170 L01A5 ldb #$06 | |
| 171 bra Crash | |
| 172 L01A9 ldb #$04 | |
| 173 Crash clr $FFA8 turn off disk motor | |
| 174 jmp <D.Crash | |
| 175 | |
| 176 IcptRtn rti | |
| 177 | |
| 178 emod | |
| 179 eom equ * | |
| 180 end |