;  test x is member of list L

.symbol
.code 0
:member2
  mov r2 #100          ; base address L
  mov r3 #22           ; x = 22
:loop
  jf r2 no            ;  while L != 0
  ld r4 @0 r2         ;  head(L)
  eq r5 r4 r3         ;  head(L) == x ?
  jt r5 yes
  ld r2 @1 r2         ;  L = tail(L)
  jmp loop
:yes
  mov r5 #1
  jmp exit
:no 
  mov r5 #0
:exit
  trap r5 #1
  trap r0 #0

.data 100 
  11 102 22 104 33 0   ; list L at 100
.end  

