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

jeset

assume cs:code
code segment
start:
mov bx,0b800h
mov es,bx
mov bx,20*2
;年开始
mov al,9
out 70h,al
in al,71h
call zh
call xg
;年结束


;月开始
mov al,8
out 70h,al
in al,71h
call zh
call xg
;月结束

;日开始
mov al,7
out 70h,al
in al,71h
call zh
;日结束
;=============================================
;年月日完毕 
;=============================================
mov byte ptr es:[160*12+bx],20H
add bx,2

;时开始
mov al,4
out 70h,al
in al,71h
call zh
call mh
;时结束

;分开始
mov al,2
out 70h,al
in al,71h
call zh
call mh
;分结束

;秒开始
mov al,0
out 70h,al
in al,71h
call zh
;秒结束

mov ax,4c00h
int 21h


zh:
mov ah,al
mov cl,4
shr ah,cl
and al,00001111b

add ah,30h
add al,30h

mov byte ptr es:[160*12+bx],ah
inc bx
mov byte ptr es:[160*12+bx],02H
inc bx
mov byte ptr es:[160*12+bx],al
inc bx
mov byte ptr es:[160*12+bx],02H
inc bx

ret

xg:
mov byte ptr es:[160*12+bx],2fh
inc bx
mov byte ptr es:[160*12+bx],02H
inc bx
ret

mh:
mov byte ptr es:[160*12+bx],3ah
inc bx
mov byte ptr es:[160*12+bx],02H
inc bx
ret
code ends
end start