循环程序设计－实验二 BY KTL

DATAS SEGMENT
    FACTOR1 DB  ? ;此处输入数据段代码
    FACTOR2 DB  ?  
    RESULT DW  ?
    LNUM DB  ?
    MULSYB DB  ' * '
    EQUSYB DB  ' = '  
DATAS ENDS

STACKS SEGMENT
    ;此处输入堆栈段代码
STACKS ENDS

CODES SEGMENT
    ASSUME CS:CODES,DS:DATAS,SS:STACKS
START:
    MOV AX,DATAS
    MOV DS,AX
    MOV LNUM,09H;此处输入代码据段代码
    MOV FACTOR2,01H
    LOOPSTART1:
    MOV AL,FACTOR2
    MOV AH,00H
    MOV FACTOR1,01H
    MOV CX,AX
    LOOPSTART2:
    MOV AH,02H
    MOV DL,FACTOR1
    ADD DL,30H
    INT 21H
    MOV AH,02H
    MOV DL,MULSYB
    INT 21H
    MOV AH,02H
    MOV DL,FACTOR2
    ADD DL,30H
    INT 21H
    MOV AH,02H
    MOV DL,EQUSYB
    INT 21H
    MOV AL,FACTOR1
    MUL FACTOR2
    AAM
    MOV WORD PTR RESULT,AX
    MOV AH,02H
    MOV BX,RESULT
    MOV DL,BH
    ADD DL,30H
    INT 21H
    MOV AH,02H
    MOV DL,BL
    ADD DL,30H
    INT 21H
    MOV AH,02H
    MOV DL,20H
    INT 21H
    INC FACTOR1
    LOOP LOOPSTART2
    MOV AH,02H
    MOV DL,0AH
    INT 21H
    MOV AH,02H
    MOV DL,0DH
    INT 21H
    INC FACTOR2
    DEC LNUM
    CMP LNUM,00H
    JNZ LOOPSTART1
    MOV AH,4CH
    INT 21H
CODES ENDS
    END START