Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

 INS 1/1	;16C1
	; *** Edit 547 to DUMPER.MAC by EVANS on 2-Apr-87
	; Set AC1 to zero so OUTMSG doesn't get confused. 
	; *** Edit 546 to DUMPER.MAC by EVANS on 31-Mar-87
	; Fix edit 544 
	; *** Edit 545 to DUMPER.MAC by EVANS on 31-Mar-87, for SPR #21413
	; Set tape format explicitly for MTOPR% - don't get a tape format from the job
	; *** Edit 544 to DUMPER.MAC by EVANS on 24-Feb-87, for SPR #21537
	; Add a percent-sign to the "Tape went offline" error string.
	; *** Edit 543 to DUMPER.MAC by EVANS on 20-Nov-86, for SPR #21408
	; Don't ignore DUMPO% error - inform the user something is wrong. 
 REP 6/2	;16C2
		.EDIT=^D539
 WIT
		.EDIT=^D547
 REP 43/13	;16C3
		TXNN	T2,OF%WR	;DID WE OPEN FOR WRITING?
		JRST	OPREAD
		SETO	T1,		;SPECIFY THIS JOB
		HRROI	T2,T4		;-# OF WORDS ,, ADDR OF 1ST WORD
		MOVEI	T3,.JIDM	;OFFSET TO JOB DEFAULT DATA MODE
		GETJI%			;FIND OUT JOB DEFAULT DATA MODE
		 SETO	T4,		;CAN'T GET IT (SHOULDN'T HAPPEN)
		CAIN	T4,.SJDDM	;IS MODE "SYSTEM DEFAULT" ?
		MOVEI	T4,.SJDMC	;YES, EVERYONE KNOWS THAT'S CORE DUMP
		MOVEI	T3,.SJDMC	;ASSUME USER WANTS CORE-DUMP
	 IFN FTIND,<
		TXNE	F,F.36MD	;WANTS INDUSTY-COMPATIBLE?
		MOVEI	T3,.SJDM8	;YES
	 >
		CAMN	T3,T4		;DOES REQUEST MATCH JOB DEFAULT?
		JRST	OPREAD		;YES, DON'T HAVE TO CHANGE ANYTHING
 WIT
	;**;[545] Replace 16 lines with 8 at GMOJF2:+4L		DEE	31-MAR-87
		MOVEI	T3,.SJDMC	;[545] Assume CORE-DUMP data mode
	IFN FTIND,<
		TXNE	T2,OF%WR	;[545] Did we open for writing?
		 TXNN 	F,F.36MD	;[545] Yes, want INDUSTRY mode?
	  	  SKIPA			;[545] No, neither
		MOVEI	T3,.SJDM8	;[545] OK - set INDUSTRY mode
	>	
 REP 247/23	;16C4
		JRST	IGNERR		;IGNORE THE UNKNOWN ERROR (OR EOT)
 WIT
	;**;[543] Change one line at EOTWRN:-1:		DEE	20-NOV-86
		JSERRD <Fatal DUMPO% error>,BAKOUT,JRST ;[543]DON'T IGNORE DUMPO ERROR
 REP 257/23	;16C5
	OFFLNE:	CALL	CLRERR
		HRROI	T1,[ASCIZ/Tape went OFFLINE, or Data error/]
		JRST	TRYAGA
 WIT
	;**;[544]Change one line at OFFLNE:+1L		DEE	2-24-87
	;**;[546]Change 1 line at OFFLNE:1L		DEE	1-APR-87
	;**;[547]Add one line at OFFLNE:+1L		DEE	2-Apr-87
	OFFLNE:	CALL	CLRERR
		MOVEI   T1,0		;[547] Be sure zero for OUTMSG
		WARN	<Tape went OFFLINE, or Data error> ;[546] Need a % sign
		JRST	TRYAGA		
 REP 42/40	;16C6
		TYPE	[ASCIZ/, type <CR> to try again. /]
 WIT
	       	TYPE	[ASCIZ/, type <CR> to try again. /] 
 SUM 225221