datarea 　　　segment
　　　　thirty 　　　db 　　　30
　　　; 信息表
　　　msg0 db 'I like my IBM-PC---------------------------------------'
　　　msg1 db '8088 programming is fun--------------------------------'
　　　msg2 db 'Time to buy more diskettes-----------------------------'
　　　msg3 db 'This program works-------------------------------------'
　　　msg4 db 'Turn off that printer----------------------------------'
　　　msg5 db 'I have more memory than you----------------------------'
　　　msg6 db 'The PSP can be useful----------------------------------'
　　　msg7 db 'BASIC was easier than this-----------------------------'
　　　msg8 db 'DOS is indispensable-----------------------------------'
　　　msg9 db 'Last massage of the day--------------------------------'
　　　; 错误信息
　　　errmsg db 'error!!! invalid parameter!! '
　　　datarea ends

　　　stack 　　segment
　　　　db 　　　256 　　　　dup(0)
　　　　tos　　　label 　　　word
　　　stack 　　ends

　　prognam 　segment
　　　　main 　　proc 　　　 far
　　　　assume 　cs:prognam,ds:datarea,ss:stack
　　start:
　　　　mov 　　 ax,stack
　　　　mov　　　ss,ax
　　　　mov 　　 sp,offset 　tos

　　　　push 　　ds
　　　　sub 　　 ax,ax
　　　　push　　 ax
　　　　mov 　　 ax,datarea
　　　　mov　　　ds,ax

　begin:mov 　　 ah,1
　　　　int 　　 21h 　　　　　　　　; 从键盘输入一个字符
　　　; 错误输入转error
　　　　sub 　　 al,'0'
　　　　jc 　　　error
　　　　cmp 　　 al,9
　　　　ja　　　 error
　　　; 正确输入
　　　　mov 　　 bx,offset msg0 　　 ; 信息表首地址送bx
　　　　mul 　　 thirty 　　　　　　 ; (ax)=(al)*30
　　　　add 　　 bx,ax 　　　　　　　; bx指向相应位置
　　　　call 　　display 　　　　　　; 显示相应编号信息
　　　　jmp 　　 begin
　error:mov 　　 bx,offset 　errmsg
　　　　call 　　display 　　　　　　; 显示错误信息
　　　　ret

　　　　display　proc 　　　 near
　　　　mov 　　 cx,30
　disp1:mov 　　 dl,[bx]
　　　　call 　　dispchar 　　　　　 ; 显示一个字符
　　　　inc 　　 bx
　　　　loop 　　disp1 　　　　　　　; 循环
　　　　mov 　　 dl,0dh
　　　　call　　 dispchar 　　　　　 ; 显示回车
　　　　mov 　　 dl,0ah
　　　　call　　 dispchar 　　　　　 ; 显示换行
　　　　ret
　　　　display　endp

　　　　dispchar proc 　　　 near
　　　　mov 　　 ah,2
　　　　int 　　 21h
　　　　ret
　　　　dispchar endp
　　　　main 　　endp
prognam ends
end 　　start