Mercurial > hg > Members > kono > nitros9-code
changeset 2194:8a96f5241556
*** empty log message ***
| author | boisy |
|---|---|
| date | Wed, 11 Mar 2009 11:12:20 +0000 |
| parents | 97391b69843d |
| children | 8b38d4f75b44 |
| files | level1/modules/rb1773.asm level1/modules/rbdw3.asm level2/modules/joydrv_6551L.asm |
| diffstat | 3 files changed, 14 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/level1/modules/rb1773.asm Wed Mar 11 11:08:44 2009 +0000 +++ b/level1/modules/rb1773.asm Wed Mar 11 11:12:20 2009 +0000 @@ -1221,7 +1221,7 @@ * seek the head to track 0 sktrk0 lbsr chkdrv ldx >lastdrv,u - clr <$15,x + clr <V.TRAK,x lda #1 was 5 but that causes head banging L0497 ldb <PD.STP,y andb #%00000011 Just keep usable settings (6-30 ms)
--- a/level1/modules/rbdw3.asm Wed Mar 11 11:08:44 2009 +0000 +++ b/level1/modules/rbdw3.asm Wed Mar 11 11:12:20 2009 +0000 @@ -21,6 +21,9 @@ * * 2 2008/04/22 Boisy G. Pitre * Verified working operation on a CoCo 3 running NitrOS-9/6809 Level 1 @ 57.6Kbps +* +* 3 2009/03/09 Boisy G. Pitre +* Added checks for size after reading as noted by Darren A's email. nam rbdw3 ttl DriveWire 3 driver @@ -37,7 +40,7 @@ tylg set Drivr+Objct atrv set ReEnt+rev rev set $01 -edition set 2 +edition set 3 mod eom,name,tylg,atrv,start,size @@ -205,8 +208,10 @@ leax ,s lda #255 jsr 3,u + bcs ReadEr0 branch if we timed out + cmpd #0001 + bne ReadEr0 puls d - bcs ReadEr1 branch if we timed out tfr a,b transfer byte to B (in case of error) tstb is it zero? beq ReadEx if not, exit with error @@ -218,6 +223,7 @@ lda #OP_REREADEX reread opcode bra Read2 and try getting sector again +ReadErr0 puls d ReadEr1 ldb #E$Read read error ReadEr2 lda 9,s ora #Carry @@ -281,8 +287,10 @@ lda #255 leax ,s jsr 3,u read ack byte from server + bcs WritEx0 + cmpd #$0001 + bne WritEx0 puls d - bcs WritEx1 tsta beq WritEx yep tfr a,b @@ -293,6 +301,7 @@ beq WritEx1 exit with error if no more lda #OP_REWRIT else resend bra Write15 +WritEx0 puls d WritEx1 ldb #E$Write WritEx2 lda 9,s ora #Carry