Path: utzoo!mnetor!uunet!husc6!bloom-beacon!gatech!hao!oddjob!gargoyle!ihnp4!homxb!hropus!ki4pv!codas!killer!csccat!jack
From: jack@csccat.UUCP (Jack Hudler)
Newsgroups: comp.sys.hp
Subject: Re: HP150 AGIOS Enhance_Area: does it work?
Message-ID: <347@csccat.UUCP>
Date: 13 Dec 87 03:19:14 GMT
References: <2740@dalcs.UUCP>
Reply-To: jack@csccat.UUCP (Jack Hudler)
Organization: Computer Support Corporation. Carrollton,Texas.
Lines: 48


	This is something we wrote for our package back in 1982 for
	the HP150. This was written using MS-Pascal so you will have
	to adapt it to that other one. I have expanded on it here
	to remove all the macros and structs so I hope I haven't
	left out anything. As to your request for undocumented calls;
	You really don't want to know.. besides unless you want to
	fiddle with the HPIB or call up the Manufacturing test its
	all pretty much open. The operating system that runs the
	screen and peripherals is extensive, to give you an example:
	The firmware consists of 42 2 inch binders that are full and
	the contents of those binders have been reduce to two
	8 1/2 x 11 inch papers on one sheets, I thinks its somthing
	like 32000 pages long and it written in SALT (sturctured
	assembly language ? ). I was real supprized when it arrived!

	Define_template	dw	1
	Define_lrc	db	?
	Define_lrr	db	?
	Define_ulc	db	?
	Define_ulr	db	?

;
; Procedure Define_area(Ulc,Ulr,Lrc,Lrr:BYTE); { MS Pascal 2.1.2 }
;
Define_area	proc	far
		push	bp
			mov	bp,sp
		mov	ax,12[bp]
		mov	[Define_ulc],al
		mov	ax,10[bp]
		mov	[Define_ulr],al
		mov	ax,08[bp]
		mov	[Define_lrc],al
		mov	ax,06[bp]
		mov	[Define_lrr],al
		mov	cx,10
		mov	dx,offset dgroup:Define_template
		mov	ah,68
		mov	al,3
		mov	bx,1
		int	21h
		pop	bp
		ret	8
Define_area	endp

-- 
See above 	 (214)661-8960