root/as/misc/io.casl

/* [<][>][^][v][top][bottom][index][help] */ 
   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
/* [<][>][^][v][top][bottom][index][help] */