汇编语言 实验14

assume cs:code,ds:data

data segment
	db 9,8,7,4,2,0
	db '??/??/?? ??:??:??','$'
data ends

code segment
start:
	mov ax,data
	mov ds,ax
	mov bx,0
	mov bp,6

	mov cx,6

	;; write to the data segment
s:
	push cx
	mov al,[bx]
	out 70h,al
	in al,71h

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

	add ah,30h
	add al,30h
	mov [bp],ax

	inc bx
	add bp,3
	pop cx
	loop s

	;; print to screen
	mov ah,2
	mov bh,0
	mov dh,5
	mov dl,6
	int 10h

	mov dx,bx
	mov ah,9
	int 21h

	mov ax,4c00h
	int 21h
code ends
end start