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

 REP 1/8	;12C1
		SUBTTL	SCURST - RESET call from UUOCON

	;Called from the UUO handler for an NSP. UUO
 WIT
		SUBTTL	SCULGO - LOGOUT call from COMCON
	;Routine called by COMCON when a job is killed
 INS 7/8	;12C2
	;	PUSHJ	P,SCULGO
	;Returns:
	;	CPOPJ ALWAYS
	SCULGO::PUSHJ P,FNDPDS##	;SET UP PDB
		SKIPN .PDSJB##(W)	;JOB HAVE ANY SJB?
		RET			;NO, RETURN
		SEC1			;RUN IN SECTION 1
	SCULG1:	MOVE T1,.PDSJB##(W)	;GET SJB POINTER
		CALL CHKSJB##		;ANY SLBs ?
		IFNSK.
		  CALL SCH1BS		;YES, SLEEP FOR A SECOND
		  JRST SCULG1		;AND TRY AGAIN
		ENDIF.
	;
	; Now it's safe to free the SJB
	;
		MOVE T1,.PDSJB##(W)	;GET SJB POINTER
		SETZM .PDSJB##(W)	;AND CLEAR
		CALLRET FRESJB##	;FREE THE SJB AND RETURN

		SUBTTL	SCURST - RESET call from UUOCON

	;Called from the UUO handler for an NSP. UUO
	;
	;Call:
	;	J/ Job number
 REP 49/8	;12C3
		MOVEI T1,1 * ^D1000	;SLEEP FOR ONE SECOND
 WIT
		CALL SCH1BS
		JRST SCURS1		;TRY RESET AGAIN
	SCH1BS:	MOVEI T1,1 * ^D1000	;SLEEP FOR ONE SECOND
 REP 54/8	;12C4
		JRST SCURS1		;TRY RESET AGAIN
 WIT
		RET
 REP 92/15	;12C5
		CALL GETSTR		; IN THE CBLOCK
 WIT
		MOVEI T3,UDA.MX		; WITH THIS MAX LENGTH
		CALL GETST1		;  IN THE CBLOCK
 REP 38/31	;12C6
		TMNN PBFOR,(P2)		;IS THIS A NON-ZERO FORMAT TYPE?
		JRST [STOR T1,PBOBJ,(P2) ;NO, STORE THE OBJECT TYPE
		      RETSKP]		; AND RETURN SUCCESSFULLY

 WIT
		TMNN PBFOR,(P2)		;IS THIS A ZERO FORMAT TYPE?
		STOR T1,PBOBJ,(P2) 	;YES, STORE THE OBJECT TYPE
 REP 15/33	;12C7
	GETSTR:	SAVEAC <M,W,P1,P2>	;GET A COPY OF M AND SAVE TWO PS
 WIT
	GETSTR:	MOVEI T3,SB.MAX		;DEFAULT MAXIMUM LENGTH OF STRING
	GETST1:	SAVEAC <M,W,P1,P2>	;GET A COPY OF M AND SAVE TWO PS
 REP 25/33	;12C8
		CAILE T1,SB.MAX		;WILL THIS FIT IN A STRING BLOCK?
 WIT
		CAMLE T1,T3		;WILL THIS FIT IN A STRING BLOCK?
 SUM 218102