; транслировать: tasm /mx str3.asm
          .386
          .model flat
          .code
          public   @dell1$qpct1i
          extrn    @Print$qi:near
@dell1$qpct1i      proc
          push     EBP
          mov      EBP,ESP
          push     ESI
          push     EDI
          push     EBX
          mov      ECX,[EBP+16]
          mov      ESI,[EBP+12]
          mov      EDI,[EBP+8]
          mov      DL,0
          jcxz     prod3
          mov      BX,1
          cld
cycl1:    lodsb
          cmp      AL,' '
          je       prod1
          mov      BX,0
          inc      DL
          stosb
          jmp      prod2
prod1:    cmp      BX,1
          je       prod2
          mov      BX,1
          inc      DL
          stosb
prod2:    loop     cycl1
          cmp      DL,0
          je       prod3
          cmp      BX,1
          jne      prod3
          dec      EDI
prod3:    mov      AL,0
          stosb
          xor      EAX,EAX
          mov      AL,DL
          pop      EBX
          pop      EDI
          pop      ESI
          push     EAX
          call     @Print$qi
          add      ESP,4
          mov      ESP,EBP
          pop      EBP
          ret
@dell1$qpct1i      endp
          end