主题:求助:一个小程序,输出金字塔似的星星
这是我的程序,运行后输入数字后没反应,希望大家可以看一下.
DATA SEGMENT
I DB 0
J DB 0
K DB 0
N DB ?
ENDL DB 0AH, 0DH, '$'
SPACE DB ' '
STAR DB '*'
STR1 DB 0AH,0DH, 'ENTER THE NUMBER YOU WANT $'
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:
MOV AX,DATA
MOV DS,AX
MOV DX,OFFSET STR1
MOV AH,09H
INT 21H
MOV AH,01H
INT 21H
MOV N,AL
MOV CL,N
MOV BL,I
SUB CL,1
SUB CL,BL
PRO_I:
MOV BL,I
CMP BL,N
JNB ENDING
PRO_J:
MOV BH,J
CMP BH,CL
JNB PRO_K
MOV DL,OFFSET SPACE
MOV AH,02H
INT 21H
INC BH
JMP PRO_J
PRO_K:
MOV CH,BL
ADD CH,CH
INC CH
PRO_K_A:
MOV AL,K
CMP AL,CH
JNB PRO_ENTER
MOV DL,OFFSET STAR
MOV AH,02H
INT 21H
INC AL
JMP PRO_K_A
PRO_ENTER:
MOV DL,OFFSET ENDL
MOV AH,09H
INT 21H
INC BL
JMP PRO_I
ENDING:
MOV AH,4CH
INT 21H
CODE ENDS
END START
谢了.
DATA SEGMENT
I DB 0
J DB 0
K DB 0
N DB ?
ENDL DB 0AH, 0DH, '$'
SPACE DB ' '
STAR DB '*'
STR1 DB 0AH,0DH, 'ENTER THE NUMBER YOU WANT $'
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:
MOV AX,DATA
MOV DS,AX
MOV DX,OFFSET STR1
MOV AH,09H
INT 21H
MOV AH,01H
INT 21H
MOV N,AL
MOV CL,N
MOV BL,I
SUB CL,1
SUB CL,BL
PRO_I:
MOV BL,I
CMP BL,N
JNB ENDING
PRO_J:
MOV BH,J
CMP BH,CL
JNB PRO_K
MOV DL,OFFSET SPACE
MOV AH,02H
INT 21H
INC BH
JMP PRO_J
PRO_K:
MOV CH,BL
ADD CH,CH
INC CH
PRO_K_A:
MOV AL,K
CMP AL,CH
JNB PRO_ENTER
MOV DL,OFFSET STAR
MOV AH,02H
INT 21H
INC AL
JMP PRO_K_A
PRO_ENTER:
MOV DL,OFFSET ENDL
MOV AH,09H
INT 21H
INC BL
JMP PRO_I
ENDING:
MOV AH,4CH
INT 21H
CODE ENDS
END START
谢了.