liu1.asm

汇编语言程序设计实验教程 汇编９９表

SSEG    SEGMENT STACK
STK     DB  20 DUP(0)
SSEG    ENDS
DSEG    SEGMENT
DSEG    ENDS
CSEG    SEGMENT
        ASSUME CS:CSEG,DS:DSEG
        ASSUME SS:SSEG
BEGIN:  MOV     AX, DSEG
        MOV     DS,AX
        MOV     BL,30H
        MOV     BH,31H
        MOV     CL,BL
BEGIN1: ADD     BL,01H
        MOV     DL,BL
        MOV     AH,02H
        INT     21H
        MOV     DL,'*'
        MOV     AH,02H
        INT     21H
        MOV     DL,BH
        MOV     AH,02H
        INT     21H
        MOV     DL,'='
        MOV     AH,02H
        INT     21H
        AND     BL,0FH
        AND     BH,0FH
        MOV     AL,BH
        IMUL    BL
        MOV     AH,0H
        MOV     CH,0AH
        IDIV    CH
        MOV     DH,AH
        ADD     AL,30H
        CMP     AL,30H
        JZ      BEGIN3
BEGIN2: MOV     DL,AL
        MOV     AH,02H
        INT     21H
        ADD     DH,30H
        MOV     DL,DH
        MOV     AH,02H
        INT     21H
        ADD     BL,30H
        ADD     BH,30H
        MOV     DL,20H
        MOV     AH,02H
        INT     21H
        CMP     BL,BH
        JL      BEGIN1
        MOV     DL,0AH
        MOV     AH,02H
        INT     21H
        MOV     DL,0DH
        MOV     AH,02H
        INT     21H
        MOV     BL,CL
        ADD     BH,01H
        CMP     BH,3AH
        JL      BEGIN1
        JMP     EXIT
BEGIN3: MOV     AL,20H
        JMP     BEGIN2
EXIT:   MOV     AX,4C00H
        INT     21H
CSEG    ENDS
        END     BEGIN