
 *NAME ShowTrace# dcfst=&06:dclast=&24:dccode=&0C#( gnfst=&06:gnlast=&78:gncode=&09#2 osfst=&CA:oslast=&FE:oscode=&06< othfst=&21:othlast=&8DF ▐ DC$((dclast-dcfst)/2)P ▐ GN$((gnlast-gnfst)/2)Z ▐ OS$((oslast-osfst)/2)d ▐ OT$((othlast-othfst)/3)n у I%=0 ╕ (dclast-dcfst)/2x є DC$(I%)В э I%М у I%=0 ╕ (gnlast-gnfst)/2Ц є GN$(I%)а э I%к у I%=0 ╕ (oslast-osfst)/2┤ є OS$(I%)╛ э I%╚ у I%=0 ╕ (othlast-othfst)/3╥ є OT$(I%)▄ э I%*ц є X$:ч X$<>"***" М ё "Error in data":рЁ █-· ё ╜(1);"3+UBTracefile Lister";╜(1);"3-UB"ё9ш "Trace filename (default is :ram.-/oztrace.dat)";F$%ч F$="" М F$=":ram.-/oztrace.dat""X%=О(F$)(,ч F$="" М ё "File not found!":х НTDA@їJA%=д_getvalueTB%=A% Г 256:C%=A% Б 256S^ч B%=dccode А C%>=dcfst А C%<=dclast А (C% Г 2)=0 М D$=DC$((C%-dcfst)/2):х НtPAShч B%=gncode А C%>=gnfst А C%<=gnlast А (C% Г 2)=0 М D$=GN$((C%-gnfst)/2):х НtPASrч B%=oscode А C%>=osfst А C%<=oslast А (C% Г 2)=0 М D$=OS$((C%-osfst)/2):х НtPAJ|ч B%>=othfst А B%<=othlast А (B% Г 3)=0 М D$=OT$((B%-othfst)/3):х НtPAЖD$="??"Рё D$;К8);Ъё "PC=";~д_getvalue;4Яё К18);"AF=";~д_getvalue;К26);"BC=";~д_getvalue;4дё К34);"DE=";~д_getvalue;К42);"HL=";~д_getvalue;4оё К50);"IX=";~д_getvalue;К58);"IY=";~д_getvalue;╕ч ж(0)<>-1 М ї:¤ е=32╜ё
┬¤ ┼#X%╠┘#X%╓рGЇЇ Function to get next two bytes from file & form into 16-bit value■▌ д_getvalueъ N%,M%N%=Ъ#X%:M%=Ъ#X%=N%+(256*M%))шЇ Call IDs for $xx0c [$060c to $240c]1Є▄ "dc_ini","dc_bye","dc_ent","dc_nam","dc_in"0№▄ "dc_out","dc_prt","dc_icl","dc_nq","dc_sp"2▄ "dc_alt","dc_rbd","dc_xin","dc_gen","dc_pol"▄ "dc_scn")Ї Call IDs for $xx09 [$0609 to $7809]2$▄ "gn_gdt","gn_pdt","gn_gtm","gn_ptm","gn_sdo"2.▄ "gn_gdn","gn_pdn","gn_die","gn_dei","gn_gmd"28▄ "gn_gmt","gn_pmd","gn_pmt","gn_msc","gn_flo"2B▄ "gn_flc","gn_flw","gn_flr","gn_flf","gn_fpb"2L▄ "gn_nln","gn_cls","gn_skc","gn_skd","gn_skt"2V▄ "gn_sip","gn_sop","gn_soe","gn_rbe","gn_wbe"2`▄ "gn_cme","gn_xnx","gn_xin","gn_xdl","gn_err"2j▄ "gn_esp","gn_fcm","gn_fex","gn_opw","gn_wcl"2t▄ "gn_wfn","gn_prs","gn_pfs","gn_wsm","gn_esa"1~▄ "gn_opf","gn_cl","gn_del","gn_ren","gn_aab"2И▄ "gn_fab","gn_lab","gn_uab","gn_alp","gn_m16" Т▄ "gn_d16","gn_m24","gn_d24")ЬЇ Call IDs for $xx06 [$ca06 to $fe06]2ж▄ "os_wtb","os_wrt","os_wsq","os_isq","os_axp"2░▄ "os_sci","os_dly","os_blp","os_bde","os_bhl"2║▄ "os_fth","os_vth","os_gth","os_ren","os_del"0─▄ "os_cl","os_op","os_off","os_use","os_epr"2╬▄ "os_ht","os_map","os_exit","os_stk","os_ent"╪▄ "os_poll","os_dom":тЇ Call IDs for 1-byte calls [$21 to $8d in steps of 3]1ь▄ "os_bye","os_prt","os_out","os_in","os_tin"0Ў▄ "os_xin","os_pur","os_ugb","os_gb","os_pb"1 ▄ "os_gbt","os_pbt","os_mv","os_frm","os_fwm"2
▄ "os_mop","os_mcl","os_mal","os_mfr","os_mgb"0▄ "os_mpb","os_bix","os_box","os_nq","os_sp"1▄ "os_sr","os_esc","os_erc","os_erh","os_ust"2(▄ "os_fn","os_wait","os_alm","os_cli","os_dor"2▄ "os_fc","os_si"<▄ "***" 