Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!linus!philabs!micomvax!mult!jmp
From: jmp@mult.UUCP (J.M Pigeon)
Newsgroups: net.micro.pc,net.lang.pascal
Subject: Big troubles with interrupts in Microsoft Pascal (need help!!)
Message-ID: <116@mult.UUCP>
Date: Sun, 22-Jun-86 18:42:20 EDT
Article-I.D.: mult.116
Posted: Sun Jun 22 18:42:20 1986
Date-Received: Mon, 23-Jun-86 07:18:50 EDT
Distribution: net
Organization: Multitek (Montreal Canada)
Lines: 59
Xref: linus net.micro.pc:8407 net.lang.pascal:573

*** MESSAGE FOLLOWING, PLEASE STAND BY ***

	I am not able to get this program working (HELP, HELP!!!)

	CONFIG	  :  PC-AT, MSDOS V3.20, Microsoft Pascal V3.31.

	SYMPTOMS  :  'cpt' always zero, MSDOS badly damaged, forced
		     to reboot.

	REASONS   : If the interrupt 28 occurs during DOS, or BIOS
		    time then DS register is set to 40H, (of course
		    this is not the right value), so a memory byte
		    (somewhere) is updated instead of 'cpt'.

	REQUESTS  : Unless the Microsoft interrupt procedure is
		    totaly USELESS, we MUST have a way to
		    set the proper DS value.
		    Could somebody, in Netland, give me a HINT ???
	
					   Thanks.

					   JMP.

PS:	The purpose of this short test, is to see if I can 
	build something around TIC interrupts.

address:	../philabs/micomvax/mult/jmp

(*----------------------CUT---------------------------------*)		

	program  tstint(input,output);

var	cpt	:  integer;

var 	str	:  string(05);
	j,k	:  integer;

procedure vectin(v:word;procedure i[interrupt]);
extern;

procedure cptint[interrupt];

begin
cpt:=succ(cpt);
end;

begin
vectin(28,cptint);
for j:=1 to 10 do
  begin
  readln(str);
  writeln('cpt:=',cpt:0,'  <',str,'>');
  end;
end.


(*---------------------------------------------------------------*)