;---------------------
; AA ɂ镶uCASL2v
; BB ̈ɃRs[vOłB
;----------------  ------ -------
COPYVISI START
  LAD GR1,0
LOOP LD GR2,BB,GR1
   JZE FIN
   ST GR2,AA,GR1
   LAD GR1,1,GR1
  JUMP LOOP
FIN    RET
AA DS 6
BB DC 'CASL2',0
C	DC	-1
  END
;----------------
;s{^iΐFOp`j܂ F5 LCA
; BB ̈ƁAf[^
;܂lqώ@ł܂B
; ----------------
;AZuƎ̋@\LɂȂ܂B
;\[XR[h̔Cӂ̍s_uNbN
;Ή郁̔zunCCg\܂B
;t\łB
;Cӂ̗̃̈VONbN
;Ή\[XR[hsnCCg\܂B
;---------
;ȏォA\[XR[hƃ̓e
;Ή֌W邱Ƃ킩܂B
;-------------------------------
;\[XR[h̏ comet2 sIɉ\łB
;ꎞ~ɂ́A͂ł܂B
;------------------------
;sŕuꎞ~vɁu[obN@\v
;NƃNbNߋɖ߂ƁANbN
;i߂邱ƂRɌJԂƂł܂B
;----------
;^C}V̋ŃACj[́uc[v
;-->u[obN@\̋NvNbNƂł܂B
;́Ac[o[ɂ颃wvṽ{^ׂ̍ɂ
;uԂߋɖ߂v{^B
;---------
;BBɃRs[ꂽЂƂЂƂ
;NbNߋɖ߂lq킩܂B
;--------------
;NbNߋɖ߂@\́Acomet2 
;XebvssÄꎞ~ɂ\łB
;sɂ͋@\܂B
;-------------------------------------
; f1000߂vO pn1000.txt 
;B SRC tH_̒Ɋi[Ă܂B
;SRC-->ExamtH_ɂ͂QOOXNxQOPXNx܂ł
;̃\[XR[hi[Ă܂B@ׂĎsł܂B
;߂̂QOPXNxtAH̎õ\[XR[hB
;--------------------------------------------------------
;̑PFCASL2 Visible Inside ŏɋNƁAOAŌ
;wK\[XR[hIɓǂݍ݁AAZuԂ
;N邱ƂɂȂĂ܂BG[΁AG[
;bZ[W\ԂŋN܂B
;-------------------------------
;̑QF\[XR[hLqȂ΁AɁuAZu Av
;{^ƂɂȂ킯łA
;ɁusiΐFOp`jv{^NbNĂ
;܂܂Busv{^Ăł͕Kŏ
;AZusǍsɈڂ邱ƂɂȂĂ܂B
;us F]AuősvłlłB
;---------------------------------------------
