;显示当前时间.日期
DATAS SEGMENT
db 9,8,7,4,2,0
DATAS ENDS
STACKS SEGMENT
;此处输入堆栈段代码
STACKS ENDS
CODES SEGMENT
ASSUME CS:CODES,DS:DATAS,SS:STACKS
START:
mov ax,datas
mov ds,ax
mov di,0 ;用于寻址端口号要访问内部存储单元地址
mov bx,0b800h
mov es,bx
mov cx,6
s:
push cx
mov al,ds:[di]
out 70h,al
in al,71h ;取出数据
mov ah,al
mov cl,4
shr ah,cl
and al,00001111b ;高位为十位,低位为个位
add ah,30h
add al,30h ;BCD码+30H
mov byte ptr es:[160*12+40*2+si],ah
mov byte ptr es:[160*12+40*2+si+2],al;显示字符
inc di
add si,4
pop cx
loop s
MOV AH,4CH
INT 21H
CODES ENDS
END START |