INOUT START
AGN  IN BUF,LEN
  LD GR1,LEN
  JZE FIN
  OUT BUF,LEN
  JUMP AGN
FIN  RET
LEN DS 1
BUF DS 256
MARK DC 8899 
;確保したメモリ領域の標識用
  END
; 何も入力がない場合に終了します。
;文字入力があれば何度でも繰り返します。
;------------
;「CASL2言語の仕様」によるとCASL2では、半角の
;英数文字記号のみを扱います。その他の文字については
;言及がなく、処理系にまかせるとしています。
;--------------------
;CASL2 Visible Inside では、若干拡張しました。
;文字列定数、文字列リテラル、ＩＮ、ＯＵＴ命令
;において、ひらがな、漢字　の処理、
;入出力が可能です。
;-----------------
;CASL2 Visible Inside は, Shift_JIS の文字コードを
;使うソフトです。ひらがな、漢字を内部で変換を行い、
;COMET2のメモリにUnicode で文字定数を格納します。
;これにより、ひらがな、漢字　も扱えるようになりました。
;ご活用願います。ただし、試験の対象外です。
;英語版のWindows OSでは設定により動作すると思います。
;しかし、タイ版、中国語版のWindows OSなどでは
;うまく動作しないかもしれません。
;---------------------------
;このプログラムは、「 アセンブラ言語　ＣＡＳＬⅡ」
;東田幸樹　山本芳人　広瀬啓雄　共著　工学図書
;から採りました。
;簡単なのにおもしろいプログラムです。
;
;
;----------------------
