汇编语言画圆

CODES SEGMENT

    ASSUME CS:CODES

START:

    MOV DS,AX

    

    MOV AH,00H

    MOV AL,13H

    INT 10H

    

    MOV DX,40

AGAIN:

    MOV CX,0

AGAIN_X:

    PUSH CX

    PUSH DX

    

    CMP CX,80

    JB XBELOW

    

    SUB CX,80

    JMP XSQUARE

XBELOW:

    MOV BX,80

    SUB BX,CX

    MOV CX,BX

XSQUARE:

    MOV AX,CX

    MUL CX

    MOV CX,AX

AGAIN_Y:

    POP DX

    PUSH DX

    CMP DX,120

    JB YBELOW

    

    SUB DX,120

    JMP YSQUARE

YBELOW:

    MOV BX,120

    SUB BX,DX

    MOV DX,BX

YSQUARE:

    MOV AX,DX

    MUL DX

    MOV DX,AX

HANDLE:

    ADD CX,DX

    MOV BX,CX

    POP DX

    POP CX

    CMP BX,6400

    JA LAST

    

    MOV AH,0CH

    MOV AL,3

    INT 10H

LAST:

    INC CX

    CMP CX,160

    JB AGAIN_X

    INC DX

    CMP DX,310

    JB AGAIN

    

    MOV AH,4CH

    INT 21H

    

CODES ENDS

    END START