Trailing-Edge
-
PDP-10 Archives
-
decuslib10-06
-
43,50437/init.for
There are 2 other files named init.for in the archive. Click here to see a list.
SUBROUTINE INIT
INCLUDE 'BOSS.PRM'
COMMON/HALSTF/ KRASH,KERROR
DIMENSION NAME(1)
KRASH = 0 ; KERROR = 0
LEN000 = 18
LEN401 = 20
LEN402 = 20
LEN403 = 10
LEN501 = 18
LEN601 = 18
C
C --GET PID 'BOSS' FOR BOSS
C
NAME(1) = 'BOSS '
PID = INFCII(NAME,1,0,0,ERROR)
IF (ERROR .EQ. 0) GOTO 10
C
C --ERROR SOMEWHERE...LETS ISOLATE
C
ERROR = ERROR .AND. "777777
IF (ERROR .NE. 0) GOTO 20
C
C --SEND ERROR
C
WRITE(5,30)
GOTO 10
C
C RECEIVE ERROR
C
20 IF ((ERROR .AND. "77) .EQ. "75) GOTO 50
WRITE(5,60)
CALL CALLI("12,0)
C
C --PID ALREADY THERE
C
50 WRITE(5,60)
CALL CALLI("12,0)
10 RETURN
30 FORMAT(' [BOSS: IPCF SEND ERROR...CONTINUING')
60 FORMAT(' [BOSS ALREADY RUNNING]')
END