X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v1.19.git/blobdiff_plain/f3e418cdd4a888df5976f9169871aac2e09d472d..4fb7d2c6e213ffe2a833a1fc80001df40261b5fa:/src/dtser2.mac

diff --git a/src/dtser2.mac b/src/dtser2.mac
index 7264fb4..233dd8e 100644
--- a/src/dtser2.mac
+++ b/src/dtser2.mac
@@ -684,7 +684,7 @@ DMPRD0:	  CAILE TAC, 0			;<END? MODIFIED
 	  MOVE TAC, UDMP		;PROG
 	  ADDM TAC, BLO			;TO GET ACTUAL I/O POINTER
 	  MOVEI TAC,DMPRDA		;NEW RETURN
-	  HRRM TAC, UCHA+
+	  HRRM TAC, UCHA+1
 	  SKIPA TAC, SV1		;RESTORE TAC
 DMPRD1:	  CONO DC, 0
 	  JEN @DMPRD