as/ld_data.casl

   1 MAIN    START
   2         LAD GR2,0
   3 MLOOP   CPL GR2,LEN
   4         JZE MEND
   5         LD  GR1,DATA,GR2
   6         LAD GR2,1,GR2
   7         JUMP    MLOOP
   8 MEND    RET
   9 DATA    DC  #9600,#F000,#A400
  10 LEN     DC  3
  11         END