[comp.sys.hp] HP150 AGIOS Enhance_Area: does it work?

webster@dalcs.UUCP (Christopher Webster) (12/11/87)

I'm writing Turbo Pascal programs that call AGIOS functions on an HP150.
I can get all the video intrinsics to work (e.g. Define_Area, Write_Area,
Read_Area, Clear_Area, etc.) except for Enhance_Area AGIOS call (0,4).

These are nicely documented in the Programmer's Reference Manual yet
this one call doesn't seem to want to do anything for me.  Is it simply
broken?

jack@csccat.UUCP (Jack Hudler) (12/13/87)

	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