Path: utzoo!attcan!utgpu!news-server.csri.toronto.edu!rutgers!rochester!cornell!vax5.cit.cornell.edu!q4kx
From: q4kx@vax5.cit.cornell.edu (Joel Sumner)
Newsgroups: comp.sys.apple2
Subject: Re: TMP Pascal II problems
Message-ID: <1990Sep16.115340.20@vax5.cit.cornell.edu>
Date: 16 Sep 90 15:53:40 GMT
References: <1990Sep16.043613.4458@ux1.cso.uiuc.edu>
Distribution: comp
Lines: 34

In article <1990Sep16.043613.4458@ux1.cso.uiuc.edu>, dat33228@uxa.cso.uiuc.edu (Derek A. Taubert) writes:
> 
> This doesn't work:
> 
> procedure midipoll;
> inline $22 $b2 $01 $E1;
> 
> It wants a ; after $22.
> 

the Inline procedure only allows one byte.  Do something like this...
Procedure JSL;       inline $22;
Procedure Arg1;      inline $b2;
Procedure Arg2;      inline $01;
Procedure Arg3;      inline $e1;

Procedure Midipoll;
begin
JSL;
Arg1;
Arg2;
Arg3;
end;

{This may not be entirely correct.  I remember reading this section of the
 Tml II manual about two months ago and seeing some sort of sample source.
 this is purely from my [not so great] memory}

-- 
Joel Sumner                     GENIE:JOEL.SUMNER     These opinions are 
q4kx@cornella.ccs.cornell.edu   q4kx@cornella         warranted for 90 days or
q4kx@vax5.cit.cornell.edu       q4kx@crnlvax5         60,000 miles.  Whichever
....................................................  comes first.
Never test for an error condition that you can't handle.