home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / OOF20.ZIP / MESSAGE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-09-18  |  1.1 KB  |  14 lines
  1. Inline(
  2.                             { ;PROCEDURE Message(MethodNo*3:integer);                }
  3.  $C4/$7E/$04                {      LES  DI,4[BP]    ; AX <- pointer to dispatcher    }
  4. /$26/$8B/$05                {      MOV  AX,ES:[DI]                                   }
  5. /$5B                        {      POP  BX          ; BX <- Message Id = (return address - 10) }
  6. /$83/$EB/20                 {      SUB  BX,=20      ;   !! TOPT use =19 instead !!   }
  7. /$59                        {      POP  CX          ; CX <- 3 * Method Number        }
  8. /$89/$EC                    {      MOV  SP,BP       ; Nuke caller's Stack Frame      }
  9. /$5D                        {      POP  BP                                           }
  10. {/$5C }                       {      POP  SP          ; Nuke temp variable area        }
  11. /$53                        {      PUSH BX          ; Push parameters for dispatcher }
  12. /$51                        {      PUSH CX                                           }
  13. /$FF/$D0  );                {      CALL AX          ; Call the dispatcher            }
  14.