Path: utzoo!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!mips!spool.mu.edu!uunet!mcsun!unido!hcshh!hm
From: hm@hcshh.UUCP (Hellmuth Michaelis)
Newsgroups: comp.sys.hp
Subject: Re: HP3000 Terminal control
Message-ID: <422@hcshh.UUCP>
Date: 18 Mar 91 09:27:34 GMT
References: <1991Mar17.020416.28523@agora.rain.com>
Organization: HCS GmbH, Hamburg, Europe
Lines: 62

In <1991Mar17.020416.28523@agora.rain.com> kevinf@agora.rain.com (Kevin Fowler) writes:

>Our DP shop is moving to HP3000/MPEXL (from IBM/MVS), and I was starting
>to play around with the FCONTROL intrinsic to see if I could come up
>with a *nix-like stty, or cbreak().  I haven't had much luck yet, and was
>wondering if there was someone out there who has already blazed this 
>trail.  Once I get past this, I was going to work on getting PC Curses
>(or some -alike) up and running.

here is something what i did in porting microemacs to MPE XL using
the CCS-C-Compiler. it switches the MPE-Terminal to complete transparent
i/o mode usable for such an editor.
if you ever get pc-curses up and running, please post the source (or at
least the diffs!)

hpopen()
{
	/* dummy parameter for FCONTROL & FDEVICECONTROL */
	int i = 0;

	/* enable typeahead parameter for FDEVICECONTROL */
	unsigned short si = 1;

	/* our new stdin */
	freopen("$stdinx", "rNH", stdin);

	/* disable echo */
	FCONTROL(fileno(stdin),13, (unsigned short ^) &i);

	/* disable system break */
	FCONTROL(fileno(stdin),14, (unsigned short ^) &i);

	/* disable subsystem break */
	FCONTROL(fileno(stdin),16, (unsigned short ^) &i);

	/* enable binary read */
	FCONTROL(fileno(stdin),27, (unsigned short ^) &i);

	/* enable typeahead */
	FDEVICECONTROL(fileno(stdin), (void far *) &si, 1, 192, 51, 2,\
					(unsigned short *) &i);

	if(ccode() != CCE)
	{
		hpclose();	/* clean up */
		fprintf(stderr,"\nunable to enable mpe-typeahead,FDEVICECONTROL failed!\n");
		exit(99);
	}
	ttrow = 999;
	ttcol = 999;

	fki = -1;	/* init fkey-handling */
}

good luck!


-- 
------------------------------------------------------------------------------
Hellmuth Michaelis    HCS Hanseatischer Computerservice GmbH   Hamburg, Europe
uucp: hm@hcshh.hcs.de  (..!mcsun!unido!hcshh!hm)         phone: +49 40 5501075
------------------------------------------------------------------------------