вывод рамки, упрощение кода Опции

[amega]

Добрый день! делаю лабу и в ней нужно вывести рамку с надписями, я написал часть (2 часть анолагичная первой ток с другим названием и распаложена ниже). Дак вот посмотрел предидущий топик , там рамка попроще написана. Хотелось бы узнать как уменьшить мой код.
ЗЫ лекций небыло пока, делаю с методой и учебником(но без результата)
ЗЫ2 програма ждет нажатия символа и завершается ее работа.

.MODEL SMALL
.STACK 100h
.DATA
	mes db 'laba 2 SP','$'
.CODE
metka:
	mov	ax,@data
	mov	ds,ax
	;очистка екрана
	mov  AH,0
	mov  AL,1
	int 10H 
	;прорисовка уголка рамки 
	mov ah,09
	mov al,201
	mov bh,0
	mov bl,00011111b
	mov cx,1
	int 10h
	;передвижение курсора на 1 позицию вперед
	mov ah, 2
	mov bh,0
	mov dh,0
	mov dl,1
	int 10h
	;прорисовка линии
	mov ah,09
	mov al,205
	mov bh,0
	mov bl,00011111b
	mov cx,30
	int 10h
	;передвижение курсора на конец линии
	mov ah, 2
	mov bh,0
	mov dh,0
	mov dl,31
	int 10h
	;прорисовка уголка рамки 
	mov ah,09
	mov al,187
	mov bh,0
	mov bl,00011111b
	mov cx,1
	int 10h
	;передвижение курсора на новуюю линию
	mov ah,2
	mov bh,0
	mov dh,1
	mov dl,0
	int 10h
	;прорисовка колонки 
	mov ah,09
	mov al,186
	mov bh,0
	mov bl,00011111b
	mov cx,1
	int 10h
	;передвижение курсора на начало надписи
	mov ah,2
	mov bh,0
	mov dh,1
	mov dl,10
	int 10h
	;прорисовка надписи
	mov ah,09
	mov dx,offset mes
	int 21h
	;передвижение курсора на конец линии
	mov ah, 2
	mov bh,0
	mov dh,1
	mov dl,31
	int 10h
	;прорисовка колонки 
	mov ah,09
	mov al,186
	mov bh,0
	mov bl,00011111b
	mov cx,1
	int 10h
	;передвижение курсора на новуюю линию
	mov ah,2
	mov bh,0
	mov dh,2
	mov dl,0
	int 10h
	;прорисовка колонки 
	mov ah,09
	mov al,204
	mov bh,0
	mov bl,00011000b
	mov cx,1
	int 10h
	;передвижение курсора на 1 позицию вперед
	mov ah,2
	mov bh,0
	mov dh,2
	mov dl,1
	int 10h
	;прорисовка линии
	mov ah,09
	mov al,205
	mov bh,0
	mov bl,00011000b
	mov cx,30
	int 10h
	;передвижение курсора на коннец строки
	mov ah,2
	mov bh,0
	mov dh,2
	mov dl,31
	int 10h
	;прорисовка колонки 
	mov ah,09
	mov al,185
	mov bh,0
	mov bl,00011000b
	mov cx,1
	int 10h
	
	mov ah,10h
	int 16h
	
	mov ah,4ch
	int 21h
END metka;