Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!husc6!rutgers!iuvax!silver!creps
From: creps@silver.bacs.indiana.edu
Newsgroups: comp.sys.ibm.pc
Subject: Re: How to turn off cursor?
Message-ID: <15000050@silver>
Date: Mon, 16-Nov-87 00:37:00 EST
Article-I.D.: silver.15000050
Posted: Mon Nov 16 00:37:00 1987
Date-Received: Tue, 17-Nov-87 03:46:02 EST
References: <2065@killer.UUCP>
Organization: Indiana University BACS, Bloomington
Lines: 50
Nf-ID: #R:killer.UUCP:-206500:silver:15000050:000:1015
Nf-From: silver.bacs.indiana.edu!creps    Nov 16 00:37:00 1987


   People have been writing about changing the cursor, and I wrote
a program a few weeks ago (as a test) to do just that. I'll post
it below, since it's very small.

-	-	-	-	-	-	-	-	-
Steve Creps on the VAX 8650 running Ultrix 2.0-1 at Indiana University.
	creps@silver.bacs.indiana.edu
"F-14 Tomcat! There IS no substitute."


(this is the Pascal calling program. the actual routine is below in assembly.
 input data are the top and bottom pixel rows of the cursor.)

program curs(input, output);
var
	l, h: byte;
 
procedure scurs_size(h, l: byte); extern;
 
begin
	write(output, 'l, h ? ');
	readln(input, l, h);
	scurs_size(h, l);
	writeln(output, 'done.')
end.



(and here is the assembly code)
 cursor		segment	'CODE'
		assume	cs:cursor
 
;	set cursor size: scurs_size(bottom, top: byte)
;	bottom = bottom line (0-7)
;	top = top line (0-7)
		public	scurs_size
scurs_size	proc	far
		push	bp
		mov	bp,sp
		mov	ch,[bp+6]
		mov	cl,[bp+8]
		mov	ah,1
		int	16
		pop	bp
		ret	0
scurs_size	endp
 
cursor		ends
		end