Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

!***COPYRIGHT (C) 1974, 1975, 1976, 1977 DIGITAL EQUIPMENT CORP., MAYNARD, MASS.***
MODULE DCR(RESERVE(#11, #12, #13, #14), SREG = #17, FREG = #16,
 DREGS = 4, VREG = #15, MLIST, TIMER = EXTERNAL(SIX12), FSAVE,  ENTRIES=(DCR)) = 
    BEGIN
	REQUIRE	 DATA.BLI;			! EVERYONE NEEDS THIS

COMMENT;

!SPECIAL.BLI
!======= ===

! LAST MODIFIED:	29 JUN 76  BY  CDO

	EXTERNAL
		DCRLEAF,
		KILGROUP,
		GETREQUEST,
		MAKEMSG,
		OUTMSG;

COMMENT;

! ROUTINE DCR
! ======= ===
! THIS ROUTINE HANDLES THE REQUEST FOR DEFERRED MESSAGE COUNT TRNASACTION

GLOBAL ROUTINE DCR =
    BEGIN
	REGISTER
		SRCPTR,
		GHPTR,
		MSGCHUNKS;

	MAP	FORMAT GHPTR;
	MAP	FORMAT SRCPTR;

	IF (GHPTR _ GETREQUEST(DCRLEAF)) EQL 0 THEN RETURN;

	IF .GHPTR[G0TYPEOFSENDER] EQL LEAFTYPE THEN RETURN;

	SRCPTR _ .GHPTR[G0SENDER];		! GET THE SENDER

	! MAKE MESSAGE WITH DATE, TIME, AND THE COUNT
	! MESSAGE: "DATE	TIME<crlf>DEFERRED MESSAGE COUNT = n"
	MSGCHUNKS _ MAKEMSG( PAZ '%Z%?M?JDEFERRED MESSAGE COUNT = %0D%?M?J@', .SRCPTR[S0DFGCNT],0,0,0,0);

	! CLEAN UP
	KILGROUP(.GHPTR, -1);

	! SEND THE MESSAGE
	OUTMSG(.MSGCHUNKS,.SRCPTR[S0PORTPTR],FALSE,FALSE);

	!ALL DONE

    END;


    END;				! END OF DCR