KEEP.ASM
上传用户:better800
上传日期:2022-06-13
资源大小:1853k
文件大小:1k
源码类别:

TCP/IP协议栈

开发平台:

DOS

  1. ;
  2. ;
  3. ;  Usage :
  4. ;           _keep( int status, int paragraphs )
  5. ;
  6. ;  (c) 1990 Erick Engelke
  7. ;
  8. ;  version
  9. ;
  10. ;    0.1    7-Nov -1990   E. P. Engelke
  11. ;
  12. ;
  13.         include masmdefs.hsm
  14.         include model.hsm
  15. codedef KEEP
  16. datadef
  17. cstart  KEEP
  18. cpublic _keep
  19.         mov     AH, 62h                 ; get psp
  20.         int     21h
  21.         mov     ES, BX                  ; using psp
  22.         mov     BX, ES:[2ch]            ; get environment
  23.         mov     AH, 49h                 ; release environment
  24.         mov     ES, BX
  25.         int     21h
  26.         mov     AH, 31h                 ; make resident
  27.         mov     AL, +@AB + 0 [BP]
  28.         mov     DX, +@AB + 2 [BP]
  29.         int     21h
  30. creturn _keep
  31. cend    KEEP
  32.         end