除錯透過！DATAS SEGMENT meg1 db "Input:$" meg2 db 0dh,0ah,"$" meg3 db 20 dup(0)DATAS ENDSSTACKS SEGMENT ;此處輸入堆疊段程式碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS MOV DS,AX lea dx,meg1 mov ah,9 int 21h lea si,meg3 mov cx,20 s1: mov ah,1 int 21h mov [si],al inc si loop s1 lea dx,meg2 mov ah,9 int 21h xor bx,bx lea si,meg3 dec si s2: inc si inc bx mov dl,[si] cmp dl,41h jb s2 cmp dl,5ah jbe s3 cmp dl,61h jb s2 cmp dl,7ah ja s2 s3: mov ah,2 int 21h cmp bx,20 jb s2 mov ah,0 int 16h MOV AH,4CH INT 21HCODES ENDS END START