trangle.asm

来自「汇编程序设计编写 屏幕显示三角形 有实验报告哦」· 汇编 代码 · 共 87 行

DATA SEGMENT
	MESS DB 'TRIANGLE',0DH,0AH
	CN EQU $-MESS
	MESS1 DB '(0,0)',0AH,0DH,'$'
	MESS2 DB '(0,100)',0AH,0DH,'$'
	MESS3 DB '(100,0)',0AH,0DH,'$'
	F_AL DB ?
DATA ENDS
CODE SEGMENT
		ASSUME CS:CODE,DS:DATA
START:MOV AX,DATA
	MOV DS,AX
	MOV AH,0FH
	INT 10H
	MOV BYTE PTR F_AL,AL
	MOV AH,0
MOV AL,4
	INT 10H
	MOV DX,60
	MOV CX,100
DONE1:MOV AH,0CH
	MOV AL,02H
	INT 10H
	INC CX
	INC DX
	CMP DX,140
	JNZ DONE1 
	MOV DX,140
	MOV CX,180
DONE2:MOV AH,0CH
	MOV AL,02H
	INT 10H
	DEC CX
	CMP CX,99
	JNZ DONE2
	MOV DX,60
	MOV CX,100
DONE3:MOV AH,0CH
	MOV AL,02H
	INT 10H
	INC DX
	CMP DX,140
	JNZ DONE3
	MOV AH,02H
	MOV DH,19
	MOV DL,13
	INT 10H
	MOV DI,OFFSET MESS
MOV CX,CN
LOP:
	MOV AH,0EH
	MOV AL,[DI]
	INC DI
	MOV BL,3
	INT 10H
	LOOP LOP
	MOV DH,17
	MOV DL,7
	MOV BX,OFFSET MESS1
	CALL DISP
	MOV DH,7
	MOV DL,5
	MOV BX,OFFSET MESS2
	CALL DISP
	MOV DH,17
	MOV DL,23
	MOV BX,OFFSET MESS3
	CALL DISP
LOP1: MOV AH,06H
	MOV DL,0FFH
	INT 21H
	JNZ OVER
	JMP LOP1
OVER:MOV AH,0
	MOV AL,F_AL
	INT 10H
	MOV AH,4CH
	INT 21H
DISP PROC NEAR
	MOV AH,02H
	INT 10H
	MOV AH,09H
	MOV DX,BX
	INT 21H
	RET
CODE ENDS
	END START