;; member of list

.code 0
:start
  mv r1 #22
  mv r2 #100
  ld r4 @0 r2  ;; hd(L)
  eq r5 r4 r1  ;; hd(L) == x ?
  jt r5 yes
:loop
  ld r4 @1 r2  ;; tail(L)
  jf r4 no     ;; while(tail(L)!=0)
  ld r4 @0 r2  
  eq r5 r4 r1
  jt r5 yes
  ld r2 @1 r2  ;; L = tail(L)
  jmp loop
:yes
  mv r6 #1
  jmp exit
:no
  mv r6 #0
:exit
  trap 0
.data 100
  11 102 33 104 22 0
.end
