X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v4.5.git/blobdiff_plain/8c11230d54654d010d9027c672dcf4011d2cf539..8975ed2f727e4bb0190f22b1401821e5981cf7c2:/src/dtasrn.mac

diff --git a/src/dtasrn.mac b/src/dtasrn.mac
index 1386af8..37a077f 100644
--- a/src/dtasrn.mac
+++ b/src/dtasrn.mac
@@ -319,7 +319,7 @@ ENTRA:	SUBI	UUO,2		;NO. POINT TO NAME
 				;IS A SAVE FILE (UGETF DONE)
 	MOVEI	BLK,DIRBLK	;NO. GET 1ST BLOCK CLOSE TO
 	TLO	IOS,RVERSE	;DIRECTORY. GOING IN REVERSE
-	POPJ	PDP,USLSTA
+	PUSHJ	PDP,USLSTA
 	CAILE	BLK,TOPBLK	;BLOCK LEGAL?
 	POPJ	PDP,		;NO. ERROR RETURN
 ENTRC:	MOVEM	BLK,FSTBLK(DEVDAT) ;SAVE AS 1ST BLOCK
@@ -680,7 +680,7 @@ TOUSR1:	MOVEM	UUO,USPNTR	;SAVE IT
 	MOVEM	UUO,SVPNTR
 	ADDI	TAC,(PROG)	;RELOCATE ADDRESS OF 1ST IOWD
 	MOVEM	TAC,PNTR	;AND SAVE IT
-	MOVE	TAC,[JSP DMPADV] ;SET UP LOC FOR WHEN
+	MOVE	TAC,[JSR DMPADV] ;SET UP LOC FOR WHEN
 	MOVEM	TAC,DTALC2	;IOWD IS EXHAUSTED
 	HRRZM	PROG,ADRPRG	;SAVE JUST ADDRESS OF PROG
 	TLO	IOS,NOBUF	;INDICATE DIRECTLY TO USER
@@ -1021,7 +1021,7 @@ ALMREQ:	XWD	.+1,1
 
 ;HERE WHEN SWAPPER DOES GET THE JOB BACK INTO CORE
 SWPBAK:	MOVE 	IOS,DEVIOS(DEVDAT)
-	SETM	MONB2		;CLEAR JOB NO, FROM MON BUFFER
+	SETZM	MONB2		;CLEAR JOB NO, FROM MON BUFFER
 	TLNN	IOS,IOFST	;WAS JOB SWAPPED OUT WHEN DATA FINISHED?
 	POPJ	PDP,		;NO. TRANSFER COMPLETED
 	MOVE	TAC,JBTSTS(ITEM) ;YES, WAS IO ABORTED?