王爽《汇编语言》实验14

assume cs:code,ds:data
data segment
  db '00/00/00 00:00:00','$'
  db 9,8,7,4,2,0
data ends

code segment
start:mov ax,data
      mov ds,ax
      mov si,0
      mov bx,18

      mov cx,6
    s:mov al,ds:[bx]
      push cx
      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 ds:[si],ah
      mov ds:[si+1],al
      add si,3
      inc bx
      pop cx
      loop s

      mov ax,data
      mov ds,ax
      mov dx,0
      mov ah,9
      int 21h

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