Описать процедуру

model small
stack 256
 
STACKSEGMENT SEGMENT STACK
  db 80 dup(?)
STACKSEGMENT ENDS
 
DATASEGMENT SEGMENT
  Buffer db 'asdjh<l>>>>===<<ja>s==dh<asj<<', 10, 13, '$'
  EnterString db 10, 13, '$'
  LStr db 'Count of <: ', 10, 13, '$'
  HStr db 'Count of >: ', 10, 13, '$'
  EStr db 'Count of =: ', 10, 13, '$'
  Len db 30
  LCount db 0
  HCount db 0
  ECount db 0  
DATASEGMENT ENDS
 
CODESEGMENT SEGMENT
ASSUME SS:STACKSEGMENT, DS:DATASEGMENT, CS:CODESEGMENT
Start:
  MOV AX, DATASEGMENT
  MOV DS, AX
 
  MOV DX, Offset Buffer
  CALL PrintString
  
  MOV SI, Offset Buffer
  CLD
  XOR CX, CX
  MOV CL, Len
  LCycle:
    LODSB
    CMP AL, '<'
    JE LFind
    JMP LEnd
    LFind:
      MOV AL, LCount
      INC AL
      MOV LCount, AL
    LEnd:
  LOOP LCycle
  
  MOV SI, Offset Buffer
  CLD
  XOR CX, CX
  MOV CL, Len
  HCycle:
    LODSB
    CMP AL, '>'
    JE HFind
    JMP HEnd
    HFind:
      MOV AL, HCount
      INC AL
      MOV HCount, AL
    HEnd:
  LOOP HCycle
  
  MOV SI, Offset Buffer
  CLD
  XOR CX, CX
  MOV CL, Len
  ECycle:
    LODSB
    CMP AL, '='
    JE EFind
    JMP EEnd
    EFind:
      MOV AL, ECount
      INC AL
      MOV ECount, AL
    EEnd:
  LOOP ECycle
  
  MOV DX, Offset LStr
  CALL PrintString
  
  XOR AX, AX
  MOV AL, LCount
  CALL PrintNumber
  
  MOV DX, Offset EnterString
  CALL PrintString
  
  MOV DX, Offset HStr
  CALL PrintString
  
  XOR AX, AX
  MOV AL, HCount
  CALL PrintNumber
  
  MOV DX, Offset EnterString
  CALL PrintString
  
  MOV DX, Offset EStr
  CALL PrintString
  
  XOR AX, AX
  MOV AL, ECount
  CALL PrintNumber
  
  MOV DX, Offset EnterString
  CALL PrintString
  
  MOV AX, 4C00h
  INT 21h
 
  ;процедура виведення рядка з DX
  PrintString PROC
    PUSH AX
    MOV AH, 9
    INT 21h
    POP AX
    RET
  PrintString ENDP
  
  PrintNumber PROC
    PUSH AX
    PUSH CX
    PUSH DX
    PUSH BX
    XOR CX, CX
    MOV BX, 000Ah
    Cont:  
      XOR DX, DX
      DIV BX
      PUSH DX
      INC CX
      OR AX, AX
      JNZ Cont
      MOV AH, 02h
    Next:
      POP DX
      ADD DL, 30h
      INT 21h
      LOOP Next
      POP BX
      POP DX
      POP CX
      POP AX
      RET
  PrintNumber ENDP
 
CODESEGMENT ENDS
  END Start

PrintNumber PROC
    PUSH AX
    PUSH CX
    PUSH DX
    PUSH BX
    XOR CX, CX
    MOV BX, 000Ah
    Cont:  
      XOR DX, DX
      DIV BX
      PUSH DX
      INC CX
      OR AX, AX
      JNZ Cont
      MOV AH, 02h
    Next:
      POP DX
      ADD DL, 30h
      INT 21h
      LOOP Next
      POP BX
      POP DX
      POP CX
      POP AX
      RET
  PrintNumber ENDP

PrintNumber PROC
    PUSH AX
    PUSH CX
    PUSH DX
    PUSH BX;сохраняем регистр
    XOR CX, CX;обнуляем счетчик
    MOV BX, 000Ah
    Cont:  
      XOR DX, DX;обнуляем регистр
      DIV BX;делим AX на BX
      PUSH DX;сохраняем старшую часть
      INC CX;инкрементим счетчик
      OR AX, AX
      JNZ Cont;если не ноль, то продолжаем деление на 10
      MOV AH, 02h;задаем номер функции
    Next:
      POP DX;достаем
      ADD DL, 30h
      INT 21h;печатаем
      LOOP Next;и пошло, и поехало
      POP BX
      POP DX
      POP CX
      POP AX;регистры восстанавливаем
      RET;возврат.
  PrintNumber ENDP

MOV BX, 000Ah

OR AX, AX

MOV BX, 000Ah

OR AX, AX
      JNZ Cont;если не ноль, то продолжаем деление на 10

push ax
push cx
push dx
push bx
...
pop bx
pop dx
pop cx
pop ax

pusha
...
popa

    pop ax
    add al,30h
    int 29h

PUSH AX
    PUSH CX
    PUSH DX
    PUSH BX

OR AX, AX