procedure SelectWBbank(index: Byte);
begin
  SetISAReg($4e,0);
  SetISAReg($4e,index);
end;
procedure SetISAReg(Reg: Word; Data: Byte);
begin
  PortOut($295,Reg);
  PortOut($296, Data);
end;
function GetISAReg(Reg: Word):Byte;
begin
  PortOut($295, Reg);
  result:=PortIn($296);
end;
function GetWBTemp(index: Byte):single;
var
  tmp:byte;
begin
  case index of
    1:begin
      tmp:=GetISAReg($27);
      if ((tmp and $80) shr 7)= 1 then result:=-((tmp xor $FF)+1)
                                   else result:=tmp;
    end;
    2:begin
      SelectWBbank(1);
      tmp:=GetISAReg($50);
      if ((tmp and $80) shr 7)= 1 then result:=-((tmp xor $FF)+1)
                                   else result:=tmp;
      SelectWBbank(1);
      tmp:=GetISAReg($51);
      tmp:=tmp shr 7;
      result:=result+tmp/2;
    end;
    3:begin
      SelectWBbank(2);
      tmp:=GetISAReg($50);
      if ((tmp and $80) shr 7)= 1 then result:=-((tmp xor $FF)+1)
                                   else result:=tmp;
      SelectWBbank(2);
      tmp:=GetISAReg($51);
      tmp:=tmp shr 7;
      result:=result+tmp/2;
    end;
  end;
end;