彙編--寫出按鍵ASCII

編寫一個源程式，在鍵盤上按一個鍵，見其傳回的ASCII碼值顯式出來，如果按下ESC鍵，（對應ASCII是 1bh），則程式退出。

.model small
 .stack
 .data
msg db 'Input ',13,10,'$'
tes db  2 dup (?),13,10,'$'
 .code
 .startup
again : mov dx,offset msg
 mov ah,9
 int 21h
 mov ah ,1
 int 21h
 cmp al,1bh
 jz over
 mov bl,al
 and al ,0fh
 or al,30h
 cmp al,39h
 jbe jieshu
 add al,7
jieshu : 
 rol bl,1
 rol bl,1
 rol bl,1
 rol bl,1
 and bl,0fh
 or bl,30h
 cmp bl,39h
 jbe done 
 add bl ,7
done :mov tes[0],bl
 mov tes[1],al
    mov dx ,offset tes
 mov ah,9
 int 21h
 jmp again
over :
 .exit
  end
           

16位彙程式設計式