as/casl2lib/src/inl.casl

   1 ;;; 0から65535の範囲にある整数の入力を受け付ける
   2 ;;; 入力 （SVC）
   3 ;;; 出力 GR1: 入力された数値
   4 ;;;     GR2: 文字列の長さ。
   5 ;;;          入力が数字以外の場合は、SFフラグを設定
   6 ;;;          65535を超える数値の場合は、OFフラグを設定
   7 INL     START
   8         PUSH    0,GR3
   9         IN      IBUF,ILEN       ; 入力文字列を格納
  10         LAD     GR1,IBUF
  11         LD      GR2,ILEN
  12         CALL    STR2L
  13         JOV     FIN
  14         JMI     FIN
  15         LD      GR1,GR3
  16 FIN     POP     GR3
  17         RET
  18 IBUF    DS      5
  19 ILEN    DS      1
  20 MAXLEN  DC      5
  21         END