ドキュメントの更新
[YACASL2.git] / as / misc / io.casl
1 MAIN    START
2         OUT     STRT,L1
3 LOOP    IN      IOBUF,IOLEN
4         LD      GR1,IOLEN
5         JZE     FIN
6         OUT     TYPD,L2
7         OUT     IOBUF,IOLEN
8         OUT     WHTNXT,L3
9         JUMP    LOOP
10 FIN     RET
11 ;;; メッセージと長さ
12 STRT    DC      'LET''S START. TYPE IN'
13 L1      DC      20
14 TYPD    DC      'YOU TYPED'
15 L2      DC      9
16 WHTNXT  DC      'WHAT''S NEXT?'
17 L3      DC      12
18 ;;; 入出力領域
19 IOBUF   DS      64
20 IOLEN   DS      1
21         END