home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / PIBTERM / PIBT41S4.ARC / STACKPOI.MOD < prev    next >
Encoding:
Text File  |  1987-11-10  |  614 b   |  18 lines
  1. (*----------------------------------------------------------------------*)
  2. (*    StackPointer --- Return the stack pointer at point of the call    *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. FUNCTION StackPointer : INTEGER;
  6.  
  7. BEGIN (* StackPointer *)
  8.  
  9.     INLINE(
  10.             $89/$E0/                {MOV     AX,SP}
  11.             $05/$08/$00/            {ADD     AX,0008}
  12.             $89/$EC/                {MOV     SP,BP}
  13.             $5D/                    {POP     BP}
  14.             $C2/$02/$00             {RET     0002}
  15.           );
  16.  
  17. END   (* StackPointer *);
  18.