Trailing-Edge
-
PDP-10 Archives
-
bb-jr93d-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