home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ADC_TP3.ZIP / PASSFUNC.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-03-01  |  509 b   |  25 lines
  1.  
  2. program PassFunc;
  3. {
  4.        This routine expects the assembly language routine 'Pass'
  5.        to reside in the file 'PASS.COM'
  6. }
  7. var
  8.   Var1, Var2, Var3: Integer;
  9.  
  10. function Pass(VarX, VarY: Integer): Integer; external 'PASS.COM';
  11.  
  12.  
  13. begin { main body of program PassFunc }
  14.  repeat
  15.     ReadLn(Var1);
  16.     if Var1<>0 then begin
  17.       ReadLn(Var2);
  18.       Var3 := Pass(Var1,Var2);
  19.       WriteLn(Var1,' + ',Var2,' = ',Var3);
  20.       WriteLn
  21.     end
  22.  until Var1 = 0
  23. end. { of program PassFunc }
  24.  
  25.