home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / OOF20.ZIP / DOPARENT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-09-19  |  396 b   |  8 lines
  1. Inline(
  2.               { ; PROCEDURE DoParent(p:Integer); }
  3.  $58          {       POP  AX       ; Throw away return }
  4. /$58          {       POP  AX       ; AX <- p   (ptr to parent) }
  5. /$8B/$E5      {       MOV  SP,BP    ; Nuke Dispatcher's Stack Frame }
  6. /$5D          {       POP  BP                                     }
  7. /$FF/$E0  );  {       JMP  AX       ; Jump to method             }
  8.