!	G E T C P U . B L D
!
!	BUILD THE SEND/RECEIVE AST ROUTINE - RSD1.MAC + RECASI.MAC
!
ON SEVERE CONTINUE
@RSD1
!
!	ASSEMBLE GETCPU.MAC - THE FORTRAN CALLABLE ROUTINE WHICH
!	SENDS A MESSAGE TO ...CPT AND WAITS FOR AN ANSWER. NOTE THAT THE
!	RECEIVE OF THE MESSAGE IS HANDLED BY RSD1.MAC WHICH IN TURN SETS
!	A FLAG IN CPUTIM (CPTDON) SO THAT GETCPU KNOWS IT IS DONE
!
MAC GETCPU
!
!	BUILD ...CPT - THE TASK THAT RECEIVES THE REQUEST FROM GETCPU TO
!	RETURN CPU TIME, FINDS IT IN THE ATL NODE AND THEN STOPS.
!
@CPT
!
!	DONE