矩形同心螺旋圈

d_seg segment
row_u db 0 ;行上方的边界->r
row_ddb25 ;行下方的边界->l
col_ldb0 ;列左边的边界->u
col_r db80 ;列右边的边界->d
end_flag db 0 ;1为结束，0为继续
walkdirect db 'r';当前前进的方向，初始向右
d_seg ends
;
code segment
assume cs:code,ds:d_seg
start:
;**
;*
;主程序段代码
main proc far
pushds
xorax,ax
pushax
;
movax,d_seg
movds,ax
;
call clear; 清屏
;
movdx,0 ;光标置0行0列
movbh,0
movah,2
int 10h
;
calldrawdirect ;输出图形
;按任意键退出
mAgain:
mov ah,7
int 21h
cmp al,'q'
jemExit
jmp mAgain
mExit:
call clear
ret
main endp
;-----
;**
;*
;绘图方向的控制
drawdirect proc near
d_continue:
;跟col_l比较,如果col_l>=dl,则walkdirect='u'
cmpwalkdirect,'l' ;是否是左边
jnzno_left;不是
coll_next:
callchar_disp;输出字符
decdl ;往左移一列
cmpcol_l,dl ;比较是否该转方向
jlcoll_next ;不用转，继续输出
incdl ;往右回退一列
inccol_l ;左边界加一
inc col_l
movwalkdirect,'u' ;转方向为向上
jmpdcmp ;退出
;
no_left:
;跟col_r比较，如果col_r<=dl,则walkdirect='d'
cmpwalkdirect,'r' ;是否是右边
jnzno_right ;不是
colr_next:
callchar_disp ;输出字符
incdl ;往右移一列
cmpcol_r,dl ;比较是否该转方向
jgcolr_next ;不用转，继续输出
decdl ;往左回退一列
deccol_r ;右边界减一
dec col_r
movwalkdirect,'d' ;转方向为向下
jmpdcmp ;退出
;
no_right:
;跟row_u比较，如果row_u>=dh,则walkdircet='r'
cmpwalkdirect,'u' ;是否向上走
jnzno_up ;不是
rowu_next:
callchar_disp ;输出字符
decdh ;往上移一行
cmprow_u,dh ;比较是否该转方向了
jl rowu_next ;不用转，继续输出
incdh ;往下回退一行
incrow_u ;上边界加一
;inc row_u
movwalkdirect,'r' ;转方向为向右
jmp dcmp ;退出
;
no_up:
;跟row_d比较，如果row_d<=dh,则walkdirect='l'
rowd_next:
callchar_disp
incdh ;往下移一行
cmp row_d,dh ;比较是否该转方向了
jgrowd_next ;不用转，继续输出
decdh ;往上回退一行
decrow_d ;下边界减一
;dec row_d
mov walkdirect,'l' ;转方向为向左
dcmp:
pushax ;保存al
moval,row_u
incal ;上边界试加一
cmpal,row_d ;上边界是否和下边界重合
pop ax ;恢复al
jged_Exit ;如果将要重合，退出
pushax ;保存al
moval,col_l
incal ;左边界试加一
cmpal,col_r ;如果将要重合，退出
pop ax ;恢复al
jged_Exit ;如果将要重合，退出
jmpd_continue ;接着输出
d_Exit:
ret
drawdirect endp
;--------
;**
;*
char_disp proc near
pushcx ;保存cx
;
mov ah,2
mov bh,0 ;0页显示
int 10h ;置光标位置
;
mov al,2 ;置入笑脸ASCII码
mov bl,07 ;黑底白字符
movcx,1 ;输出字符1次
mov ah,9
int 10h ;输出笑脸
pop cx
ret
char_disp endp
;--------
;**
;*
clear proc near
mov ax,0600h ;全屏幕空白
mov bh,7 ;正常显示
sub cx,cx;起点(0,0)
movdx,184fh ;终点(24,79)
int10h
ret
clear endp
;--------
code ends
end start