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