program ECHTZEITUHR;

{$M 3000,0,0}

uses portcrt,dos;

var reg : registers;
intofs : word absolute $0000:$0128;
intseg : word absolute $0000:$012A;

procedure alarm;
interrupt;
begin
  writeln(' * * * * A L A R M  ! ! ! ! ! * * * * ');
end;

begin

  intseg := Seg(alarm);     {Interrupt-Vektor $4A neu setzen}
  intofs := Ofs(alarm);

  {Datum auf 27.9.1990 setzen}

  reg.ah := 5;
  reg.ch := 25;     {19 im BCD-Format}
  reg.cl := 144;    {90 im BCD-Format}
  reg.dh := 9;      { 9 im BCD-Format}
  reg.dl := 39;     {27 im BCD-Format}
  Intr($1A,reg);

  {Uhrzeit auf 9:40:00 setzen}

  reg.ah := 3;
  reg.ch := 9;     { 9 im BCD-Format}
  reg.cl := 64;    {40 im BCD-Format}
  reg.dh := 0;     { 0 im BCD-Format}
  reg.dl := 0;     {Keine Sommerzeit}
  Intr($1A,reg);

  {Alarmzeit l”schen}

  reg.ah := 7;
  Intr($1A,reg);

  {Alarmzeit auf 9:42:00 setzen}

  reg.ah := 6;
  reg.ch := 9;     { 9 im BCD-Format}
  reg.cl := 65;    {41 im BCD-Format}
  reg.dh := 0;     { 0 im BCD-Format}
  Intr($1A,reg);

  Repeat
  Until Keypressed;

end.