王爽汇编语言第二版学习笔记之实验14
assume cs:codecode 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:,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:,ah
inc bx
mov byte ptr es:,02H
inc bx
mov byte ptr es:,al
inc bx
mov byte ptr es:,02H
inc bx
ret
xg:
mov byte ptr es:,2fh
inc bx
mov byte ptr es:,02H
inc bx
ret
mh:
mov byte ptr es:,3ah
inc bx
mov byte ptr es:,02H
inc bx
ret
code ends
end start
页:
[1]