浠ｇ爜濡備笅(MASM v5.0緙栬瘧閫氳繃):
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;2005.7.13-7.24;;榪欐槸涓涓┗鐣欏唴瀛樼殑鏃墮挓,鏈▼搴忔樉紺烘椂閽熺殑鏃跺欐槸鐩存帴淇敼鏄劇ず緙撳啿鍖虹殑;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;COM鐨勭▼搴?鍙湁涓涓code segment org 100h;com鏂囦歡闇瑕佸湪寮澶撮鐣?00h瀛楄妭鐨勭┖闂?BR> assume cs:code , ds:codemain: jmp start;瑕佽煩寮鏁版嵁閮ㄥ垎,涓嶈兘鎵ц welcome db '+---------------------------------------------------+' ,0ah ,0dh db '+ This is a clock +' ,0ah ,0dh db '+ ---write by Future Yao+' ,0ah ,0dh db '+---------------------------------------------------+' ,0ah ,0dh ,'$' old_int dd ?TSR proc far ;淇濇姢鐜板満 push ax push bx push cx push dx push si push di push bp push sp push es push ds sti call disp cli ;榪斿洖鐜板満 pop ds pop es pop sp pop bp pop di pop si pop dx pop cx pop bx pop ax jmp cs:old_intTSR endpdisp proc near push ax push cx push dx push es push bx ;榪涜鍒濆鍖?BR> mov ax,0b800h mov es,ax ;鑾峰緱鏃墮棿 mov ah, 02h int 1ah mov ax, 0eh ;鏄劇ず灝忔椂鐨勯珮浣?BR> mov bh,ch shr bh,1 shr bh,1 shr bh,1 shr bh,1 add bh,30h mov es:0090h,bh mov es:0091h,ax ;鏄劇ず灝忔椂鐨勪綆浣?BR> and ch,0fh add ch,30h mov es:0092h,ch mov es:0093h,ax ;鏄劇ず鍒嗛殧絎﹀彿: mov byte ptr es:0094h,':' mov es:0095h,ax ;鏄劇ず鍒嗛挓鐨勯珮浣?BR> mov bh,cl shr bh,1 shr bh,1 shr bh,1 shr bh,1 add bh,30h mov es:0096h,bh mov es:0097h,ax ;鏄劇ず鍒嗛挓鐨勪綆浣?BR> and cl,0fh add cl,30h mov es:0098h,cl mov es:0099h,ax ;鏄劇ず鍒嗛殧絎﹀彿: mov byte ptr es:009ah,':' mov es:009bh,ax ;鏄劇ず縐掔殑楂樹綅 mov bh,dh shr bh,1 shr bh,1 shr bh,1 shr bh,1 add bh,30h mov es:009ch,bh mov es:009dh,ax ;鏄劇ず縐掔殑浣庝綅 and dh,0fh add dh,30h mov es:009eh,dh mov es:009fh,al pop bx pop es pop dx pop cx pop ax retdisp endpstart: mov dx ,offset welcome mov ah ,09h int 21h mov ax ,351Ch int 21h;璇誨彇涓柇鍚戦噺 mov word ptr old_int , bx mov word ptr old_int[2] , es mov dx , offset TSR push cs pop ds mov ax , 251Ch int 21h mov dx , offset start int 27h code ends end main]]>