!*** MODULE $RNHBLKDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	PARAMETER rnhblk$k_LENGTH = '00000014'X	 ! length of overhead
	PARAMETER rnhblk$c_LENGTH = '00000014'X	 ! length of overhead
	STRUCTURE /RNHBLKDEF/
	    INTEGER*4 RNHBLK$L_FLNK			 ! forward link
	    INTEGER*4 RNHBLK$L_HANDLER		 ! handler address
	    INTEGER*4 %FILL				 ! reserved
	    INTEGER*4 RNHBLK$L_ARGCNT		 ! argument count
	    INTEGER*4 RNHBLK$L_EVENT		 ! address of the event code
	END STRUCTURE	! RNHBLKDEF
!DEC$ END OPTIONS