diff --git a/Platform/Apple/virtual/src/core/mem.s b/Platform/Apple/virtual/src/core/mem.s index ec3f9454..0ccbcfbc 100644 --- a/Platform/Apple/virtual/src/core/mem.s +++ b/Platform/Apple/virtual/src/core/mem.s @@ -2007,7 +2007,8 @@ openPartition: !zone ora floppyDrive ; $80 for drive 2 sta tmp clc - jsr callProRWTS ; opendir +!if DEBUG { jsr dbgrwts } else { jsr callProRWTS } +; jsr callProRWTS ; opendir bne .flip ; status: zero=ok, 1=err sta curMarkPos+1 ; by opening we did an implicit seek to zero sta curMarkPos+2 @@ -2170,7 +2171,8 @@ disk_queueLoad: !zone readAndAdj: sta tmp ; store cmd num sec ; calling rdwrpart (not opendir) - jsr callProRWTS ; and seek or read on the underlying file +!if DEBUG { jsr dbgrwts } else { jsr callProRWTS } +; jsr callProRWTS ; and seek or read on the underlying file ; Advance our record of the mark position by the specified # of bytes. ; reqLen is still intact, because ProRWTS changes its copy in aux zp only lda curMarkPos @@ -2184,6 +2186,26 @@ readAndAdj: inc curMarkPos+2 + rts +!if DEBUG { +dbgrwts: + +prStr : !text $8d," rwts c/cmd/aux=",0 + bcs + + +prChr 'o' + bcc ++ ++ +prChr 'r' +++ +prA + +prByte isAuxCmd + +prStr : !text "src/dst/len=",0 + +prWord pSrc + +prWord pDst + +prWord reqLen + jsr callProRWTS + +prStr : !text "-> ",0 + +prA + +crout + rts +} + ;------------------------------------------------------------------------------ disk_seek: !zone lda setMarkPos