From 865992670dba474200557c7d6d45eff0c4f7d55c Mon Sep 17 00:00:00 2001
From: Bob Supnik <bob@supnik.org>
Date: Mon, 6 Jun 2022 13:03:26 -0700
Subject: [PATCH] SIGMA: Fixed DPA, DPB missing loop increment in TDV (Ken
 Rector)

---
 sigma/sigma_dp.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/sigma/sigma_dp.c b/sigma/sigma_dp.c
index f3e6d33c..afdb2567 100644
--- a/sigma/sigma_dp.c
+++ b/sigma/sigma_dp.c
@@ -1,6 +1,6 @@
 /* sigma_dp.c: moving head disk pack controller
 
-   Copyright (c) 2008-2017, Robert M Supnik
+   Copyright (c) 2008-2022, Robert M Supnik
 
    Permission is hereby granted, free of charge, to any person obtaining a
    copy of this software and associated documentation files (the "Software"),
@@ -25,6 +25,7 @@
 
    dp           moving head disk pack controller
 
+   06-Jun-22    RMS     Fixed missing loop increment in TDV (Ken Rector)
    13-Mar-17    RMS     Fixed bug in selecting 3281 unit F (COVERITY)
 
    Transfers are always done a sector at a time.
@@ -611,7 +612,7 @@ switch (op) {                                           /* case on op */
                     chan_uen (dva);                     /* uend */
                     }
                 dp_clr_ski (cidx, i);                   /* clear seek int */
-                sim_cancel (&dp_unit[i + DP_SEEK]);     /* cancel seek compl */
+                sim_cancel (&dp_unit[i] + DP_SEEK);     /* cancel seek compl */
                 }
             chan_clr_chi (dva);                         /* clear chan int */
             }
@@ -1028,6 +1029,7 @@ while (tptr->byte != 0) {
         data = (uint8) ((ctx->dp_flags & tptr->mask) >> tptr->fpos);
         c[tptr->byte] |= (data << tptr->tpos);
         }
+    tptr++;
     }
 return;
 }