Path: utzoo!utgpu!water!watmath!clyde!att!osu-cis!tut.cis.ohio-state.edu!bloom-beacon!bu-cs!purdue!i.cc.purdue.edu!j.cc.purdue.edu!pur-ee!iuvax!bsu-cs!ibmbin From: W8SDZ@SIMTEL20.ARMY.MIL (Keith Petersen) Newsgroups: comp.binaries.ibm.pc Subject: priac, reads/writes inter-application comm. area v1.1 Summary: priac11.arc, reads/writes inter-application comm. area v1.1 Message-ID: <4461@bsu-cs.UUCP> Date: 23 Oct 88 17:00:45 GMT Sender: ibmbin@bsu-cs.UUCP Followup-To: comp.binaries.ibm.pc.d Lines: 211 Approved: dhesi@bsu-cs.UUCP [ The program PRIAC.ASM, that reads the inter-applications communi- cations area, was earlier posted to this newsgroup. Here is an enhanced version. -- R.D. ] PRIAC1.ARC Inter-Applications Communications area expanded demo. v1.1 has .COM format, demonstrates how to read AND write data to the IAC for later program use. Original and tweaked .ASM source and executables. David Kirschbaum Toad Hall kirsch@braggvax.ARPA [ Uudecode this article or feed to the "combine" script. checksum size (bytes) file 33015 9160 this uuencoded posting 53332 6626 priac11.arc By the way, it's easy to read or write the IAC from a C program if you have FAR pointers. Here's an example that works with Turbo C 1.0. The MK_FP macro is defined in and combines a segment value and an offset into a FAR pointer. --cut here--cut here-- #include #include #define HOW_MANY 16 /* how many bytes in IAC */ main() { int i; char far *iac = MK_FP (0x40, 0xf0); /* pointer to IAC */ /* print contents of IAC */ printf ("Was: "); for (i = 0; i < HOW_MANY; i++) printf ("%02xh ", iac[i]); printf ("\n"); /* change contents of IAC */ for (i = 0; i < HOW_MANY; i++) iac[i] = HOW_MANY - i; /* print changed contents of IAC */ printf ("Now: "); for (i = 0; i < HOW_MANY; i++) printf ("%02xh ", iac[i]); printf ("\n"); } --cut here--cut here-- -- R.D. ] BEGIN--cut here--cut here begin 644 priac11.arc M&@A04DE!0RY!4TT`7EY>^P8``"41>WSMWE,+```,8]ZT:5/ T$?!HH4)B` M"IHTF@*0-B3!TY&PVV?&.P M($H0;\R`4,DR24TY+1@&@0.'39HQ8>BDH0EBB,`V==P<3;K43<0@&\.`0)$D MR)`4+A0R=-C3*PB((&+8`"$F#YTR$<64.9/&C50W9T`DU4N&C!P0,�@*$C ML!$8:%R`".(FCT2*%C&V!,GPCIPT;\^Z,6.R#56F=-[L7`FBZQ`0G/^"?,/S M[\2*%S.&'ME1,10V'.>48>B&=1D=(*+BGI.2M)DT0Q;,AGD9<;089,G M05T[;];`'M& M,WX[!=$77FQA*=`0:::=QQ9+=>A&!@NHF:29477!'! M)Q!.;K#TFG@,S<83""7B04>!#%UQ&1UO]9<:"$T$,443(-3@`@QL.89$&'(\ MUY\0%+46HH10#"$%7&^\9*%B9.%T&5UNV,=0&$1QE)]F[0UU&1MIY8`##F<1 M5P=+.7&''`B>G1&&'G65H5@1!D$W4TT&1913BJ2)F0:9,9B))D1SK+G55TV] M`4<>5Z*Q7*%G!LE0`I@F0<01C0X4U51*T33'"U"4@9\8)D5Y!AH0^C0&C`8. M661=("#)VDK)I:D7:AN5P4:%)D(6&T&J@;<>&E(A1:9EF)4AAV(R-INB:`]E MM)<,.`#IA&)#8`1'@XL!Z`*$510%TH--!0$""#G$<`,.-MSIQAALO*';KKJQ M8490!G;T(7%EH$MA&W`$#$)!`-9;<(2JC514'K`B))8"3!B10!EQU)$`#$&@ MD<`.(!A5HAEE&#P&&D0JY.3%&6],A,<@(P53&F&WRY%1AAU'[;:0`D5@D031GHU!40)V:&E@&V_8 MD4`02$!(PQ`>(YV$$U2`($,,:"3M+-46@K`V&L"5@8=Y(F9T8FR78@JR?7.( MAK/.'X$0-AMK*K:1N1;ZR89(;\'CAH^4LQS]/:YH6V^5 M9U`" MU*9/^+4P5%&@5M4I5,GZ3'^PPA'S&2@!\CO!5DR3`AV<`$+N`T'%("B%]QE! M(??!#&XPA3&-D:`%Z,,-"2;&.O6QSWH@,.`8W&`'.JP/@=53(`C08$`VE)"# M+?M@"4=X-=P-87=%F!B%3J(#SY7M;%B`$!#(D)0P,.1S"2#"%"`4!"R4KBZ8 MH9E1],`2)M)!*[K)RT;HHAQG,00W88AB$G>B01,>KB]_D:(.B(`%B;RA+C>9 MC=.@EC0Z7`8O3SSB$-:8P?0A;8]U6(YR_IB7$LXD*G0(I-F$L,:?!6UH2&-6 M9F:C-"86"2>)Y*/4\&8U(X(N;7I#3.DR)S>ZV4T.I$PEWT"@29;,YCBX><$H MJ^:Z@\1.DDB$4&`&`[-:)>$)4]!,:CP3JOZ$D2`&`681IK@8*R(-BTJQ3QJX M"()I`G,*21#F88HYQ.7&R0#&V0QRA9NCF$`4`A>X.C'BF3 MWF\(A`8,L'4]#LY&,;K2KT3107:0'SM(Y52:S:=%+W<(26IGF MC!H]:SY92A.EN$%1]7+45U$)`QFT#62LC-TK8]G86=9R5SS["R?I0`:G`9,( MHFN*%,;ZR[$=$:R`<>QG0PL_N;ZNM`G(VM8V5KK>R,$S9,)/&^HB0,?99TT3 M:RD1S\B1*(:S)2QT(=+D2(0DV/&I,>VC26K&$B)QA+AII"2$GA>]Y2Z5DL_M M4W1G6M.=7,0JOVIF'QFY6"KZ#FG:(<&?OX`:&X"&].;4FR/P(DCFDER40%K"# M%S,%FCHWL\#<0G.[X%ZD];2MY#TQRN3@.NDUUZYWQ*MH]-J2&2=-0Q;Z:FC1 MIE:XL)4E)=Q22!(LSL?":4-KB"D<_AOA4EXX*1DN'8?1FY120E'%26#Q8GR7 MU2/WN&<)P-GM:)>`7M,````E$8%\:C:S`@`` M#$VTS`(@`$```"``!`'P[Q\#```(V#@"$:*'B@ M7LL#```[$3U/7RU$!0``#$;DO&FC`\28,W.`U&E#IH:+A61-G;"I'&3HH$")V7NS#DCL`Z<.07'#(3C0LS(,!K+S'&11DP;%W#& MF)Q21XR:,F/H%(2C,CB/IE)'3(@P8:NB]@9YV*W89Y(-OI!8^T4D8(KK M*5?E636:5,>$9$!E)F=P*>@&AU"]"0(<84C(VED^`JD31V8(1*59ZK$IQY1A MCJF>&P;28:(")A&X$8L@4%KJ>=DU5ZE`;\8*0A-!3-$$"`[!`..%2.`DU5E" M"*0FI-5I:A)L&K$!0@PY`,8B;^J9!P(4RTFADX9R<`C"8V>$H<=(94!U40H@ MT`=''AJ=@09X[+H;XWI$'#%??:BY9=8<+T!1AE9RB%&=A@I#Q1YE)W8KQ[<@ MA)OF;7)@%1<(D9911E6#KAKEI:9MM:AT6HV!1L7J8ID&QP%>D649)AF*1AI4 M*BL##MHZ$>`04\*Q)PA!S.8"5%50]6"?!0WH2X,\<2U9G[9G^5!4%$$""X4@<7KEDY);I#I M30A":'30T>"8L>Y4D@*>4Y&&PL_N7=WQ-ZDK$XF=@T`$A6*B\<8=F388QFR` MIF[Q62-I6N=R?U;%\70^[F32$PDWCR&^^GX-N^RO-V@&>%DYY>F)=MF1AG1+ M2$/+?":&,"PD5)23SN788)(U"'`./M/-I-'#H1Z:`I`V),'3D;#;9\8[`@2A!O MS(!0R3))33DM&`:!`X=-FC%AZ*2A"6*(P#9UW!Q-NM1-Q"`;PX!`D23(D!0N M%#)TV-,K"(@@8M@`(28/G3(1Q90YD\:-5#=G0"352X:,'!`P8-"`H2.P$1AH M7(`(XB:/1(H6,;8$R?".G#1OS[HQ8[(-5:9TWNQ<":+K$!"<_X)\P_/OQ(H7 M,X8>V5$Q%#8DY*TF31RYM!Y#%LR&>1EQM!ADR=!73MO MUL`=S5)WP)#,([=AP1#S9+NLF;^5SKVT63,4,\JMFS<,F[<;1;;5ZT8S?CL% MT1=>;&$IT!!IIIW'%DMUZ$8&"ZB9I)ER((U1!H2SP1$&`S-QA,()>)!1X$,77$9'6_UEQH(300Q11,@U.`"#&PYAD08=96A6!$&03=3309%E%.*I(F9!IDQF(DF1'.LN=573;T!1QY7 MHK%#BP'H`H15%`72@TT%`0((.<1P`PXVW.G&&&R\H=NNNK%A1E`& M=O0A<66@2V$;<`0,0D$`UEMPA*J-5%0>L-H1@PLQ0"C##2!,01((E5+Q1D<@ M#,D&F53$!(!1)%.*$V1.8ZAIG7(%0QAX!,/$'$%$+P)](45#Q!.,-( M9RG'<7@%^5:(\9F-X4K]*51EX%"R=P8,#I]L9!!F40@CK M"N'8BG>$D0>$PH$(0AY1GE`V&6_LW)_3S@Y_8>?@UZ$V32/C5;C=0+9.;AB`4G,S*^!4%GD>,99J93/+C0`3A(HT/5 M=D40XH0A@V!:48+0II4;&4\!ZW)"$;!0.Z40!`1+PUU_6!>1$\6&>B`X0AH` M%!%PJA0#OTQI1P4@C@B M/*$*5%#E)F,`RAR>BT@BB1(=OK4,"4QBD5RB4D(IF?&0)$$)/*/"MA!`IIFAP0$`0D0HL$07!G*)#BA M=C*(`1J0YJQGLD2?:``.\LPCHHQ8$2,*D2>F7JD7-G#0EB^QRJ[>N2;%;,1< M%O(3&T3B3X`BID#RI*<]F0"A=Q83H[@$`4=9TI:W,$2EBF2!/@.#!!"L0*;V MH:@9-H0?O7P$BB8APT3+&8/R&"0!`44#0PI"!CU2<@C/2\`4BG"$)M2M=E"H M@A"8D(33/%(*ZCJ!4XAW`E`N=6)--9".IE`%KR9@"%/0`5;G`J'F[?4,$"I" M7O_ZRK>:DY(),,D9K,G3B1:6G'"-)(5.DH#7C"$!)2+21"4*VT]\XF8S1)4#@8%P6`2"L49%4\TQ\'-"YQYE-T8R&U0%6@D@VM/ MX@9FOL440A(4IYF:?29S=0D\.!8HTKT^PA33"4X$'AR81%'#G+;PZ:WGE-(`H1@[/O4W&@_[T9A!J(4]T9H#0<_#WJ^J0F)([8&K&!,*2$OWN M.'TQ"EYT$%$CT'$Y]"P>:AB)F![BVB M9.E/G)%&9J"]06AKHT/;\BQ$L]RY6"(AWUF6\\,PU`56"5"R5D/\!=,4LPGH M,YO:V.8?T?!Y:*/;)6*_-8=/#LZ]LTJ157\NSN8))"1H]6K+SV'`:OT;RPH[6G/$H8_5XVB49YR M>[;-S;]0<2=I($B2N<9D)U>GF.G>WX_S&N1SW8W+VMLTJ$L"AP0(UKV"%;*J M@6T388-;W*:"-PU)X%,94!353P.=*'W&$K=19"?(F[!*G\,"'F,3X7E]CL(! M)!T)S6:;L1;V&.(FS;IE#`E22(LV+=UNH!7D#"H!D[6+U&T#?32X<[B#>S'. MII>`W$6M;@^2$8O3N!6[NJ`5K(7Q@'*%:SP@Q",H]&RB%SEA#;&BG@*I37WQ M5*_(S*J^-%O*O0;-")L,<8/X MM[]./4A4!XS.8,+`O;V1@V?(A)\VU.7!0&7#FG@I:<8^+">0T*'RR MRVG3U`D\W%8-WN93P+G.0XD;O`1=_F9!*T/G$7>7!J15-./&=^<62M"F(@W.<`SA$]68\!%+TKE7G61*&63&ME3 M)'+(!G#`9@92+QXA!KJ511&G%=#%*R/2?G(8:O0&-BU#8Q3U'9T(3BDA&FX( MAV08-Y>":SI4-A9>6B?6R@8KH7M^A%&Z@*+&(?'.84YT$`T20311%!<[2 M@DG!$EW(6P)2@T'G)"]@23*%6PF@'/9R!PQQ?"SP'*KH7`<#'BM`3)DX=QE7Y9W3)FW M7,WT>IY'8*&'8*174*O@U**W7>8T'8+-G(`1WC2]E0R;!$K>6B1Z8 MA/:&22%1<.[HAY'$B6+S?(_6A)IUCD(YAWC'`C/G7A,!%P4577C@:(XR$]/U M@A2I7OBT&$S@7MJQ,0'Q*$8&3L)FA_F$:Q$G%6(@!C\C70;!$+4V?4'`4DWQ ME1;H=E?)EF[)$N1S!V[`$`&4%'>55UM`0%W@7K<#$G,@0&66!FWY,V^#/"UQ M07\1A=(X!Y"HBC<9,I2I2_FH7G9Y3^ZU$=)8-M"U)2&Q4NKG2A3E&7-0=Z$! M!RP"F7TIF`)4F#IPF'B0F,6TF%;AF-Z8F9M)>J%1-J`9FO644R<@A&U53"

0`DMYA>7N0````[$=U. MJ$3N````#+IB!:4\.@*&3@(`72)S04"HD*%#7`"8./0`42)%EBY_ MB83Y8=@O?P%VA1JXDQ\K=!L`B-.'JX&"51T_8EOT3!?4%0Z(-V9`)-%<1DZ+('#@L$DS)@R=-)E!8&[3IHX;UJYANP$11$Z9,"!0 +)`DR)(4.KUX!&@!< ` end END--cut here--cut here