home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / msdos / tex / webtp55.arc / INLASM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-11-23  |  492 b   |  26 lines
  1. Program InlAsm;
  2. {-implement an inline assembler using Asm2Inl}
  3. Uses
  4.   Asm2Inl;
  5. Var
  6.   i: Word;
  7.   s: String;
  8. Begin
  9.   SetupAsm;
  10.   While Not Eof(Input) Do Begin
  11.     ReadLn(Input,s);
  12.     s:= s+'/';
  13.     For i:= 1 To Length(s) Do
  14.       if Not FeedAsm(s[i]) Then Begin
  15.         WriteLn('! too much data');
  16.         Halt(1)
  17.       End
  18.   End;
  19.   If Not DoAsm(True) Then
  20.     WriteLn('! Error during assembling!');
  21.   For i:= 0 To ObjSize-1 Do
  22.     Write(Output,TextArray[i]);
  23. End.
  24.  
  25.  
  26.