Google
 

Trailing-Edge - PDP-10 Archives - bb-jr93e-bb - 7,6/ap017/sclink.c17
There is 1 other file named sclink.c17 in the archive. Click here to see a list.
 INS 62/4	;17C1
		EXT TIMBAS		;Fractions of a second for time computation
 REP 47/99	;17C2
		IMULI T1,^D1000		;MAKE IT MILLI-
		IDIVI T1,JIFSEC##	; SECONDS OF UPTIME
 WIT
		MULI T1,^D1000		;MAKE IT MILLI-
		DIVI T1,JIFSEC##	; SECONDS OF UPTIME
 REP 34/116	;17C3
		CAIGE T1,SC.VER		;SAME AS OURS?
 WIT
		CAIGE T1,SC.VER		;Same or greater than ours?
 INS 48/116	;17C4
		 RET			;Error - Caller will handle
 INS 56/116	;17C5
		 RET			;Error - Caller will handle
 INS 64/116	;17C6
		 RET			;Error - Caller will handle
 INS 77/116	;17C7
		 RET			;Error - Caller will handle
 INS 37/117	;17C8
		 RET			;Error - Caller will handle
 INS 17/118	;17C9
		 RET			;Error - Caller will handle
 REP 10/119	;17C10
			    CALLRET SCEIVM ;--INVALID MESSAGE EVENT
			  IDPB T1,FREE0	;STORE IN CONNECT BLOCK
			  JRST .]	; AND CONTINUE UNTIL WE RUN OUT
		RET			;RETURN
 WIT
			   RET		;Return the error
			  IDPB T1,FREE0	;STORE IN CONNECT BLOCK
			  JRST .]	; AND CONTINUE UNTIL WE RUN OUT
		RETSKP			;RETURN
 INS 13/136	;17C11
	IFN FTLOCK,<
 INS 26/136	;17C12
	>; END IFN FTLOCK
 REP 40/139	;17C13
	PARAMETER(^D510,,,<1>,%SCINT,<CALL [IMULI T2,TIMBAS##
					    MOVEM T2,SCTINT
					    RNMXOK]>,<
				      CALL [MOVE T2,SCTINT
					    IDIVI T2,TIMBAS##
					    RNMXOK]>,<
				      CALL [IMULI T2,TIMBAS##
					    MOVEM T2,SCTINT
					    RNMXOK]>,<Incoming timer>)
	PARAMETER(^D511,,,<1>,%SCOTT,<CALL [IMULI T2,TIMBAS##
					    MOVEM T2,SCTOTT
					    RNMXOK]>,<
				      CALL [MOVE T2,SCTOTT
					    IDIVI T2,TIMBAS##
					    RNMXOK]>,<
				      CALL [IMULI T2,TIMBAS##
					    MOVEM T2,SCTOTT
					    RNMXOK]>,<Outgoing timer>)
 WIT
	PARAMETER(^D510,,^D65535*TIMBAS,^D1000,%SCINT,<MOVEM T2,SCTINT>,<MOVE T2,SCTINT>,<MOVEM T2,SCTINT>,<Incoming timer>)
	PARAMETER(^D511,,^D65535*TIMBAS,^D1000,%SCOTT,<MOVEM T2,SCTOTT>,<MOVE T2,SCTOTT>,<MOVEM T2,SCTOTT>,<Outgoing timer>)
 SUM 199658