home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / text / jed / src / jed.lha / stksize.a < prev    next >
Text File  |  1992-10-11  |  367b  |  21 lines
  1.  
  2.         ; STKSIZE.A
  3.         ;
  4.         ; returns the size of available    stack, doesn't take into
  5.         ; account the stuff used by this routine.
  6.  
  7.         section    text,code
  8.         xdef    _stksize
  9.  
  10. tc_SPLower    EQU    58
  11. ThisTask    EQU    276
  12.  
  13. ;Prototype    LONG    stksize(VOID);
  14. _stksize:
  15.         move.l    4.w,a0            ; EXEC
  16.         move.l    ThisTask(a0),a0        ; me
  17.         move.l    sp,d0
  18.         sub.l    tc_SPLower(a0),d0   ; available    stack
  19.         rts
  20.  
  21.