1_5_1.asm

CGA模式下的绘图程序

STACK SEGMENT	'STACK'
	DB	256	DUP(0)
STACK	ENDS
;
DATA	SEGMENT PARA	PUBLIC	'DATA'
BIAS    DW      20H
HR      DW      20H
COUNT   DW      04H
DATA	ENDS
;
CODE	SEGMENT PARA	PUBLIC	'CODE'
;
	ASSUME CS:CODE,DS:DATA
BEGIN:	MOV	AX,DATA
	MOV	DS,AX
        MOV     AL,6
	CALL	SETMODE
	MOV	AL,1
        ;NEW CODE
        PUSH AX     ;PUSH
        MOV AH,00H
        INT 16H
        CMP AL,30H
        JZ FINAL
        JMP START

        ;/NEW CODE

START:  AND AX,000FH
        mov     SI,AX ;INPUT COUNT
        POP     AX;POP
        MOV	CX,100
	MOV	DX,100
LP:	MOV	BX,BIAS
LP1:	CALL	SETXY
	INC	CX
	DEC	DX
	DEC	BX
	JNZ	LP1
;
	MOV	BX,HR
LP2:	CALL	SETXY
	INC	CX
	DEC	BX
	JNZ	LP2
;
	MOV	BX,BIAS
LP3:	CALL	SETXY
	INC	CX
        INC     DX
	DEC	BX
	JNZ	LP3
        DEC     SI
        JZ      FINAL
        
	MOV	BX,HR
LP4:	CALL	SETXY
	INC	CX
	DEC	BX
	JNZ	LP4
        JMP     LP
;       DEC     SI
;       JNZ     LP


FINAL:  MOV     AH,0
	INT	16H
        mov     al,3
        call    seTMODE
	MOV	AH,4CH
	INT	21H

;
SETMODE PROC	NEAR
	MOV	AH,0
	INT	10H
	RET
SETMODE ENDP
;
SETXY	PROC	NEAR
	MOV	AH,0CH
	INT	10H
	RET
SETXY	ENDP

CODE ENDS
	END BEGIN