shields@yunexus.YorkU.CA (Paul Shields) (08/16/90)
I posted this before but it didn't get out.
Rich Saunders asked the net for some 8086 assembler routines that
would act similarly to the int86() function, but use a FAR call
instead of a software interrupt.
Here is my 2-hour hack solution: call86() and call86x(), designed to
link to Microsoft C 5.1.
Please send bug reports to:
Paul Shields
shields@nexus.yorku.ca
------------------------------------------------------------------------
#! /bin/sh
# This is a shell archive. Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file". To overwrite existing
# files, type "sh file -c". You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g.. If this archive is complete, you
# will see the following message at the end:
# "End of shell archive."
# Contents: call86/COPYRIGHT call86/REQUEST call86/build.bat
# call86/call86.asm call86/call86.c call86/call86.h
# call86/objects.z.uue call86/test.c
# Wrapped by shields@yunexus on Thu Aug 16 09:00:25 1990
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'call86/COPYRIGHT' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'call86/COPYRIGHT'\"
else
echo shar: Extracting \"'call86/COPYRIGHT'\" \(483 characters\)
sed "s/^X//" >'call86/COPYRIGHT' <<'END_OF_FILE'
XCopyright 1990 by Paul A. Shields. This software may be distributed
Xand used in other works free of charge provided that all source code
Xversions of this software and its derivatives contain this copyright
Xnotice and license. As this software is distributed in source code
Xform, the author shall not be held responsible for damages resulting
Xfrom its use. If the software fails to perform as specified, you
Xassume all costs of servicing it or repairing damages that it may
Xcause.
END_OF_FILE
if test 483 -ne `wc -c <'call86/COPYRIGHT'`; then
echo shar: \"'call86/COPYRIGHT'\" unpacked with wrong size!
fi
# end of 'call86/COPYRIGHT'
fi
if test -f 'call86/REQUEST' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'call86/REQUEST'\"
else
echo shar: Extracting \"'call86/REQUEST'\" \(2144 characters\)
sed "s/^X//" >'call86/REQUEST' <<'END_OF_FILE'
XPath: yunexus!geac!torsqnt!news-server.csri.toronto.edu!rutgers!mephisto!ncar!unmvax!ariel.unm.edu!hydra.unm.edu!saunders
XFrom: saunders@hydra.unm.edu
XNewsgroups: comp.os.msdos.programmer,comp.sys.ibm.pc.programmer,alt.msdos.programmer
XSubject: More "Far Call in C"
XMessage-ID: <1990Jul9.195959.13596@ariel.unm.edu>
XDate: 9 Jul 90 19:59:59 GMT
XArticle-I.D.: ariel.1990Jul9.195959.13596
XPosted: Mon Jul 9 15:59:59 1990
XSender: usenet@ariel.unm.edu (USENET News System)
XDistribution: na
XOrganization: University of New Mexico, Albuquerque
XLines: 32
XXref: yunexus comp.os.msdos.programmer:48 comp.sys.ibm.pc.programmer:2523 alt.msdos.programmer:1771
X
X
X MSDOS/8086 gurus:
X
X Thanks for the responses. Alas, most weren't what I needed. I'll come
Xclean right away: I am totally incompetent at 8086 assembly language! The
XNovell IPX/SPX and Microsoft XMS interfaces are CALLed, but with parms in
Xthe registers. Sort of a cross between a normal function call and a DOS
X"int 21h" call. Both IPX/SPX and XMS hook into "multiplex interrupt" 2fh
Xand return their main address for the API (damn all these TLAs!) in ES:DI
Xor ES:BX. Then, Joe-Assembly-Programmer would just store the result
Xsomeplace and make indirect jumps through it. Here is an example from the
XXMS docs:
X
X mov ax,4310h ; XMS int 2fh signiture
X int 2Fh
X mov word ptr [XMSControl],bx ; XMSControl is a DWORD
X mov word ptr [XMSControl+2],es
X ; We now have the XMS API entry point
X ; then we'de call an XMS function like this:
X mov ah,00h ; function code for "Get XMS version number"
X call [XMSControl]
X
X Notice how weird that is. It's neither a int86() call nor a normal
Xfunction call. What I need is a general-purpose routine kind of like
Xint86x(), but I'm unable to write one. e.g.
X void farcall(void far *api_entry,
X union REGS regstuff,
X struct SREGS sregstuff);
X I hear some of the mega-optimizing compilers have ways of declaring
Xfunctions that take register parms, but I need something for MIX or MSC.
X
X -- Rich Saunders
X
END_OF_FILE
if test 2144 -ne `wc -c <'call86/REQUEST'`; then
echo shar: \"'call86/REQUEST'\" unpacked with wrong size!
fi
# end of 'call86/REQUEST'
fi
if test -f 'call86/build.bat' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'call86/build.bat'\"
else
echo shar: Extracting \"'call86/build.bat'\" \(50 characters\)
sed "s/^X//" >'call86/build.bat' <<'END_OF_FILE'
Xmasm /Ml call86.asm;
Xcl -AL -Zi test.c call86.obj
END_OF_FILE
if test 50 -ne `wc -c <'call86/build.bat'`; then
echo shar: \"'call86/build.bat'\" unpacked with wrong size!
fi
# end of 'call86/build.bat'
fi
if test -f 'call86/call86.asm' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'call86/call86.asm'\"
else
echo shar: Extracting \"'call86/call86.asm'\" \(2512 characters\)
sed "s/^X//" >'call86/call86.asm' <<'END_OF_FILE'
X; Author: Paul A. Shields
X; Hand-coded from MSC 5.1 output of call86.c stub.
X; July 11, 1990
X
X TITLE call86.c
X NAME call86
X
XCALL86_TEXT SEGMENT WORD PUBLIC 'CODE'
XCALL86_TEXT ENDS
X_DATA SEGMENT WORD PUBLIC 'DATA'
X_DATA ENDS
XCONST SEGMENT WORD PUBLIC 'CONST'
XCONST ENDS
X_BSS SEGMENT WORD PUBLIC 'BSS'
X_BSS ENDS
XDGROUP GROUP CONST, _BSS, _DATA
X ASSUME CS: CALL86_TEXT, DS: DGROUP, SS: DGROUP
XEXTRN __acrtused:ABS
XCALL86_TEXT SEGMENT
X ASSUME CS: CALL86_TEXT
X; Line 24
X PUBLIC _call86
X_call86 PROC FAR
X push bp
X mov bp,sp
X push si
X; addr = 6
X; inreg = 10
X; outreg = 14
X
X;inreg
X les bx,DWORD PTR [bp+10]
X push WORD PTR es:[bx] ; ax
X mov ax,WORD PTR es:[bx+2] ; bx
X mov cx,WORD PTR es:[bx+4] ; cx
X mov dx,WORD PTR es:[bx+6] ; dx
X mov si,WORD PTR es:[bx+8] ; si
X mov di,WORD PTR es:[bx+10] ; di
X mov bx,ax
X pop ax
X
X call DWORD PTR [bp+6] ; addr
X pushf
X; outreg
X push ax
X mov ax,bx
X les bx,DWORD PTR [bp+14] ;outreg
X mov WORD PTR es:[bx+10],di ; di
X mov WORD PTR es:[bx+8],si ; si
X mov WORD PTR es:[bx+6],dx ; dx
X mov WORD PTR es:[bx+4],cx ; cx
X mov WORD PTR es:[bx+2],ax ; bx
X pop WORD PTR es:[bx] ; ax
X pop WORD PTR es:[bx+12] ; cflags
X; Line 33
X pop si
X pop bp
X ret
X nop
X
X_call86 ENDP
X; Line 39
X PUBLIC _call86x
X_call86x PROC FAR
X push bp
X mov bp,sp
X push si
X; addr = 6
X; inreg = 10
X; outreg = 14
X; segreg = 18
X
X push ds ; save ds
X
X les bx,DWORD PTR [bp+18] ;segreg
X mov ds,WORD PTR es:[bx+6] ; ds
X push WORD PTR es:[bx] ; es
X
X les bx,DWORD PTR [bp+10]
X push ax,WORD PTR es:[bx] ; ax
X mov ax,WORD PTR es:[bx+2] ; bx
X mov cx,WORD PTR es:[bx+4] ; cx
X mov dx,WORD PTR es:[bx+6] ; dx
X mov si,WORD PTR es:[bx+8] ; si
X mov di,WORD PTR es:[bx+10] ; di
X mov bx,ax
X pop ax
X pop es
X
X call DWORD PTR [bp+6] ; addr
X pushf
X push ax
X mov ax,bx
X
X push es
X les bx,DWORD PTR [bp+18] ;segreg
X mov WORD PTR es:[bx+6],ds ; ds
X pop WORD PTR es:[bx] ; es
X
X les bx,DWORD PTR [bp+14] ;outreg
X mov WORD PTR es:[bx+10],di ; di
X mov WORD PTR es:[bx+8],si ; si
X mov WORD PTR es:[bx+6],dx ; dx
X mov WORD PTR es:[bx+4],cx ; cx
X mov WORD PTR es:[bx+2],ax ; bx
X
X pop WORD PTR es:[bx] ; ax
X pop WORD PTR es:[bx+12] ; cflags
X
X pop ds ; restore ds
X pop si
X pop bp
X ret
X nop
X
X_call86x ENDP
XCALL86_TEXT ENDS
XEND
END_OF_FILE
if test 2512 -ne `wc -c <'call86/call86.asm'`; then
echo shar: \"'call86/call86.asm'\" unpacked with wrong size!
fi
# end of 'call86/call86.asm'
fi
if test -f 'call86/call86.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'call86/call86.c'\"
else
echo shar: Extracting \"'call86/call86.c'\" \(1216 characters\)
sed "s/^X//" >'call86/call86.c' <<'END_OF_FILE'
X/* call86.c - "stub" for calling an assembly language function from C.
X
X Author: Paul A. Shields
X Date: July 11, 1990
X Features: Function calls were built to be analogous to
X Microsoft C 5.x functions int86() and int86x().
X
X **** NOTE! this file is provided for completeness only!
X it is a stub which will not work as coded.
X To make this work, I compiled as follows:
X
X cl -AL -Ox -Fa call86.c -c
X
X then edited the assembly output file as needed to insert
X the proper code into the stubs.
X */
X
X#include <dos.h>
X#include "call86.h"
X
X/* w/o setting up segment registers: */
Xint call86(void far *addr,union REGS *inreg,
X union REGS *outreg)
X{
X outreg->x.ax = inreg->x.ax;
X outreg->x.bx = inreg->x.bx;
X outreg->x.cx = inreg->x.cx;
X outreg->x.dx = inreg->x.dx;
X outreg->x.si = inreg->x.si;
X outreg->x.di = inreg->x.di;
X outreg->x.cflag = inreg->x.cflag;
X
X return inreg->x.ax;
X}
X
X/* with setting up segment registers: */
Xint call86x(void far *addr,union REGS *inreg,
X union REGS *outreg, struct SREGS *segreg)
X{
X outreg->x.ax = segreg->es;
X outreg->x.bx = segreg->cs;
X outreg->x.cx = segreg->ss;
X outreg->x.dx = segreg->ds;
X return inreg->x.ax;
X}
END_OF_FILE
if test 1216 -ne `wc -c <'call86/call86.c'`; then
echo shar: \"'call86/call86.c'\" unpacked with wrong size!
fi
# end of 'call86/call86.c'
fi
if test -f 'call86/call86.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'call86/call86.h'\"
else
echo shar: Extracting \"'call86/call86.h'\" \(277 characters\)
sed "s/^X//" >'call86/call86.h' <<'END_OF_FILE'
X/* call86.h - protoype statements for call86.c
X Author: Paul A. Shields
X
X built to be analogous to Microsoft C 5.x functions int86() and
X int86x().
X */
X
Xint call86(void far *,union REGS *,union REGS *);
Xint call86x(void far *,union REGS *,union REGS *, struct SREGS *);
END_OF_FILE
if test 277 -ne `wc -c <'call86/call86.h'`; then
echo shar: \"'call86/call86.h'\" unpacked with wrong size!
fi
# end of 'call86/call86.h'
fi
if test -f 'call86/objects.z.uue' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'call86/objects.z.uue'\"
else
echo shar: Extracting \"'call86/objects.z.uue'\" \(6122 characters\)
sed "s/^X//" >'call86/objects.z.uue' <<'END_OF_FILE'
Xbegin 600 objects.zip
XM4$L#!`H````&`-(;ZQ24+R0@)P$``&8!```*````0T%,3#@V+D]"2@\`$@,D
XM%38G.#EJ>TR=;A\)!@$3-.7VEO<!,P2H<&Q8MFQQVG09=F[;^)9I2&^0Z%&I
XM3ZM"'2ATZE2"1(-2#4IPZ%.B10E^<?:%0X,R99+^5ZI%L5(M^&5;"VSO="K5
XMU)@/`D3:&N#!@@&_)(O0(R08D$$RG3!A0`/)M,&!`1]J1@A0X/^!_PG^%VB5
XM<0.\__HU[%BY=.O.+4L6(%'(&L0/>/#+4A16CD"9Q*MD>=F("1`O.F!TT+'$
XM0[[J8O96B7M5:/+_39.+CPH8_BF!X:\:&/XN@N'_*ER,'>M_KP8Y0UT\;'R'
XM)A-!-QRV)P+W1.B>"-X?'Q#^*$.O79=#2EH]F"_1I..O!IPVJG7Q02A5`_6`
XMU:0!>&4$;T<7-B!_$%M9*A80UW102P,$"@````8`UAOK%)<-BO1+`P``Q`4`
XM``@```!415-4+D]"2@\`$@,D%38G.#EJ>TR=;A\)!@$3-.7VEO<!(P1HD&[9
XMN71=C@V)^,"S-YT*<JA;Q`F0_\R4:5*A0XN61&Q@^<XPV3Y5AZRA`PZU>M.R
XM%.0-$CTJ]6E5J`FI%IU*]0OQ6*D2'/J4:-&"7XD&I1J4`+$6>-Z)]@2_"ITZ
XM=<"P'R1)DFI6*.S=7U0(LB=P?FK6ID*?,H%FRAX>$]\C-0IP(,&`RY(%[`L:
XM#-@@F3YX,*""9!IAPH`'DATD68`,&P8<EJP%!RI<&'"DIB$O\/_`_P3_"[3*
XMN8'Y`P,*%!@@Z8$&+!H0...6`!5^_1IVK%RZ=>>6N1_AU[%AV;+%:1,/^5_-
XMUB'[KVW#IG53;=:C73.DUP(\#;G"_P&V.4#!=[QI!\GKC8B8`/2B`T8';6$^
XMY",&&/ZN@"#B!`6TGYV3]=3Z?B!,T!(!<'O5Q>QG`M?$K8O+=UW.A=N9&[1:
XM4"9H%OV(JE<0;/W46T^8=CW32`)WZT].19BZ1:L$KE;TH!]<O8.K%3=*`%AS
XM?E3K`:J/"9H'U:.XVA=0^T*"\O\G%%A@?[EESS(D2&[9#;ZM2X>98__/@#DA
XM?8;9R@?_OTSY9MW"T9X%7C3!EZ#0=,",`(\;!0^`V,41W]@H=HM0B"='K/*(
XMQQ6]+N&E0MF;#R8.\3LG-,U<I%6!R#MP-74-PR-'<.P#AE\)JO0N"$;I!<I#
XMEC>?HGU073B@$"3QOJ`Q3$\1`)MIG`#<7@B;T5^.0MF[F'^'3_E"$MS`DZQ(
XMX7D&[%;\2(`/Y-TPZ(0#%,<#%#V@8135YX5[<-`2'UQ0H&"$5Y]*)2JUZ-&I
XM:0.TX;^#"P,0!CF@"^P%"PR+%Y'F+U!,<?,+'%,\@>+)%&^@^+EI$2-8MN(5
XM"BXXUBS;L&<1,P!;@2(<?`#L$8#M0K/$=F#3&<!VP@"$@0T88VS.9FP-BQ9Q
XM@+2=3=HJ9OD!;SN;MZ5V1UP@;6=3MY)9#K6'<&0;>P7"+TB?@-CT`;%]`/0&
XM)/L%4'N`N32`>EX?(2HG.+A!]@[4+SAEG6[P9@BO!.LX/:%T[!R^=>X<,[/B
XM#?@):AGP?\,P;UCOG#VZ(-"!&`:`VZWK`@YT*P^*9)/&%4C[X,``J'EQ18;B
XM=%!+`P0*````!@#8&^L4&G"2D:4+``"$%```"````%1%4U0N15A%#P`2`R05
XM-B<X.6I[3)UN'PD&`1,TY?:6]YMJC0S0($",`$$"#`SP_W]%T"-D'YPBP(<`
XM/6Q[`.:*_<*P]QAV&\,>8M@5`G0+\$.X_QCV(\/^:-@I#7NF8;<U[+R&'=BP
XM5QMV;<,NZMWY!SC>KH#A%0T[M&'/-NPY"S[@`^#_@@$76'4Q^YG`-5MZ@B\N
XMWW59L^-&"<"9'S<*'@"QBR.^L5'L%J$03XY8Y1&/*WI=PDN%JADJ0((`!Q.'
XM<$]:)>Y5H<G_-TTN/BI@^*<$AK]J8/B["(;_JW`Q=JS_O1KD#'7QL/$=FDP$
XMW7#8G@C<$Z%[(GA_?$#XHPR](#VDI-6#^1)-.OYJP&FC6A<?A%(U4`]831J`
XM5T;P=G1A`_('L65(H&G#;!Z2I\"Y`IN#_*W&2-L4"'#E_<#^`4*4.]`7\?H=
XM7P],W'_`_7,I6ORHF<V5K$WE^1>ZX[C_,ZE_,'G_-A.;1`J`V(GD;SPVP>G@
XMD=H<+13@P/N)C';&PU=ZO[^=MI+S;3+VF!N@Q8/\?\L/<+S`E<^(?KZJIQTQ
XM@:/7#(YJUVP/M0SZF>W_V_1F&-OD-NS:AAW;L%OCWL%81O?!!M.'XP)KQ]AQ
XM#X#[XP:-`HBN30ZE*B85MQG8AUU;MU[W(%:H-O];%!A`K.QW@+R1,-.C=\TU
XMP!K')_9X*JL-I@;H\(/S)77_!A`=WB]VZ##@>)>.#7!5%K?)$F!Q@Q`#,M8^
XM<UO1>V08<&Z![]-?#6B#>@K4OFMOJY;IVFD'[8^WZ3CXS/\F`9':=%GF9@C0
XMMV:`\TW379C[_Y\R+]]UW8SKRQOT>"#L[_\6#I`UYLBL_0.G&Q"I:O'W@'Z7
XM[PWX%/6_C)K(4,M5:%\X8+H%`3^"'NC2O.=]8PSX2WCTJ`$@DY\!+C=NT!WL
XMOGZ`G-U7$4.BHU_$C0L&@&>2`)LG&$"<RJ;1B.-?PK0N,_D"OI=H[VBMNW"P
XM'UN^;@'0W@"91@?+47.Z!L:6M%]$/2W.-RKQ@[L.OS>KQ^(63_W)2UC_$;!/
XM=.33;>@1=#HT;5'=%IO6X3OOSW4X^#W!Q047%A5(5_[_CNO=#]M,Q<T?@.O1
XM@WW*HS>P]@@?@!5DFN66XO+Z]#C]9]6ZF/M*['(7[O2('Z#<@HO'2XVZ3/C0
XM])146!'Q]!C]_W>QO-69]G-E[C+)\V<M$[SX_8#I5Z4;0?<Y[@!.$\CN=?EC
XM@_HBX0;JKLT#Q&DA]J>;P@R,>!:S[^)XQS,U#X@-72$LO/_HT<0^1KTSU.SW
XMHR^._LM_7P-_1ZCCK'F"I+N?9T*Z]WDVI/M6@9Q>>]2)M**3=G+2SD7:L?(4
XM29<D3ZYT!PI=3WYF\J"LE%V?M!,<&'W]],7!HZ>?&!UUP+K*UP?`-_A7P/N)
XM;M<%3[.#![\-'BU]_27+BZID^X'7CT8_%YSQ0@&+][]2_&+BHQ0KP4RRFO4'
XM[C/,6O,?D/E5@8.'$RQN`\BS5N7U=?7IY3;VDMYOS*L",GS=@>D)`P#W@>O]
XM0KI'/)E;"W=I7KD8K]S+4G["*U7U9&B#L+F@QNNC%0=6Q\]I7@3SQ:3,7<R[
XM"G"_-4])&6:>SC9/6IK79E,9EC]^`!)-42*N\=>W>5KE+<&OSR].OSA_DMO4
XMA?;I0G1L+#'W`>MV=%:X2!G67_0R4)+^%_>/7B[X`:[[QZN_$P)H+/^Z^-GT
XM`_$G=LGM2B9K@>:.O7G>2<=?#,QSYU"Z"1/[J=[(F2].8$NT^/2)G0(07D#_
XM7617]E:K5^1?;-6@;Y`!6^\41O=`+=-E>(FL%H^EQNO76_[J)=V5"U#7J__M
XM&M1,L`!O<9"2%^LS)V3O))IEN(EHZ=,&@EA_L:<70Q]HH)*66S.G@=AY;HE]
XMAQH=>^R!T]$SSKYHSKYR^<#@CH<M?IFD6.5")`D?B2QYY<4NXK/4AL/^>'J3
XM^TXJZ*D@I=9UVY)JVK9E03)-*U9N6+EY0;8$.?0MW+QRTYY%@]4HQZ8$&3,G
XMSIPL039-.U;NV[EOS=+I=KEP(?1S<IL]0#4W&W`&9X7&OQI-RK3HUZ1.C3XY
XM!RQ-/7#@P`$#?`.1W%4^9!J<%PM.L%JF?06S>Y!Y\G0BI8_Z2#V7:A,F3)@-
XM%3#IN73#CET+\JW=LG+-LGU[)SJA;5MG;&M:MW3+GL$>)-FT=M.2">)B^)2\
XM`TP`SG.`J]LW;[H,\766V-'#.3KQS?`I:&MOB;N18_VU&Z5&;%@MQPA.QPCB
XM]'+&S>%$-)=!M-SM8;1W>Q8DW#=PV]0LVMZ>#+X',.<QUN9UV;(1IZ+RL'/G
XM`'YB8WAVIT+*CXZ`S+01-I,(J1:=2M7E4Z%*":Q8;T5-*AP:E"E3G#:L]8$9
XM/1R,9<,S),/[<PF\Z<)TD?5ML,-8UPV`33_`QLF,U3;52Y,$L`V^[=PSVS1D
XM@0:V2077:A:.-6U)'F4]VC5Q?(TUU8J;L(:MV\::TABCXAO&/;V7>];.-K4S
XMWL,WS+:UT<HF6G,QV[!NJG*T9.5LTV8+"MDF(4R--?&W8[BE2GI7X,"O9NO$
XM=-4KL.#7MF'(N`&3:,T?_#KFW-PTE&:.H)G$:\2R^,*O7\.6Q9N6[I<TMR(/
XM$*T,OT@[4:%S[\)YLOLC9]((T_\L)FE^(-H4X[5PD31S!,W4(R[$&:7YZR4[
XMQX$39R)T"GLBW2B.-YS5+6DZP3Y>]E<[>_8QG^=$DUKIU-JL"O9F<+:^MXL)
XM&L."UYW#N1.(BROPBC*R"H#F"Z!I.:3K<IU1S<PL2O0OX[H+SYC4P9:=56D_
XM*YH;_.)NN#,YEF3,LL[-L1E;TFG9D@76C+LUTWQ9>UGS`VZQ]*UMXU]0W\?J
XM#K"-%:WIMK$K&]C]33=HG@Q0#`VK6<Q]A6/2$>78EH:UR^L='-&]SRV)A&F0
XMPK"(A9>5]G)&MGW#N=]RQN9HDK%<!F-BSI;9X:7JV-%VV7C]6'#LZ+-MX=*5
XMJVD,Z#%99^??HGO&VHWQ#GOVU#=JRR:JONL;/0?+G-<S'%Y:&T`<"-1J\EYK
XM1W%>*2!-`NUCVF!BN*Y87^$XF26Q^5=!\P)OV5`'NR(OL`6>ZQJSLK,IFCM8
XMWJC1+YSD0H,Z=5I4*KRMT&3%GNE]\STZ@>]1SPZ)GB&)H?FP</$5'N6J+T4:
XM-2H]W,;#B#4=5C<W+]>2.^;KM"YG9K@VR2)=GEXK)#)1T@)87A;<.(O;DCP=
XMQ9<:(<_8K"L!!)C%6R30+ZH\5JHOHCF#:/*JU"34FY%F]-XVSZMS>7]@K6.-
XM[&$&8<Q*`/&<C,IS0,.HW#POW(.#"23T"PH4C/#J4ZE$I18].C4-R1K@W\&%
XM`0B#'-`%]H(%AL6+&$#Q8HJ;7^"8X@D43Z9X`\4I><0(EJUXA8(+CJE]1<P`
XM;`6*</`!L$<`M@O-8E9@TQG`MIJ4,+`!8XS-V8RM8=$B#I"VLTE;Q2P_X&UG
XM\[8<<<0%TG8V=2N9Y0\&A'!D&WL%PB](GX#8]`&Q?0#T!E;]!5![@+DT@'I>
XM'R$J)SBX0?8.U"\X99UN\&8(KP3KR\X12L?.X5L$;F9FQ1OP$]0RX/^&8=ZP
XMWCE[-!6RI@$G\-&O"S@P&<9?H`!IM`)I'T3`1\TC!D#80K!7$&R7Y0(@]@$%
XM3@SH0&([3@"\W\]6@@0TMA9H]A2Y.8$7\@0L.^?EB.09$B2W[`8.\G28.?;_
XM#)@SC<\P6_G@_Y<IWZP;4[.F"][`;O3KNQQ;(*(:0A*N9\"T%3_BX1O8KD"C
XMGE3HT*(NBIV#G.VI(HI6!."6[N#*`N,!R?ZS0*[X0`+)3L3;\KI`LJ-*]@[Q
XM+J#8DK\0;\E'#3!-/81I3'N&:4O>S;3GF[:&<9-IYS!MR9_9X)P:VV;U:::)
XMY'>X#*]Q;F5=Z&DB>3C3_F#:IC"G::(Q;=I?3)O?SYHFDG<U[22FK<LK>YI(
XM7MJT0YBV.6]NFDA>W#2YH-FFJ>3E37N)::O2'OKB`I+]PIL=Q9MZ]F)EMN=4
XM@LZ3>H!02P$""@`*````!@#2&^L4E"\D("<!``!F`0``"@```````````"``
XM````````0T%,3#@V+D]"2E!+`0(*``H````&`-8;ZQ27#8KT2P,``,0%```(
XM````````````(````$\!``!415-4+D]"2E!+`0(*``H````&`-@;ZQ0:<)*1
XMI0L``(04```(````````````(````,`$``!415-4+D5815!+!08``````P`#
X+`*0```"+$```````
X`
Xend
END_OF_FILE
if test 6122 -ne `wc -c <'call86/objects.z.uue'`; then
echo shar: \"'call86/objects.z.uue'\" unpacked with wrong size!
fi
# end of 'call86/objects.z.uue'
fi
if test -f 'call86/test.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'call86/test.c'\"
else
echo shar: Extracting \"'call86/test.c'\" \(251 characters\)
sed "s/^X//" >'call86/test.c' <<'END_OF_FILE'
X/* test.c - try to test call86() and call86x(). */
X
X#include <dos.h>
X#include "call86.h"
X
Xvoid far fu() {}
X
Xmain()
X{
X union REGS inreg, outreg;
X struct SREGS segreg;
X void far *fnptr = (void *)fu;
X
X call86x(fnptr, &inreg, &outreg, &segreg);
X}
END_OF_FILE
if test 251 -ne `wc -c <'call86/test.c'`; then
echo shar: \"'call86/test.c'\" unpacked with wrong size!
fi
# end of 'call86/test.c'
fi
echo shar: End of shell archive.
exit 0