Mercurial > hg > Members > kono > nitros9-code
annotate level1/modules/kernel/krn.asm @ 2732:43300b4f840a
Robert Gault submitted changes to the level1/modules/kernel/krn.asm file related to free pages being less than what they should be.
Offending code changed and tested.
Files updated in this update are ChangeLog and level1/modules/kernel/krn.asm
| author | drencor-xeen |
|---|---|
| date | Thu, 06 Dec 2012 11:22:23 -0600 |
| parents | baa835d68db2 |
| children | 05b7feef845a |
| rev | line source |
|---|---|
| 1453 | 1 ******************************************************************** |
|
1587
5f18094d961d
kernel modules renamed to krn, updated makefiles, clock2_tc3 now clock2_cloud9...
boisy
parents:
1460
diff
changeset
|
2 * Krn - NitrOS-9 Level 1 Kernel |
| 1453 | 3 * |
| 4 * $Id$ | |
| 5 * | |
| 6 * This is how the memory map looks after the kernel has initialized: | |
| 7 * | |
| 8 * $0000----> ================================== | |
| 9 * | | | |
| 10 * | | | |
| 11 * $0020-$0111 | System Globals (D.FMBM-D.XNMI) | | |
| 12 * | | | |
| 13 * | | | |
| 14 * $0200---->|==================================| | |
| 15 * | Free Memory Bitmap | | |
| 16 * $0200-$021F | (1 bit = 256 byte page) | | |
| 17 * |----------------------------------| | |
| 2012 | 18 * $0220-$0221 | IOMan I/O Call Pointer | |
| 19 * |----------------------------------| | |
| 1453 | 20 * | System Dispatch Table | |
| 21 * $0222-$0291 | (Room for 56 addresses) | | |
| 22 * |----------------------------------| | |
| 23 * $0292-$02FF | User Dispatch Table | | |
| 24 * | (Room for 56 addresses) | | |
| 25 * $0300---->|==================================| | |
| 26 * | | | |
| 27 * | | | |
| 28 * $0300-$03FF | Module Directory Entries | | |
| 29 * | (Room for 64 entries) | | |
| 30 * | | | |
| 31 * $0400---->|==================================| | |
| 32 * | | | |
| 33 * $0400-$04FF | System Stack | | |
| 34 * | | | |
| 35 * $0500---->|==================================| | |
| 2618 | 36 * | | |
| 37 * | | | |
| 38 * | | | |
| 39 * $0500-$08FF | Screen Memory (Atari Only) | | |
| 40 * | | | |
| 41 * | | | |
| 42 * | | | |
| 43 * $0900---->|==================================| | |
| 1453 | 44 * |
| 45 * Edt/Rev YYYY/MM/DD Modified by | |
| 46 * Comment | |
| 47 * ------------------------------------------------------------------ | |
| 48 * 14 1985/??/?? | |
| 49 * From Tandy OS-9 Level One VR 02.00.00 | |
| 50 * | |
| 51 * 15 2002/07/21 Boisy G. Pitre | |
| 52 * Module validation consists only of module header parity check. | |
| 53 * CRC check is not done unless D.CRC is set to 1, which is NOT the | |
| 54 * default case. By default, D.CRC is set to 0, thus there is no | |
| 55 * CRC checking. Speeds up module loads quite a bit. The Init module | |
| 56 * has a bit in a compatibility byte that can turn on/off CRC checking | |
| 57 * | |
| 58 * 15r1 2003/12/09 Boisy G. Pitre | |
| 1460 | 59 * Kernel no longer scans for modules in I/O space. Also, F$PrsNam now |
| 60 * allows _ and 0-9 as first chars of a filename. | |
|
1587
5f18094d961d
kernel modules renamed to krn, updated makefiles, clock2_tc3 now clock2_cloud9...
boisy
parents:
1460
diff
changeset
|
61 * |
|
5f18094d961d
kernel modules renamed to krn, updated makefiles, clock2_tc3 now clock2_cloud9...
boisy
parents:
1460
diff
changeset
|
62 * 15r1 2004/05/23 Boisy G. Pitre |
|
5f18094d961d
kernel modules renamed to krn, updated makefiles, clock2_tc3 now clock2_cloud9...
boisy
parents:
1460
diff
changeset
|
63 * Renamed to 'krn' |
|
2617
b1145d2cb659
Adding atari port folder and modifications to init and krn to accommodate
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2252
diff
changeset
|
64 * |
|
b1145d2cb659
Adding atari port folder and modifications to init and krn to accommodate
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2252
diff
changeset
|
65 * 16 2004/05/23 Boisy G. Pitre |
|
b1145d2cb659
Adding atari port folder and modifications to init and krn to accommodate
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2252
diff
changeset
|
66 * Added changes for Atari port |
| 1453 | 67 |
|
1587
5f18094d961d
kernel modules renamed to krn, updated makefiles, clock2_tc3 now clock2_cloud9...
boisy
parents:
1460
diff
changeset
|
68 nam krn |
| 1453 | 69 ttl NitrOS-9 Level 1 Kernel |
| 70 | |
| 71 ifp1 | |
| 72 use defsfile | |
| 2618 | 73 IFNE atari |
|
2622
1df7d248bb24
Made progress... clock is running, fixed some stuff, things are working
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2620
diff
changeset
|
74 use atari.d |
| 2618 | 75 ENDC |
| 1453 | 76 endc |
| 77 | |
| 78 tylg set Systm+Objct | |
| 79 atrv set ReEnt+rev | |
|
2617
b1145d2cb659
Adding atari port folder and modifications to init and krn to accommodate
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2252
diff
changeset
|
80 rev set $00 |
|
b1145d2cb659
Adding atari port folder and modifications to init and krn to accommodate
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2252
diff
changeset
|
81 edition set 16 |
| 1453 | 82 |
| 2012 | 83 ModTop mod eom,name,tylg,atrv,OS9Cold,size |
| 1453 | 84 |
| 85 size equ . | |
| 86 | |
| 1663 | 87 name fcs /Krn/ |
| 1453 | 88 fcb edition |
| 89 | |
| 90 * | |
| 91 * OS-9 Genesis! | |
| 1460 | 92 |
| 1453 | 93 OS9Cold equ * |
|
2731
baa835d68db2
Changed rules.mak to remove "-l" option in the AFLAGS. This was done to supress the display of source to terminal screen while compiling project.
drencor-xeen
parents:
2653
diff
changeset
|
94 |
| 2252 | 95 * clear out system globals from $0000-$0400 |
| 96 * ldx #D.FMBM | |
| 97 ldx #$0000 | |
| 1460 | 98 IFNE H6309 |
| 2252 | 99 * ldw #$400-D.FMBM |
| 100 ldw #$400 | |
| 1460 | 101 leay Zoro,pc |
| 102 tfm y,x+ | |
| 103 ELSE | |
| 2252 | 104 * ldy #$400-D.FMBM |
| 105 ldy #$400 | |
| 1453 | 106 clra |
| 107 clrb | |
| 108 L007F std ,x++ | |
| 109 leay -2,y | |
| 110 bne L007F | |
| 1460 | 111 ENDC |
| 112 | |
| 1453 | 113 * set up system globals |
| 1460 | 114 IFNE H6309 |
| 115 ldd #$200 | |
| 116 ELSE | |
| 1453 | 117 inca |
| 118 inca D = $200 | |
| 1460 | 119 ENDC |
| 1453 | 120 std <D.FMBM $200 = start of free memory bitmap |
| 121 addb #$20 | |
| 122 std <D.FMBM+2 $220 = end of free memory bitmap | |
| 123 addb #$02 | |
| 124 std <D.SysDis $222 = addr of sys dispatch tbl | |
| 125 addb #$70 | |
| 126 std <D.UsrDis $292 = addr of usr dispatch tbl | |
| 127 clrb | |
| 128 inca D = $300 | |
| 129 std <D.ModDir $300 = mod dir start | |
| 130 stx <D.ModDir+2 X = $400 = mod dir end | |
| 131 leas >$0100,x S = $500 (system stack?) | |
| 132 | |
|
2653
40d55004f686
o krn.asm: Conditionalized out code in kernel to check for top of RAM
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2649
diff
changeset
|
133 * NOTE: This routine checks for RAM by writing a pattern at an address |
|
40d55004f686
o krn.asm: Conditionalized out code in kernel to check for top of RAM
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2649
diff
changeset
|
134 * then reading it back for validation. On the CoCo, we pretty much know |
|
40d55004f686
o krn.asm: Conditionalized out code in kernel to check for top of RAM
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2649
diff
changeset
|
135 * that we are in all-RAM mode at this point, and the same goes for the |
|
40d55004f686
o krn.asm: Conditionalized out code in kernel to check for top of RAM
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2649
diff
changeset
|
136 * other supported platforms. So I am taking this code out for the time being. |
|
40d55004f686
o krn.asm: Conditionalized out code in kernel to check for top of RAM
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2649
diff
changeset
|
137 |
|
40d55004f686
o krn.asm: Conditionalized out code in kernel to check for top of RAM
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2649
diff
changeset
|
138 IFNE CHECK_FOR_VALID_RAM |
| 1453 | 139 * Check for valid RAM starting at $400 |
| 140 ChkRAM leay ,x | |
| 141 ldd ,y store org contents in D | |
| 142 ldx #$00FF | |
| 143 stx ,y write pattern to ,Y | |
| 144 cmpx ,y same as what we wrote? | |
| 145 bne L00C2 nope, not RAM here! | |
| 146 ldx #$FF00 try different pattern | |
| 147 stx ,y write it to ,Y | |
| 148 cmpx ,y same as what we wrote? | |
| 149 bne L00C2 nope, not RAM here! | |
| 150 std ,y else restore org contents | |
| 151 leax >$0100,y check top of next 256 block | |
|
2617
b1145d2cb659
Adding atari port folder and modifications to init and krn to accommodate
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2252
diff
changeset
|
152 IFNE atari |
|
2625
d1ea3dc90082
More progress... now booting with DriveWire
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2624
diff
changeset
|
153 cmpx #$8000 stop short of ROM starting at $8000 |
|
d1ea3dc90082
More progress... now booting with DriveWire
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2624
diff
changeset
|
154 ELSE |
| 1453 | 155 cmpx #Bt.Start stop short of boot track mem |
|
2617
b1145d2cb659
Adding atari port folder and modifications to init and krn to accommodate
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2252
diff
changeset
|
156 ENDC |
| 1453 | 157 bcs ChkRAM |
| 158 leay ,x | |
| 159 * Here, Y = end of RAM | |
| 160 L00C2 leax ,y X = end of RAM | |
|
2731
baa835d68db2
Changed rules.mak to remove "-l" option in the AFLAGS. This was done to supress the display of source to terminal screen while compiling project.
drencor-xeen
parents:
2653
diff
changeset
|
161 |
|
2653
40d55004f686
o krn.asm: Conditionalized out code in kernel to check for top of RAM
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2649
diff
changeset
|
162 ELSE |
|
2731
baa835d68db2
Changed rules.mak to remove "-l" option in the AFLAGS. This was done to supress the display of source to terminal screen while compiling project.
drencor-xeen
parents:
2653
diff
changeset
|
163 |
|
2653
40d55004f686
o krn.asm: Conditionalized out code in kernel to check for top of RAM
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2649
diff
changeset
|
164 IFNE atari |
|
40d55004f686
o krn.asm: Conditionalized out code in kernel to check for top of RAM
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2649
diff
changeset
|
165 ldx #$8000 |
|
40d55004f686
o krn.asm: Conditionalized out code in kernel to check for top of RAM
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2649
diff
changeset
|
166 ELSE |
|
2731
baa835d68db2
Changed rules.mak to remove "-l" option in the AFLAGS. This was done to supress the display of source to terminal screen while compiling project.
drencor-xeen
parents:
2653
diff
changeset
|
167 ldx #Bt.Start |
|
2653
40d55004f686
o krn.asm: Conditionalized out code in kernel to check for top of RAM
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2649
diff
changeset
|
168 ENDC |
|
40d55004f686
o krn.asm: Conditionalized out code in kernel to check for top of RAM
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2649
diff
changeset
|
169 ENDC |
| 1453 | 170 stx <D.MLIM save off memory limit |
| 171 | |
| 172 * Copy vector code over to address $100 | |
|
2653
40d55004f686
o krn.asm: Conditionalized out code in kernel to check for top of RAM
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2649
diff
changeset
|
173 pshs x |
| 1460 | 174 IFNE H6309 |
| 175 leax >VectCode,pcr | |
| 176 ldy #D.XSWI3 | |
| 177 ldw #VectCSz | |
| 178 tfm x+,y+ | |
| 179 ELSE | |
| 1453 | 180 leax >VectCode,pcr |
| 181 ldy #D.XSWI3 | |
| 182 ldb #VectCSz | |
| 183 L00D2 lda ,x+ | |
| 184 sta ,y+ | |
| 185 decb | |
| 186 bne L00D2 | |
| 1460 | 187 ENDC |
|
2653
40d55004f686
o krn.asm: Conditionalized out code in kernel to check for top of RAM
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2649
diff
changeset
|
188 puls x |
| 1460 | 189 |
|
2617
b1145d2cb659
Adding atari port folder and modifications to init and krn to accommodate
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2252
diff
changeset
|
190 IFNE atari |
| 2620 | 191 ldy #$D000 |
|
2649
928b4a062979
Atari: Made mods to the kernel to boot with new Liber809 firmware
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2630
diff
changeset
|
192 |
|
928b4a062979
Atari: Made mods to the kernel to boot with new Liber809 firmware
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2630
diff
changeset
|
193 inc <D.Boot |
|
928b4a062979
Atari: Made mods to the kernel to boot with new Liber809 firmware
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2630
diff
changeset
|
194 stx <D.BTLO |
|
928b4a062979
Atari: Made mods to the kernel to boot with new Liber809 firmware
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2630
diff
changeset
|
195 ldx #$FFFF |
|
928b4a062979
Atari: Made mods to the kernel to boot with new Liber809 firmware
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2630
diff
changeset
|
196 stx <D.BTHI |
|
928b4a062979
Atari: Made mods to the kernel to boot with new Liber809 firmware
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2630
diff
changeset
|
197 |
|
2625
d1ea3dc90082
More progress... now booting with DriveWire
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2624
diff
changeset
|
198 ELSE |
| 2620 | 199 ldy #Bt.Start+Bt.Size |
|
2617
b1145d2cb659
Adding atari port folder and modifications to init and krn to accommodate
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2252
diff
changeset
|
200 ENDC |
|
2731
baa835d68db2
Changed rules.mak to remove "-l" option in the AFLAGS. This was done to supress the display of source to terminal screen while compiling project.
drencor-xeen
parents:
2653
diff
changeset
|
201 |
| 2620 | 202 lbsr ValMods |
|
2617
b1145d2cb659
Adding atari port folder and modifications to init and krn to accommodate
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2252
diff
changeset
|
203 IFNE atari |
|
2649
928b4a062979
Atari: Made mods to the kernel to boot with new Liber809 firmware
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2630
diff
changeset
|
204 |
|
2731
baa835d68db2
Changed rules.mak to remove "-l" option in the AFLAGS. This was done to supress the display of source to terminal screen while compiling project.
drencor-xeen
parents:
2653
diff
changeset
|
205 ldx #$D800 |
|
2649
928b4a062979
Atari: Made mods to the kernel to boot with new Liber809 firmware
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2630
diff
changeset
|
206 ldy #$F400 |
| 2620 | 207 lbsr ValMods |
|
2617
b1145d2cb659
Adding atari port folder and modifications to init and krn to accommodate
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2252
diff
changeset
|
208 ENDC |
|
2731
baa835d68db2
Changed rules.mak to remove "-l" option in the AFLAGS. This was done to supress the display of source to terminal screen while compiling project.
drencor-xeen
parents:
2653
diff
changeset
|
209 |
| 1460 | 210 * Copy vectors to system globals |
| 1453 | 211 L00EE leay >Vectors,pcr |
| 2012 | 212 leax >ModTop,pcr |
| 1453 | 213 pshs x |
| 214 ldx #D.SWI3 | |
| 215 L00FB ldd ,y++ | |
| 216 addd ,s | |
| 217 std ,x++ | |
| 2012 | 218 cmpx #D.NMI |
| 1453 | 219 bls L00FB |
| 220 leas 2,s restore stack | |
| 221 | |
| 222 * fill in more system globals | |
| 223 leax >URtoSs,pcr | |
| 224 stx <D.URtoSs | |
| 225 leax >UsrIRQ,pcr | |
| 226 stx <D.UsrIRQ | |
| 227 leax >UsrSvc,pcr | |
| 228 stx <D.UsrSvc | |
| 229 leax >SysIRQ,pcr | |
| 230 stx <D.SysIRQ | |
| 231 stx <D.SvcIRQ | |
| 232 leax >SysSvc,pcr | |
| 233 stx <D.SysSvc | |
| 234 stx <D.SWI2 | |
| 2023 | 235 leax >Poll,pcr point to default poll routine |
|
2731
baa835d68db2
Changed rules.mak to remove "-l" option in the AFLAGS. This was done to supress the display of source to terminal screen while compiling project.
drencor-xeen
parents:
2653
diff
changeset
|
236 stx <D.Poll and save it |
| 2023 | 237 leax >Clock,pcr get default clock routine |
| 238 stx <D.Clock and save it to the vector | |
| 239 stx <D.AltIRQ and in the alternate IRQ vector | |
| 1453 | 240 |
| 241 * install system calls | |
| 242 leay >SysTbl,pcr | |
| 243 lbsr InstSSvc | |
| 244 | |
| 245 * link to init module | |
| 246 lda #Systm+0 | |
| 247 leax >InitNam,pcr | |
| 248 os9 F$Link | |
| 249 lbcs OS9Cold | |
| 250 stu <D.Init | |
| 251 lda Feature1,u get feature byte 1 | |
| 252 bita #CRCOn CRC on? | |
| 253 beq GetMem branch if not (already cleared earlier) | |
| 254 inc <D.CRC else turn on CRC checking | |
|
2732
43300b4f840a
Robert Gault submitted changes to the level1/modules/kernel/krn.asm file related to free pages being less than what they should be.
drencor-xeen
parents:
2731
diff
changeset
|
255 GetMem equ * |
|
43300b4f840a
Robert Gault submitted changes to the level1/modules/kernel/krn.asm file related to free pages being less than what they should be.
drencor-xeen
parents:
2731
diff
changeset
|
256 clra |
|
43300b4f840a
Robert Gault submitted changes to the level1/modules/kernel/krn.asm file related to free pages being less than what they should be.
drencor-xeen
parents:
2731
diff
changeset
|
257 * ldd MaxMem+1,u |
|
43300b4f840a
Robert Gault submitted changes to the level1/modules/kernel/krn.asm file related to free pages being less than what they should be.
drencor-xeen
parents:
2731
diff
changeset
|
258 * clrb |
|
43300b4f840a
Robert Gault submitted changes to the level1/modules/kernel/krn.asm file related to free pages being less than what they should be.
drencor-xeen
parents:
2731
diff
changeset
|
259 * cmpd <D.MLIM |
|
43300b4f840a
Robert Gault submitted changes to the level1/modules/kernel/krn.asm file related to free pages being less than what they should be.
drencor-xeen
parents:
2731
diff
changeset
|
260 * bcc L0158 |
|
43300b4f840a
Robert Gault submitted changes to the level1/modules/kernel/krn.asm file related to free pages being less than what they should be.
drencor-xeen
parents:
2731
diff
changeset
|
261 * std <D.MLIM |
| 1453 | 262 L0158 ldx <D.FMBM |
| 2618 | 263 IFNE atari |
| 264 * In the Atari, memory $0000-$08FF is used by the system | |
| 265 ldb #%11111111 | |
|
2619
d888412d8118
o Fixed assembler issue in init.asm
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2618
diff
changeset
|
266 stb ,x mark $0000-$07FF as allocated |
|
d888412d8118
o Fixed assembler issue in init.asm
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2618
diff
changeset
|
267 stb $1A,x mark $D000-$D7FF I/O area as allocated |
|
2731
baa835d68db2
Changed rules.mak to remove "-l" option in the AFLAGS. This was done to supress the display of source to terminal screen while compiling project.
drencor-xeen
parents:
2653
diff
changeset
|
268 ldb #%10000000 |
|
2619
d888412d8118
o Fixed assembler issue in init.asm
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2618
diff
changeset
|
269 stb 1,x mark $0800-$08FF as allocated |
| 2618 | 270 ELSE |
| 271 * In the CoCo, memory $0000-$04FF is used by the system | |
| 272 ldb #%11111000 | |
| 273 stb ,x | |
|
2732
43300b4f840a
Robert Gault submitted changes to the level1/modules/kernel/krn.asm file related to free pages being less than what they should be.
drencor-xeen
parents:
2731
diff
changeset
|
274 ENDC |
| 1453 | 275 clra |
| 276 ldb <D.MLIM | |
| 277 negb | |
| 278 tfr d,y | |
| 279 negb | |
| 280 lbsr L065A | |
| 281 | |
| 2012 | 282 * jump into krnp2 here |
| 1453 | 283 leax >P2Nam,pcr |
| 284 lda #Systm+Objct | |
| 285 os9 F$Link | |
| 286 lbcs OS9Cold | |
| 287 jmp ,y | |
| 2012 | 288 |
| 1453 | 289 SWI3 pshs pc,x,b |
| 290 ldb #P$SWI3 | |
| 291 bra L018C | |
| 292 SWI2 pshs pc,x,b | |
| 293 ldb #P$SWI2 | |
| 294 bra L018C | |
|
2622
1df7d248bb24
Made progress... clock is running, fixed some stuff, things are working
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2620
diff
changeset
|
295 SVCNMI jmp [>D.NMI] |
| 2620 | 296 DUMMY rti |
| 1453 | 297 SVCIRQ jmp [>D.SvcIRQ] |
| 298 SWI pshs pc,x,b | |
| 299 ldb #P$SWI | |
| 300 L018C ldx >D.Proc | |
| 301 ldx b,x get SWI entry | |
| 302 stx 3,s put in PC on stack | |
| 303 puls pc,x,b | |
| 304 | |
| 2023 | 305 UsrIRQ leay <DoIRQPoll,pcr |
| 1453 | 306 * transition from user to system state |
| 307 URtoSs clra | |
| 308 tfr a,dp clear direct page | |
| 2012 | 309 ldx <D.Proc get current process desc |
| 2023 | 310 * Note that we are putting the system state service routine address into |
| 311 * the D.SWI2 vector. If a system call is made while we are in system state, | |
| 312 * D.SWI2 will be vectored to the system state service routine vector. | |
| 2012 | 313 ldd <D.SysSvc get system state system call vector |
| 314 std <D.SWI2 store in D.SWI2 | |
| 2023 | 315 * The same comment above applies to the IRQ service vector. |
| 2012 | 316 ldd <D.SysIRQ get system IRQ vector |
| 317 std <D.SvcIRQ store in D.SvcIRQ | |
| 318 leau ,s point U to S | |
| 319 stu P$SP,x and save in process P$SP | |
| 320 lda P$State,x get state field in proc desc | |
| 321 ora #SysState mark process to be in system state | |
| 322 sta P$State,x store it | |
| 323 jmp ,y jump to ,y | |
| 1453 | 324 |
| 2023 | 325 DoIRQPoll |
| 326 jsr [>D.Poll] call vectored polling routine | |
| 327 bcc L01BD branch if carry clear | |
| 328 ldb ,s get the CC on the stack | |
| 329 orb #IRQMask mask IRQs | |
| 330 stb ,s and save it back | |
| 331 L01BD lbra ActivateProc | |
| 332 | |
| 333 | |
| 1453 | 334 |
| 335 SysIRQ clra | |
| 2023 | 336 tfr a,dp make DP be 0 |
| 337 jsr [>D.Poll] call the vectored IRQ polling routine | |
| 338 bcc L01CF branch if carry is clear | |
| 339 ldb ,s get the CC on the stack | |
| 340 orb #IRQMask mask IRQs | |
| 341 stb ,s and save it back | |
| 1453 | 342 L01CF rti |
| 2023 | 343 |
| 1453 | 344 Poll comb |
| 345 rts | |
| 346 | |
|
2017
f273e28ea8d0
Breaking kernel down into individual files... added comments
boisy
parents:
2012
diff
changeset
|
347 * Default clock routine - executed 60 times/sec |
| 2023 | 348 Clock ldx <D.SProcQ get pointer to sleeping proc queue |
| 349 beq L01FD branch if no process sleeping | |
| 350 lda P$State,x get state of that process | |
| 351 bita #TimSleep timed sleep? | |
| 352 beq L01FD branch if clear | |
| 353 ldu P$SP,x else get process stack pointer | |
| 354 ldd R$X,u get the value of the process X reg | |
| 355 subd #$0001 subtract one from it | |
| 356 std P$SP,u and store it | |
| 357 bne L01FD branch if not zero (still will sleep) | |
| 358 L01E7 ldu P$Queue,x get process current queue pointer | |
|
2731
baa835d68db2
Changed rules.mak to remove "-l" option in the AFLAGS. This was done to supress the display of source to terminal screen while compiling project.
drencor-xeen
parents:
2653
diff
changeset
|
359 bsr L021A |
| 1453 | 360 leax ,u |
| 361 beq L01FB | |
| 2023 | 362 lda P$State,x get process state byte |
| 363 bita #TimSleep bit set? | |
| 364 beq L01FB branch if not | |
| 365 ldu P$SP,x get process stack pointer | |
| 366 ldd R$X,u then get process X register | |
| 367 beq L01E7 branch if zero | |
| 1453 | 368 L01FB stx <D.SProcQ |
|
2017
f273e28ea8d0
Breaking kernel down into individual files... added comments
boisy
parents:
2012
diff
changeset
|
369 L01FD dec <D.Slice decrement slice |
|
f273e28ea8d0
Breaking kernel down into individual files... added comments
boisy
parents:
2012
diff
changeset
|
370 bne ClockRTI if not 0, exit ISR |
|
f273e28ea8d0
Breaking kernel down into individual files... added comments
boisy
parents:
2012
diff
changeset
|
371 lda <D.TSlice else get default time slice |
|
f273e28ea8d0
Breaking kernel down into individual files... added comments
boisy
parents:
2012
diff
changeset
|
372 sta <D.Slice and save it as slice |
|
f273e28ea8d0
Breaking kernel down into individual files... added comments
boisy
parents:
2012
diff
changeset
|
373 ldx <D.Proc get proc desc of current proc |
|
f273e28ea8d0
Breaking kernel down into individual files... added comments
boisy
parents:
2012
diff
changeset
|
374 beq ClockRTI if none, exit ISR |
|
f273e28ea8d0
Breaking kernel down into individual files... added comments
boisy
parents:
2012
diff
changeset
|
375 lda P$State,x get process state |
|
f273e28ea8d0
Breaking kernel down into individual files... added comments
boisy
parents:
2012
diff
changeset
|
376 ora #TimOut set timeout bit |
|
f273e28ea8d0
Breaking kernel down into individual files... added comments
boisy
parents:
2012
diff
changeset
|
377 sta P$State,x and store back |
| 1453 | 378 bpl L0212 branch if not system state |
| 379 ClockRTI rti | |
| 380 | |
| 2023 | 381 L0212 leay >ActivateProc,pcr |
| 1453 | 382 bra URtoSs |
| 383 | |
| 2006 | 384 |
| 385 *FAProc ldx R$X,u Get ptr to process to activate | |
|
2731
baa835d68db2
Changed rules.mak to remove "-l" option in the AFLAGS. This was done to supress the display of source to terminal screen while compiling project.
drencor-xeen
parents:
2653
diff
changeset
|
386 *L0D11 clrb |
| 2006 | 387 * pshs cc,b,x,y,u |
| 388 * lda P$Prior,x Get process priority | |
| 389 * sta P$Age,x Save it as age (How long it's been around) | |
| 390 * orcc #IntMasks Shut down IRQ's | |
| 391 * ldu #(D.AProcQ-P$Queue) Get ptr to active process queue | |
| 392 * bra L0D29 Go through the chain | |
| 393 ** Update active process queue | |
| 394 ** X=Process to activate | |
| 395 ** U=Current process in queue links | |
| 396 *L0D1F inc P$Age,u update current process age | |
| 397 * bne L0D25 wrap? | |
| 398 * dec P$Age,u yes, reset it to max. | |
| 399 *L0D25 cmpa P$Age,u match process ages?? | |
| 400 * bhi L0D2B no, skip update | |
| 401 *L0D29 leay ,u point Y to current process | |
| 402 *L0D2B ldu P$Queue,u get pointer to next process in chain | |
| 403 * bne L0D1F Still more in chain, keep going | |
|
2731
baa835d68db2
Changed rules.mak to remove "-l" option in the AFLAGS. This was done to supress the display of source to terminal screen while compiling project.
drencor-xeen
parents:
2653
diff
changeset
|
404 * ldd P$Queue,y |
| 2006 | 405 * stx P$Queue,y save new process to chain |
| 406 * std P$Queue,x | |
| 407 * puls cc,b,x,y,u,pc | |
| 408 | |
| 409 | |
| 2049 | 410 use faproc.asm |
|
2731
baa835d68db2
Changed rules.mak to remove "-l" option in the AFLAGS. This was done to supress the display of source to terminal screen while compiling project.
drencor-xeen
parents:
2653
diff
changeset
|
411 |
| 2012 | 412 * User-State system call entry point |
| 2023 | 413 * |
| 414 * All system calls made from user-state will go through this code. | |
| 415 UsrSvc leay <MakeSysCall,pcr | |
| 1453 | 416 orcc #IntMasks |
| 417 lbra URtoSs | |
| 418 | |
| 2023 | 419 MakeSysCall |
| 420 andcc #^IntMasks unmask IRQ/FIRQ | |
| 421 ldy <D.UsrDis get pointer to user syscall dispatch table | |
| 422 bsr DoSysCall go do the system call | |
| 423 ActivateProc | |
| 424 ldx <D.Proc get current proc desc | |
| 1453 | 425 beq FNProc branch to FNProc if none |
| 2012 | 426 orcc #IntMasks mask interrupts |
| 427 ldb P$State,x get state value in proc desc | |
| 428 andb #^SysState turn off system state flag | |
| 429 stb P$State,x save state value | |
| 430 bitb #TimOut timeout bit set? | |
| 431 beq L02D1 branch if not | |
| 432 andb #^TimOut else turn off bit | |
| 433 stb P$State,x in state value | |
| 1453 | 434 bsr L021A |
| 435 bra FNProc | |
| 436 | |
| 2012 | 437 * System-State system call entry point |
| 1453 | 438 SysSvc clra |
| 439 tfr a,dp set direct page to 0 | |
| 2012 | 440 leau ,s point U to SP |
| 441 ldy <D.SysDis get system state dispatch table ptr | |
| 442 bsr DoSysCall | |
| 1453 | 443 rti |
| 444 | |
| 2012 | 445 * Entry: Y = Dispatch table (user or system) |
| 446 DoSysCall | |
| 447 pshs u | |
| 1453 | 448 ldx R$PC,u point X to PC |
| 449 ldb ,x+ get func code at X | |
| 450 stx R$PC,u restore updated PC | |
| 2012 | 451 lslb high bit set? |
| 452 bcc L0288 branch if not (non I/O call) | |
| 453 rorb else restore B (its an I/O call) | |
| 454 ldx -2,y grab IOMan vector | |
| 455 * Note: should check if X is zero in case IOMan was not installed. | |
| 1453 | 456 bra L0290 |
| 2012 | 457 L0288 cmpb #$37*2 |
| 1453 | 458 bcc L02A7 |
| 459 ldx b,y X = addr of system call | |
| 460 beq L02A7 | |
| 461 L0290 jsr ,x jsr into system call | |
| 462 L0292 puls u | |
| 463 tfr cc,a | |
| 464 bcc FixCC branch if no error | |
| 465 stb R$B,u store error code | |
| 466 FixCC ldb R$CC,u get caller's CC | |
| 467 andb #^(Negative+Zero+TwosOvfl+Carry) | |
| 468 stb R$CC,u | |
| 469 anda #Negative+Zero+TwosOvfl+Carry | |
| 470 ora R$CC,u | |
| 471 sta R$CC,u | |
| 472 rts | |
| 473 L02A7 comb | |
| 474 ldb #E$UnkSvc | |
| 475 bra L0292 | |
| 476 | |
| 477 * no signal handler, exit with signal value as exit code | |
| 478 L02AC ldb P$State,x | |
| 479 orb #SysState | |
| 480 stb P$State,x | |
| 481 ldb <P$Signal,x | |
| 482 andcc #^(IntMasks) | |
| 483 os9 F$Exit | |
| 484 | |
| 485 FNProc clra | |
| 486 clrb | |
| 487 std <D.Proc | |
| 488 bra L02C2 | |
| 489 * execution goes here when there are no active processes | |
| 490 L02C0 cwai #^(IntMasks) | |
| 491 L02C2 orcc #IntMasks | |
| 492 ldx <D.AProcQ get next active process | |
| 493 beq L02C0 CWAI if none | |
| 494 ldd P$Queue,x get queue ptr | |
| 495 std <D.AProcQ store in Active Q | |
| 496 stx <D.Proc store in current process | |
| 497 lds P$SP,x get process' stack ptr | |
| 498 L02D1 ldb P$State,x get state | |
| 499 bmi L0308 branch if system state | |
| 500 bitb #Condem process condemned? | |
| 501 bne L02AC branch if so... | |
| 502 ldb <P$Signal,x get signal no | |
| 503 beq L02FF branch if none | |
| 504 decb decrement | |
| 505 beq L02FC branch if wake up | |
| 506 ldu <P$SigVec,x get signal handler addr | |
| 507 beq L02AC branch if none | |
| 508 ldy <P$SigDat,x get data addr | |
| 509 ldd $06,s | |
| 510 pshs u,y,b,a | |
| 511 ldu $0A,s | |
| 512 lda <P$Signal,x | |
| 513 ldb $09,s | |
| 514 tfr d,y | |
| 515 ldd $06,s | |
| 516 pshs u,y,b,a | |
| 517 clrb | |
| 518 L02FC stb <P$Signal,x | |
| 519 L02FF ldd <P$SWI2,x | |
| 520 std <D.SWI2 | |
| 521 ldd <D.UsrIRQ | |
| 522 std <D.SvcIRQ | |
| 523 L0308 rti | |
| 524 | |
| 525 FLink pshs u save caller regs | |
| 526 ldd R$A,u | |
| 527 ldx R$X,u | |
| 528 lbsr L0443 | |
| 529 bcc FLinkOK | |
| 530 ldb #E$MNF | |
| 531 bra L033D | |
| 532 * U = module dir entry | |
| 533 FLinkOK ldy ,u get module ptr | |
| 534 ldb M$Revs,y | |
| 535 bitb #ReEnt reentrant? | |
| 536 bne L032A branch if so | |
| 537 tst $02,u link count zero? | |
| 538 beq L032A yep, ok to link to nonreent | |
| 539 comb else module is busy | |
| 540 ldb #E$ModBsy | |
| 541 bra L033D | |
| 542 L032A inc $02,u increment link count | |
| 543 ldu ,s get caller regs from stack | |
| 544 stx R$X,u | |
| 545 sty R$U,u | |
| 546 ldd M$Type,y | |
| 547 std R$D,u | |
| 548 ldd M$IDSize,y | |
| 549 leax d,y | |
| 550 stx R$Y,u | |
| 551 L033D puls pc,u | |
| 552 | |
| 553 FVModul pshs u | |
| 554 ldx R$X,u | |
| 555 bsr ValMod | |
| 556 puls y | |
| 557 stu R$U,y | |
| 558 rts | |
| 2620 | 559 |
| 1453 | 560 * X = address of module to validate |
| 561 ValMod bsr ChkMHCRC | |
| 2620 | 562 bcs ValModEx |
| 1453 | 563 lda M$Type,x |
| 564 pshs x,a | |
| 565 ldd M$Name,x | |
| 566 leax d,x X = addr of name in mod | |
|
2649
928b4a062979
Atari: Made mods to the kernel to boot with new Liber809 firmware
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2630
diff
changeset
|
567 IFNE ATARI |
|
928b4a062979
Atari: Made mods to the kernel to boot with new Liber809 firmware
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2630
diff
changeset
|
568 * jsr [>$FFE8] |
|
928b4a062979
Atari: Made mods to the kernel to boot with new Liber809 firmware
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2630
diff
changeset
|
569 * lda #$20 |
|
928b4a062979
Atari: Made mods to the kernel to boot with new Liber809 firmware
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2630
diff
changeset
|
570 * jsr [>$FFE4] |
|
928b4a062979
Atari: Made mods to the kernel to boot with new Liber809 firmware
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2630
diff
changeset
|
571 ENDC |
| 1453 | 572 puls a |
| 573 lbsr L0443 | |
| 574 puls x | |
| 2620 | 575 bcs ValLea |
| 1453 | 576 ldb #E$KwnMod |
| 577 cmpx ,u | |
| 2620 | 578 beq errex@ |
| 1453 | 579 lda M$Revs,x |
| 580 anda #RevsMask | |
| 581 pshs a | |
| 582 ldy ,u | |
| 583 lda M$Revs,y | |
| 584 anda #RevsMask | |
| 585 cmpa ,s+ same revision as other mod? | |
| 2620 | 586 bcc errex@ |
| 1453 | 587 pshs y,x |
| 588 ldb M$Size,u | |
| 2620 | 589 bne ValPul |
| 1453 | 590 ldx ,u |
| 591 cmpx <D.BTLO | |
| 2620 | 592 bcc ValPul |
| 1453 | 593 ldd $02,x |
| 594 addd #$00FF | |
| 595 tfr a,b | |
| 596 clra | |
| 597 tfr d,y | |
| 598 ldb ,u | |
| 599 ldx <D.FMBM | |
| 600 os9 F$DelBit | |
| 601 clr $02,u | |
| 2620 | 602 ValPul puls y,x |
| 603 ValSto stx ,u | |
| 1453 | 604 clrb |
| 2620 | 605 ValModEx rts |
| 606 ValLea leay ,u | |
| 607 bne ValSto | |
| 1453 | 608 ldb #E$DirFul |
| 2620 | 609 errex@ coma |
| 1453 | 610 rts |
| 611 | |
| 612 * check module header and CRC | |
| 613 * X = address of potential module | |
| 614 ChkMHCRC ldd ,x | |
| 615 cmpd #M$ID12 sync bytes? | |
| 2620 | 616 bne ChkMHEx nope, not a module here |
| 1453 | 617 leay M$Parity,x |
| 618 bsr ChkMHPar check header parity | |
| 2620 | 619 bcc Chk4CRC branch if ok |
| 620 ChkMHEx comb | |
| 1453 | 621 ldb #E$BMID |
| 622 rts | |
| 623 | |
| 2620 | 624 Chk4CRC |
| 1453 | 625 * Following 4 lines added to support no CRC checks - 2002/07/21 |
| 626 lda <D.CRC is CRC checking on? | |
| 627 bne DoCRCCk branch if so | |
| 628 clrb | |
| 629 rts | |
| 630 | |
| 631 DoCRCCk pshs x | |
| 632 ldy M$Size,x | |
| 633 bsr ChkMCRC checkm module CRC | |
| 634 puls pc,x | |
|
2731
baa835d68db2
Changed rules.mak to remove "-l" option in the AFLAGS. This was done to supress the display of source to terminal screen while compiling project.
drencor-xeen
parents:
2653
diff
changeset
|
635 |
| 1453 | 636 * check module header parity |
| 637 * Y = pointer to parity byte | |
| 638 ChkMHPar pshs y,x | |
| 639 clra | |
| 640 ChkM010 eora ,x+ | |
| 641 cmpx 2,s compare to addr of M$Parity | |
| 642 bls ChkM010 | |
| 643 cmpa #$FF | |
| 644 puls pc,y,x | |
| 645 * X = address of potential module | |
| 646 * Y = size of module | |
| 647 ChkMCRC ldd #$FFFF | |
| 648 pshs b,a | |
| 649 pshs b,a | |
| 650 leau 1,s | |
| 651 L03D4 lda ,x+ | |
| 652 bsr CRCAlgo | |
| 653 leay -1,y dec Y (size of module) | |
| 654 bne L03D4 continue | |
| 655 clr -1,u | |
| 656 lda ,u | |
| 657 cmpa #CRCCon1 | |
| 658 bne L03EC | |
| 659 ldd 1,u | |
| 660 cmpd #CRCCon23 | |
| 661 beq L03EF | |
| 662 L03EC comb | |
| 663 ldb #E$BMCRC | |
| 664 L03EF puls pc,y,x | |
| 665 | |
| 2049 | 666 use fcrc.asm |
| 1453 | 667 |
|
2649
928b4a062979
Atari: Made mods to the kernel to boot with new Liber809 firmware
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2630
diff
changeset
|
668 L0443 |
|
928b4a062979
Atari: Made mods to the kernel to boot with new Liber809 firmware
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2630
diff
changeset
|
669 ldu #$0000 |
| 1453 | 670 tfr a,b |
| 671 anda #TypeMask | |
| 672 andb #LangMask | |
| 673 pshs u,y,x,b,a | |
| 674 bsr EatSpace | |
| 675 cmpa #PDELIM pathlist char? | |
| 676 beq L049C branch if so | |
| 677 lbsr ParseNam parse name | |
| 678 bcs L049D return if error | |
| 679 ldu <D.ModDir | |
| 680 L045B pshs u,y,b | |
| 681 ldu ,u | |
| 682 beq L048B | |
| 683 ldd $04,u | |
| 684 leay d,u | |
| 685 ldb ,s | |
| 686 lbsr L07AB | |
| 687 bcs L0493 | |
| 688 lda $05,s | |
| 689 beq L0476 | |
| 690 eora $06,u | |
| 691 anda #$F0 | |
| 692 bne L0493 | |
| 693 L0476 lda $06,s | |
| 694 beq L0480 | |
| 695 eora $06,u | |
| 696 anda #$0F | |
| 697 bne L0493 | |
| 698 L0480 puls u,x,b | |
| 699 stu $06,s | |
| 700 bsr EatSpace | |
| 701 stx $02,s | |
| 702 clra | |
| 703 bra L049D | |
| 704 L048B ldd $0B,s | |
| 705 bne L0493 | |
| 706 ldd $03,s | |
| 707 std $0B,s | |
| 708 L0493 puls u,y,b | |
| 709 leau $04,u | |
| 710 cmpu <D.ModDir+2 | |
| 711 bcs L045B | |
| 712 L049C comb | |
| 713 L049D puls pc,u,y,x,b,a | |
| 714 | |
| 715 EatSpace lda #C$SPAC | |
| 716 EatSpc10 cmpa ,x+ | |
| 717 beq EatSpc10 | |
| 718 lda ,-x | |
| 719 rts | |
| 720 | |
| 721 FFork ldx <D.PrcDBT | |
| 722 os9 F$All64 | |
| 723 bcs L0517 | |
| 724 ldx <D.Proc | |
| 725 pshs x save calling proc desc on stack | |
| 726 ldd P$User,x | |
| 727 std P$User,y | |
| 728 lda P$Prior,x | |
| 729 clrb | |
| 730 std P$Prior,y | |
| 731 ldb #SysState | |
| 732 stb P$State,y | |
| 733 sty <D.Proc | |
| 734 ldd <P$NIO,x | |
| 735 std <P$NIO,y | |
| 736 ldd <P$NIO+2,x | |
| 737 std <P$NIO+2,y | |
| 738 leax <P$DIO,x | |
| 739 leay <P$DIO,y | |
| 740 ldb #DefIOSiz | |
| 741 * copy I/O stuff from parent to child | |
| 742 L04D7 lda ,x+ | |
| 743 sta ,y+ | |
| 744 decb | |
| 745 bne L04D7 | |
| 746 * X/Y = address of path table in respective proc desc | |
| 747 * Dup stdin/stdout/stderr | |
| 748 ldb #$03 | |
| 749 L04E0 lda ,x+ | |
| 750 os9 I$Dup | |
| 751 bcc L04E8 | |
| 752 clra | |
| 753 L04E8 sta ,y+ | |
| 754 decb | |
| 755 bne L04E0 | |
| 756 bsr L0553 | |
| 757 bcs L050C | |
| 758 puls y get parent proc desc | |
| 759 sty <D.Proc | |
| 760 lda P$ID,x get ID of new process | |
| 761 sta R$A,u store in caller's A | |
| 762 ldb P$CID,y get child id of parent | |
| 763 sta P$CID,y store new proc in parent's CID | |
| 764 lda P$ID,y get ID of parent | |
| 765 std P$PID,x store in child proc desc | |
| 766 ldb P$State,x update state of child | |
| 767 andb #^SysState | |
| 768 stb P$State,x | |
| 769 os9 F$AProc insert child in active Q | |
| 770 rts | |
| 771 L050C pshs b | |
| 772 os9 F$Exit | |
| 773 comb | |
| 774 puls x,b | |
| 775 stx <D.Proc | |
| 776 rts | |
| 777 L0517 comb | |
| 778 ldb #E$PrcFul | |
| 779 rts | |
| 780 | |
| 781 FChain bsr L0543 | |
| 782 bcs L0531 | |
| 783 orcc #IntMasks | |
| 784 ldb $0D,x | |
| 785 andb #$7F | |
| 786 stb $0D,x | |
| 787 L0527 os9 F$AProc | |
| 788 os9 F$NProc | |
| 789 | |
| 790 SFChain bsr L0543 | |
| 791 bcc L0527 | |
| 792 L0531 pshs b | |
| 793 stb <P$Signal,x | |
| 794 ldb P$State,x | |
| 795 orb #Condem | |
| 796 stb P$State,x | |
| 797 ldb #$FF | |
| 798 stb P$Prior,x | |
| 799 comb | |
| 800 puls pc,b | |
| 801 L0543 pshs u | |
| 802 ldx <D.Proc | |
| 803 ldu <P$PModul,x | |
| 804 os9 F$UnLink | |
| 805 ldu ,s | |
| 806 bsr L0553 | |
| 807 puls pc,u | |
| 808 L0553 ldx <D.Proc | |
| 809 pshs u,x | |
| 810 ldd <D.UsrSvc | |
| 811 std <P$SWI,x | |
| 812 std <P$SWI2,x | |
| 813 std <P$SWI3,x | |
| 814 clra | |
| 815 clrb | |
| 816 sta <P$Signal,x | |
| 817 std <P$SigVec,x | |
| 818 lda R$A,u | |
| 819 ldx R$X,u | |
| 820 os9 F$Link | |
| 821 bcc L0578 | |
| 822 os9 F$Load | |
| 823 bcs L05E7 | |
| 824 L0578 ldy <D.Proc | |
| 825 stu <P$PModul,y | |
| 826 cmpa #Prgrm+Objct | |
| 827 beq L058B | |
| 828 cmpa #Systm+Objct | |
| 829 beq L058B | |
| 830 comb | |
| 831 ldb #E$NEMod | |
| 832 bra L05E7 | |
| 833 L058B leay ,u Y = addr of module | |
| 834 ldu 2,s get U off stack (caller regs) | |
| 835 stx R$X,u | |
| 836 lda R$B,u | |
| 837 clrb | |
| 838 cmpd M$Mem,y compare passed mem to module's | |
| 839 bcc L059B branch if less than | |
| 840 ldd M$Mem,y | |
| 841 L059B addd #$0000 | |
| 842 bne L05A0 | |
| 843 L05A0 os9 F$Mem | |
| 844 bcs L05E7 | |
| 845 subd #R$Size subtract registers | |
| 846 subd R$Y,u subtract parameter area | |
| 847 bcs L05E5 | |
| 848 ldx R$U,u get parameter area | |
| 849 ldd R$Y,u get parameter size | |
| 850 pshs b,a | |
| 851 beq L05BE | |
| 852 leax d,x point to end of param area | |
| 853 L05B6 lda ,-x get byte, dec X | |
| 854 sta ,-y save byte in data area, dec X | |
| 855 cmpx R$U,u at top of param area? | |
| 856 bhi L05B6 | |
| 857 * set up registers for return of F$Fork/F$Chain | |
| 858 L05BE ldx <D.Proc | |
| 859 sty -$08,y put in X on caller stack | |
| 860 leay -R$Size,y back up register size | |
| 861 sty P$SP,x | |
| 862 lda P$ADDR,x | |
| 863 clrb | |
| 864 std R$U,y lowest address | |
| 865 sta R$DP,y set direct page | |
| 866 adda P$PagCnt,x | |
| 867 std R$Y,y | |
| 868 puls b,a | |
| 869 std R$D,y size of param area | |
| 870 ldb #Entire | |
| 871 stb R$CC,y | |
| 872 ldu <P$PModul,x get addr of prim. mod | |
| 873 ldd M$Exec,u | |
| 874 leau d,u | |
| 875 stu R$PC,y put in PC on caller reg | |
| 876 clrb | |
| 877 L05E5 ldb #E$IForkP | |
| 878 L05E7 puls pc,u,x | |
| 879 | |
|
2619
d888412d8118
o Fixed assembler issue in init.asm
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2618
diff
changeset
|
880 use fsrqmem.asm |
|
2731
baa835d68db2
Changed rules.mak to remove "-l" option in the AFLAGS. This was done to supress the display of source to terminal screen while compiling project.
drencor-xeen
parents:
2653
diff
changeset
|
881 |
|
2619
d888412d8118
o Fixed assembler issue in init.asm
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2618
diff
changeset
|
882 use fallbit.asm |
|
2731
baa835d68db2
Changed rules.mak to remove "-l" option in the AFLAGS. This was done to supress the display of source to terminal screen while compiling project.
drencor-xeen
parents:
2653
diff
changeset
|
883 |
|
2619
d888412d8118
o Fixed assembler issue in init.asm
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2618
diff
changeset
|
884 use fprsnam.asm |
|
d888412d8118
o Fixed assembler issue in init.asm
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2618
diff
changeset
|
885 |
|
d888412d8118
o Fixed assembler issue in init.asm
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2618
diff
changeset
|
886 use fcmpnam.asm |
|
d888412d8118
o Fixed assembler issue in init.asm
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2618
diff
changeset
|
887 |
|
d888412d8118
o Fixed assembler issue in init.asm
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2618
diff
changeset
|
888 use fssvc.asm |
|
d888412d8118
o Fixed assembler issue in init.asm
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2618
diff
changeset
|
889 |
| 2620 | 890 * Validate modules subroutine |
| 891 * Entry: X = address to start searching | |
| 892 * Y = address to stop (actually stops at Y-1) | |
| 893 ValMods pshs y | |
| 894 valloop@ lbsr ValMod | |
| 895 bcs valerr | |
| 896 ldd M$Size,x | |
| 897 leax d,x go past module | |
| 898 bra valcheck | |
| 899 valerr cmpb #E$KwnMod | |
| 900 beq valret | |
| 901 leax 1,x | |
| 902 valcheck cmpx ,s | |
| 903 bcs valloop@ | |
| 904 valret puls y,pc | |
| 905 | |
|
2731
baa835d68db2
Changed rules.mak to remove "-l" option in the AFLAGS. This was done to supress the display of source to terminal screen while compiling project.
drencor-xeen
parents:
2653
diff
changeset
|
906 |
| 2620 | 907 VectCode bra SWI3Jmp $0100 |
| 908 nop | |
| 909 bra SWI2Jmp $0103 | |
| 910 nop | |
|
2630
e310e8613606
Fixed earlier change from yesterday due to misunderstanding of ordering of 6809 vectors on CoCo 1/2...
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2625
diff
changeset
|
911 bra SWIJmp $0106 |
| 2620 | 912 nop |
|
2630
e310e8613606
Fixed earlier change from yesterday due to misunderstanding of ordering of 6809 vectors on CoCo 1/2...
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2625
diff
changeset
|
913 bra NMIJmp $0109 |
| 2620 | 914 nop |
|
2630
e310e8613606
Fixed earlier change from yesterday due to misunderstanding of ordering of 6809 vectors on CoCo 1/2...
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2625
diff
changeset
|
915 bra IRQJmp $010C |
| 2620 | 916 nop |
|
2630
e310e8613606
Fixed earlier change from yesterday due to misunderstanding of ordering of 6809 vectors on CoCo 1/2...
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2625
diff
changeset
|
917 bra FIRQJmp $010F |
| 2620 | 918 |
| 919 SWI3Jmp jmp [>D.SWI3] | |
| 920 SWI2Jmp jmp [>D.SWI2] | |
| 921 SWIJmp jmp [>D.SWI] | |
| 922 NMIJmp jmp [>D.NMI] | |
|
2630
e310e8613606
Fixed earlier change from yesterday due to misunderstanding of ordering of 6809 vectors on CoCo 1/2...
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2625
diff
changeset
|
923 IRQJmp jmp [>D.IRQ] |
|
e310e8613606
Fixed earlier change from yesterday due to misunderstanding of ordering of 6809 vectors on CoCo 1/2...
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2625
diff
changeset
|
924 FIRQJmp jmp [>D.FIRQ] |
| 2620 | 925 VectCSz equ *-VectCode |
| 926 | |
| 927 | |
| 928 SysTbl fcb F$Link | |
| 929 fdb FLink-*-2 | |
| 930 fcb F$Fork | |
| 931 fdb FFork-*-2 | |
| 932 fcb F$Chain | |
| 933 fdb FChain-*-2 | |
| 934 fcb F$Chain+SysState | |
| 935 fdb SFChain-*-2 | |
| 936 fcb F$PrsNam | |
| 937 fdb FPrsNam-*-2 | |
| 938 fcb F$CmpNam | |
| 939 fdb FCmpNam-*-2 | |
| 940 fcb F$SchBit | |
| 941 fdb FSchBit-*-2 | |
| 942 fcb F$AllBit | |
| 943 fdb FAllBit-*-2 | |
| 944 fcb F$DelBit | |
| 945 fdb FDelBit-*-2 | |
| 946 fcb F$CRC | |
| 947 fdb FCRC-*-2 | |
| 948 fcb F$SRqMem+SysState | |
| 949 fdb FSRqMem-*-2 | |
| 950 fcb F$SRtMem+SysState | |
| 951 fdb FSRtMem-*-2 | |
| 952 fcb F$AProc+SysState | |
| 953 fdb FAProc-*-2 | |
| 954 fcb F$NProc+SysState | |
| 955 fdb FNProc-*-2 | |
| 956 fcb F$VModul+SysState | |
| 957 fdb FVModul-*-2 | |
| 958 fcb F$SSvc | |
| 959 fdb FSSvc-*-2 | |
| 960 fcb $80 | |
| 961 | |
| 962 IFNE H6309 | |
| 963 Zoro fcb $00 | |
| 964 ENDC | |
| 965 | |
| 966 InitNam fcs /Init/ | |
| 967 | |
| 968 P2Nam fcs /krnp2/ | |
| 969 | |
| 2618 | 970 emod |
| 971 eom equ * | |
| 1453 | 972 |
|
2731
baa835d68db2
Changed rules.mak to remove "-l" option in the AFLAGS. This was done to supress the display of source to terminal screen while compiling project.
drencor-xeen
parents:
2653
diff
changeset
|
973 Vectors fdb SWI3 SWI3 |
| 2012 | 974 fdb SWI2 SWI2 |
| 975 fdb DUMMY FIRQ | |
| 976 fdb SVCIRQ IRQ | |
| 977 fdb SWI SWI | |
| 2620 | 978 fdb SVCNMI NMI |
|
2731
baa835d68db2
Changed rules.mak to remove "-l" option in the AFLAGS. This was done to supress the display of source to terminal screen while compiling project.
drencor-xeen
parents:
2653
diff
changeset
|
979 |
|
baa835d68db2
Changed rules.mak to remove "-l" option in the AFLAGS. This was done to supress the display of source to terminal screen while compiling project.
drencor-xeen
parents:
2653
diff
changeset
|
980 |
|
2649
928b4a062979
Atari: Made mods to the kernel to boot with new Liber809 firmware
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2630
diff
changeset
|
981 IFNE ATARI |
|
928b4a062979
Atari: Made mods to the kernel to boot with new Liber809 firmware
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2630
diff
changeset
|
982 fdb $F3FE-(*-OS9Cold) |
|
2617
b1145d2cb659
Adding atari port folder and modifications to init and krn to accommodate
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2252
diff
changeset
|
983 ENDC |
|
2731
baa835d68db2
Changed rules.mak to remove "-l" option in the AFLAGS. This was done to supress the display of source to terminal screen while compiling project.
drencor-xeen
parents:
2653
diff
changeset
|
984 |
|
2617
b1145d2cb659
Adding atari port folder and modifications to init and krn to accommodate
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2252
diff
changeset
|
985 eomem equ * |
| 1453 | 986 end |