home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 04 / comedit / oldstack.inc < prev    next >
Encoding:
Text File  |  1988-01-12  |  1.2 KB  |  17 lines

  1. (* ----------------------------------------------------------------------- *)
  2. (*                             OLDSTACK.INC                                *)
  3. (*  Schaltet wieder zurück  auf  den ursprünglichen  (vom unterbrochenen   *)
  4. (*  Programm) benutzten Laufzeitstapel. Falls NEWSTACK in der Interrupt-   *)
  5. (*  Routine ausgeführt wurde  (und nur dann!),  muß dieses Inline-State-   *)
  6. (*  ment unbedingt vor Ausgang aus der Prozedur mittels EXITINT oder BE-   *)
  7. (*  GININT erfolgen!                                                       *)
  8. (* ----------------------------------------------------------------------- *)
  9. INLINE ($89/$EC/       (*  MOV    SP,BP         ;SP richtig positionieren  *)
  10.         $5D/           (*  POP    BP            ;alten Basepointer holen   *)
  11.         $59/           (*  POP    CX            ;alten Stackpointer holen  *)
  12.         $5B/           (*  POP    BX            ;altes Stacksegment holen  *)
  13.         $89/$CC/       (*  MOV    SP,CX         ;und die alten Stapelwerte *)
  14.         $8E/$D3);      (*  MOV    SS,BX         ;...wiederherstellen       *)
  15. (* ----------------------------------------------------------------------- *)
  16. (*                             OLDSTACK.INC                                *)
  17.