1 ;;; CPL r,adr 2 MAIN START BEGIN 3 BEGIN LD GR1,A 4 CPL GR1,B 5 RET 6 A DC #5000 7 B DC #3000 8 END