Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
clock1.c13
There are no other files named clock1.c13 in the archive.
REP 24/76 ;13C1
AOSE DAELOK ;GET CPU INTERLOCK
JRST [REPEAT NLSTAL,<
IMULI P,1 ;ALLOW OTHER CPUS AT MEMORY
>
JRST .-1] ;WAIT UNTIL AVAILABLE
WIT
SKIPGE DAELOK ;DON'T TRY IF CAN'T POSSIBLY GET IT
AOSE DAELOK ;GET CPU INTERLOCK
JRST .-2 ;WAIT UNTIL AVAILABLE
REP 14/79 ;13C2
AOSE DAELOK ;GET INTERLOCK
JRST [REPEAT NLSTAL,<
IMULI P,1 ;LET OTHER CPUS AT MEMORY
>
SOJG T2,.-1 ;FAILED, LOOP BUT NOT TOO LONG
JRST .+1] ;GIVE UP IF CAN'T GET
WIT
SKIPGE DAELOK ;DON'T TRY IF CAN'T POSSIBLY GET IT
AOSE DAELOK ;GET INTERLOCK
SOJG T2,.-2 ;FAILED, LOOP BUT NOT TOO LONG
SUM 110786