立方体程序绘制程序设计（由用户输入边长）

来源：百度知道 编辑：UC知道 时间：2024/06/17 20:34:24
要求用汇编语言实现···
小弟这学期没学好这门课，现在急做课设。
求高人指点，分数不是问题····

DATAS SEGMENT
COLOR DW 02
BKCOLOR DW 15
POINT DW 200,200,400,200,160,300,360,300,160,400,360,400
DW 200,200,160,300,400,200,360,300,160,300,160,400
DW 360,300,360,400,400,320,400,200,400,320,360,400
DATAS ENDS

STACKS SEGMENT
DW 200 DUP(0)
STACKS ENDS

CODES SEGMENT
ASSUME CS:CODES,DS:DATAS,SS:STACKS
START: MOV AX,DATAS
MOV DS,AX
MOV AX,0A000H
MOV ES,AX
MOV AX,0012H
INT 10H ;设置640*480*16图形模式
MOV AL,2
CALL SET_WRITE_MODE
MOV AX,BKCOLOR
CALL CLEAR
MOV CX,9
MOV SI,OFFSET POINT
DDD: PUSH CX
PUSH SI
MOV AX,[SI]
PUSH AX
MOV AX,[SI+2]
PUSH AX
MOV AX,[SI+4]
PUSH AX
MOV AX,[SI+6]
PUSH AX
CALL LINE
POP SI
ADD SI,8
POP CX
LOOP DDD
MOV AH,01H
INT 21H
MOV AX,4C00H
INT 21H
PIXEL:
PUSH BP
PUSH BX
PUSH CX