代碼段
假設CS:Code，DS:Code
KBEsc equ 1BH
PromptStr DB '請輸入壹個字母(Esc退出):$ '
開始:推送cs
pop ds使數據段與代碼段相同。
Begin: lea dx，PromptStr
mov ah，9
int 21h
mov ah，1
int 21h
cmp al，KBEsc
jz出口_過程
mov cx，5
mov dl，al
mov ah，2
Disp_Chr: inc dl
int 21h
循環顯示_記錄
mov dl，13
int 21h
mov dl，10
int 21h
jmp開始
Exit_Proc: mov ah，4ch結束程序
int 21h
代碼結束
結束開始；這是編譯的結尾