as/cmd/LD/ld_loop.casl

   1 ;;; ループを使い、連続でGR1にデータを転送する
   2 MAIN    START
   3         LAD     GR2,0
   4 MLOOP   CPA     GR2,LEN
   5         JZE     MEND
   6         LD      GR1,DATA,GR2
   7         LAD     GR2,1,GR2
   8         JUMP    MLOOP
   9 MEND    RET
  10 DATA    DC      #9600,#F000,#A400
  11 LEN     DC      3
  12         END