.title   PEEVEE
;
;     PEE impliments a P operation
;
;     PEE(ADDR) sets the lowest bit of ADDR
;     and returns TRUE if it was clear to start with
;
PEE::
      .word 0
      movl  #1,r0    ;initialize result to success
      bbcs  #0,@4(ap),10$  ; branch on bit clear and set
      clrl  r0
10$:
      ret
;
VEE::
      .word 0
      movl  #1,r0    ;initialize result to success
      bbsc  #0,@4(ap),10$  ; branch on bit set and clear
      clrl  r0
10$:
      ret
      .end