请教一下这段代码为什么不显示?

kz82

assume cs:codesg
datasg segment
        db "Beginner's All-purpose Symbolic Instruction Code.",0
datasg ends
codesg segment
begin:
        mov ax,datasg
        mov ds,ax
        mov si,0
        call s
        mov ax,4c00h
        int 21h
s:    mov al,ds:[si]
      cmp al,0
   je s1
   cmp al,61h
   jb s2
   cmp al,71h
   ja s2
   inc si
   jmp short s
s2:   and al,11011111b
      mov ds:[si],al
   jmp  s
s1:   mov ax,0b800h
      mov es,ax
   mov di,0
   sub dh,1
   mov al,160
   mul dh
   mov bx,ax
   sub dl,2
   mov al,2
   mul dl
   mov bx,ax
   mov cl,2
   mov al,cl
   mov ch,0
s3:   mov cl,ds:[si]
      jcxz  s3
   mov es:[bx+di],cl
   mov es:[bx+di+1],al
   inc si
   add di,2
   jmp short s1
   ret
   
codesg ends
end begin

夏洛

应该再好好看看cmp那段，尤其是利用cmp进行转移的，ASCLL码从61h到7Ah是小写字母，这段应该把不符合条件的跳转出去，符合条件的一直执行下去，然后将小写变为大写
还有显示那段，如果单纯显示文本，只要确定从什么位置开始就可以了，不需要和先前的例子用dh dl cl，如果使用的话，也需要事先赋值，所以显示那段也有问题

1. assume cs:codesg,ds:datasg
   
2. 
   
3. datasg segment
   
4.         db "Beginner's All-purpose Symbolic Instruction Code.",0
   
5. datasg ends
   
6. 
   
7. codesg segment
   
8. 
   
9.         begin: mov ax,datasg
   
10.                mov ds,ax
    
11.                mov si,0
    
12.                call s
    
13.                mov ax,4c00h
    
14.                int 21h
    
15. 
    
16.             s: mov al,ds:[si]
    
17.                cmp al,0
    
18.                je s1
    
19.                cmp al,61h
    
20.                jb s2
    
21.                cmp al,7Ah
    
22.                ja s2
    
23.                and al,11011111b
    
24.                mov ds:[si],al
    
25.            s2: inc si
    
26.                jmp short s
    
27. 
    
28.            s1: mov ax,0b800h
    
29.                mov es,ax
    
30.                mov di,0
    
31.                mov si,0
    
32.                mov bx,12*160+3*2
    
33.                mov al,02h
    
34. 
    
35.            s3: mov cl,ds:[si]
    
36.                mov ch,0
    
37.                jcxz ok
    
38.                mov es:[bx+di],cl
    
39.                mov es:[bx+di+1],al
    
40.                inc si
    
41.                add di,2
    
42.                loop s3
    
43. 
    
44.            ok: ret
    
45. 
    
46. codesg ends
    
47. end begin

复制代码