Mercurial > hg > Members > kono > nitros9-code
annotate level1/modules/ioman.asm @ 3130:e0614e08fa5e
l1 boot modules: Expand documentation and clean up code
Tidy up white-space and indentation.
Expand documentation to show C flag is important on return
from HWRead.
Expand documentation to show how/why/when filler is needed at
end of file.
Delete dead code in some places. No functional changes.
| author | Neal Crook <foofoobedoo@gmail.com> |
|---|---|
| date | Sun, 04 Dec 2016 21:01:42 +0000 |
| parents | 412772d32331 |
| children |
| rev | line source |
|---|---|
| 0 | 1 ******************************************************************** |
| 2 * IOMan - OS-9 Level One V2 I/O Manager module | |
| 3 * | |
| 4 * $Id$ | |
| 5 * | |
| 1499 | 6 * Edt/Rev YYYY/MM/DD Modified by |
| 7 * Comment | |
| 0 | 8 * ------------------------------------------------------------------ |
| 1499 | 9 * 11 ????/??/?? |
| 10 * From Tandy OS-9 Level One VR 02.00.00 | |
| 11 * | |
| 12 * 12 2002/05/11 Boisy G. Pitre | |
| 13 * I/O Queue sort bug and I$Attach static storage premature deallocation | |
| 14 * bug fixed. | |
| 0 | 15 |
| 16 nam IOMan | |
| 17 ttl OS-9 Level One V2 I/O Manager module | |
| 18 | |
| 19 ifp1 | |
| 20 use defsfile | |
|
2682
f91dc5c378f6
Remove references to include scfdefs
William Astle <lost@l-w.ca>
parents:
1499
diff
changeset
|
21 ; use scfdefs |
| 0 | 22 endc |
| 23 | |
| 24 tylg set Systm+Objct | |
| 25 atrv set ReEnt+rev | |
| 1287 | 26 rev set $00 |
| 75 | 27 * edition 11 = Stock OS-9 Level One Vr. 2.00 IOMan |
| 28 * edition 12 = IO Queue sort bug fixed, IAttach bug fixed | |
| 29 edition equ 12 | |
| 0 | 30 |
| 31 mod eom,name,tylg,atrv,IOManEnt,size | |
| 32 | |
| 33 size equ . | |
| 34 | |
| 35 name fcs /IOMan/ | |
| 36 fcb edition | |
| 37 | |
| 38 * IOMan is called from OS9p2 | |
| 39 IOManEnt equ * | |
| 40 * allocate device and polling tables | |
| 79 | 41 ldx <D.Init get pointer to init module |
| 42 lda PollCnt,x grab number of polling entries | |
| 43 ldb #POLSIZ and size per entry | |
| 44 mul D = size of all entries in bytes | |
| 45 pshs b,a save off | |
| 46 lda DevCnt,x get device table count in init mod | |
| 47 ldb #DEVSIZ get size per dev table entry | |
| 48 mul D = size of all entires in bytes | |
| 49 pshs b,a save off | |
| 50 addd 2,s add devsize to polsiz | |
| 51 addd #$0018 add in ??? | |
| 52 addd #$00FF bring up to next page | |
| 0 | 53 clrb |
| 79 | 54 os9 F$SRqMem ask for the memory |
| 55 bcs Crash crash if we can't get it | |
| 0 | 56 * clear allocated mem |
| 79 | 57 leax ,u point to dev table |
| 0 | 58 L0033 clr ,x+ |
| 59 subd #$0001 | |
| 60 bhi L0033 | |
| 79 | 61 stu <D.PolTbl U = pointer to polling table |
| 62 ldd ,s++ get dev table size | |
| 63 leax d,u point X past polling table to dev table | |
| 64 stx <D.DevTbl save off X to system vars | |
| 65 addd ,s++ grab poll table size | |
| 0 | 66 leax d,u |
| 67 stx <D.CLTB | |
| 68 ldx <D.PthDBT | |
| 69 os9 F$All64 | |
| 70 bcs Crash | |
| 71 stx <D.PthDBT | |
| 72 os9 F$Ret64 | |
| 79 | 73 leax >DPoll,pcr get address of IRQ poll routine |
| 74 stx <D.Poll save in statics | |
| 0 | 75 * install I/O system calls |
| 79 | 76 leay <IOCalls,pcr point to I/O calls |
| 77 os9 F$SSvc install them | |
| 78 rts return to OS9p2 | |
| 0 | 79 |
| 80 Crash jmp [>$FFFE] | |
| 81 | |
| 82 IOCalls fcb $7F | |
| 83 fdb UsrIO-*-2 | |
| 84 | |
| 85 fcb F$Load | |
| 86 fdb FLoad-*-2 | |
| 87 | |
| 88 fcb F$PErr | |
| 89 fdb FPErr-*-2 | |
| 90 | |
| 91 fcb F$IOQu+$80 | |
| 92 fdb FIOQu-*-2 | |
| 93 | |
| 94 fcb $FF | |
| 95 fdb SysIO-*-2 | |
| 96 | |
| 97 fcb F$IRQ+$80 | |
| 98 fdb FIRQ-*-2 | |
| 99 | |
| 100 fcb F$IODel+$80 | |
| 101 fdb FIODel-*-2 | |
| 102 | |
| 103 fcb $80 | |
| 104 | |
| 105 FIODel ldx R$X,u | |
| 106 ldu <D.Init | |
| 107 ldb DevCnt,u get device count | |
| 108 ldu <D.DevTbl | |
| 109 L0083 ldy V$DESC,u | |
| 110 beq L0094 | |
| 111 cmpx V$DESC,u | |
| 112 beq L009B | |
| 113 cmpx V$DRIV,u | |
| 114 beq L009B | |
| 115 cmpx V$FMGR,u | |
| 116 beq L009B | |
| 117 L0094 leau DEVSIZ,u | |
| 118 decb | |
| 119 bne L0083 | |
| 120 clrb | |
| 121 rts | |
| 122 L009B comb | |
| 123 ldb #E$ModBsy | |
| 124 rts | |
| 125 | |
| 126 UsrIODis fdb IAttach-UsrIODis | |
| 127 fdb IDetach-UsrIODis | |
| 128 fdb IDup-UsrIODis | |
| 129 fdb IUsrCall-UsrIODis | |
| 130 fdb IUsrCall-UsrIODis | |
| 131 fdb IMakDir-UsrIODis | |
| 132 fdb IChgDir-UsrIODis | |
| 133 fdb IDelete-UsrIODis | |
| 134 fdb UISeek-UsrIODis | |
| 135 fdb UIRead-UsrIODis | |
| 136 fdb UIWrite-UsrIODis | |
| 137 fdb UIRead-UsrIODis | |
| 138 fdb UIWrite-UsrIODis | |
| 139 fdb UIGetStt-UsrIODis | |
| 140 fdb UISeek-UsrIODis | |
| 141 fdb UIClose-UsrIODis | |
| 142 fdb IDeletX-UsrIODis | |
| 143 | |
| 144 SysIODis fdb IAttach-SysIODis | |
| 145 fdb IDetach-SysIODis | |
| 146 fdb SIDup-SysIODis | |
| 147 fdb ISysCall-SysIODis | |
| 148 fdb ISysCall-SysIODis | |
| 149 fdb IMakDir-SysIODis | |
| 150 fdb IChgDir-SysIODis | |
| 151 fdb IDelete-SysIODis | |
| 152 fdb SISeek-SysIODis | |
| 153 fdb SIRead-SysIODis | |
| 154 fdb SIWrite-SysIODis | |
| 155 fdb SIRead-SysIODis | |
| 156 fdb SIWrite-SysIODis | |
| 157 fdb SIGetStt-SysIODis | |
| 158 fdb SISeek-SysIODis | |
| 159 fdb SIClose-SysIODis | |
| 160 fdb IDeletX-SysIODis | |
| 161 | |
| 79 | 162 |
| 163 * Entry to User and System I/O dispatch table | |
| 164 * B = I/O system call code | |
| 0 | 165 UsrIO leax <UsrIODis,pcr |
| 166 bra IODsptch | |
| 167 SysIO leax <SysIODis,pcr | |
| 79 | 168 IODsptch cmpb #I$DeletX compare with last I/O call |
| 169 bhi L00FA branch if greater | |
| 0 | 170 pshs b |
| 79 | 171 lslb multiply by 2 |
| 172 ldd b,x offset | |
| 173 leax d,x get address of routine | |
| 0 | 174 puls b |
| 79 | 175 jmp ,x jump to it! |
| 176 L00FA comb we get here if illegal I/O code | |
| 0 | 177 ldb #E$UnkSvc |
| 178 rts | |
| 179 | |
| 180 IAttach ldb #$11 | |
| 181 L0100 clr ,-s | |
| 182 decb | |
| 183 bpl L0100 | |
| 184 stu <$10,s caller regs | |
| 185 lda R$A,u | |
| 186 sta $09,s device mode | |
| 187 ldx R$X,u | |
| 188 lda #Devic+0 | |
| 189 os9 F$Link link to device desc. | |
| 190 bcs L0139 | |
| 191 stu $04,s address of mod hdr | |
| 192 ldy <$10,s get caller regs | |
| 193 stx R$X,y save updated ptr | |
| 194 ldd M$Port+1,u get port addr | |
| 195 std $0C,s save on stack | |
| 196 ldd M$PDev,u get driver name | |
| 197 leax d,u point X to driver name | |
| 198 lda #Drivr+0 | |
| 199 os9 F$Link link to driver | |
| 200 bcs L0139 | |
| 201 stu ,s save driver addr on stack | |
| 202 ldu $04,s get addr of dev desc. | |
| 203 ldd M$FMgr,u get file mgr name | |
| 204 leax d,u point X to fmgr name | |
| 205 lda #FlMgr+0 | |
| 206 os9 F$Link link to fmgr | |
| 207 L0139 bcc L0149 | |
| 208 * error on attach, so detach | |
| 209 L013B stb <$11,s save fmgr addr on stack | |
| 210 leau ,s point U to S | |
| 211 os9 I$Detach | |
| 212 leas <$11,s clean up stack | |
| 213 comb | |
| 214 puls pc,b return to caller | |
| 215 L0149 stu $06,s save fmgr addr | |
| 216 ldx <D.Init | |
| 217 ldb DevCnt,x | |
| 218 lda DevCnt,x | |
| 219 ldu D.DevTbl | |
| 220 L0153 ldx V$DESC,u get desc addr | |
| 221 beq L0188 | |
| 222 cmpx $04,s same? | |
| 223 bne L016E branch if not | |
| 224 ldx V$STAT,u get stat | |
| 225 bne L016C branch if zero | |
| 226 pshs a | |
| 227 lda V$USRS,u get user count | |
| 228 beq L0168 | |
| 229 os9 F$IOQu | |
| 230 L0168 puls a | |
| 231 bra L0153 | |
| 232 L016C stu $0E,s save dev entry on stack | |
| 233 L016E ldx V$DESC,u get dev desc ptr | |
| 234 ldy M$Port+1,x | |
| 235 cmpy $0C,s compare to port addr on stack | |
| 236 bne L0188 | |
| 237 ldx V$DRIV,u | |
| 238 cmpx ,s compare to driver addr on stack | |
| 239 bne L0188 | |
| 240 ldx V$STAT,u get static | |
| 241 stx $02,s save static on stack | |
| 242 tst V$USRS,u test user count | |
| 243 beq L0188 branch if zero | |
| 244 sta $0A,s store on stack | |
| 245 L0188 leau DEVSIZ,u go to next entry | |
| 246 decb decrement count | |
| 247 bne L0153 go back to loop if not zero | |
| 248 ldu $0E,s get dev entry off stack | |
| 249 lbne L01E6 | |
| 250 ldu D.DevTbl | |
| 251 L0195 ldx V$DESC,u get dev desc ptr | |
| 252 beq L01A6 branch if zero | |
| 253 leau DEVSIZ,u | |
| 254 deca | |
| 255 bne L0195 continue loop | |
| 256 ldb #E$DevOvf device table overflow | |
| 257 bra L013B | |
| 258 L01A2 ldb #E$BMode bad mode | |
| 259 bra L013B | |
| 260 L01A6 ldx $02,s get static storage off stack | |
| 261 lbne L01DD | |
| 262 stu $0E,s save off dev entry on stack | |
| 263 ldx ,s get driver addr off stack | |
| 264 ldd M$Mem,x get memory requirement | |
| 265 addd #$00FF round up to next page | |
| 266 clrb | |
| 267 os9 F$SRqMem | |
| 268 lbcs L013B | |
| 269 stu $02,s save off on stack | |
| 270 L01BF clr ,u+ clear static mem | |
| 271 subd #$0001 | |
| 272 bhi L01BF | |
| 273 ldd $0C,s get port addr off stack | |
| 274 ldu $02,s get static storage ptr | |
| 275 clr V.PAGE,u | |
| 276 std V.PORT,u save addr | |
| 277 ldy $04,s get dev desc addr | |
| 278 ldx ,s get driver addr | |
| 279 ldd M$Exec,x get driver exec | |
| 280 jsr d,x call Init routine | |
| 281 lbcs L013B | |
| 282 ldu $0E,s get dev entry | |
| 283 L01DD ldb #$08 copy 8 bytes from stack to dev entry | |
| 284 L01DF lda b,s | |
| 285 sta b,u | |
| 286 decb | |
| 287 bpl L01DF | |
| 288 L01E6 ldx V$DESC,u get dev desc | |
| 289 ldb M$Revs,x | |
| 290 lda $09,s get device mode off stack | |
| 291 anda M$Mode,x AND mode with desc mode | |
| 292 ldx V$DRIV,u get driver ptr | |
| 293 anda M$Mode,x AND mode with driver mode | |
| 294 cmpa $09,s compare with passed mode | |
| 295 lbne L01A2 branch if error | |
| 296 inc V$USRS,u else inc user count of dev entry | |
| 297 bne L01FE branch if not overflow from 255->0 | |
| 298 dec V$USRS,u else dec | |
| 299 L01FE ldx <$10,s get caller regs | |
| 300 stu R$U,x | |
| 301 leas <$12,s restore stack | |
| 302 clrb | |
| 303 rts | |
| 304 | |
| 305 IDetach ldu R$U,u | |
| 306 ldx V$DESC,u | |
| 75 | 307 IFEQ edition-11 |
| 308 * Note: the following lines constitute a bug that can, in certain | |
| 309 * circumstances, wipe out a device's static storage out from | |
| 310 * underneath it. | |
| 0 | 311 ldb V$USRS,u get user count |
| 312 bne L0218 branch if not zero | |
| 313 pshs u,b | |
| 314 ldu V$STAT,u | |
| 315 pshs u | |
| 316 bra L0254 | |
| 75 | 317 ELSE |
| 318 tst V$USRS,u | |
| 319 beq IDetach2 | |
| 320 ENDC | |
| 0 | 321 L0218 lda #255 |
| 322 cmpa V$USRS,u 255 users? | |
| 323 lbeq L0283 branch if so | |
| 324 dec V$USRS,u else dec user count | |
| 325 lbne L0271 branch if dec not 0 | |
| 75 | 326 IDetach2 |
| 0 | 327 ldx <D.Init |
| 328 ldb DevCnt,x | |
| 329 pshs u,b | |
| 330 ldx V$STAT,u | |
| 331 clr V$STAT,u | |
| 332 clr V$STAT+1,u | |
| 333 ldy <D.DevTbl | |
| 334 L0235 cmpx V$STAT,y | |
| 335 beq L0267 | |
| 336 leay DEVSIZ,y | |
| 337 decb | |
| 338 bne L0235 | |
| 339 ldy <D.Proc | |
| 340 ldb P$ID,y | |
| 341 stb V$USRS,u | |
| 342 ldy V$DESC,u | |
| 343 ldu V$DRIV,u | |
| 344 exg x,u X pts to driver, U pts to static | |
| 345 ldd M$Exec,x | |
| 346 leax d,x | |
| 347 pshs u | |
| 348 jsr $0F,x call term routine | |
| 349 L0254 puls u | |
| 350 ldx 1,s get U from stack (dev entry to detach) | |
| 351 ldx V$DRIV,x | |
| 352 ldd M$Mem,x get memory requirements | |
| 353 addd #$00FF round up to next page | |
| 354 clrb | |
| 355 os9 F$SRtMem return mem | |
| 356 ldx 1,s get U from stack (dev entry to detach) | |
| 357 ldx V$DESC,x get dev desc ptr | |
| 358 L0267 puls u,b get U,B | |
| 359 ldx V$DESC,u | |
| 360 clr V$DESC,u | |
| 361 clr V$DESC+1,u | |
| 362 clr V$USRS,u | |
| 363 L0271 ldy V$DRIV,u | |
| 364 ldu V$FMGR,u | |
| 365 os9 F$UnLink unlink file manager | |
| 366 leau ,y | |
| 367 os9 F$UnLink unlink driver | |
| 368 leau ,x | |
| 369 os9 F$UnLink unlink descriptor | |
| 370 L0283 lbsr L04D9 | |
| 371 clrb | |
| 372 rts | |
| 373 | |
| 374 * user state I$Dup | |
| 79 | 375 IDup bsr FindPath look for a free path |
| 376 bcs IDupRTS branch if error | |
| 377 pshs x,a else save of | |
| 378 lda R$A,u get path to dup | |
| 379 lda a,x point to path to dup | |
| 0 | 380 bsr L02A1 |
| 381 bcs L029D | |
| 382 puls x,b | |
| 79 | 383 stb R$A,u save off new path to caller's A |
| 0 | 384 sta b,x |
| 385 rts | |
| 386 L029D puls pc,x,a | |
| 387 | |
| 388 * system state I$Dup | |
| 389 SIDup lda R$A,u | |
| 79 | 390 L02A1 lbsr FindPDsc find path descriptor |
| 391 bcs IDupRTS exit if error | |
| 392 inc PD.CNT,y else increment path count | |
| 0 | 393 IDupRTS rts |
| 394 | |
| 395 | |
| 79 | 396 * Find next free path position in current proc |
| 397 * Exit: X = Ptr to proc's path table | |
| 398 * A = Free path number (valid if carry clear) | |
| 399 * | |
| 400 FindPath ldx <D.Proc get ptr to current proc desc | |
| 401 leax <P$PATH,x point X to proc's path table | |
| 402 clra start from 0 | |
| 403 L02AF tst a,x this path free? | |
| 404 beq L02BC branch if so... | |
| 405 inca else try next path... | |
| 406 cmpa #NumPaths are we at the end? | |
| 407 bcs L02AF branch if not | |
| 408 comb else path table is full | |
| 0 | 409 ldb #E$PthFul |
| 410 rts | |
| 411 L02BC andcc #^Carry | |
| 412 rts | |
| 413 | |
| 414 IUsrCall bsr FindPath | |
| 415 bcs L02D1 | |
| 416 pshs u,x,a | |
| 417 bsr ISysCall | |
| 418 puls u,x,a | |
| 419 bcs L02D1 | |
| 420 ldb R$A,u | |
| 421 stb a,x | |
| 422 sta R$A,u | |
| 423 L02D1 rts | |
| 424 | |
| 425 ISysCall pshs b | |
| 426 ldb R$A,u | |
| 427 bsr L0349 | |
| 428 bcs L02E6 | |
| 429 puls b | |
| 430 lbsr CallFMgr | |
| 431 bcs L02F5 | |
| 432 lda PD.PD,y | |
| 433 sta R$A,u | |
| 434 rts | |
| 435 L02E6 puls pc,a | |
| 436 | |
| 437 * make directory | |
| 438 IMakDir pshs b | |
| 439 ldb #DIR.+WRITE. | |
| 440 L02EC bsr L0349 | |
| 441 bcs L02E6 | |
| 442 puls b | |
| 443 lbsr CallFMgr | |
| 444 L02F5 pshs b,cc | |
| 445 ldu PD.DEV,y | |
| 446 os9 I$Detach | |
| 447 lda PD.PD,y | |
| 448 ldx <D.PthDBT | |
| 449 os9 F$Ret64 | |
| 450 puls pc,b,cc | |
| 451 | |
| 452 * change directory | |
| 453 IChgDir pshs b | |
| 454 ldb R$A,u | |
| 455 orb #DIR. | |
| 456 bsr L0349 | |
| 457 bcs L02E6 | |
| 458 puls b | |
| 459 lbsr CallFMgr | |
| 460 bcs L02F5 | |
| 461 ldu <D.Proc | |
| 462 ldb PD.MOD,y | |
| 463 bitb #PWRIT.+PREAD.+UPDAT. | |
| 464 beq L0329 | |
| 465 ldx PD.DEV,y | |
| 466 stx <P$DIO,u | |
| 467 inc V$USRS,x | |
| 468 bne L0329 | |
| 469 dec V$USRS,x | |
| 470 L0329 bitb #PEXEC.+EXEC. | |
| 471 beq L0338 | |
| 472 ldx PD.DEV,y | |
| 473 stx <P$DIO+6,u | |
| 474 inc V$USRS,x | |
| 475 bne L0338 | |
| 476 dec V$USRS,x | |
| 477 L0338 clrb | |
| 478 bra L02F5 | |
| 479 | |
| 480 IDelete pshs b | |
| 481 ldb #$02 | |
| 482 bra L02EC | |
| 483 | |
| 484 IDeletX ldb #$87 | |
| 485 pshs b | |
| 486 ldb $01,u | |
| 487 bra L02EC | |
| 488 | |
| 489 * create path descriptor and initialize | |
| 490 * Entry: | |
| 491 * B = path mode | |
| 492 L0349 pshs u | |
| 493 ldx <D.PthDBT | |
| 494 os9 F$All64 | |
| 495 bcs L03A8 | |
| 496 inc PD.CNT,y | |
| 497 stb PD.MOD,y | |
| 498 ldx R$X,u | |
| 499 L0358 lda ,x+ | |
| 500 cmpa #$20 | |
| 501 beq L0358 | |
| 502 leax -1,x | |
| 503 stx R$X,u | |
| 504 ldb PD.MOD,y | |
| 505 cmpa #PDELIM | |
| 506 beq L037E | |
| 507 ldx <D.Proc | |
| 508 bitb #PEXEC.+EXEC. | |
| 509 beq L0373 | |
| 510 ldx <P$DIO+6,x | |
| 511 bra L0376 | |
| 512 L0373 ldx <P$DIO,x | |
| 513 L0376 beq L03AA | |
| 514 ldx V$DESC,x | |
| 515 ldd M$Name,x | |
| 516 leax d,x | |
| 517 L037E pshs y | |
| 518 os9 F$PrsNam | |
| 519 puls y | |
| 520 bcs L03AA | |
| 521 lda PD.MOD,y | |
| 522 os9 I$Attach | |
| 523 stu PD.DEV,y | |
| 524 bcs L03AC | |
| 525 ldx V$DESC,u | |
| 526 leax <M$Opt,x | |
| 527 ldb ,x+ | |
| 528 leau <PD.DTP,y | |
| 529 cmpb #$20 | |
| 530 bls L03A4 | |
| 531 ldb #$1F | |
| 532 L03A0 lda ,x+ | |
| 533 sta ,u+ | |
| 534 L03A4 decb | |
| 535 bpl L03A0 | |
| 536 clrb | |
| 537 L03A8 puls pc,u | |
| 538 L03AA ldb #E$BPNam | |
| 539 L03AC pshs b | |
| 540 lda ,y | |
| 541 ldx <D.PthDBT | |
| 542 os9 F$Ret64 | |
| 543 puls b | |
| 544 coma | |
| 545 bra L03A8 | |
| 546 L03BA lda $01,u | |
| 547 cmpa #$10 | |
| 548 bcc L03CB | |
| 549 ldx <D.Proc | |
| 550 leax <$26,x | |
| 551 andcc #^Carry | |
| 552 lda a,x | |
| 553 bne L03CE | |
| 554 L03CB comb | |
| 555 ldb #E$BPNum | |
| 556 L03CE rts | |
| 557 | |
| 558 UISeek bsr L03BA | |
| 559 bcc GetPDsc | |
| 560 rts | |
| 561 | |
| 562 SISeek lda R$A,u | |
| 563 GetPDsc bsr FindPDsc | |
| 564 lbcc CallFMgr | |
| 565 rts | |
| 566 | |
| 567 UIRead bsr L03BA | |
| 568 bcc L03E4 | |
| 569 rts | |
| 570 | |
| 571 SIRead lda R$A,u | |
| 572 L03E4 pshs b | |
| 573 ldb #$05 | |
| 574 L03E8 bsr FindPDsc | |
| 575 bcs L040B | |
| 576 bitb $01,y | |
| 577 beq L0409 | |
|
3059
412772d32331
level1/ioman: Fix code to use R$ macro defines
Robert Gault <robert.gault@att.net>
parents:
2682
diff
changeset
|
578 ldd R$Y,u |
| 0 | 579 beq L03F8 |
|
3059
412772d32331
level1/ioman: Fix code to use R$ macro defines
Robert Gault <robert.gault@att.net>
parents:
2682
diff
changeset
|
580 addd R$X,u |
| 0 | 581 bcs L03FD |
| 582 L03F8 puls b | |
| 583 lbra CallFMgr | |
| 584 L03FD ldb #$F4 | |
| 585 lda ,s | |
| 586 bita #$02 | |
| 587 beq L040B | |
| 588 ldb #$F5 | |
| 589 bra L040B | |
| 590 L0409 ldb #E$BMode | |
| 591 L040B com ,s+ | |
| 592 rts | |
| 593 | |
| 594 UIWrite bsr L03BA | |
| 595 bcc L0415 | |
| 596 rts | |
| 597 | |
| 598 SIWrite lda R$A,u | |
| 599 L0415 pshs b | |
| 600 ldb #$02 | |
| 601 bra L03E8 | |
| 602 | |
| 603 | |
| 79 | 604 * Find path descriptor of path passed in A |
| 605 * Entry: | |
| 606 * A = path to find | |
| 0 | 607 * Exit: |
| 79 | 608 * Y = addr of path desc (if no error) |
| 0 | 609 FindPDsc pshs x |
| 610 ldx <D.PthDBT | |
| 611 os9 F$Find64 | |
| 612 puls x | |
| 613 lbcs L03CB | |
| 614 L0428 rts | |
| 615 | |
| 616 UIGetStt lbsr L03BA | |
| 617 bcc L0431 | |
| 618 rts | |
| 619 | |
| 620 SIGetStt lda R$A,u | |
| 621 L0431 pshs b,a | |
| 622 lda R$B,u | |
| 623 sta 1,s place in B on stack | |
| 624 puls a get A | |
| 625 bsr GetPDsc | |
| 626 puls a A holds func code | |
| 627 pshs b,cc | |
| 628 ldb <PD.DTP,y | |
| 629 cmpb #DT.NFM | |
| 630 beq L044D | |
| 631 tsta test func code | |
| 632 beq GSOpt | |
| 633 cmpa #SS.DevNm | |
| 634 beq GSDevNm | |
| 635 L044D puls pc,b,cc | |
| 636 GSOpt leax <PD.DTP,y | |
| 637 L0452 ldy R$X,u | |
| 638 ldb #32 | |
| 639 L0457 lda ,x+ copy 32 bytes from X to Y | |
| 640 sta ,y+ | |
| 641 decb | |
| 642 bne L0457 | |
| 643 leas 2,s fix stack | |
| 644 clrb | |
| 645 rts | |
| 646 * get device name | |
| 647 GSDevNm ldx PD.DEV,y | |
| 648 ldx V$DESC,x | |
| 649 ldd M$Name,x | |
| 650 leax d,x | |
| 651 bra L0452 | |
| 652 | |
| 653 UIClose lbsr L03BA | |
| 654 bcs L0428 | |
| 655 pshs b | |
| 656 ldb R$A,u | |
| 657 clr b,x | |
| 658 puls b | |
| 659 bra L047D | |
| 660 | |
| 661 SIClose lda R$A,u | |
| 662 L047D bsr FindPDsc | |
| 663 bcs L0428 | |
| 664 dec PD.CNT,y | |
| 665 tst PD.CPR,y | |
| 666 bne L0489 | |
| 667 bsr CallFMgr | |
| 668 L0489 tst PD.CNT,y | |
| 669 bne L0428 | |
| 670 lbra L02F5 | |
| 671 | |
| 672 L0490 os9 F$IOQu | |
| 673 comb | |
| 674 ldb <P$Signal,x | |
| 675 bne L04A4 | |
| 676 L0499 ldx <D.Proc | |
| 677 ldb P$ID,x | |
| 678 clra | |
| 679 lda PD.CPR,y | |
| 680 bne L0490 | |
| 681 stb PD.CPR,y | |
| 682 L04A4 rts | |
| 683 | |
| 684 * B = entry point into FMgr | |
| 685 * Y = path desc | |
| 686 CallFMgr pshs u,y,x,b | |
| 687 bsr L0499 | |
| 688 bcs L04C1 | |
| 689 stu PD.RGS,y | |
| 690 lda <PD.DTP,y | |
| 691 ldx PD.DEV,y | |
| 692 ldx V$FMGR,x | |
| 693 ldd M$Exec,x | |
| 694 leax d,x | |
| 695 ldb ,s | |
| 696 subb #$83 subtract offset from B | |
| 697 lda #$03 size of one entry | |
| 698 mul compute | |
| 699 jsr d,x branch into file manager | |
| 700 L04C1 pshs b,cc | |
| 701 bsr L04D9 | |
| 702 ldy $05,s get path desc off stack | |
| 703 lda <PD.DTP,y | |
| 704 ldx <D.Proc | |
| 705 lda P$ID,x | |
| 706 cmpa PD.CPR,y | |
| 707 bne L04D5 | |
| 708 clr PD.CPR,y | |
| 709 L04D5 puls b,cc | |
| 710 puls pc,u,y,x,a | |
| 711 | |
| 712 L04D9 pshs y,x | |
| 713 ldy <D.Proc | |
| 714 lda <P$IOQN,y | |
| 715 beq L04F3 | |
| 716 clr <P$IOQN,y | |
| 717 ldb #S$Wake | |
| 718 os9 F$Send | |
| 719 ldx <D.PrcDBT | |
| 720 os9 F$Find64 | |
| 721 clr <P$IOQP,y | |
| 722 L04F3 clrb | |
| 723 puls pc,y,x | |
| 724 | |
| 725 * IRQ install routine | |
| 726 FIRQ ldx R$X,u | |
| 727 ldb ,x B = flip byte | |
| 728 ldx 1,x X = mask/priority | |
| 729 clra | |
| 730 pshs cc | |
| 731 pshs x,b | |
| 732 ldx <D.Init | |
| 733 ldb PollCnt,x | |
| 734 ldx <D.PolTbl | |
| 735 ldy R$X,u | |
| 736 beq RmvIRQEn | |
| 737 tst 1,s mask byte | |
| 738 beq L0572 | |
| 739 decb dec poll table count | |
| 740 lda #POLSIZ | |
| 741 mul | |
| 742 leax d,x point to last entry in table | |
| 743 lda Q$MASK,x | |
| 744 bne L0572 | |
| 745 orcc #FIRQMask+IRQMask | |
| 746 L051C ldb 2,s get priority byte | |
| 747 cmpb -1,x compare with prev entry's prior | |
| 748 bcs L052F | |
| 749 ldb #POLSIZ else copy prev entry | |
| 750 L0524 lda ,-x | |
| 751 sta POLSIZ,x | |
| 752 decb | |
| 753 bne L0524 | |
| 754 cmpx <D.PolTbl | |
| 755 bhi L051C | |
| 756 L052F ldd R$D,u get dev stat reg | |
| 757 std Q$POLL,x save it | |
| 758 ldd ,s++ get flip/mask | |
| 759 sta Q$FLIP,x save flip | |
| 760 stb Q$MASK,x save mask | |
| 761 ldb ,s+ get priority | |
| 762 stb Q$PRTY,x save priority | |
| 763 ldd R$Y,u get IRQ svc addr | |
| 764 std Q$SERV,x save | |
| 765 ldd R$U,u get IRQ svc mem ptr | |
| 766 std Q$STAT,x save | |
| 767 puls pc,cc | |
| 768 * remove IRQ poll entry | |
| 769 RmvIRQEn leas 4,s clean stack | |
| 770 ldy R$U,u | |
| 771 L054C cmpy Q$STAT,x | |
| 772 beq L0558 | |
| 773 leax POLSIZ,x | |
| 774 decb | |
| 775 bne L054C | |
| 776 clrb | |
| 777 rts | |
| 778 L0558 pshs b,cc | |
| 779 orcc #FIRQMask+IRQMask | |
| 780 bra L0565 | |
| 781 L055E ldb POLSIZ,x | |
| 782 stb ,x+ | |
| 783 deca | |
| 784 bne L055E | |
| 785 L0565 lda #POLSIZ | |
| 786 dec 1,s dec count | |
| 787 bne L055E | |
| 788 L056B clr ,x+ | |
| 789 deca | |
| 790 bne L056B | |
| 791 puls pc,a,cc | |
| 792 L0572 leas 4,s clean stack | |
| 793 L0574 comb | |
| 794 ldb #E$Poll | |
| 795 rts | |
| 796 | |
| 797 * IRQ polling routine | |
| 798 DPoll ldy <D.PolTbl | |
| 799 ldx <D.Init | |
| 800 ldb PollCnt,x | |
| 801 bra L0586 | |
| 802 L0581 leay POLSIZ,y | |
| 803 decb | |
| 804 beq L0574 | |
| 805 L0586 lda [Q$POLL,y] | |
| 806 eora Q$FLIP,y | |
| 807 bita Q$MASK,y | |
| 808 beq L0581 | |
| 809 ldu Q$STAT,y | |
| 810 pshs y,b | |
| 811 jsr [<Q$SERV,y] | |
| 812 puls y,b | |
| 813 bcs L0581 | |
| 814 rts | |
| 815 | |
| 816 * load a module | |
| 817 FLoad pshs u | |
| 818 ldx R$X,u | |
| 819 bsr L05BC | |
| 820 bcs L05BA | |
| 821 inc $02,u increment link count | |
| 822 ldy ,u get mod header addr | |
| 823 ldu ,s get caller regs | |
| 824 stx R$X,u | |
| 825 sty R$U,u | |
| 826 lda M$Type,y | |
| 827 ldb M$Revs,y | |
| 828 std R$D,u | |
| 829 ldd M$Exec,y | |
| 830 leax d,y | |
| 831 stx R$Y,u | |
| 832 L05BA puls pc,u | |
| 833 | |
| 834 L05BC lda #EXEC. | |
| 835 os9 I$Open | |
| 836 bcs L0632 | |
| 837 leas -$0A,s make room on stack | |
| 838 ldu #$0000 | |
| 839 pshs u,y,x | |
| 840 sta 6,s save path | |
| 841 L05CC ldd 4,s get U (caller regs) from stack | |
| 842 bne L05D2 | |
| 843 stu 4,s | |
| 844 L05D2 lda 6,s get path | |
| 845 leax 7,s point to place on stack | |
| 846 ldy #M$IDSize read M$IDSize bytes | |
| 847 os9 I$Read | |
| 848 bcs L061E | |
| 849 ldd ,x | |
| 850 cmpd #M$ID12 | |
| 851 bne L061C | |
| 852 ldd $09,s get module size | |
| 853 os9 F$SRqMem allocate mem | |
| 854 bcs L061E | |
| 855 ldb #M$IDSize | |
| 856 L05F0 lda ,x+ copy over first M$IDSize bytes | |
| 857 sta ,u+ | |
| 858 decb | |
| 859 bne L05F0 | |
| 860 lda $06,s get path | |
| 861 leax ,u point X at updated U | |
| 862 ldu $09,s get module size | |
| 863 leay -M$IDSize,u subtract count | |
| 864 os9 I$Read | |
| 865 leax -M$IDSize,x | |
| 866 bcs L060B | |
| 867 os9 F$VModul validate module | |
| 868 bcc L05CC | |
| 869 L060B pshs u,b | |
| 870 leau ,x point U at memory allocated | |
| 871 ldd M$Size,x | |
| 872 os9 F$SRtMem return mem | |
| 873 puls u,b | |
| 874 cmpb #E$KwnMod | |
| 875 beq L05CC | |
| 876 bra L061E | |
| 877 L061C ldb #E$BMID | |
| 878 L061E puls u,y,x | |
| 879 lda ,s get path | |
| 880 stb ,s save error code | |
| 881 os9 I$Close close path | |
| 882 ldb ,s | |
| 883 leas $0A,s clear up stack | |
| 884 cmpu #$0000 | |
| 885 bne L0632 | |
| 886 coma | |
| 887 L0632 rts | |
| 888 | |
| 889 | |
| 890 ErrHead fcc /ERROR #/ | |
| 891 ErrNum equ *-ErrHead | |
| 253 | 892 fcb $2F,$3A,$30,C$CR |
| 0 | 893 ErrLen equ *-ErrHead |
| 894 | |
| 895 FPErr ldx <D.Proc | |
| 896 lda <P$PATH+2,x get stderr path | |
| 897 beq L0674 | |
| 898 leas -ErrLen,s make room on stack | |
| 899 * copy error message to stack | |
| 900 leax <ErrHead,pcr | |
| 901 leay ,s | |
| 902 L064C lda ,x+ | |
| 903 sta ,y+ | |
| 253 | 904 cmpa #C$CR |
| 0 | 905 bne L064C |
| 906 ldb R$B,u get error # | |
| 907 L0656 inc ErrNum+0,s | |
| 908 subb #$64 | |
| 909 bcc L0656 | |
| 910 L065C dec ErrNum+1,s | |
| 911 addb #$0A | |
| 912 bcc L065C | |
| 913 addb #$30 | |
| 914 stb ErrNum+2,s | |
| 915 ldx <D.Proc | |
| 916 leax ,s point to error message | |
| 917 ldu <D.Proc | |
| 918 lda <P$PATH+2,u | |
| 919 os9 I$WritLn write message | |
| 920 leas ErrLen,s fix up stack | |
| 921 L0674 rts | |
| 922 | |
| 923 FIOQu ldy <D.Proc | |
| 924 L0678 lda <P$IOQN,y | |
| 925 beq L06A0 | |
| 926 cmpa R$A,u | |
| 927 bne L0699 | |
| 928 clr <P$IOQN,y | |
| 929 ldx <D.PrcDBT | |
| 930 os9 F$Find64 | |
| 931 lbcs L070F | |
| 932 clr <P$IOQP,y | |
| 933 ldb #S$Wake | |
| 934 os9 F$Send | |
| 935 ldu <D.Proc | |
| 936 bra L06AB | |
| 937 L0699 ldx <D.PrcDBT | |
| 938 os9 F$Find64 | |
| 939 bcc L0678 | |
| 940 L06A0 lda R$A,u | |
| 941 ldu <D.Proc | |
| 942 ldx <D.PrcDBT | |
| 943 os9 F$Find64 | |
| 944 bcs L070F | |
| 945 L06AB leax ,y X = proc desc | |
| 946 lda <P$IOQN,y | |
| 947 beq L06D1 | |
| 948 ldx <D.PrcDBT | |
| 949 os9 F$Find64 | |
| 950 bcs L070F | |
| 951 ldb P$Age,u | |
| 952 | |
| 75 | 953 ifeq edition-11 |
| 0 | 954 |
| 955 * Note: the following line is a bug | |
| 956 cmpd P$Age,y | |
| 957 | |
| 958 else | |
| 959 | |
| 960 cmpb P$Age,y | |
| 961 | |
| 962 endc | |
| 963 | |
| 964 bls L06AB | |
| 965 ldb ,u | |
| 966 stb <P$IOQN,x | |
| 967 ldb P$ID,x | |
| 968 stb <P$IOQP,u | |
| 969 clr <P$IOQP,y | |
| 970 exg y,u | |
| 971 bra L06AB | |
| 972 L06D1 lda P$ID,u | |
| 973 sta <P$IOQN,y | |
| 974 lda P$ID,y | |
| 975 sta <P$IOQP,u | |
| 976 ldx #$0000 | |
| 977 os9 F$Sleep | |
| 978 ldu <D.Proc | |
| 979 lda <P$IOQP,u | |
| 980 beq L070C | |
| 981 ldx <D.PrcDBT | |
| 982 os9 F$Find64 | |
| 983 bcs L070C | |
| 984 lda <P$IOQN,y | |
| 985 beq L070C | |
| 986 lda <P$IOQN,u | |
| 987 sta <P$IOQN,y | |
| 988 beq L070C | |
| 989 clr <P$IOQN,u | |
| 990 ldx <D.PrcDBT | |
| 991 os9 F$Find64 | |
| 992 bcs L070C | |
| 993 lda <P$IOQP,u | |
| 994 sta <P$IOQP,y | |
| 995 L070C clr <P$IOQP,u | |
| 996 L070F rts | |
| 997 | |
| 998 emod | |
| 999 eom equ * | |
| 1000 end |