不能用汇编语言打印前20个偶数和奇数

Question

我正在使用打印偶数和奇数的程序，但它不工作我的代码有什么问题?因为我是汇编语言的新手

这是我的主要功能:

.data
S BYTE ?
.code
main proc
call ven
MOV AH,4ch
INT 21h
main endp

这是我的程序:

ven proc
MOV S,0  \ S is a variable
L1:
JE ter
MOV AX,S
MOV bl,2
DIV bl
CMP AH,0
JE EVE
JNE ODD
EVE:
MOV AH,2
MOV DL,AL
INT 21h
jmp L1
ODD:
MOV AH,2
MOV DL,AL
INT 21h
jmp L1
ter:
RET
ven ENDP
END MAIN

是我的ven程序有问题，我以错误的方式将它与main链接。

Answer 1

你的代码中有一些小错误，我修复了它们并用箭头(◄■■■)指向它们:

.stack 100h       ;◄■■■ PROCEDURES REQUIERE STACK.
.data
S dw ?            ;◄■■■ DW, NOT BYTE, BECAUSE AX IS TYPE DW.
.code
main proc
call ven
;call outdec
MOV AH,4ch
INT 21h
main endp
ven proc
MOV S,0
L1:
INC S             ;◄■■■ S+1
CMP S,20          ;◄■■■ IF S > 20...
JA ter            ;◄■■■ ...JUMP TO TER.
MOV AX,S
MOV bl,2
DIV bl
CMP AH,0
JE EVE
JNE ODD
EVE:
MOV AH,2
MOV DL,AL         ;◄■■■ HERE YOU PRINT "AL", BUT THE NUMBER
INT 21h           ;◄■■■ TO PRINT IS "S". USE "CALL OUTDEC".
jmp L1
ODD:
MOV AH,2
MOV DL,AL         ;◄■■■ HERE YOU PRINT "AL", BUT THE NUMBER
INT 21h           ;◄■■■ TO PRINT IS "S". USE "CALL OUTDEC".
jmp L1
ter:
RET
ven ENDP
END MAIN