[comp.sys.apple2] TMP Pascal II problems

dat33228@uxa.cso.uiuc.edu (Derek A. Taubert) (09/16/90)

  Help, please.  I'm using the midi toolset with TML II and I'm having a few
problems...  First, I had to change the toolintsrc of midi to include the arg
parameter for MidiControl.  Next, trying to use MidiInputPoll, I get an
unresolved linker reference (or something like that) to MIDIINPUTPOLL.  It is
declared as EXTERNAL in the intsrc, what's the problem?  So.. I decided to
work past that since MidiInputPoll is basically just a JSL to $E101B2.
So I wanted to do some inline code with the "inline" compiler "extra" that TML
included, but I can't get it to do more than one byte of code!  Help!

This doesn't work:

procedure midipoll;
inline $22 $b2 $01 $E1;

It wants a ; after $22.

--
..............................................................................
                                                                             .
 Derek Taubert --> derek@mrcnext.cso.uiuc.edu  ||  dat33228@uxa.cso.uiuc.edu .
 Anyone who programs or has an idea for a program for the IIgs, PLEASE send  .
 me mail!                                                                    .
..............................................................................

q4kx@vax5.cit.cornell.edu (Joel Sumner) (09/16/90)

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.