COPYVISI START
  LAD GR1,0
LOOP LD GR2,AA,GR1
   JZE FIN
	ST GR2,BB,GR1
	LAD GR1,1,GR1
  JUMP LOOP
FIN	ST GR2,BB,GR1
	RET
BB 	DS 	10
AA 	DC 	'CASL2 cmd',0
;CC DC -1
  END
;This program copies a string of "Visi Inside" in AA location,
;including the terminating null number of zero,
;to the location which is specified by BB in memory.
;----------------
;Click on [Run Auto] button (down-oriented green
;triangle button), you will see the comet2 save the string
;data one by one into the location BB of the memory.
; ----------------
;Do double-clicking on any line in the source code,
;the corresponding address in memory will be highligted.
;And vise versa, that is,
;click on any address in memory, the corresponding source
;code will be highlighted.
;This function takes effect after a successful assembling.
;This works well while the comet2 is running.
;この操作は「実行」内容には影響を与えません。
;---------
;以上から、ソースコードとメモリの内容に
;対応関係があることがわかります。
;-------------------------------
;ソースコードの書き直しは comet2 が実行終了後に可能です。
;一時停止中には、ソースコードの書き直しはできません。
;------------------------
;実行途中の「一時停止」中にタイムマシンの機能を
;起動するとクロックを過去に戻す、進めるを
;自由に何度でも繰り返すことができます。
;----------
;タイムマシンの起動は、メインメニューの「ツール」
;-->「タイムマシンの起動」をクリックするとできます。
;又は、ツールバーにある｢ヘルプ」のボタンの左隣にある
;「時間と過去に戻す」ボタンを押す。
;--------
;BBにコピーされた;文字がひとつひとつ消えて
;クロックが過去に戻る様子がわかります。
;--------------
;クロックを過去に戻す機能は、仮想マシン COMET2 が
;ステップ実行を行い、その一時停止中にだけ可能です。
;高速実行中には機能しません。
;------------
;たいへんおもしろい機能です。 なぜならば、
;現在のコンピュータは、時間に関して不可逆機関です。
;comet2も時間経過に関して不可逆機関です。
;そうであるのに、Visible Inside の comet2 は、あたかも
;可逆機関であるかのように振舞うからです。
;-------------------------------------
; 素数を３０００個求めるプログラム pn3000.txt も
;お試しください。 src フォルダの中に格納されています。
;--------------------------------------------------------
