Fix Read Tracks when chained from Prefix (issue #603)

SDL-Hercules-390 · Jan 7, 2024 · ba93eef · ba93eef
1 parent b6cd689
commit ba93eef
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/ckddasd.c b/ckddasd.c
@@ -3322,6 +3322,7 @@ BYTE            trk_ovfl;               /* == 1 if track ovfl write  */
             {
                 DefineExtent( dev, code, flags, chained, count, prevcode,
                               ccwseq, iobuf, more, unitstat, residual );
+                prevcode = 0x63; // DEFINE EXTENT
             }
             else
             {
@@ -3339,10 +3340,12 @@ BYTE            trk_ovfl;               /* == 1 if track ovfl write  */
                               ccwseq, iobuf, more, unitstat, residual );
                 if (*unitstat != (CSW_CE | CSW_DE))
                     break; // (error!)
+                prevcode = 0x63; // DEFINE EXTENT
             }
 
             LocateRecordExtended( dev, code, flags, chained, count, prevcode,
                                   ccwseq, iobuf, more, unitstat, residual );
+            prevcode = 0x4B; // LOCATE RECORD EXTENDED
             break; // Done!
 
         case PFX_F_DE_PSF: