function scancode:byte;
begin
  scancode:=port[$60];
end;