соединение кода программы

[cyber922]

есть код программы проверки треугольника:

format  PE GUI 4.0
 include ' include\WIN32AX.INC'
.data
formats db "%d",0
result db 256 dup(?) ;Когда будем преобразовывать число в                                       ;строку, сюда сохраним результат
A  db   02h   ; стороны 
B  db   02h   ; треуголь-
C  db   04h   ; ника
 
.code
start:
 
   MOV  DL,byte[C]
   MOV  AL,byte[A]
   MOV  BL,byte[B]
 
   CMP  AL,BL            ;  сравнение
   JNE  NOT_EQABC
   CMP  BL,DL
   JNE  NOT_EQABC
 
invoke MessageBox,0,result,"треугольник равносторонний",MB_OK ;Выводим результат на экран.
  JMP  METKA       ; переход  на метку
 
 NOT_EQABC: CMP     AL,BL
     JE EQUAL
     CMP        BL,DL
      JE        EQUAL
      CMP       AL,DL
      JE   EQUAL
;
invoke MessageBox,0,result,"треугольник обычный",MB_OK ;Выводим результат на экран.
     JMP        METKA
     EQUAL:
;
invoke MessageBox,0,result,"треугольник равнобедренный ",MB_OK ;Выводим результат на экран.
 
METKA:    invoke ExitProcess,0          ;Выход из программы
    .end start

мне нужно добавить проверить его на существование, и на прямоугольность
это сделано в отдельном коде.

mov al,[A]
mov bl,[B]
mov cl,[C]
cmp al,bl
jae @f ;  
xchg al,bl
@@:
cmp al,cl
jae @f
xchg al,cl
@@: ;
mov dl,bl
add dl,cl
cmp al,dl
invoke MessageBox,0,result,"треугольник существует",MB_OK ;Выводим результат на экран.
mul al ; умножаем al само на себя, результат в ax
mov dx,ax ; сохраняем ax в dx для последующего сравнения
mov al,bl
mul al
mov bx,ax ; сохраняем квадрат одной из меньших сторон в bx
mov al,cl
mul al
add bx,ax ; суммируем квадраты меньших сторон, результат в bx
cmp dx,bx ; сравниваем квадрат большей стороны и сумму квадратов меньших сторон
invoke MessageBox,0,result,"треугольник прямоугольный",MB_OK ;Выводим результат на экран.

вот теперь мне надо этот код соединить во едино...
только у меня этого не получается, прошу помощи)

[DiemonStar]

а в чём проблема? оформляйте процедурой и вставляйте в программу.

[cyber922]

Сообщение от DiemonStar

а в чём проблема? оформляйте процедурой и вставляйте в программу.

в том то и дело, что я делаю, но сомневаюсь в правильности его работы.
Хотелось бы чтоб кто то по продвинутее меня это сделал((