[Oberon] monitoring an RS-232 interface.

[fischer at inf.ethz.ch]

On Sun, 15 Jun 2003 Peter Easthope wrote:

> Here is a rather unusual problem.
> I want to monitor the serial interface
> of an external modem.

Here is a Bluebottle module for tracing. The Bluebottle machine is an observer
inserted between another machine and the device it is supposed to control,
for example a box recognizing AT commands.
Bluebottle is totally transparent.
It should run on the the latest version of Bluebottle which has the new
AosV24.Mod - Comments are found at the end of the source:
"In Bluebottle, the generalization of the serial port support lead to the following adjustments"
etc.

This is an extension of an original idea of Thomas Frey, me being in need for
a solution to the same problem as Peter seems to have. 

A defective connection hindered me to reply earlier. Sorry.

With best regards,
André Fischer

AsciiCoder.DecodeFiles % AfiV24Tracer.Mod ~

HGbkO at ZFFlBGRnfa>GGjdbNGRnfaP04`24^3ln8d8LX3m]\m]bi0M0=:K3;M6P<m]SM]UU<3`QnF
gBGinFf>W1hCUkI>@6[0^MQVdR:E`80531808PWAh7 at 1;03hC5KIUkKMK<QY;WjHM[;=ZKYc7l0D
P?E\UE>XHMiD7[K0b06`7D0<P<8E`7<9DP?h6H0T583231`7D583b2l1A15P^0\HP@@060=5bPAQ
1l1i5bPn2O`W60383R3 at g705h3F2@l605PSP1 at 9:0bP41lID0>160]05PT04=83f0l1g77hC5KIU
3]YHMiD73P50<01807h3b00TP?E\UE>4VYeUCM\^1X20;030X0L0<00L181B0l1`0BP70O0816P0
`70BP40O081RP0X05d4P?0:0A0300E03H0J0l1`06P10O0H0V0l1P1H0`706P60O0H060l1P182`
706P90O083VP0`70bP8P2<1C0VP107`2P?Lo1 at 02@ho0KjC9JEIJA1I@=KJ]Z<Y9EUKH7KIUk>19
:EY:1I@[:EAjCU:85I@=JB5i>19D[ZDQjCWJA1Y8YZL3kH2BjRfb2baRf`:g`>FjFFi>G at JFfnfk
VFgNF at BGd:ggFgcRF at BgknF@>gb:gd6Ff2BhnFiBgi:B at ZbDf`6VdV2eW:EZf`46dg>gQnffff`j
Fb>GF2bPnfiVdWbB at 64KjK9KMIKIW;;1I at lYeU^\4T1m=]Z<Y9;1iDY[LC[K?kLgI3K8Ec:D;J3C
hD;[LCS at m]bU^DE>D^P\WPlY2EY5MXD]Q9dZ1EZ=<Q94^_E^d5Tj4T1m]cQ^4Z_E>gI3CH2WKIS;
8e98IjCMjACZCYj>C8:E98WJISKM;[K7KI1YK[KK5KIU;8O[I19MAKJW;8WKIV6112Bj:74TZ<5C
H27;J1Y>1i at AJ@Uj>KH2CXEU9=_[LC;M;[L1Y>1I@<9MiEUKJh>C8:Ea[:gdB71IMWKI9;85KN19
MAKJPY10@@03;KC[M;;8e985jCO:C;J at Mj>KH2:gb>G at ZC@b4P=<Q=<Q at EZ?MX5UXEEZ55TV<Y^=
]d5Uc]\aeY_UUP4^_AWnFF2Ba2gi2BM22PYLW=<Q2]X7=Y>]Q9<188eI?1I at OkL]2?JIY;DO[LRB
hnFid9Ci>KH2C8LX;O:L;[KAYHQkLI98a9;1I at 0QJHU[CO;;1I at 0W:MO;LS9;1YL;kLCi>KP9eXP
D^UM^P\WP4VPTZ8]X>]Q9H23jKV4O:L;c[:gd at DJEIBck0I98QkKhD;[K9KIUK:gI3C`4>7\WPL^
U=>f`4V`RjDR^c6V`RjTP<Y^=]dMW9\Q9\Q94:\8`Qbfg>gb^c6V at Q0<<PmXA3:CWJAgI3CH2Q3>
Dfnfi4UY\Q9\X>aQbfgh>f`4:dR@@^gP>DZVD[Fdnf`4V00BEYFeR^c6VPG5Y9UY55TQU]Ye>BdW
f`4<Q`1UJI7KIC[M;;:7;JI98UKIV2HB=2220H2CHBd\Ye]U5TD5Y5I2AY:19ACkLQ;K3KN19MAK
InVYm\Ye]Pl]VII3kHA;87;J338;VFj>G at RfbRG@Jg`bfjFF at 6FgBF@VFj8LUKJM;M3[HIKI1YM3
;KX:CI3<Q9H at l9jBVjfM2bPnfin4VDgBGD>gbTUP4VYLWP<X_1>Ej:gdl\XDTP\U]dWPDWPDTYLW
=P9H at 0AJIa;:OZD9::7;JC9;1I;UI:g9832h at AKHRBAREAVbMP9HBlYBU888m98WY<19EAJA2bPn
6hD04TPDTYLWP0h@`aRfD\X>UX=<Q9<Q9\X<MZ5=QXDUP0``2biBGiFf`fF at nFc2baRf`<<hLNgd
BGd2BjRfbL^Q]]U5T_E>X;1IBM;8O[L9KIU;8YkK1iK5;M3KJM;8Y;JXL;kL[;KY;;KH2C`4PYU^
P<]c5T`E^Ue\UE^QE\\]\\4Tg5]Ue]P<\P\]_U\U]]P<]c5Td]\cU^UU\\4Tdm]P8L;[L3;M;;8C
;M1iMC;MnfjBG at FfaRfg2bF2bj>gb2b`jF at 6DZFDH2banfff6jB@ZbDP9HBL^U=^PLTP<\SU^Ye^
UM^U=>Y:B\1<16faBgd0Z3WKI^c6V0CP1aW at V0P91T50PCad0K1e1KH2<1;ZC^3C`4<9n4Pn0@@0
L845\Q9<1C`RbT9eXP4US5]P\WPDTPDTY4T?EZP4US1Q9AaJ:OZD19:03:FC98Y:B00X81Y8f0VP
5aR2bTJD@>Fd2bA2BH6D\2BZR40490<U\00h at PHA@FDW0C`Rj4`4F4P94UZhDjFb2BjR673332Be
FgiBG@:gb>6T\PT^_9MAKInFjRfb:G at 2gg:Gj2BEVb6`4BGi6faVFgNFhnFiBg]RbiFfh2bE2bHV
B at fdWBD@:c^jB[:CJN7X;7:J3CD>6gI3H2Y300000PE5^T=\d]\X<Uk\1\X<IBD>223jKJ5Bgb:g
fVFg6FjVfgjF at BETH30;J3CH2V``b62BMXA`MP9<8n4>5P3QQ1VFg2bb:GinFi2BAL7hCh at 8:@@0
<9D^UM^\4Td<511 at VH3CP5e9`R064`Y0TZbab:WR<50<9L>b20`Y04Td]\b]=HI9[;5I:08Cf`4F
DW4TC]\b==25B5h>CH2CH2C`6f@[6DY2BiFGgjfdjfcbB at Jfdj6e980@j:7C388e983ZDUJ at c:8U
98OZA1iD;[L0B5FFi\Q9<\SU>L>DWPT9PkH3QZDO2`YFFjfdgBfbZBD2g`:G at ZS@UZB=UPDWP4:^
c6JeP:e6L^j4T1m=72hLM9D3[L3KK;;M;[LWk>KH2MKHKKI1Y>1I at Pa4V`4T?eXPLX81>Gi2BM2b
PnV9aYBGi at YFf`Bfb:gMf at QFdSH3>G at ZcN2Bh6FiRbPnfi>40HHT><Uk\13jKV4ObbjfYBGi0 at D>
GibB at bdRjDD>GG>Gjd[Y<Uk4T1aThD;;MW:MUKJ4UcE^\hLMiLd;gI30:eb6FbBeg^fbjFD>GiXK
3KK;K:gI3CHB=Bg6ff4Tm4TRd\Ye]UETPTZ8A at Jfd88fSDQP\X<MZ55TV=]^1J4HAMbMH at l9L:PR
T:<=2bfnFbFF@:bD^3l90XK3KKVRP08C^3UJAYJEUZC1YCC:CKHAM:A8M`Mf`625HEHAMKH5;KZB
D@@8D<54:^3Pj0720<<B7^3@@ZS1E:00Pc13jKV4W:M at Y`bLWP<Y^5Z_E>I98OJMY;DO3:d`FGb2
BM2BV0X@;2888L45L80``8MH:H@<9n400R2T90H:P9aYF6<=Rbi`iPNi>0D:TZ_1 at g`D\1W:MUKJ
L^^LZd9EOKBM;MAYK3KKbB at VDg25VbM2b6V`P0WjJC;L_:JC;M;kLQKH7KIAiLUK:gI364XD00PY
PC100 at FlYe100W200P11:500H:hD000T55JH<Uk\13R?QCad8:M3C1MJA_::Y[L3327^EHfEF2BH
bB at VDgP\0H2AY:VDg>Gj6FgBgd6FjFF@:C at 6faB72Bj:g`\<W;;1iMAKJ7;J1iMC;KI;85KI1IMW
Cb<]^5TQU]d]\be]Qe]S]<EI:dY51<=PK=VMUUP<V\hC0I1`6D^ee]^ac2BMfSDQk`PHBL:0000:
5000`W0 at D:2PP<\S1jBGjB@:bD44l9T9HHPc1kaF6cMfPB10`Rjf``Mf0PEQ6=]^=\\=]j]\k\Q2
]8HAM:AJddj6P=009JJWKH5;K;[:@@8D<54:^S21V at j:78LhFQAG>Dfn6AaM8M0PaX;7:K0D:00B
dd>7L7:dRN4d\Ye]U1Y2V at D8A;[I3KMI;M1Y:CQ1m=K2X;CZKW;MbFfBeb:W8=\^U\\]\b5U6=]^
1VbMf`RjDR<XV==T:\<MI3KH at OkLMi@3;KI;83ZI0P5e]QE<2BH2bH2bLJCH2C at jG@VDg252bWF7
@a2W=<X_M>000WJIYKC887kK3[LWKIKH at O30000JfdH33jK000TXYM^QQ=LZiM^d]\]eU6E^U]\P
<XV101YOKH37jKIkK2bQnFbFfi2bj>gbDW=4T8=]W5]\=]W5]d]QD=_`]\c5TQe]T5T at E^_M\UU\
eE^UM^=TY_M\[5T1M\a]^YE^U5T_4T<m=DZUU]U=\c]\=4Zb]\VAiFFb2BgnFj6FjVfg8:7kKKcb
jFjVb6FEg>g`Jfb2bGTZU]]`m]b=\b=_PlUPLZd]^`=]T5T_4Tb]\a]^YE>W;83;MYKIM;MCkKMK
3QJIUKK3[K;[KY;87jKKKKH33jLWKIU;MCkKTXUE\em\=0$