 
Т >Mon2 "Т Monitors network traffic and  Т decodes what is being sent (: 24К &80:top=⌠-&200:start=(╦P+&1000)─&FFF00:с=start <Рgo FЮ PщРassem Z[Гєfx(0,1,0)<3 IntOff=&FE18:IntOn=&FE20:ADLC=&FEA0 ▀ IntOff=&FE38:IntOn=&FE3C:ADLC=&FEA0 d#Гі-1:Ъ"LOAD NetData "+ц~start:А n*FX143,12,255 xX=?IntOff:?&D00=64 ┌!&A6=start:!&A0=&1010 ▄Ц P=0 ╦ 1 √P%=&D00 ═[OPT P*2 ╙BIT IntOff ЄPHA:TYA:PHA ЎLDY &A2 х.lp1 рLDA ADLC+1:STA (&A6),Y эINY Ф─ #&81:BNE L217C ПLDA &A0:STA &A1 ЗBNE L2187
.L217CLDA ADLC+2STA (&A6),Y"LDA &A1:BEQ L21AD,DEC &A16
.L2187@INYJBNE L2196TINC &A7^LDA &A7hCMP #top │ 256rBNE L2196|LDA #start │ 256├STA &A7░
.L2196 STY &A2є	.LD34ўLDA #&65╦STA ADLC+1бBIT ADLC+0лBMI lp1ж
LDA #0ЮSTA (&A6),YЙPLAТTAYЧPLABIT IntOnRTI
.L21AD&DEY0JMP LD34:]DМN!start=0:АX(щєfx(A%,X%,Y%):=((╨&FFF4)─&FF00)│256b"щєh(A%,N%)=б"0000000"+ц~A%,N%)lQщєb:УЩ?addr%<>0:st%=?addr%:by%=addr%?1:addr%=addr%+2:Г addr%>=top addr%=startvГ(st%─4) f%=(f% ─ 2)─'Т  P.FNh(by%,2);"/";FNh(st%,2);" ";┼=by%■7щєstn(A%,B%):=д3-╘цA%," ")+цA%+"."+цB%+д3-╘цB%," ")·щРgo╗@Я"Network Traffic Monitor and Decoder, (C)1990 J.G.Harston"'╡Рassem:ч buf% 20╪$Н ┘ Ж:Г і-1 Я" at line ";·:Ю ▀ ЯфCX=?IntOff:addr%=start:!&A6=start:!&A0=&1010:f%=0:im%=3:X=?IntOnпГі-2:Рraw:Аз&У:Уb%=єb:Щ(st%─1):Т Start of frameД.Т Read until valid, abort, or other error:Н8buf%?0=b%:x%=1:У:b%=єb:Г(st%─&80):buf%?x%=b%:x%=x%+1Ь3Щx%>18 └ (st%─ 126):Г(st%─2):buf%?x%=єb:x%=x%+1CЯ"From: ";єstn(buf%?3,buf%?2);" To: ";єstn(buf%?1,buf%?0);"  ";,Гx%=4 ─ f%=1 Я┴(24)"Scout ackn.":f%=2:Щ0+Гx%=4 ─ f%=3 Я┴(24)"Data ackn.":f%=0:Щ0 Гx%<6 Я"Abort":f%=0:Щ0*-ctrl%=buf%?4:port%=buf%?5:Гctrl%<128:f%=24@Гf%=0 Я"Control: &";єh(ctrl%,2);" Port: &";єh(port%,2);"  ";>+Гbuf%?0=&FF ─ buf%?1=&FF Рbroad:f%=0:Щ0H!Гx%=6 ─ f%<2 Я"Scout":f%=1:Щ0R&Гport%=0 ─ f%=0:Рimm:f%=0:im%=0:Щ0\+Я"Data sent:  ";:Рpr(4):f%=im%:im%=3:Щ0f:pщРbroadzЯ"Broadcast: ";:Рpr(6):А└щРpr(p%):p%=buf%+p%:У▌1Г ?p%<32 └ ?p%>126 Я"(";єh(?p%,2);")"; ▀ О?p%≤p%=p%+1:Щp%>=x%+buf%:Я:А╒	щРimm╛#Т PRINT"Immediate operation: ";І&i%=ctrl%:Т PRINT"&";FNh(i%,2);" ";юГ i%=&81 Я"PEEK";йГ i%=&82 Я"POKE";тГ i%=&83 Я"JSR ";ч$Г i%=&84 Я"User procedure call";Х"Г i%=&85 Я"OS Procedure call";РГ i%=&86 Я"Halt":АЭГ i%=&87 Я"Continue":А#Г i%=&88 Я"Machine type peek":А$Г i%=&89 Я"Read ARM registers":А!Г i%<&81 └ i%>&89 Я"Unknown";$3p%=buf%+6:У:Я" &"єh(!p%,8);:p%=p%+4:Щp%>=x%:Я:А.щРraw:Т Raw data8#УУb%=єb:Щst%─1:Т start of frameBУLГ(st%─&81):Яєh(b%,2);VГ(st%─1):Т addr present`DГ(st%─2):Я"v";єh(єb,2);" ";:Уb%=єb:Щ(st%─13):Г(st%─1):Яєh(b%,2);j"Г(st%─8):Я"b";:Уb%=єb:Щ(st%─4)tГ(st%─4):Я"i"~Г(st%─16):Я" e"┬Г(st%─32):Я"d";▓Г(st%─64):Я"o";°Г(st%─128):Т Data hereіb%=єb:Щ0╟Щ0Ъ