Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: notesnews 0.1 (unido 12/05/84); site unido.UUCP
Path: utzoo!linus!philabs!cmcl2!seismo!mcvax!unido!vr0z05
From: vr0z05@unido.UUCP
Newsgroups: net.micro.pc
Subject: Error in Turbo-Pascal?
Message-ID: <nf10000001@unido.UUCP>
Date: Wed, 3-Apr-85 16:30:00 EST
Article-I.D.: unido.nf10000001
Posted: Wed Apr  3 16:30:00 1985
Date-Received: Sun, 7-Apr-85 06:47:58 EST
Sender: notes@unido.UUCP
Lines: 42
Nf-ID: #N:unido:10000001:000:952
Nf-From: unido!vr0z05    Apr  3 19:30:00 1985


Hello folks,

is there anybody in net-land who is able to help me?
the following program will not work, but why not?
(TURBO-PASCAL V.2.0 on IBM-PC/XT)

>PROGRAM TEST;
>type REGPACK = record
>                  AX,BX,CX,DX,BP,SI,DI,DS,ES,FLAGS : integer;
>               end;
>var RECPACK : REGPACK;
>procedure INTR_TEST;
>begin
>   inline($FB/$CF) {STI/IRET}
>end;
>begin
>   RECPACK.AX := ($25 shl 8) + $50;
>   RECPACK.DS := cseg;
>   RECPACK.DX := ofs(INTR_TEST);
>   intr($21,RECPACK);
>   intr($50,RECPACK);
>end.

The program starts correct, changes the interrupt-vector $50 to the address
of INTR_TEST, then calls via INT the procedure INTR_TEST and executes it
(until now nothing wrong), but after that the program hangs (no BREAK,
no RESET will work, only POWER OFF/ON).

Helpfull hints to

Uwe Hoch
University of Dortmund
Computer Science Department(IRB)
P.O. Box 500500
D-4600 Dortmund 50
West-Germany

via mail or uucp.

Thanks in advance!