as/cpa1.casl

   1 MAIN    START   BEGIN
   2 BEGIN   LAD     GR1,#5000
   3         LAD     GR2,#F000
   4         CPA     GR2,GR1
   5     RET
   6         END