long str$find_first_not_in_set(
    const struct dsc$descriptor_s *first_source_string,
    const struct dsc$descriptor_s *second_source_string) {
  char *s1_ptr;
  unsigned short s1_length;
  char *s2_ptr;
  unsigned short s2_length;
  int loop1;
  int loop2;
  int result;
  str$analyze_sdesc(first_source_string, &s1_length, &s1_ptr);
  str$analyze_sdesc(second_source_string, &s2_length, &s2_ptr);
  if (s1_length == 0) {
    return 1;
  }
  if (s2_length == 0) {
    return 0;
  }
  for (loop1 = 0; loop1 < s1_length; loop1++) {
    result = 0;
    for (loop2 = 0; loop2 < s2_length; loop2++) {
      if (s1_ptr[loop1] == s2_ptr[loop2]) {
        result = 1;
      }
    }
    if (result == 0) {
      return loop1 + 1;
    }
  }
  return 0;
}


x86 assembly (clang, -O0):
<str$find_first_not_in_set>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    -0x10(%rbp),%rdi
lea    -0x22(%rbp),%rsi
lea    -0x20(%rbp),%rdx
mov    $0x0,%al
call   1030 <str$analyze_sdesc@plt>
mov    -0x18(%rbp),%rdi
lea    -0x32(%rbp),%rsi
lea    -0x30(%rbp),%rdx
mov    $0x0,%al
call   1030 <str$analyze_sdesc@plt>
movzwl -0x22(%rbp),%eax
cmp    $0x0,%eax
jne    1160 <str$find_first_not_in_set+0x50>
movq   $0x1,-0x8(%rbp)
jmp    121d <str$find_first_not_in_set+0x10d>
movzwl -0x32(%rbp),%eax
cmp    $0x0,%eax
jne    117a <str$find_first_not_in_set+0x6a>
movq   $0x0,-0x8(%rbp)
jmp    121d <str$find_first_not_in_set+0x10d>
movl   $0x0,-0x38(%rbp)
mov    -0x38(%rbp),%eax
movzwl -0x22(%rbp),%ecx
cmp    %ecx,%eax
jge    1215 <str$find_first_not_in_set+0x105>
movl   $0x0,-0x40(%rbp)
movl   $0x0,-0x3c(%rbp)
mov    -0x3c(%rbp),%eax
movzwl -0x32(%rbp),%ecx
cmp    %ecx,%eax
jge    11e7 <str$find_first_not_in_set+0xd7>
mov    -0x20(%rbp),%rax
movslq -0x38(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
mov    -0x30(%rbp),%rcx
movslq -0x3c(%rbp),%rdx
movsbl (%rcx,%rdx,1),%ecx
cmp    %ecx,%eax
jne    11d4 <str$find_first_not_in_set+0xc4>
movl   $0x1,-0x40(%rbp)
jmp    11d9 <str$find_first_not_in_set+0xc9>
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
jmp    119e <str$find_first_not_in_set+0x8e>
cmpl   $0x0,-0x40(%rbp)
jne    1202 <str$find_first_not_in_set+0xf2>
mov    -0x38(%rbp),%eax
add    $0x1,%eax
cltq
mov    %rax,-0x8(%rbp)
jmp    121d <str$find_first_not_in_set+0x10d>
jmp    1207 <str$find_first_not_in_set+0xf7>
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    1181 <str$find_first_not_in_set+0x71>
movq   $0x0,-0x8(%rbp)
mov    -0x8(%rbp),%rax
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<str$find_first_not_in_set>:
push   %rbp
push   %r15
push   %r14
push   %r12
push   %rbx
sub    $0x20,%rsp
mov    %rsi,%rbx
lea    0xe(%rsp),%rsi
lea    0x18(%rsp),%rdx
xor    %eax,%eax
call   1030 <str$analyze_sdesc@plt>
lea    0xc(%rsp),%rsi
lea    0x10(%rsp),%rdx
mov    %rbx,%rdi
xor    %eax,%eax
call   1030 <str$analyze_sdesc@plt>
movzwl 0xe(%rsp),%r14d
test   %r14,%r14
je     1338 <str$find_first_not_in_set+0x228>
movzwl 0xc(%rsp),%edx
test   %rdx,%rdx
je     133f <str$find_first_not_in_set+0x22f>
mov    0x18(%rsp),%r11
mov    0x10(%rsp),%rdi
mov    %edx,%r15d
and    $0xfffffff8,%r15d
lea    -0x8(%r15),%r8
mov    %r8,%r9
shr    $0x3,%r9
add    $0x1,%r9
mov    %r9,%r10
and    $0xfffffffffffffffe,%r10
xor    %eax,%eax
mov    $0x1,%ebp
pxor   %xmm8,%xmm8
movdqa 0xe64(%rip),%xmm1
xor    %r12d,%r12d
nop
mov    (%r11,%r12,1),%bl
cmp    $0x8,%dx
jae    11c0 <str$find_first_not_in_set+0xb0>
xor    %esi,%esi
xor    %ecx,%ecx
jmp    1300 <str$find_first_not_in_set+0x1f0>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
movzbl %bl,%ecx
movd   %ecx,%xmm2
punpcklbw %xmm2,%xmm2
pshuflw $0x0,%xmm2,%xmm2
test   %r8,%r8
je     1322 <str$find_first_not_in_set+0x212>
pxor   %xmm6,%xmm6
mov    %r10,%rsi
xor    %ecx,%ecx
pxor   %xmm5,%xmm5
cs nopw 0x0(%rax,%rax,1)
movd   (%rdi,%rcx,1),%xmm3
movd   0x4(%rdi,%rcx,1),%xmm4
pcmpeqb %xmm2,%xmm3
pcmpeqb %xmm2,%xmm4
movd   0x8(%rdi,%rcx,1),%xmm7
movd   0xc(%rdi,%rcx,1),%xmm0
pcmpeqb %xmm2,%xmm7
por    %xmm3,%xmm7
punpcklbw %xmm7,%xmm3
punpcklwd %xmm3,%xmm3
pcmpeqb %xmm2,%xmm0
por    %xmm4,%xmm0
punpcklbw %xmm0,%xmm0
punpcklwd %xmm0,%xmm4
psrad  $0x18,%xmm3
movdqa %xmm3,%xmm0
pandn  %xmm6,%xmm0
pand   %xmm1,%xmm3
por    %xmm0,%xmm3
psrad  $0x18,%xmm4
movdqa %xmm4,%xmm0
pandn  %xmm5,%xmm0
pand   %xmm1,%xmm4
por    %xmm0,%xmm4
add    $0x10,%rcx
movdqa %xmm3,%xmm6
movdqa %xmm4,%xmm5
add    $0xfffffffffffffffe,%rsi
jne    11f0 <str$find_first_not_in_set+0xe0>
test   $0x1,%r9b
je     12c6 <str$find_first_not_in_set+0x1b6>
movd   (%rdi,%rcx,1),%xmm0
movd   0x4(%rdi,%rcx,1),%xmm5
pcmpeqb %xmm2,%xmm0
punpcklbw %xmm0,%xmm0
punpcklwd %xmm0,%xmm0
psrad  $0x18,%xmm0
pcmpeqb %xmm2,%xmm5
punpcklbw %xmm5,%xmm2
punpcklwd %xmm2,%xmm2
psrad  $0x18,%xmm2
movdqa %xmm0,%xmm5
pandn  %xmm3,%xmm5
pand   %xmm1,%xmm0
por    %xmm5,%xmm0
movdqa %xmm2,%xmm3
pandn  %xmm4,%xmm3
pand   %xmm1,%xmm2
por    %xmm3,%xmm2
movdqa %xmm0,%xmm3
movdqa %xmm2,%xmm4
movdqa %xmm3,%xmm0
pcmpeqd %xmm8,%xmm0
pand   %xmm0,%xmm4
pandn  %xmm3,%xmm0
por    %xmm4,%xmm0
pcmpeqd %xmm8,%xmm0
movmskps %xmm0,%esi
xor    %ecx,%ecx
cmp    $0xf,%esi
setne  %cl
mov    %r15,%rsi
cmp    %rdx,%r15
je     130f <str$find_first_not_in_set+0x1ff>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
cmp    (%rdi,%rsi,1),%bl
cmove  %ebp,%ecx
add    $0x1,%rsi
cmp    %rsi,%rdx
jne    1300 <str$find_first_not_in_set+0x1f0>
add    $0x1,%r12
test   %ecx,%ecx
je     1343 <str$find_first_not_in_set+0x233>
cmp    %r14,%r12
jne    11a0 <str$find_first_not_in_set+0x90>
jmp    1346 <str$find_first_not_in_set+0x236>
pxor   %xmm3,%xmm3
xor    %ecx,%ecx
pxor   %xmm4,%xmm4
test   $0x1,%r9b
jne    1271 <str$find_first_not_in_set+0x161>
jmp    12c6 <str$find_first_not_in_set+0x1b6>
mov    $0x1,%eax
jmp    1346 <str$find_first_not_in_set+0x236>
xor    %eax,%eax
jmp    1346 <str$find_first_not_in_set+0x236>
mov    %r12d,%eax
add    $0x20,%rsp
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
%"struct.dsc$descriptor_s" = type opaque
define i64 @"str$find_first_not_in_set"(%"struct.dsc$descriptor_s"* %0, %"struct.dsc$descriptor_s"* %1) {
%3 = alloca i64
%4 = alloca %"struct.dsc$descriptor_s"*
%5 = alloca %"struct.dsc$descriptor_s"*
%6 = alloca i8*
%7 = alloca i16
%8 = alloca i8*
%9 = alloca i16
%10 = alloca i32
%11 = alloca i32
%12 = alloca i32
store %"struct.dsc$descriptor_s"* %0, %"struct.dsc$descriptor_s"** %4
store %"struct.dsc$descriptor_s"* %1, %"struct.dsc$descriptor_s"** %5
%13 = load %"struct.dsc$descriptor_s"*, %"struct.dsc$descriptor_s"** %4
%14 = call i32 (%"struct.dsc$descriptor_s"*, i16*, i8**, ...) bitcast (i32 (...)* @"str$analyze_sdesc" to i32 (%"struct.dsc$descriptor_s"*, i16*, i8**, ...)*)(%"struct.dsc$descriptor_s"* %13, i16* %7, i8** %6)
%15 = load %"struct.dsc$descriptor_s"*, %"struct.dsc$descriptor_s"** %5
%16 = call i32 (%"struct.dsc$descriptor_s"*, i16*, i8**, ...) bitcast (i32 (...)* @"str$analyze_sdesc" to i32 (%"struct.dsc$descriptor_s"*, i16*, i8**, ...)*)(%"struct.dsc$descriptor_s"* %15, i16* %9, i8** %8)
%17 = load i16, i16* %7
%18 = zext i16 %17 to i32
%19 = icmp eq i32 %18, 0
br i1 %19, label %20, label %21
20: ; preds = %2
store i64 1, i64* %3
br label %69
21: ; preds = %2
%22 = load i16, i16* %9
%23 = zext i16 %22 to i32
%24 = icmp eq i32 %23, 0
br i1 %24, label %25, label %26
25: ; preds = %21
store i64 0, i64* %3
br label %69
26: ; preds = %21
store i32 0, i32* %10
br label %27
27: ; preds = %65, %26
%28 = load i32, i32* %10
%29 = load i16, i16* %7
%30 = zext i16 %29 to i32
%31 = icmp slt i32 %28, %30
br i1 %31, label %32, label %68
32: ; preds = %27
store i32 0, i32* %12
store i32 0, i32* %11
br label %33
33: ; preds = %54, %32
%34 = load i32, i32* %11
%35 = load i16, i16* %9
%36 = zext i16 %35 to i32
%37 = icmp slt i32 %34, %36
br i1 %37, label %38, label %57
38: ; preds = %33
%39 = load i8*, i8** %6
%40 = load i32, i32* %10
%41 = sext i32 %40 to i64
%42 = getelementptr inbounds i8, i8* %39, i64 %41
%43 = load i8, i8* %42
%44 = sext i8 %43 to i32
%45 = load i8*, i8** %8
%46 = load i32, i32* %11
%47 = sext i32 %46 to i64
%48 = getelementptr inbounds i8, i8* %45, i64 %47
%49 = load i8, i8* %48
%50 = sext i8 %49 to i32
%51 = icmp eq i32 %44, %50
br i1 %51, label %52, label %53
52: ; preds = %38
store i32 1, i32* %12
br label %53
53: ; preds = %52, %38
br label %54
54: ; preds = %53
%55 = load i32, i32* %11
%56 = add nsw i32 %55, 1
store i32 %56, i32* %11
br label %33
57: ; preds = %33
%58 = load i32, i32* %12
%59 = icmp eq i32 %58, 0
br i1 %59, label %60, label %64
60: ; preds = %57
%61 = load i32, i32* %10
%62 = add nsw i32 %61, 1
%63 = sext i32 %62 to i64
store i64 %63, i64* %3
br label %69
64: ; preds = %57
br label %65
65: ; preds = %64
%66 = load i32, i32* %10
%67 = add nsw i32 %66, 1
store i32 %67, i32* %10
br label %27
68: ; preds = %27
store i64 0, i64* %3
br label %69
69: ; preds = %68, %60, %25, %20
%70 = load i64, i64* %3
ret i64 %70
}

LLVM IR (-O2):
%"struct.dsc$descriptor_s" = type opaque
define i64 @"str$find_first_not_in_set"(%"struct.dsc$descriptor_s"* %0, %"struct.dsc$descriptor_s"* %1) {
%3 = alloca i8*
%4 = alloca i16
%5 = alloca i8*
%6 = alloca i16
%7 = bitcast i8** %3 to i8*
%8 = bitcast i16* %4 to i8*
%9 = bitcast i8** %5 to i8*
%10 = bitcast i16* %6 to i8*
%11 = call i32 (%"struct.dsc$descriptor_s"*, i16*, i8**, ...) bitcast (i32 (...)* @"str$analyze_sdesc" to i32 (%"struct.dsc$descriptor_s"*, i16*, i8**, ...)*)(%"struct.dsc$descriptor_s"* %0, i16* %4, i8** %3)
%12 = call i32 (%"struct.dsc$descriptor_s"*, i16*, i8**, ...) bitcast (i32 (...)* @"str$analyze_sdesc" to i32 (%"struct.dsc$descriptor_s"*, i16*, i8**, ...)*)(%"struct.dsc$descriptor_s"* %1, i16* %6, i8** %5)
%13 = load i16, i16* %4
%14 = icmp eq i16 %13, 0
br i1 %14, label %118, label %15
15: ; preds = %2
%16 = load i16, i16* %6
%17 = icmp eq i16 %16, 0
br i1 %17, label %118, label %18
18: ; preds = %15
%19 = load i8*, i8** %3
%20 = load i8*, i8** %5
%21 = zext i16 %13 to i64
%22 = zext i16 %16 to i64
%23 = and i64 %22, 65528
%24 = add nsw i64 %23, -8
%25 = lshr exact i64 %24, 3
%26 = add nuw nsw i64 %25, 1
%27 = icmp ult i16 %16, 8
%28 = and i64 %22, 65528
%29 = and i64 %26, 1
%30 = icmp eq i64 %24, 0
%31 = and i64 %26, 4611686018427387902
%32 = icmp eq i64 %29, 0
%33 = icmp eq i64 %28, %22
br label %34
34: ; preds = %18, %116
%35 = phi i64 [ 0, %18 ], [ %113, %116 ]
%36 = getelementptr inbounds i8, i8* %19, i64 %35
%37 = load i8, i8* %36
br i1 %27, label %98, label %38
38: ; preds = %34
%39 = insertelement <4 x i8> poison, i8 %37, i64 0
%40 = shufflevector <4 x i8> %39, <4 x i8> poison, <4 x i32> zeroinitializer
%41 = insertelement <4 x i8> poison, i8 %37, i64 0
%42 = shufflevector <4 x i8> %41, <4 x i8> poison, <4 x i32> zeroinitializer
br i1 %30, label %72, label %43
43: ; preds = %38, %43
%44 = phi i64 [ %69, %43 ], [ 0, %38 ]
%45 = phi <4 x i32> [ %66, %43 ], [ zeroinitializer, %38 ]
%46 = phi <4 x i32> [ %68, %43 ], [ zeroinitializer, %38 ]
%47 = phi i64 [ %70, %43 ], [ 0, %38 ]
%48 = getelementptr inbounds i8, i8* %20, i64 %44
%49 = bitcast i8* %48 to <4 x i8>*
%50 = load <4 x i8>, <4 x i8>* %49
%51 = getelementptr inbounds i8, i8* %48, i64 4
%52 = bitcast i8* %51 to <4 x i8>*
%53 = load <4 x i8>, <4 x i8>* %52
%54 = icmp eq <4 x i8> %40, %50
%55 = icmp eq <4 x i8> %42, %53
%56 = or i64 %44, 8
%57 = getelementptr inbounds i8, i8* %20, i64 %56
%58 = bitcast i8* %57 to <4 x i8>*
%59 = load <4 x i8>, <4 x i8>* %58
%60 = getelementptr inbounds i8, i8* %57, i64 4
%61 = bitcast i8* %60 to <4 x i8>*
%62 = load <4 x i8>, <4 x i8>* %61
%63 = icmp eq <4 x i8> %40, %59
%64 = icmp eq <4 x i8> %42, %62
%65 = select <4 x i1> %63, <4 x i1> <i1 true, i1 true, i1 true, i1 true>, <4 x i1> %54
%66 = select <4 x i1> %65, <4 x i32> <i32 1, i32 1, i32 1, i32 1>, <4 x i32> %45
%67 = select <4 x i1> %64, <4 x i1> <i1 true, i1 true, i1 true, i1 true>, <4 x i1> %55
%68 = select <4 x i1> %67, <4 x i32> <i32 1, i32 1, i32 1, i32 1>, <4 x i32> %46
%69 = add nuw i64 %44, 16
%70 = add i64 %47, 2
%71 = icmp eq i64 %70, %31
br i1 %71, label %72, label %43
72: ; preds = %43, %38
%73 = phi <4 x i32> [ undef, %38 ], [ %66, %43 ]
%74 = phi <4 x i32> [ undef, %38 ], [ %68, %43 ]
%75 = phi i64 [ 0, %38 ], [ %69, %43 ]
%76 = phi <4 x i32> [ zeroinitializer, %38 ], [ %66, %43 ]
%77 = phi <4 x i32> [ zeroinitializer, %38 ], [ %68, %43 ]
br i1 %32, label %89, label %78
78: ; preds = %72
%79 = getelementptr inbounds i8, i8* %20, i64 %75
%80 = bitcast i8* %79 to <4 x i8>*
%81 = load <4 x i8>, <4 x i8>* %80
%82 = getelementptr inbounds i8, i8* %79, i64 4
%83 = bitcast i8* %82 to <4 x i8>*
%84 = load <4 x i8>, <4 x i8>* %83
%85 = icmp eq <4 x i8> %40, %81
%86 = icmp eq <4 x i8> %42, %84
%87 = select <4 x i1> %85, <4 x i32> <i32 1, i32 1, i32 1, i32 1>, <4 x i32> %76
%88 = select <4 x i1> %86, <4 x i32> <i32 1, i32 1, i32 1, i32 1>, <4 x i32> %77
br label %89
89: ; preds = %72, %78
%90 = phi <4 x i32> [ %73, %72 ], [ %87, %78 ]
%91 = phi <4 x i32> [ %74, %72 ], [ %88, %78 ]
%92 = icmp eq <4 x i32> %90, zeroinitializer
%93 = select <4 x i1> %92, <4 x i32> %91, <4 x i32> %90
%94 = icmp ne <4 x i32> %93, zeroinitializer
%95 = bitcast <4 x i1> %94 to i4
%96 = icmp ne i4 %95, 0
%97 = zext i1 %96 to i32
br i1 %33, label %110, label %98
98: ; preds = %34, %89
%99 = phi i64 [ 0, %34 ], [ %28, %89 ]
%100 = phi i32 [ 0, %34 ], [ %97, %89 ]
br label %101
101: ; preds = %98, %101
%102 = phi i64 [ %108, %101 ], [ %99, %98 ]
%103 = phi i32 [ %107, %101 ], [ %100, %98 ]
%104 = getelementptr inbounds i8, i8* %20, i64 %102
%105 = load i8, i8* %104
%106 = icmp eq i8 %37, %105
%107 = select i1 %106, i32 1, i32 %103
%108 = add nuw nsw i64 %102, 1
%109 = icmp eq i64 %108, %22
br i1 %109, label %110, label %101
110: ; preds = %101, %89
%111 = phi i32 [ %97, %89 ], [ %107, %101 ]
%112 = icmp eq i32 %111, 0
%113 = add nuw i64 %35, 1
br i1 %112, label %114, label %116
114: ; preds = %110
%115 = and i64 %113, 4294967295
br label %118
116: ; preds = %110
%117 = icmp eq i64 %113, %21
br i1 %117, label %118, label %34
118: ; preds = %116, %15, %2, %114
%119 = phi i64 [ %115, %114 ], [ 1, %2 ], [ 0, %15 ], [ 0, %116 ]
ret i64 %119
}