# HG changeset patch
# User boisy
# Date 1236769940 0
# Node ID 8a96f52415563120dc17c964dc592bc8e56ba64f
# Parent  97391b69843d89e76fec8708030e2dc6fdf0b740
*** empty log message ***

diff -r 97391b69843d -r 8a96f5241556 level1/modules/rb1773.asm
--- 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)
diff -r 97391b69843d -r 8a96f5241556 level1/modules/rbdw3.asm
--- 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
diff -r 97391b69843d -r 8a96f5241556 level2/modules/joydrv_6551L.asm
--- a/level2/modules/joydrv_6551L.asm	Wed Mar 11 11:08:44 2009 +0000
+++ b/level2/modules/joydrv_6551L.asm	Wed Mar 11 11:12:20 2009 +0000
@@ -27,7 +27,7 @@
 rev      set   $01
 edition  set   6         
                          
-MPISlot  set   $00       
+MPISlot  set   $FF
                          
          mod   eom,name,tylg,atrv,start,$FF68