 
Т >Mon2 v0.20 "Т Monitors network traffic and  Т decodes what is being sent (: 24К &83: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Гx%=6 ─ f%<2 Я9Яєstn(buf%?3,buf%?2);" -> ";є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4-ctrl%=buf%?4:port%=buf%?5:Гctrl%<128:f%=2>@Гf%=0 Я"Control: &";єh(ctrl%,2);" Port: &";єh(port%,2);"  ";H+Гbuf%?0=&FF ─ buf%?1=&FF Рbroad:f%=0:Щ0R!Гx%=6 ─ f%<2 Я"Scout":f%=1:Щ0\&Гport%=0 ─ f%=0:Рimm:f%=0:im%=0:Щ0f&Я"Data:  ";:Рpr(4):f%=im%:im%=3:Щ0p:zщРbroad└Я"Broadcast: ";:Рpr(6):А▌щРpr(p%):p%=buf%+p%:У≤1Г ?p%<32 └ ?p%>126 Я"(";єh(?p%,2);")"; ▀ О?p%╒#p%=p%+1:Щp%>=x%+buf% └ ╠>75:Я:А╛	щР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%:Я:А8щРraw:Т Raw dataB#УУb%=єb:Щst%─1:Т start of frameLУVГ(st%─&81):Яєh(b%,2);`Г(st%─1):Т addr presentjDГ(st%─2):Я"v";єh(єb,2);" ";:Уb%=єb:Щ(st%─13):Г(st%─1):Яєh(b%,2);t"Г(st%─8):Я"b";:Уb%=єb:Щ(st%─4)~Г(st%─4):Я"i"┬Г(st%─16):Я" e"▓Г(st%─32):Я"d";°Г(st%─64):Я"o";іГ(st%─128):Т Data here╟b%=єb:Щ0╨Щ0Ъ