E 400 B 0
E 450 'Correct$'
E 500 'Corrupted$'
a 100
mov cx,7
mov cl,7
mov bl,0
mov dx,1
shl dx,cl
mov ax,[400]
and ax,dx
cmp ax,0
je 119
add bl,1
loop 107
mov dx,1
shl dx,cl
mov ax,[400]
and ax,dx
cmp ax,0
je 12D
add bl,1
and bl,1
cmp bl,0
je 13a
mov dx,500
jmp 13d
mov dx,450
mov ah,9
int 21
int 3