as/zero1.casl

   1 MAIN    START
   2 BEGIN   XOR     GR2,GR2
   3 LOOP    CPA     GR2,LEN
   4     JZE LAST
   5     JPL LAST
   6         LD      GR1,A,GR2
   7     XOR GR1,GR1
   8     LAD GR2,1,GR2
   9     JUMP LOOP
  10 LAST RET
  11 A       DC      #8001,#8000,#FFFF,#51,#7FFF
  12 LEN     DC      5
  13         END