真的没人会吗？在百度贴吧发贴都没人回答

[bakerycn00001]

5.5 试编写一程序，要求能从键盘接收一个个位数N，然后响铃N次(响铃的ASCII码为07)。

答：程序段如下：

BEGIN: MOV AH, 1 ；从键盘输入一个字符的DOS调用

INT 21H

SUB AL, ‘0’

JB STOP ；输入字符<‘0’吗？

CMP AL, 9 ；输入字符>‘9’吗？

JA STOP

CBW

MOV CX, AX ；响铃次数N

JCXZ STOP

BELL: MOV DL, 07H ；准备响铃

MOV AH, 2 ；显示一个字符的DOS调用，实际为响铃

INT 21H

CALL DELAY100ms ；延时100ms

LOOP BELL

STOP: RET
答案书上给的答案，只给代码段，没编译通过呀，有高手帮忙吗，让他编译通过

[filec75]

ding

[authenticationf]

ding

[juzinaiyou]

CALL DELAY100ms
那个delay100ms
子程序？也给补上。

[xtdumpling]

stack_seg segment 'stack'
    dw 10h dup(0)
stack_seg ends
code_seg segment 'code'
    assume ss:stack_seg
BEGIN:        MOV      AH, 1                    ;从键盘输入一个字符的DOS调用 

INT        21H 

SUB              AL, '0'

JB          STOP                  ;输入字符 <‘0’吗？ 

CMP      AL, 9                  ;输入字符>‘9’吗？ 

JA          STOP 

CBW 

MOV      CX, AX                ;响铃次数N 

JCXZ    STOP 

BELL:          MOV      DL, 07H                ;准备响铃 

MOV      AH, 2                    ;显示一个字符的DOS调用，实际为响铃 

INT        21H 

CALL    DELAY100ms        ;延时100ms 

LOOP    BELL 

STOP:;          RET
    mov ah,4ch
    int 21h

delay100ms proc uses cx
    mov  cx, 120
    call delay_1ms
    ret
delay100ms endp

delay_1ms proc near public uses ax cx
    mov     cx,60			;63*15.8us=995.4us
@@:
    in      al,61h
    and     al,10h
    cmp     al,ah
    je      @b
    mov     ah,al
    loop    @b
    ret
delay_1ms     endp

code_seg ends
end BEGIN

[xtdumpling]

stack_seg segment 'stack'
    dw 10h dup(0)
stack_seg ends
code_seg segment 'code'
    assume ss:stack_seg
BEGIN:        MOV      AH, 1                    ;从键盘输入一个字符的DOS调用 

INT        21H 

SUB              AL, '0'

JB          STOP                  ;输入字符 <‘0’吗？ 

CMP      AL, 9                  ;输入字符>‘9’吗？ 

JA          STOP 

CBW 

MOV      CX, AX                ;响铃次数N 

JCXZ    STOP 

BELL:          MOV      DL, 07H                ;准备响铃 

MOV      AH, 2                    ;显示一个字符的DOS调用，实际为响铃 

INT        21H 

CALL    DELAY100ms        ;延时100ms 

LOOP    BELL 

STOP:;          RET
    mov ah,4ch
    int 21h

delay100ms proc uses cx
    mov  cx, 100;;;;;
    call delay_1ms
    ret
delay100ms endp

delay_1ms proc near public uses ax cx
    mov     cx,60			;63*15.8us=995.4us
@@:
    in      al,61h
    and     al,10h
    cmp     al,ah
    je      @b
    mov     ah,al
    loop    @b
    ret
delay_1ms     endp

code_seg ends
end BEGIN