时钟驻留.txt

靠8259定时电路运行的系统时钟驻留程序

;这个程序运行后会立即退出,但在DOS窗口的右下角会显示一个彩色的小标签.里面显示着系统时间;，每过一秒就会更新一次。 
;更有趣的是,无论你用cls,或者dir,或者echo...等DOS命令,它都不会消失,一直停留在右下角.但不;会影响你的任何操作，因为它不使用cpu时间，完全靠的是8259定时电路运行。 
;===========================
;驻留内存的系统时钟 
;本程序必需编译成.COM文件才能正确运行 
;编译方法:  
;tasm time 
;tlink time /x /t 

code segment 
assume cs:code, ds:code 
ORG 100h 
begin: Jmp install 
point dw 0 
tis db 'T^i^m^e^=^' 
conter db 18 

Inter1: push ax 
	push es 
	push di  
dec byte ptr cs:[conter] 
Jnz retu 

mov ax, 0b800h 
mov es, ax 
mov di, 160*12+120 
push si 
push ds 
push cx 
push cs 
pop   ds 
mov si, offset cs:tis 
mov cx, 5 
repz movsw 
add di, 10 
mov byte ptr es:[di+1], 3eh 
mov byte ptr es:[di+3], 0aeh 
pop cx 
pop ds 
pop si 
push ds 
push bx 
push dx  
mov ax, 0040h 
mov ds, ax 
mov ax, word ptr ds:[006ch] 
mov bx, 10 
demaci: xor dx, dx 
div bx 
add dl, 30h 
mov byte ptr es:[di], dl 
dec di 
mov byte ptr es:[di],    3eh 
dec di 
or ax, ax 
Jnz demaci 
pop  dx
pop bx
pop ds 

mov byte ptr cs:[conter], 18 
retu:  
pop di
pop es
pop ax 
IRET 

Install:  xor ax, ax 
mov ds, ax 
mov bx, 1ch*4 
mov dx, offset Inter1 
mov word ptr ds:[bx+0], dx 
mov word ptr ds:[bx+2], cs 

mov dx, Offset Install 
int 27h 
code ends 
end begin