Mercurial > hg > Members > kono > nitros9-code
annotate level3/modules/nitro.asm @ 3295:6b7a7b233925 default tip
makefile: Allow PORTS with level1/2 mix
https://sourceforge.net/p/nitros9/feature-requests/10/
| author | Tormod Volden <debian.tormod@gmail.com> |
|---|---|
| date | Tue, 19 Apr 2022 18:12:17 +0200 |
| parents | d0e8324af298 |
| children |
| rev | line source |
|---|---|
| 2351 | 1 ******************************************************************** |
| 2 * NitrOS9 - Sets up NitrOS-9 Level 3 | |
| 3 * | |
| 4 * $Id$ | |
| 5 * | |
| 6 * Edt/Rev YYYY/MM/DD Modified by | |
| 7 * Comment | |
| 8 * ------------------------------------------------------------------ | |
| 9 * ????/??/?? Alan DeKok | |
| 10 * Created. | |
| 11 | |
| 12 nam NitrOS9 | |
| 13 ttl Sets up NitrOS-9 Level 3 | |
| 14 | |
| 15 ifp1 | |
| 16 use defsfile | |
| 17 endc | |
| 18 | |
| 19 tylg set Systm+Obj6309 | |
| 20 atrv set ReEnt+rev | |
| 21 rev set $04 | |
| 22 mod eom,name,tylg,atrv,Start,size | |
| 23 u0000 rmb 0 | |
| 24 size equ . | |
| 25 name equ * | |
| 26 fcs /NitrOS9/ | |
| 27 fcb $01 | |
| 28 | |
| 29 Start ldd #$10ff illegal instruction, /0 trap | |
| 30 std >0 | |
| 31 ldd #$0008 | |
| 32 std >2 | |
| 33 ldd #$20FE | |
| 34 std >4 | |
| 35 | |
| 36 * allocate a block of RAM for SCF drivers | |
| 37 ldu #eom get the size of this module | |
| 38 leax eom,pc point to the next module | |
| 39 ldy #L3.SCF | |
| 40 | |
| 41 all.ram bsr f.modul move some modules over | |
| 42 tstb did we, in fact, move any? | |
| 43 beq all.done if not, we're done | |
| 44 stb ,y+ save the starting RAM block number | |
| 45 bra all.ram and go get another block of RAM | |
| 46 | |
| 47 * Verify the rest of the boot: start of old OS9p1 code | |
| 48 all.done ldd <D.BtSz get the size of the boot | |
| 49 subr u,d take out the size of the modules we're skipping | |
| 50 * F$VBlock has NO exit conditions, and doesn't change any registers | |
| 51 OS9 F$VBlock go verify the rest of the OS9Boot file | |
| 52 * do NOT use U after this! | |
| 53 | |
| 54 * set the DAT image of the allocate blocks to be RAMInUse, rather than | |
| 55 * Module In block | |
| 56 ldx <D.SysDAT point to the system DAT image | |
| 57 ldb $0D,x grab the block# of the last allocated block | |
| 58 incb account for block 0: leave SCF & RBF as ModInBlk | |
| 59 lda #RAMInUse set the RAM to be in use... | |
| 60 ldx <D.BlkMap point to system block allocation map | |
| 61 | |
| 62 set.lp sta ,x+ allocate the RAM | |
| 63 decb count down | |
| 64 bne set.lp continue until done | |
| 65 | |
| 66 ldx <D.BlkMap grab the block map again | |
|
3255
d0e8324af298
level3: nitro module: Use KrnBlk instead of hardcoded $3F
Tormod Volden <debian.tormod@gmail.com>
parents:
2351
diff
changeset
|
67 sta <KrnBlk,x mark the boot track block as used, too. |
| 2351 | 68 |
| 69 * mark block 1 ($2000-$3FFF) in the system memory map as allocated | |
| 70 ldx <D.SysMem ptr to low system memory | |
| 71 ldd #$0100+L3.Size RAMInUse, N times | |
| 72 leax $20,x to the start of block 1 in the block map | |
| 73 blk.lp sta ,x+ set it to be in use | |
| 74 decb | |
| 75 bne blk.lp | |
| 76 | |
| 77 * U = total size of the crap we've removed | |
| 78 ldd <D.BtSz size of the bootfile | |
| 79 subr u,d take out size of code we've removed | |
| 80 std <D.BtSz | |
| 81 ldd <D.BtPtr | |
| 82 addr u,d point to new start of the OS9Booto file | |
| 83 pshs d and save for later | |
| 84 tfr u,d size of code we've taken out | |
| 85 subd #$00FF round _down_ a page | |
| 86 | |
| 87 ldx <D.SysMem pt to system memory map | |
| 88 ldb <D.BtPtr point to start of OS9Boot in memory | |
| 89 abx go to it | |
| 90 | |
| 91 * remove the memory from the system memory map | |
| 92 m.lp clr ,x+ set the RAM to be not in use | |
| 93 deca count down the number of pages we've moved | |
| 94 bne m.lp continue | |
| 95 bra x.done | |
| 96 | |
| 97 leax -1,x point to last unused byte | |
| 98 tfr x,d move into an address register | |
| 99 lsra | |
| 100 lsra | |
| 101 lsra | |
| 102 lsra | |
| 103 lsra now A=block number of highest block | |
| 104 ldb <D.BtPtr | |
| 105 lsrb | |
| 106 lsrb | |
| 107 lsrb | |
| 108 lsrb | |
| 109 lsrb | |
| 110 subr b,a same block? (now A=number of blocks to delete) | |
| 111 beq x.done yes, don't do anything | |
| 112 | |
| 113 ldu <D.BlkMap point to system-wide block map | |
| 114 ldx <D.SysDAT pointer to system DAT image | |
| 115 lslb convert to DAT image offset | |
| 116 incb point to block number, not flag | |
| 117 abx point to the offset | |
| 118 | |
| 119 x.loop ldb ,x++ grab a block number | |
| 120 clr b,u mark the block as unused | |
| 121 deca | |
| 122 bne x.loop continue until done | |
| 123 | |
| 124 x.done puls d restore ptr to new start of the OS9Boot file | |
| 125 std <D.BtPtr and save it again | |
| 126 clrb | |
| 127 rts | |
| 128 | |
| 129 *============================================================================ | |
| 130 * | |
| 131 * Copy the modules into local memory. | |
| 132 * Copied from [X] to a module called _end | |
| 133 * Entry: X = ptr to start at | |
| 134 * U = size of stuff deleted so far | |
| 135 * Exit : X = ptr to module after _end module | |
| 136 * U = total size of stuff deleted | |
| 137 | |
| 138 f.modul pshs b,x,y,u save start of area to move, size moved before | |
| 139 * grab the name: is it _end? | |
| 140 is.end ldd ,x | |
| 141 cmpd #$87Cd is it a module? | |
| 142 bne f.exit no, exit | |
| 143 ldd M$Name,x get the name pointer | |
| 144 ldd d,x get 2 bytes of the name | |
| 145 cmpd #$5F65 '_e'? | |
| 146 beq fnd.end yes, found it | |
| 147 | |
| 148 * skip this module if not at the end yet | |
| 149 ldd M$Size,x grab the module size | |
| 150 leax d,x go to the next module | |
| 151 leau d,u add in the size of it | |
| 152 bra is.end and continue looking for end | |
| 153 | |
| 154 f.exit clrb we're done everything | |
| 155 puls a,x,y,u,pc | |
| 156 | |
| 157 * copy modules over, and verify | |
| 158 fnd.end ldy 1,s restore ptr to start of area to move | |
| 159 tfr u,w new size | |
| 160 subw 5,s take out old size: W = total size | |
| 161 cmpw #L3.Size*$FF greater than the room available? | |
| 162 bhs f.exit yes, exit without allocating RAM | |
| 163 | |
| 164 * skip _end module | |
| 165 ldd M$Size,x get size of the _end module | |
| 166 leax d,x skip it | |
| 167 leau d,u | |
| 168 stx 1,s save new start ptr | |
| 169 stu 5,s and new size | |
| 170 | |
| 171 * we've found blocks to move, so let's allocate some RAM | |
| 172 ldb #L3.Blks 1 block to allocate | |
| 173 OS9 F$AllRAM allocate some RAM | |
| 174 | |
| 175 std >$0642 map it into system DAT image | |
| 176 stb >$FFA1 map into physical RAM | |
| 177 stb ,s save starting block number | |
| 178 | |
| 179 ifeq L3.Blks-2 more than 1 block? | |
| 180 incb yes, go up by a block | |
| 181 std >$0644 map it into the system DAT image | |
| 182 stb >$FFA2 and into the hardware | |
| 183 endc | |
| 184 | |
| 185 * move the modules to local RAM | |
| 186 pshsw save size of the block to move | |
| 187 ldx #L3.Start+L3.Size where to move the stuff to | |
| 188 tfm y+,x+ move it from the OS9Boot file to IOMan local memory | |
| 189 | |
| 190 * verify the modules | |
| 191 puls d grab the size of the block | |
| 192 ldx #L3.Start+L3.Size start ptr again | |
| 193 OS9 F$VBlock verify the block | |
| 194 | |
| 195 * get A = total size (in pages) of stuff moved over | |
| 196 addd #L3.Size+$FF round up to the nearest block, adding in $20 | |
| 197 | |
| 198 * start with all local RAM deallocated | |
| 199 ldx #L3.Start to the start of the block | |
| 200 ldb #L3.Size-1 number of pages to mark as free | |
| 201 clr.lp clr b,x set them to be all clear. | |
| 202 decb | |
| 203 bpl clr.lp count down until B=-1 | |
| 204 | |
| 205 * allocate local RAM to the size of the modules we've moved over | |
| 206 ldb #RAMInUse RAM in use | |
| 207 all.lp stb ,x+ make the page allocated | |
| 208 deca count down a page | |
| 209 bne all.lp and continue | |
| 210 | |
| 211 lda #'- a hyphen | |
| 212 jsr <D.BtBug print it out | |
| 213 | |
| 214 * restore start, size pointers and exit | |
| 215 puls b,x,y,u,pc | |
| 216 | |
| 217 emod | |
| 218 eom equ * | |
| 219 end |