printSpeed.inc

procedure printSpeed;

var p: PByte absolute $e0;
    i, a, l: byte;
    t: TString;


 procedure printDigits_hi(_add: byte; _and: byte);
 begin

 if l > 0  then begin
  a:=(ord(t[l])- 47) shl 3 + _add;
  dec(l);
 end else
  a:=_add;

 for i:=7 downto 0 do begin
  p[0]:=(p[0] and _and) or digitH[a+i];

  dec(p);
 end;

 end;

{
 procedure printDigits_lo;
 begin

 if l > 0  then begin
  a:=(ord(t[l])- 47) shl 3;
  dec(l);
 end else
  a:=0;

 for i:=7 downto 0 do begin
  p[0]:=(p[0] and $f0) or digitL[a+i];

  dec(p);
 end;

 end;
}

 procedure toString(a: byte);
 begin

  if a < 10 then begin
   t[0]:=chr(2);
   t[1]:='0';
   t[2]:=chr(48 + a);
  end else
   t:=BytetoStr(a);

  l:=2;

 end;


begin

 toString(max_speed - speed);

 p:=pointer(PMB_PAGE+$600+194+7);
 printDigits_hi(0, $0f);

 p:=pointer(PMB_PAGE+$500+194+7);
 printDigits_hi(96, $f0);

end;