1 ;显示系统时间程序 2 3 data segment 4 ; add your data here! 5 hour db '?' 6 minute db '?' 7 second db '?' 8 time db "00:00:00$" 9 temp db '?' 10 now db '?' 11 want db '?' 12 pkey db "press any key...$" 13 ends 14 15 stack segment 16 dw 128 dup(0) 17 ends 18 19 code segment 20 ;--------------------------------------------- 21 main proc far 22 call init_register ;初始化 23 SiXunHuan: 24 mov want,1D ;延时3S 25 call delay 26 call setshow 27 call show_time ;显示 28 loop SiXunHuan 29 30 call last_show ;结果 31 ret 32 main endp; 33 ;--------------------------------------------- 34 init_register proc near;set segment registers: 35 mov ax, data 36 mov ds, ax 37 mov es, ax 38 ret 39 init_register endp 40 ;--------------------------------------------- 41 show_time proc near ;时间子程序 42 mov ah,2Ch 43 int 21h ;获取时间 44 mov hour,ch 45 mov minute,cl 46 mov second,dh 47 48 mov ax,0 ;计算到字符串时间 49 mov al,hour 50 mov temp,10D 51 div temp 52 add al,30H 53 mov time[0],al 54 add ah,30H 55 mov time[1],ah 56 57 mov ax,0 58 mov al,minute 59 mov temp,10D 60 div temp 61 add al,30H 62 mov time[3],al 63 add ah,30H 64 mov time[4],ah 65 66 mov ax,0 67 mov al,second 68 mov temp,10D 69 div temp 70 add al,30H 71 mov time[6],al 72 add ah,30H 73 mov time[7],ah 74 75 lea dx,time ;10中断显示时间 76 mov ah,09H 77 int 21H 78 79 ret 80 show_time endp 81 ;--------------------------------------------- 82 last_show proc near ;最后显示东西 83 lea dx, pkey ; output string at ds:dx 84 mov ah, 9 85 int 21h 86 87 ; wait for any key....and end 88 mov ah, 1 89 int 21h 90 91 mov ax, 4c00h ; exit to operating system. 92 int 21h 93 ret 94 last_show endp 95 ;--------------------------------------------- 96 delay proc near ;延时函数,放在want为想要延时的秒数 97 mov ah,2Ch 98 int 21h ;获取时间 99 mov now,dh 100 101 mov ax,0 102 mov al,now 103 add al,want 104 mov temp,60D 105 div temp 106 mov want,ah 107 del: 108 mov ah,2Ch 109 int 21h 110 cmp dh,want 111 jz next 112 loop del 113 next: 114 ret 115 delay endp 116 ;--------------------------------------------- 117 setshow proc near ;设置光标位置位置 118 mov dh,12 ;row-1 119 mov dl,34 ;columun-1 120 mov bh,0 121 mov ah,2 122 int 10h 123 setshow endp 124 ;--------------------------------------------- 125 clear proc near 126 ret 127 clear endp 128 ;--------------------------------------------- 129 end code 130 end