as/ld4.casl

   1 ; LDコマンド
   2 MAIN    START   BEGIN
   3 BEGIN   LD  GR1,A
   4         LD  GR2,B
   5         ADDL  GR1,GR2
   6         RET
   7 A       DC  32767
   8 B   DC  32675
   9         END