as/CMD/xor4.casl

   1 ;;; XORで、GR1の内容をクリア
   2 MAIN    START
   3 BEGIN   XOR     GR2,GR2
   4 LOOP    CPA     GR2,LEN
   5         JZE     FIN
   6         LD      GR1,A,GR2
   7         XOR     GR1,GR1
   8         LAD     GR2,1,GR2
   9         JUMP    LOOP
  10 FIN     RET
  11 A       DC      #8001,#8000,#FFFF,#51,#7FFF
  12 LEN     DC      5
  13         END