;============================================================
setpos macro top,left;設置光標位置
	mov ah,02h
	mov bx,0
	mov dh,top
	mov dl,left
	int 10h
endm

changemenu macro top,left,width,attr;修改菜單屬性
	local chg
	mov dl,left
chg:
	setpos top,dl
	mov bh,0
	mov ah,08h
	int 10h
	mov bl,attr
	mov cx,1
	mov ah,09h
	int 10h
	inc dl
	mov al,left
	add al,width
	cmp dl,al
	jne chg
	setpos top,left
endm

drawwindow macro attr,top,left,bottom,right;繪制窗口
	push ax
	push bx
	push cx
	push dx
	mov ah,06h
	mov al,0
	mov bh,attr 
	mov ch,top
	mov cl,left
	mov dh,bottom
	mov dl,right
	int 10h
	pop dx
	pop cx
	pop bx
	pop ax
endm

windowtandb macro l,m,r,top,left,width,attr;繪制窗口上下邊框
	setpos top,left
	outputchar l,attr,1
	setpos top,left+1
	outputchar m,attr,width-2
	setpos top,left+width-1
	outputchar r,attr,1
endm

windowlandr macro char,top,left,width,attr;繪制窗口左右邊框
	setpos top,left
	outputchar char,attr,1
	setpos top,left+width-1
	outputchar char,attr,1
endm

outputchar macro char,attr,num;輸出字符
	push ax
	mov bh,0
	mov ah,09h
	mov al,char
	mov bl,attr
	mov cx,num
	int 10h
	pop ax
endm

outputstr macro str,num,top,left,attr;輸出字符串
	push ax
	push bx
	push bp
	push cx
	push dx
	mov ah,13h
	lea bp,str
	mov cx,num
	mov dh,top
	mov dl,left
	mov bh,0
	mov al,1
	mov bl,attr
	int 10h
	pop dx
	pop cx
	pop bp
	pop bx
	pop ax
endm

submenu macro left,menu1,num1,menu2,num2,menu3,num3,width;繪制子菜單
	local menu
	drawwindow 70h,1,left,5,left+width
	windowtandb 0dah,0c4h,0bfh,1,left,width+1,70h
	mov al,2
	
menu:
	windowlandr 0b3h,al,left,width+1,70h
	inc al
	cmp al,5
	jne menu
	windowtandb 0c0h,0c4h,0d9h,5,left,width+1,70h
	outputstr menu1,num1,2,left+2,0fh
	changemenu 2,left+1,8,0fh
	outputstr menu2,num2,3,left+2,70h
	changemenu 3,left+2,1,74h
	outputstr menu3,num3,4,left+2,70h
	changemenu 4,left+2,1,74h
	setpos 2,left+2
endm


readscr macro left,memory;讀取屏幕內容
	local read
	sub ax,ax
	mov si,ax
read:
	add ah,left
	inc al
	inc si
	mov ch,ah
	setpos al,ch
	mov ah,08h
	mov bh,0
	int 10h
	mov memory[si],al
	mov memory[si+50],ah
	mov ax,si
	mov bl,10
	div bl
	cmp si,50
	jne read
endm

writescr macro left,memory;寫入屏幕
	local read
	sub ax,ax
	mov si,ax
read:
	add ah,left
	inc al
	inc si
	mov ch,ah
	setpos al,ch
	mov al,memory[si]
	mov ah,memory[si+50]
	mov dl,al
	mov dh,ah
	outputchar dl,dh,1
	mov ax,si
	mov bl,10
	div bl
	cmp si,50
	jne read
endm

showcur macro show;設置光標屬性
	push ax
	push cx
	mov ah,1
	mov cl,0
	mov ch,show
	int 10h
	pop cx
	pop ax
endm