王爽汇编语言第二版学习笔记之实验14

jeset

1. assume cs:code
   
2. code segment
   
3. start:
   
4. mov bx,0b800h
   
5. mov es,bx
   
6. mov bx,20*2
   
7. ;年开始
   
8. mov al,9
   
9. out 70h,al
   
10. in al,71h
    
11. call zh
    
12. call xg
    
13. ;年结束
    
14. 
    
15. 
    
16. ;月开始
    
17. mov al,8
    
18. out 70h,al
    
19. in al,71h
    
20. call zh
    
21. call xg
    
22. ;月结束
    
23. 
    
24. ;日开始
    
25. mov al,7
    
26. out 70h,al
    
27. in al,71h
    
28. call zh
    
29. ;日结束
    
30. ;=============================================
    
31. ;年月日完毕
    
32. ;=============================================
    
33. mov byte ptr es:[160*12+bx],20H
    
34. add bx,2
    
35. 
    
36. ;时开始
    
37. mov al,4
    
38. out 70h,al
    
39. in al,71h
    
40. call zh
    
41. call mh
    
42. ;时结束
    
43. 
    
44. ;分开始
    
45. mov al,2
    
46. out 70h,al
    
47. in al,71h
    
48. call zh
    
49. call mh
    
50. ;分结束
    
51. 
    
52. ;秒开始
    
53. mov al,0
    
54. out 70h,al
    
55. in al,71h
    
56. call zh
    
57. ;秒结束
    
58. 
    
59. mov ax,4c00h
    
60. int 21h
    
61. 
    
62. 
    
63. zh:
    
64. mov ah,al
    
65. mov cl,4
    
66. shr ah,cl
    
67. and al,00001111b
    
68. 
    
69. add ah,30h
    
70. add al,30h
    
71. 
    
72. mov byte ptr es:[160*12+bx],ah
    
73. inc bx
    
74. mov byte ptr es:[160*12+bx],02H
    
75. inc bx
    
76. mov byte ptr es:[160*12+bx],al
    
77. inc bx
    
78. mov byte ptr es:[160*12+bx],02H
    
79. inc bx
    
80. 
    
81. ret
    
82. 
    
83. xg:
    
84. mov byte ptr es:[160*12+bx],2fh
    
85. inc bx
    
86. mov byte ptr es:[160*12+bx],02H
    
87. inc bx
    
88. ret
    
89. 
    
90. mh:
    
91. mov byte ptr es:[160*12+bx],3ah
    
92. inc bx
    
93. mov byte ptr es:[160*12+bx],02H
    
94. inc bx
    
95. ret
    
96. code ends
    
97. end start

复制代码