ITSLEFT=30;四邊形左下角位置所在列
ITSBUTTOM=5;四邊形左下角位置所在行
ITSHIGH=10;高
ITSLEN=9;底邊長
ITSCHAR='8';字符
要定義四邊形的左上角位置和形狀、及字符,只需修改上述常量後重新編譯運行即可
代碼後附上調試結果截圖
;=====================================================================
;FILE:?SHOW88.ASM
;To?compile,?use:?ml?-c?SHOW88.ASM
;To?link,?use:?link16?SHOW88.OBJ
;Author:?HHHso?2013-05-03?8:58
SSEG?SEGMENT
DB?100H?DUP(0)
SSEG?ENDS
DSEG?SEGMENT
;POS?DB?COL,ROW,CHAR
ITSLEFT=30;四邊形左下角位置所在列
ITSBUTTOM=5;四邊形左下角位置所在行
ITSHIGH=10;高
ITSLEN=9;底邊長
ITSCHAR='8';字符
POS?DB?0
REPT?ITSHIGH
DB?ITSLEFT,ITSBUTTOM,ITSCHAR
ITSLEFT=ITSLEFT+1
ITSBUTTOM=ITSBUTTOM+1
ENDM
DSEG?ENDS
CSEG?SEGMENT
ASSUME?CS:CSEG,DS:DSEG,ES:DSEG,SS:SSEG
START:
MOV?AX,DSEG
MOV?DS,AX
MOV?ES,AX
MOV?AX,SSEG
MOV?SS,AX
MOV?SP,100H
LEA?SI,POS
ADD?SI,1
MOV?CX,ITSHIGH
C1:
CALL?SHOWPOSCHAR
ADD?SI,3
LOOP?C1
MOV?AX,4C00H
INT?21H
SHOWPOSCHAR?PROC
PUSH?AX
PUSH?BX
PUSH?CX
PUSH?DX
MOV?AH,02H
MOV?BH,00H
MOV?DX,[SI]
INT?10H
MOV?AH,9
MOV?AL,2[SI]
MOV?BX,0007H
MOV?CX,ITSLEN
INT?10H
POP?DX
POP?CX
POP?BX
POP?AX
RET
SHOWPOSCHAR?ENDP
CSEG?ENDS
END?START
;==============================================
編譯、鏈接、運行
ITSLEFT=15;四邊形左下角位置所在列
ITSBUTTOM=3;四邊形左下角位置所在行
ITSHIGH=8;高
ITSLEN=19;底邊長
ITSCHAR='8';字符
修改為以上常量的編譯、鏈接、運行結果
修改字符常量的運行結果