Trailing-Edge
-
PDP-10 Archives
-
bb-y390o-bm_tops20_v41_atpch_20
-
autopatch/mountr.c11
There are no other files named mountr.c11 in the archive.
REP 34/1 ;11C1
VEDIT==171 ;EDIT #
WIT
VEDIT==172 ;EDIT #
INS 2/2 ;11C2
;172 Do not crash immediately upon a MUTIL% JSYS error when attempting to
; get a system PID, instead try up to NTRY times before crashing.
; GCO 4.2.1615
INS 33/6 ;11C3
NTRY==5 ;[172]Number of times to get PID via MUTIL%
REP 10/55 ;11C4
MOVE T2,T1 ;COPY INDEX TO T2 FOR XMUTIL
MOVEI T1,.MURSP ;FUNCTION = RETURN SYSTEM PID
CALL XMUTIL ;GET IT
JRST [ CAIN T1,IPCF27 ;SYSTEM PID TABLE SLOT EMPTY?
RET ;YES, TAKE ERROR RETURN
CALL STOP] ;UNEXPECTED ERROR
MOVE T1,T3 ;COPY TO T1 FOR RETURN
RETSKP ;SUCCESSFUL RETURN
WIT
;**;[172]Replace 8 lines with 16 lines at GSYSPD:+2L JCR 4/25/85
SAVEAC <Q1,Q2> ;[172]Save 2 ACs
MOVE Q1,T1 ;[172]Save T1 for possible later use
MOVNI Q2,NTRY ;[172]The number of MUTIL% attempts
GSYSPA: MOVE T2,Q1 ;[172]Copy index to T2 for XMUTIL
MOVEI T1,.MURSP ;[172]Function = return system PID
CALL XMUTIL ;[172]Get it
JRST GSYSPB ;[172]Error, try again up to NTRY
MOVE T1,T3 ;[172]Copy to T1 for return
RETSKP ;[172]Successful return
GSYSPB: AOJE Q2,GSYSPC ;[172]Try again?
MOVEI T1,^D2000 ;[172]Yes, but ...
DISMS ;[172]Wait awhile
JRST GSYSPA ;[172]Now try it again
GSYSPC: CAIN T1,IPCF27 ;[172]System PID table slot empty?
RET ;[172]Yes, take error return
CALL STOP ;[172]Unexpected error
SUM 59602