; > SrchMem : search for value in memory (assume value on even address)
;
; All in P.I.C. !
;
        CLR     R0
        MOV     #2,R1           ; value for adjustment
LABEL1: CMP     #O177570,(R0)+  ; look, and point to next
        BEQ     LABEL2          ; if found, go to finish
        CMP     #O160000,R0     ; check we're not wandering into I/O area
        BNE     LABEL1          ; if not, try again
HALT:   HALT                    ; else stop!
        BR HALT                 ; can't continue!
LABEL2: SUB     R1,R0           ; found, but R0 points past it
        HALT                    ; finished!
        ADD     R1,R0           ; re-starting, so point to next
        BR      LABEL1
