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