X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v4.5.git/blobdiff_plain/a0865c742fe1bf0b69346aa5f90665fc301e0236..5d24e9e035e495646b261b56872a3e31c2ed244c:/src/dskint.mac

diff --git a/src/dskint.mac b/src/dskint.mac
index cd914c2..841ea1a 100644
--- a/src/dskint.mac
+++ b/src/dskint.mac
@@ -124,7 +124,7 @@ DSKFDG:	HRRZI	TAC,DSKCHN	;THIS INSTRUCTION TEMPORARILY ALTERED DURING "ONCE".
 	HLRE	TAC1,@RCXIOC	; CHANNEL CONTROL WORD SHOULD CONTAIN UPON
 	SUB	TAC,TAC1	; SUCCESSFUL COMPLETION OF THE DISK OPERATION.
 	MOVE	TAC1,RCXIOC
-	HRLI	TAC,1(TAC)
+	HRLI	TAC,1(TAC1)
 	MOVEM	TAC,RCXFIN
 	SETZM	RCXCCW		;ZERO THE LOCATION WHERE THE DISK SYNCRONIZER WILL
 				; STORE THE CHANNEL CONTROL WORD.