home *** CD-ROM | disk | FTP | other *** search
/ ST-Computer Leser 2002 January / STC_CD_01_2002.iso / DEVELOP / EXTCALL / ASM / EXCALL.S < prev   
Text File  |  2000-05-02  |  573b  |  29 lines
  1.  
  2. ;
  3. ; extcall (c)2000 Richard Gordon Faika
  4. ;
  5.  
  6.  
  7.                     move    4(sp),d0    ; Par 1
  8.                     
  9.                     lea        varbuf(pc),a0    ; varbuf-adress
  10.  
  11.                     cmpi    #-99,d0        ; init?
  12.                     bne        set_flag
  13.                     move.l    a0,d0        ; yes, return adress
  14.                     rts                    ; bye
  15.                     
  16. set_flag:            move    #-1,(a0)+    ; set flag
  17.                     move    4(sp),(a0)+    ; Par 1 from extern Routine
  18.                     move.l    6(sp),(a0)+    ; Par 2 from extern Routine...
  19.                     move    10(sp),(a0) ; Par 3 from extern Routine...
  20.                     
  21.                     clr.l    d0
  22.                     rts                    ; and return
  23.  
  24. varbuf:                dc.w    0
  25.                     dc.w    0
  26.                     dc.l    0
  27.                     dc.l    0
  28.                     dc.l    0
  29.