time.txt

动态显示系统时间的程序

1DATAS SEGMENT
  2    nowtime db 'the time now is:$'
  3    modtime db 'setting the new time$'
  4    hstring db 'enter the hour:$'
  5    mstring db 'enter the minute:$'
  6    sstring db 'enter the second:$'
  7    
  8    ;此处输入数据段代码  
  9DATAS ENDS
 10
 11STACKS SEGMENT
 12    ;此处输入堆栈段代码
 13STACKS ENDS
 14
 15CODES SEGMENT
 16    ASSUME CS:CODES,DS:DATAS,SS:STACKS
 17START:
 18    MOV AX,DATAS
 19    MOV DS,AX
 20    
 21    call disptime
 22    call moditime
 23    call disptime
 24    
 25exit:
 26    mov ah,4ch
 27    int 21h
 28    
 29    newline proc                 ;换行
 30        mov dl,0ah
 31        mov ah,02h
 32           int 21h
 33        mov dl,0dh
 34        mov ah,02h
 35        int 21h
 36        ret
 37    newline endp
 38    
 39    disptime proc               ;显示当前系统时间
 40        lea dx,nowtime
 41        mov ah,09h
 42        int 21h
 43    
 44        mov ah,2ch             ;调用中断,读取系统时间
 45        int 21h
 46    
 47        mov al,ch              ;转换成ASCII码
 48        cbw
 49        call bindec
 50        mov dl,':'
 51        mov ah,02h
 52        int 21h
 53        mov al,cl
 54        cbw
 55        call bindec
 56        mov dl,':'
 57        mov ah,02h
 58        int 21h
 59        mov al,dh
 60        cbw
 61        call bindec
 62        call newline
 63        ret
 64    disptime endp
 65    
 66    moditime proc          ;修改时间
 67        push ax
 68        push cx
 69        push dx
 70        
 71        lea dx,modtime
 72        mov ah,09h
 73        int 21h
 74        call newline
 75        
 76        lea dx,hstring        ;键盘输入并转换成二进制码
 77        mov ah,09h
 78        int 21h
 79        mov ah,01h
 80        int 21h
 81        sub al,30h
 82        mov bl,10d
 83        mul bl
 84        mov bx,ax
 85        mov ah,01h
 86        int 21h
 87        sub al,30h
 88        add al,bl
 89
 90        mov ch,al
 91        call newline
 92        
 93        lea dx,mstring
 94        mov ah,09h
 95        int 21h
 96        mov ah,01h
 97        int 21h
 98        sub al,30h
 99        mov bl,10d
100        mul bl
101        mov bx,ax
102        mov ah,01h
103        int 21h
104        sub al,30h
105        add al,bl
106        mov cl,al
107        call newline
108        
109        lea dx,sstring
110        mov ah,09h
111        int 21h
112        mov ah,01h
113        int 21h
114        sub al,30h
115        mov bl,10d
116        mul bl
117        mov bx,ax
118        mov ah,01h
119        int 21h
120        sub al,30h
121        add al,bl
122        mov dh,al
123        call newline
124        
125        mov dl,0        ;调用中断,修改系统时间
126        mov ah,2Dh
127        int 21h
128
129        
130        pop dx
131        pop cx
132        pop ax
133        ret
134    moditime endp    
135    
136    bindec proc         ;二进制码转ASCII函数
137        push ax
138        push cx
139        push dx
140        mov dx,0
141        mov cx,10d
142        div cx
143        mov bx,dx
144        mov dl,al
145        add dl,30h
146        mov ah,02h
147        int 21h
148        mov dx,bx
149        add dl,30h
150        mov ah,02h
151        int 21h 
152        pop dx
153        pop cx
154        pop ax
155        ret
156    bindec endp
157    
158
159        
160    
161        
162    
163    MOV AH,4CH
164    INT 21H
165CODES ENDS
166    END START