X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v4.5.git/blobdiff_plain/bb920f47d2b4fd2ac0c46c72df890dfe6931e943..58bf8f5a669eb10b7077c09ee4e01813221928f6:/src/copy.mac

diff --git a/src/copy.mac b/src/copy.mac
index 3a2533b..cfad827 100644
--- a/src/copy.mac
+++ b/src/copy.mac
@@ -605,7 +605,7 @@ ERRCMD:	MOVEI	BP,MESCMD
 MESCMD:	SIXBIT	/?COMMAND ERROR#/
 ERRSW:	MOVEI	BP,MESSW
 	PUSHJ	P,TYPEIT
-	JRST	ST


+	JRST	ST
 MESSW:	SIXBIT	/?SWITCH ERROR#/
 ERRIN1:	SKIPA	T,IDEV
 ERRIN2:	MOVE	T,ODEV
@@ -776,7 +776,7 @@ COPOUT:	OUTPUT	2,LISTC		;COPY AND ZERO
 	PUSHJ	P,VERIFY		;VERIFY AND EXIT THIS PAGE
 VERONE:	SETSTS	1,136		;SET
 	SETSTS	2,136		;DUMP MODE
-	MOVEI	LOC,1		;START AT BLOCK 1


+	MOVEI	LOC,1		;START AT BLOCK 1
 VERSET:	MOVE	V1,LISTV1	;IOWDS
 	MOVE	V2,LISTV2	;TO ACS
 	USETI	1,(LOC)		;MASTER
@@ -873,7 +873,7 @@ NEWBLK:	PUSHJ	P,GETWRD	;GET ONE WORD FROM PTR FILE
 	CAIN	TYPE,1		;BLKTYP=1?
 	PUSH	I,W		;YEP, SAVE THE BITS
 	CAIG	TYPE,7		;ILL-BLK-TYP?
-	JRST	@TYPTAB(TYPE)	;NO, OFF TO BLOCK HANDLER


+	JRST	@TYPTAB(TYPE)	;NO, OFF TO BLOCK HANDLER
 
 TTCALL	3,[ASCIZ /?ILLEGAL BLOCK TPYE
 /]
@@ -950,7 +950,7 @@ BLK4A:	HRLI	CNT,-22		;
 	TRNN	CNT,-1		;
 	JRST	NEWBLK		;
 	PUSHJ	P,GETWRD	;
-	AOBJN	CNT,BLK4A+1	;PASS/IGNORE 
+	AOBJN	CNT,.-1		;PASS/IGNORE 
 	TRNN	CNT,-1		;
 	JRST	NEWBLK		;
 	PUSHJ	P,GETWRD	;