[satan]

Спасиб... Тут ишо прада надо добить LineNumberTable и LocalVar...
Но ет дело техники как грица.

ХЗ. мож над исправить чо, но пока работаит

  else if s='LineNumberTable' then
  begin
      p:=get(p,2);
      lt:=word(swap2(p,0)^);
      writeln(TAB2,'line_number_table_length:',TAB,lt,#10#13);
      for i := 0 to lt-1 do
      begin
        p:=get(p,2);
        writeln(TAB3,'start_pc    :',TAB,hexw(word(swap2(p,0)^)));
        p:=get(p,2);
        writeln(TAB3,'line_number :',TAB,hexw(word(swap2(p,0)^)));
      end;
  end