Mercurial > hg > Members > kono > nitros9-code

comparison level1/modules/rb1773.asm @ 1615:dc3272e71faa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
rb1773.asm: updated comments sysgo.asm: uses new 'date' pseudo-op boot_idelba.asm: reads ALL 512 byte of a sector, not just first 256
author boisy
date Wed, 23 Jun 2004 21:10:56 +0000
parents c35df03d98db
children b113a1589fa3
comparison
equal deleted inserted replaced
1614:6c53cd87473a 1615:dc3272e71faa
344 ldb <PD.DNS,y Get path's density settings 344 ldb <PD.DNS,y Get path's density settings
345 bita #FMT.DNS Disk in drive double density? 345 bita #FMT.DNS Disk in drive double density?
346 beq L0115 No, all drives can read single, skip ahead 346 beq L0115 No, all drives can read single, skip ahead
347 bitb #DNS.MFM Can our path dsc. handle double density? 347 bitb #DNS.MFM Can our path dsc. handle double density?
348 beq erbtyp No, illegal 348 beq erbtyp No, illegal
349 L0115 bita #FMT.TDNS Is new disk 96 tpi? 349 L0115 bita #FMT.TDNS Is new disk 96/135 tpi?
350 beq L011D No, all drives handle 48 tpi, so skip ahead 350 beq L011D No, so skip ahead
351 bitb #DNS.DTD Can path dsc. handle 96 tpi? 351 bitb #DNS.DTD Can path dsc. handle 96/135 tpi?
352 beq erbtyp No, illegal 352 beq erbtyp No, illegal
353 L011D bita #FMT.SIDE Is new disk double sided? 353 L011D bita #FMT.SIDE Is new disk double sided?
354 beq L0128 No, all drives handle single sided, we're done 354 beq L0128 No, all drives handle single sided, we're done
355 lda <PD.SID,y Get # sides path dsc. can handle 355 lda <PD.SID,y Get # sides path dsc. can handle
356 suba #2 sides higher or equal to 2? 356 suba #2 sides higher or equal to 2?
583 pshs u,y Preserve device mem, path dsc. ptrs 583 pshs u,y Preserve device mem, path dsc. ptrs
584 ldb <PD.TYP,y Get type from path dsc. 584 ldb <PD.TYP,y Get type from path dsc.
585 ldy >sectbuf,u Get sector buffer ptr 585 ldy >sectbuf,u Get sector buffer ptr
586 andb #%00000100 512 byte sector? 586 andb #%00000100 512 byte sector?
587 beq L028D No, skip ahead 587 beq L028D No, skip ahead
588 ldd >loglsn,u Get OS9's sector # 588 ldd >loglsn,u Get OS9's sector #
589 andb #$01 Odd/even sector? 589 andb #$01 Odd/even sector?
590 beq L028D Even; compare first half 590 beq L028D Even; compare first half
591 leay >$0100,y Odd, compare second half 591 leay >$0100,y Odd, compare second half
592 L028D tfr x,u Move PD.BUF ptr to U (since cmpx is faster) 592 L028D tfr x,u Move PD.BUF ptr to U (since cmpx is faster)
593 lda #32 # of 'spotty' checks to do 593 lda #32 # of 'spotty' checks to do