DSEG SEGMENT
A    DB "ABCDE"
B    DB "ABMDE"
ABL  EQU B-A
E    DB "Gleichheit$"
ME   DB "Ungleichheit$"
DSEG ENDS

CSEG SEGMENT
     ASSUME CS:CSEG

MAIN PROC
     MOV  AX,SEG A
     MOV  DS,AX
     MOV  SI,OFFSET A
     MOV  AX,SEG B
     MOV  ES,AX
     MOV  DI,OFFSET B
     CLD
     MOV  CX,ABL
     REPE CMPSB
     JNZ  MISSERFOLG
ERFOLG:
     MOV  AH,9
     MOV  DX,SEG E
     MOV  DS,DX
     MOV  DX,OFFSET E
     INT  21h
     JMP  ENDE
MISSERFOLG:
     MOV  AH,9
     MOV  DX,SEG ME
     MOV  DS,DX
     MOV  DX,OFFSET ME
     INT  21h
ENDE:
     MOV  AX,4C00h
     INT  21h
MAIN ENDP

CSEG ENDS

SSEG SEGMENT STACK
     DW 128 DUP (?)
SSEG ENDS

     END MAIN