// // TBL-DEBG.VDM (C) C.Z. 08.05.1998 // 12.05.1998 // // formats VEDIT's *.TBL to be readable // RS(21, FILENAME) RCB(11,0,EoB_Pos) // copy TBL BS(Buf_Free) // and write into new buffer RI(11) BoF for(#13=1;#13<3;#13++){ // 2 tables for(#11=0;#11<16;#11++){ // with 16 lines Reg_Empty(20) // clear line buffer for(#12=0;#12<16;#12++){ // 16 chars per line #10=CC // actual character if(cc<32){ IT(" ", OVERWRITE) C(-1) } // no ctrl chars Out_Reg(20,APPEND) NT(#10,NOCR) // ASCII-value into line buffer Out_Reg(CLEAR) C(1) // next char } IT(" ") RI(20) // insert line buffer IN(1) // new line } IN(2) // 2 new lines between tables } Line(-1) Del_Line(1) BoF // numbering of bytes/lines #14=0 for(#13=1;#13<3;#13++){ // 2 tables for(#11=0;#11<16;#11++){ // with 16 lines NI(#14, NOCR) // byte position IT(" ") #14=#14+16 L(1) } L(2, NOERR) // skip over 2 blank lines #14=0 } BoF // insert filename of table IT("Filename: ") RI(21) IN(1) IT("==========") IC(61, COUNT,Reg_Size(21)) IT(' (first table = "to ..." , second table = "from ..."') IN(3) IT(" Byte TBL (w/o ctrl's) decimal values") IN(1) IC(45, COUNT,104) IN(1) EoF IN(1) R("|N","|013|010",BEGIN+ALL) // convert to CR/LF for printing