as/CMD/cpl3.casl

   1 MAIN    START
   2 BEGIN   LAD     GR1,#5000
   3         ADDL    GR1,=#FFFF
   4         LAD     GR2,#F000
   5         CPL     GR1,GR2
   6         RET
   7         END