home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / HISOFTPASCAL2,0-2.DMS / in.adf / Units / Translator.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-05-20  |  521 b   |  41 lines
  1. unit Translator;
  2.  
  3. INTERFACE
  4. uses Exec;
  5.  
  6.  
  7. var
  8.     TranslatorBase: pLibrary;
  9.  
  10.  
  11. const
  12.     TR_NoMem = $FFFFFFFE;
  13.     TR_NotUsed = $FFFFFFFF;
  14.     TR_MakeBad = $FFFFFFFC;
  15.  
  16.  
  17. function Translate
  18.         (inputString: STRPTR;
  19.         inputLength: longint;
  20.         outputBuffer: STRPTR;
  21.         bufferSize: longint): longint;
  22.  
  23.  
  24.  
  25. IMPLEMENTATION
  26. function Translate; xassembler;
  27. asm
  28.     move.l    a6,-(sp)
  29.     lea        8(sp),a6
  30.     move.l    (a6)+,d1
  31.     move.l    (a6)+,a1
  32.     move.l    (a6)+,d0
  33.     move.l    (a6)+,a0
  34.     move.l    TranslatorBase,a6
  35.     jsr        -$1E(a6)
  36.     move.l    d0,$18(sp)
  37.     move.l    (sp)+,a6
  38. end;
  39.  
  40. end.
  41.