windows提供了屏幕保护程序，当我们在规定的时间内没有对电脑进行操作时，系统会自动运行我们事先指定的屏幕保护程序。
下面我们在DOS实现一个简单的黑屏保护程序。
注意：
1。如果你运行了明伦五笔高手速成，那么本程序将不起作用，可能的原因是明伦五笔高手速成修改了有关的DOS中断，而没有回调。
2。如果想在window 95/98的MS-DOS方式下使用，应将MS-DOS方式窗口设为全屏。
3。win 2000/xp未作测试。
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; 文件名: SafeScr.asm
; 功 能: 在指定时间内未使用键盘则关闭屏幕显示（黑屏）
; 说 明:
; 1. 第一次运行时常驻内存,再次运行则撤出内存
; 2.如果你运行了明伦五笔高手速成，那么本程序将不起作用，
; 可能的原因是明伦五笔高手速成修改了;有关的DOS中断，而没有回调。
2。如果想在window 95/98的MS-DOS方式下使用，应将MS-DOS方式窗口设为全屏。
3。win 2000/xp未作测试。; Log
；<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;Name : ;Function : ;Author : Purple Endurer ;Reference: Computer paper 1996U243, Software 1993 P114 ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< cseg segment assume cs: cseg, ds: cseg org 100h start: jmp @Init ;==================== Old1cAddr label dword Old1cOff dw ? Old1cSeg dw ? Old09Addr label dword Old09Off dw ? Old09Seg dw ? mcb_evb dw ? ; mcb: Memmory Control Block mcb_psp dw ? show dw 1 count dw 0 VarLen equ $ - Old1cAddr time equ 1000 ;/// new1ch proc far ;/// ;sti push ax push bx inc cs:[count] ;mov ax, cs: [time] cmp cs:[count], time jne @New1chEnd mov bl, 36h mov ax, 1201h int 10h mov cs:[count], 0 mov cs:[show], 0 @New1chEnd: pop bx pop ax jmp cs:Old1cAddr new1ch endp ;/// new09h proc far ;sti push ax push bx cmp cs:[show], 1h je @New09hEnd mov cs:[show], 0h mov bl, 36h mov ax, 1200h int 10h @New09hEnd: mov cs:[count], 0 pop bx pop ax jmp cs:Old09Addr new09h endp ;/// @Init: mov ax, 3509h ; Get current 1ch interrupt vector int 21h cmp bx, offset new09h ; Has been Intalled? jnz @install ; No install mov dx, offset strMsgUninstall mov ah, 09h int 21h mov bx, 1ch * 04h ; Restore old 1ch interrupt vector xor ax, ax ; to System interrupt vector talbe mov ds, ax mov ax, es:[Old1cOff] mov ds:[bx], ax mov ax, es:[Old1cSeg] mov ds:[bx+2], ax mov bx, 09h * 04h ; Restore old 09h interrupt vector mov ax, es:[Old09Off] ; to System interrupt vector talbe ;xor ax, ax ;mov ds, ax ; ds must equal 0 mov ds:[bx], ax mov ax, es:[Old09Seg] mov ds:[bx+2], ax mov bx, 1 ; Release evirenment parameter block mov ax, es:[mcb_evb] mov ds, ax mov word ptr ds:[bx], 0 mov ax, es:[mcb_psp] ; Release TSR mov ds, ax mov word ptr ds:[bx], 0 mov ax, 4c00h int 21h @install: ;mov ax, 3509h ; Get current 1ch interrupt vector ;int 21h mov Old09Seg, es ; Store current 09h interrupt vector mov Old09Off, bx mov dx, offset new09h ; Set new 09h interrupt vector mov ax, 2509h int 21h mov ax, 351ch ; Get current 1ch interrupt vector int 21h mov Old1cSeg, es ; Store current 1ch interrupt vector mov Old1cOff, bx mov dx, offset new1ch ; Set new 1ch interrupt vector mov ax, 251ch int 21h mov dx, offset strMsgInstall mov ah, 09h int 21h ; Store the address of evirenment parameter block mov ax, cs dec ax mov [mcb_psp], ax ;mov cs:[mcb_psp], ax mov bx, 2ch mov ax, [bx] ;mov ax, cs:[bx] dec ax mov cs:[mcb_evb], ax mov dx, offset @Init add dx, VarLen + 2 mov cl, 04h shr dx, cl mov ax, 3100h int 21h ;==================== strMsgInstall db 07h, "Screensafer installed!$" strMsgUninstall db 07h, "Screensafer uninstalled!$" cseg ends end start
