gong.asm

汇编代码,dos系统功能调用,显示黑白工字

Title show  'gong'
;程序描述:按题目要求显示工字图形
;作者:杜巧钗
;创建日期:06-11-10
STACK	SEGMENT STACK
	DW 64 DUP(?)
STACK	ENDS
DATA	SEGMENT
gong1	DB 9                 ;符号数目

	DB 0DBH,7,0,0             ;ASCII码,属性,相对位移
	DB 0DBH,7,0,1
	DB 0DBH,7,0,1
	DB 0DBH,7,1,-1
	DB 0DBH,7,1,-2
	DB 0DBH,7,0,1
	DB 0DBH,7,0,1
	DB 0DBH,7,0,1
	DB 0DBH,7,0,1;
DATA	ENDS
CODE	SEGMENT
	ASSUME CS:CODE,DS:DATA,SS:STACK
MAIN	PROC FAR
	PUSH DS
	SUB  AX,AX
	PUSH AX
	MOV  AX,DATA
	MOV  DS,AX
	CALL CLEAR
	LEA  SI,gong1
	MOV  DH,11      ;坐标位置,1672按要求变为，行16+2，列72-50
	MOV  DL,38
	CALL gong
	RET
MAIN	ENDP
CLEAR	PROC NEAR  ;清屏
	PUSH AX
	PUSH BX
	PUSH CX
	PUSH DX
	MOV  AH,6
	MOV  AL,0
	MOV  CX,0
	MOV  DH,24  
	MOV  DL,79
	MOV  BH,7
	INT  10H
	POP DX
	POP CX
	POP BX
	POP AX
	RET
CLEAR	ENDP
gong PROC NEAR    ;显示
	PUSH AX
	PUSH BX
	PUSH CX
	PUSH DX
	PUSH SI
	MOV  AH,0fH
	INT  10H
	SUB  CH,CH
	MOV  CL,[SI]
	INC  SI
NEXT:ADD  DH,[SI+2]
	ADD  DL,[SI+3]
	MOV  AH,2
	INT  10H
	MOV  AL,[SI]
	MOV  BL,[SI+1]
	PUSH CX
	MOV  CX,1
	MOV  AH,9
	INT  10H
	POP  CX
	ADD  SI,4
	LOOP NEXT
	POP SI
	POP DX
	POP CX
	POP BX
	POP AX
	RET
gong ENDP
CODE	ENDS
	END MAIN