assume cs:code,ds:data
data segment
uintConten db 0h,2h,4h,7h,8h,9h
setUnitCont db 16 dup(0)
data ends
code segment
start:mov ax,data
mov ds,ax
mov si,0
mov ax,data
mov ss,ax
mov sp,22
mov cx,6
call get_unit_conten
mov cx,6
call show_time_conten
call return_to_dos
get_unit_conten:mov al,ds:[si]
out 70h,al
in al,71h
push cx
mov ah,al
mov cl,4
shr ah,cl
and al,00001111b
add ah,30h
add al,30h
inc si
pop cx
;push ah
;push al
push ax
loop get_unit_conten
ret
show_time_conten:mov bx,08b00h
mov es,bx
mov bx,0
s:pop ax
;pop es:[12*160+20*2+bx]
mov es:[12*160+20*2],ah
add bx,2
mov es:[12*160+20*2+bx],al
loop s
ret
return_to_dos:mov ax,4c00
int 21h
code ends
end start |
