DATA  SEGMENT


        BUF1  DB        'SWPPPWUP'


      COUNT1  EQU       $-BUF1


        BUF2  DB        'WUACWPZW'


      COUNT2  EQU       $-BUF2


      COUNTP  DW        (?)


      COUNTW  DW        (?)


         PAT  DW        (?)


        DATA  ENDS


        CODE  SEGMENT


              ASSUME    CS:CODE,DS:DATA


        MAIN  PROC      FAR


              PUSH      DS


              XOR       AX,AX


              PUSH      AX


              MOV       AX,DATA


              MOV       DS,AX


              MOV       BX,CODE


              MOV       ES,BX


              CALL      FAR PTR  SEEK


              DW        BUF1


              DB        COUNT1


              DB        'P'


              MOV       COUNTP,DX


              CALL      FAR PTR  SEEK


              DW        BUF2


              DB        COUNT2


              DB        'W'


              MOV       COUNTW,DX


              RET


        MAIN  ENDP


        CODE  ENDS


   SEEK_CODE  SEGMENT


              ASSUME    CS:SEEK_CODE,DS:DATA


        SEEK  PROC      FAR


              MOV       PAT,BP


              MOV       BP,SP


              PUSH      DI


              PUSH      SI


              PUSH      CX


              PUSH      AX


              PUSH      BX


              PUSHF


              MOV       DI,[BP]


              MOV       SI,ES:[DI]


              MOV       CL,ES:[DI+2]


              MOV       CH,ES:[DI+3]


              ADD       DI,4


              MOV       [BP],DI


      BEGIN:  XOR       BX,BX


      DONE1:  MOV       AL,[SI]


              DEC       CL


              INC       SI


              CMP       AL,CH


              JNE       DONE2


              ADD       BX,1


      DONE2:  CMP       CL,0


              JNE       DONE1


              MOV       DX,BX


              POPF


              POP       BX


              POP       AX


              POP       CX


              POP       SI


              POP       DI


              MOV       BP,PAT


              RET


        SEEK  ENDP


   SEEK_CODE  ENDS


              END       MAIN