data segment 
     ioport  equ 0c400h-0280h
     ioport0     equ ioport+298h
data ends
code segment 
     assume  cs:code,ds:data
start:mov ax,data 
      mov ds,ax                    ;段裝填
on:   mov dx,ioport0               ;啟動轉換
      out dx,al                    
delay:push cx                      ;延時
      push ax
      mov cx,100h
   T1:mov ax,100h
   T2:dec ax
      jnz T2
      loop T1
      pop ax 
      pop cx
      in al,dx                     ;讀取轉換結果放在AL中
      mov bl,al
      mov cl,4
      shr al,cl
      call disp                    ;顯示高4位
      mov al,bl
      and al,0fh
      call disp                    ;顯示低4位
      mov dl,0ffh
      mov ah,6
      int 21h
      jz on                        ;沒有鍵按下則循環
exit: mov ah,4ch
      int 21h                      ;返回DOS
disp proc                          ;disp子程序
     mov dl,al
     cmp dl,9
     ja  test1
     add dl,30h                    ;小于等于9加30h
     jmp ttt
test1:add dl,37h                   ;大于9加37h
ttt:  mov ah,2
      int 21h
      ret
disp endp
  code ends
      end start