lxi HL, string1
lxi DE, string2
mvi c, 00h

loop:

mov a,m
mov b,a
xchg
mov a,m
xchg
cmp b
jnz noequal

cmp c
jz equal

inx hl
inx de
cmp b
jz loop

noequal:
cmp b
jc ja
mvi a, 0ffh
sta 100h
jmp ende

ja:
mvi a, 01h
sta 100h
jmp ende


equal:

mvi a, 00h
sta 100h


ende:
hlt
org 110h
string1: db 'markus',0
org 140h
string2: db 'markus',0

end