X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v4.5.git/blobdiff_plain/4004a326545fc294821707378dd8e6b026df8be1..a55d79e58539edcb4fb7316118b0a2e58ae90d47:/src/mtcsr6.mac

diff --git a/src/mtcsr6.mac b/src/mtcsr6.mac
index 019128a..6eeeaf3 100644
--- a/src/mtcsr6.mac
+++ b/src/mtcsr6.mac
@@ -396,7 +396,7 @@ REW0:	PUSHJ	PDP,STOIOS	;RESET HUNG COUNT IF STILL REWINDING
 REW1:	AOS MTREWN		;INCREMENT COUNT OF REW WAIT UNITS
 REW2:	HLRZ DEVDAT,DEVSER(DEVDAT)		;DEVDAT TO NEXT DDB
 	JUMPE DEVDAT,REW3		;LAST ONE?
-	HRLZ DAT,DEVNAM(DEVDAT)		;NO,GET LH OF NAME
+	HLRZ DAT,DEVNAM(DEVDAT)		;NO,GET LH OF NAME
 	CAIN DAT,(SIXBIT /MTA/)		;STILL A MAGTAPE?
 	JRST REWLP		;YES, CONTINUE
 REW3:	POP PDP,DEVDAT