DISP MACRO MSG
  LEA DX,MSG
  MOV AH,9H
  INT 21H
  ENDM

.MODEL SMALL
.STACK
.DATA
  M1 DB 10,13,'ENTER 1ST STR: $'
  M2 DB 10,13,'ENTER 2ND STR: $'
  M3 DB 10,13,'LEN OF 1ST STR: $'
  M4 DB 10,13,'LEN OF 2ND STR: $'
  M5 DB 10,13,'STR ARE EQU$'
  M6 DB 10,13,'STR ARE NOT EQU$'
  STR1 DB 20 DUP(20)
  STR2 DB 20 DUP(20)
  L1 DB ?
  L2 DB ?

.CODE
  MOV AX,@DATA
  MOV DS,AX
  MOV ES,AX
  DISP M1
  LEA DX,STR1
  CALL READ
  DISP M2
  LEA DX,STR2
  CALL READ
  MOV AL,[STR1+1]
  MOV L1,AL
  MOV AL,[STR2+1]
  MOV L2,AL
  CMP AL,L1
  JNE STRNOTE
  MOV CH,0
  MOV CL,L1
  LEA SI,STR1+2
  LEA DI,STR2+2
  CLD
  REPE CMPSB
  JNE STRNOTE
  DISP M5
  JMP STRS

STRNOTE: DISP M6
STRS : 
       DISP M3
       MOV AL,L1
       CALL DISPLAY
       DISP M4
       MOV AL,L2
       CALL DISPLAY
       MOV AH,4CH
       INT 21H

  READ PROC
  MOV AH,0AH
  INT 21H
  RET
  READ ENDP

       DISPLAY PROC
       AAM
       MOV BX,AX
       ADD BX,3030H
       MOV DL,BH
       MOV AH,02H
       INT 21H
       MOV DL,BL
       MOV AH,02H
       INT 21H
       RET
       DISPLAY ENDP
           END