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