Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!ut-sally!husc6!cca!mirror!ishmael!inmet!fosler
From: fosler@inmet.UUCP
Newsgroups: comp.os.vms
Subject: Re: Need help with RSX exec routines.
Message-ID: <154900001@inmet>
Date: Wed, 17-Jun-87 19:12:00 EDT
Article-I.D.: inmet.154900001
Posted: Wed Jun 17 19:12:00 1987
Date-Received: Sun, 21-Jun-87 12:52:38 EDT
References: <825@tekcae.TEK.COM>
Lines: 26
Nf-ID: #R:tekcae.TEK.COM:-82500:inmet:154900001:000:903
Nf-From: inmet.UUCP!fosler    Jun 17 19:12:00 1987



	CALL QIO ( 520, 1, 2, IOSB, IPAR, )	!IO.RAL using EF #2
	CALL MARK (1, 5, 2, DSW)	!SET A 5 SECOND TIMER
	CALL WFLOR (1, 2 )	!WAIT FOR LOGICAL OR OF EF's 1 & 2
	CALL READEF ( 1, DSW )	!SEE IF THE SIG. EVENT WAS EF #1
	IF ( DSW .GT. 0 ) ISTAT = 1 !SET THE STATUS FLAG IF EF #1 WAS SET
	CALL CANMT ( 2, )


    Ok, I bite, I compare this code agaist the code that we have used
on both RSX-11M and RSX-11M+.

    First, the QIO is missing a parm before IOSB, the priority which is
ignored, but must be present in call, so the QIO might be failing.  The
new QIO should be

	CALL QIO (520, 1, 2, 1, IOSB, IPAR, IDSW)
        IF (IDSW .NE. 1) ERROR

   Also, on our machine, the READEF is done on the QIO EF.  I do not know if
this is being done because the MARK EF has problems or if that was the way they
wrote it the first time.

Carl Fosler   Intermetrics, Inc
spl1_cf@inmet.eve.com        301 657-3775.