一个小程序,编译出错,请高手帮帮忙
stack segment stack
dw 512 dup(?)
stack ends
data segment
data ends
code segment 'code'
assume cs:code,ds:code,ss:stack
start: ;此处添加主程序代码
getkey: mov bh,01
mov cx,01
forx: call prx ;让“霓虹灯”发亮的效果
.IF bh==05
call prh
mov bh,00
.ENDIF
call sleep
inc cx
inc bh
.IF cx<=19
jmp forx
jmp fork
.ENDIF
call gotoxy
mov cx,01
fork: call prk ;让“霓虹灯”产生消失的效果
.IF bh==05
call prh
mov bh,00
.ENDIF
call sleep
inc cx
inc bh
.IF cx<=19
jmp fork
jmp fork
.ENDIF
call gotoxy
mov ah,0b
int 21
or al,al
jz getkey
prk: mov ah,02 ;输出空格
mov dl,20
int 21
ret
sleep: mov dx,eeeeh ;让程序暂停一段时间
nop
nop
dec dx
cmp dx,0000
jnb sleep
ret
prh: mov ah,02 ;输出回车
mov dl,0d
int 21
ret
prx: mov ah,02 ;输出星号
mov dl,2A
int 21
ret
gotoxy: mov bh,0 ;让光标回到一行一列
mov dl,01
mov dh,01
ret
code ends
end start