root/as/misc/clocks.casl

   1 ;;; クロック数100のプログラム
   2 ;;; 「casl2 -O clocks.casl && time comet2 -C100 a.o」で、実行時間は約1秒
   3 MAIN    START
   4         LAD     GR1,0
   5         NOP
   6 LOOP    CPA     GR1,CNT
   7         JZE     FIN
   8         LAD     GR1,1,GR1
   9         NOP
  10         JUMP    LOOP
  11 FIN     RET
  12 CNT     DC      19
  13         END