Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Path: utzoo!mnetor!uunet!seismo!husc6!mit-eddie!ll-xn!ames!ucbcad!ucbvax!COGSCI.BERKELEY.EDU!bryce From: bryce@COGSCI.BERKELEY.EDU (Bryce Nesbitt) Newsgroups: comp.sys.amiga Subject: Re: Another 1.3 wish. Message-ID: <8707190424.AA10158@cogsci.berkeley.edu> Date: Sun, 19-Jul-87 00:24:46 EDT Article-I.D.: cogsci.8707190424.AA10158 Posted: Sun Jul 19 00:24:46 1987 Date-Received: Sun, 19-Jul-87 07:14:37 EDT Sender: daemon@ucbvax.BERKELEY.EDU Lines: 53 In article <397@sugar.UUCP> Peter da Silva typed: > How about a system calls "DisableRequestors();" or even a > "DisableRequertors(FindTask(0))" to disable any requestors > caused by your actions, so you can run the damn thing > unattended. The latter might be hard, but the former would > be easier. Might even be able to do an Amiga based mini > SCADA system. Pretty good sized market. I posted the equivalent of DisableRequestors() a while back to this very newsgroup. It took about 80 bytes of code. A newer version of that program is forthcoming. > "DisableRequertors(FindTask(0))" This is even easier, in 68000: ---------------------------------------------------------- move.l 4,a6 ;Prepare to call the exec library suba.l a1,a1 ;Set A1 to zero jsrlib FindTask ;FindProcess, really move.l d0,MyProcess ;-- Disable requestors -- move.l pr_WindowPtr(MyProcess),WindowSave moveq #-1,d0 move.l d0,pr_WindowPtr(MyProcess) ; ; Insert your code here... ; ;-- Restore requestors -- move.l WindowSave,pr_WindowPtr(MyProcess) ---------------------------------------------------------- pr_WindowPtr can be found in the process structure. It is described in the AmigaDOS technical reference manual. Also see the include file libraries/ dosextens.i. Conversion of this routine to C is quite easy. > Might even be able to do an Amiga based mini > SCADA system. Pretty good sized market. What's a SCADA system??? Please explain. ----------------------------- |\ /| . Ack! (NAK, EOT, SOH) {o O} . ( " ) bryce@cogsci.berkeley.EDU -or- ucbvax!cogsci!bryce U "Success leads to stagnation; stagnation dgekin)kin)know!now