Pascal/Turbo Pascal - Fecha y hora

{Si usando Port mira}

program fechaora;

 uses

    crt;

   var

     hora, minut, segun : integer;

     dia, mes, ayo1, ayo2 : integer;

   function leer(d : integer) : integer;

   begin

      if (d < 0) or (d > 63) then

      leer := -1

   else

      begin

        Port[$70] := d;

        leer := Port[$71]

      end

    end;

   function datos(d : integer) : integer;

   var

      lor : integer;

      begin

        if (leer($0b) and 2 = 0) then

        datos := leer(d)

    else

       begin

         lor := leer(d);

         datos := (lor shr 4) * 10 + lor and 15

       end

     end;

  begin

     clrscr;

     if leer($0e) and 128 = 0 then

     begin

       hora := datos($04);

       minut := datos($02);

       segun := datos($00);

       dia := datos($07);

       mes := datos($08);

       ayo1 := datos($32);

       ayo2 := datos($09);

       write('  La hora  = ',hora,':',minut:2,':',segun:2);

       writeln;

       write('  La fecha = ',dia,'/', mes,'/',ayo1, ayo2);

     end;

     readkey;

   end.