home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 04 / comedit / newstack.inc < prev    next >
Encoding:
Text File  |  1988-01-12  |  1.4 KB  |  19 lines
  1. (* ----------------------------------------------------------------------- *)
  2. (*                             NEWSTACK.INC                                *)
  3. (*  Verlegt den Laufzeitstapel in einen eigens dafür im Datensegment der   *)
  4. (*  Interrupt-Routine vorgesehen Pufferbereich. Nach Durchlaufen des In-   *)
  5. (*  line Befehls kann auf die  "PgmRegs" nicht mehr  zugegriffen werden!   *)
  6. (* ----------------------------------------------------------------------- *)
  7. INLINE ($8C/$D3/       (*  MOV    BX,SS         ;Stacksegment sichern      *)
  8.         $89/$E1/       (*  MOV    CX,SP         ;Stackpointer sichern      *)
  9.         $8C/$D8/       (*  MOV    AX,DS         ;Datensegment holen        *)
  10.         $8E/$D0/       (*  MOV    SS,AX         ;Stapel im Datensegment!   *)
  11.         $BC/StackTop/  (*  MOV    SP,StackTop   ;SP auf neuen Wert         *)
  12.         $53/           (*  PUSH   BX            ;altes SS auf Stapel       *)
  13.         $51/           (*  PUSH   CX            ;alter SP auf Stapel       *)
  14.         $55/           (*  PUSH   BP            ;alter BP auf Stapel       *)
  15.         $89/$E5/       (*  MOV    BP,SP         ;Basepointer neu laden     *)
  16.         $55);          (*  PUSH   BP            ;und sichern               *)
  17. (* ----------------------------------------------------------------------- *)
  18. (*                             NEWSTACK.INC                                *)
  19.