home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_asm / coreaids / stk_stop.asm < prev    next >
Encoding:
Assembly Source File  |  1987-06-25  |  685 b   |  31 lines
  1. ;    DESC:    return from the user stack to the system stack       V1.00
  2. ;    SAMPLE:    STK_STOP
  3. ;    ##################################################################
  4.  
  5. STACK    Segment Para Common 'STACK'
  6.         DW    100H DUP(0)
  7. STACK    Ends
  8.  
  9. STK_STOC    Segment
  10.     Assume    CS:STK_STOC,SS:STACK
  11.     Public    STK_STOP
  12.                         ;notice.
  13.     DB    'STK_STOP - V1.00, Copyright 1987, CoreTechs   ',0DH,0AH
  14.  
  15. STK_STOP    Proc    Near
  16.     Cli                    ;stop all interrupts.
  17.  
  18.     Pop    CS:WORD PTR[0]            ;save return address.
  19.  
  20.     Mov    SS,CS:WORD PTR[10]        ;restore system stack offsets.
  21.     Mov    SP,CS:WORD PTR[12]
  22.  
  23.     Push    CS:WORD PTR[0]            ;replace return address.
  24.  
  25.     Sti                    ;restore interrupts.
  26.     Ret
  27. STK_STOP    Endp
  28.  
  29. STK_STOC    Ends
  30.     End
  31.