as/CMD/XOR/xor0.casl

   1 MAIN    START
   2 BEGIN   LD      GR1,A
   3         LD      GR2,A
   4         XOR     GR1,GR2
   5     RET
   6 A       DC      #8001
   7 B       DC      #3521
   8         END