as/cmd/DS/ds.casl

   1 ;;; DS
   2 MAIN    START
   3         LAD     GR1,A
   4         LAD     GR1,B
   5         LAD     GR1,C
   6         LAD     GR1,D
   7         LAD     GR1,E
   8         RET
   9 A       DS      1
  10 B       DS      2
  11 C       DS      4
  12 D       DS      0
  13 E       DC      #FFFF
  14         END