KEEP.ASM
资源名称:ertos.rar [点击查看]
上传用户:sunrenlu
上传日期:2022-06-13
资源大小:1419k
文件大小:1k
源码类别:
操作系统开发
开发平台:
DOS
- ;
- ;
- ; Usage :
- ; _keep( int status, int paragraphs )
- ;
- ; (c) 1990 Erick Engelke
- ;
- ; version
- ;
- ; 0.1 7-Nov -1990 E. P. Engelke
- ;
- ;
- include masmdefs.hsm
- include model.hsm
- codedef KEEP
- datadef
- cstart KEEP
- cpublic _keep
- mov AH, 62h ; get psp
- int 21h
- mov ES, BX ; using psp
- mov BX, ES:[2ch] ; get environment
- mov AH, 49h ; release environment
- mov ES, BX
- int 21h
- mov AH, 31h ; make resident
- mov AL, +@AB + 0 [BP]
- mov DX, +@AB + 2 [BP]
- int 21h
- creturn _keep
- cend KEEP
- end