用栈实现实验14..

博丽灵梦

1. assume cs:code
   
2. code segment
   
3. s        db 0,2,4,7,8,9
   
4.         start:        mov ax,        cs
   
5.                         mov ds,        ax
   
6.                         mov si,        offset s
   
7.                         mov cx,        3
   
8.                         mov bl,        '
   
9.                         mov bh,        0
   
10.                         push bx        ;结束符入栈
    
11.                 do1:mov al,        [si]        ;时间处理并逆序入栈
    
12.                         out 70h,al
    
13.                         in        al,        71h
    
14.                         call bcd
    
15.                         push ax       
    
16.                         cmp        cx,1
    
17.                         jz        ok1
    
18.                         mov bl,        ':'
    
19.                         mov bh,        0
    
20.                         push bx
    
21.                 ok1:inc si
    
22.                         loop do1
    
23.                         mov bl,        ' '
    
24.                         mov bh,        0
    
25.                         push bx
    
26.                         mov cx,        3
    
27.                 do2:mov al,        [si]        ;日期处理并逆序入栈
    
28.                         out 70h,al
    
29.                         in        al,        71h
    
30.                         call bcd
    
31.                         push ax        ;秒入栈
    
32.                         cmp        cx,1
    
33.                         jz        ok
    
34.                         mov bl,        '/'
    
35.                         mov bh,        0
    
36.                         push bx
    
37.                 ok:        inc si
    
38.                         loop do2
    
39.                         mov ax,        ss
    
40.                         mov ds,        ax
    
41.                         mov dx,        sp
    
42.                         mov ah,        9
    
43.                         int 21h
    
44.                         add sp,        22                ;恢复栈
    
45.                        
    
46.                         mov ax,        4c00h
    
47.                         int 21h
    
48.                        
    
49.                 bcd:push cx                        ;处理BCD码到ASCII码
    
50.                         mov ah,        al       
    
51.                         mov cl,        4
    
52.                         shr al,        cl
    
53.                         and ah,        00001111b
    
54.                         add al,        30h
    
55.                         add ah,        30h
    
56.                         pop cx
    
57.                         ret
    
58.                
    
59.                
    
60. code ends
    
61. end start

复制代码