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.
;̑́usveɂ͉e^܂B
;---------
;ȏォA\[XR[hƃ̓e
;Ή֌W邱Ƃ킩܂B
;-------------------------------
;\[XR[h̏ comet2 sIɉ\łB
;ꎞ~ɂ́A\[XR[h̏͂ł܂B
;------------------------
;sŕuꎞ~vɃ^C}V̋@\
;NƃNbNߋɖ߂Ai߂
;RɉxłJԂƂł܂B
;----------
;^C}V̋ŃACj[́uc[v
;-->u^C}V̋NvNbNƂł܂B
;́Ac[o[ɂ颃wvṽ{^ׂ̍ɂ
;uԂƉߋɖ߂v{^B
;--------
;BBɃRs[ꂽ;ЂƂЂƂ
;NbNߋɖ߂lq킩܂B
;--------------
;NbNߋɖ߂@\́Az}V COMET2 
;XebvssÄꎞ~ɂ\łB
;sɂ͋@\܂B
;------------
;ւ񂨂낢@\łB ȂȂ΁A
;݂̃Rs[^́AԂɊւĕst@ւłB
;comet2Ԍo߂Ɋւĕst@ւłB
;ł̂ɁAVisible Inside  comet2 ́A
;t@ւł邩̂悤ɐUłB
;-------------------------------------
; fROOO߂vO pn3000.txt 
;B src tH_̒Ɋi[Ă܂B
;--------------------------------------------------------
