as/casl2lib/inl.casl

   1 ;;; 0から65535の範囲にある整数の入力を受け付ける
   2 ;;; 入力 （SVC）
   3 ;;; 出力 GR1: 入力された数値
   4 ;;;      GR0: 文字列の長さ。入力が数字以外の場合は、#FFFF
   5 ;;;      65536以上の正数が入力された場合はエラー
   6 INL     START
   7         IN      IBUF,ILEN       ; 入力文字列を格納
   8         LAD     GR1,IBUF
   9         LD      GR2,ILEN
  10         CPA     GR2,LENMAX
  11         JPL     LENOV
  12         CALL    STR2L
  13         JOV     FIN
  14         LD      GR0,GR2
  15         JUMP    FIN
  16 LENOV   LAD     GR0,#FFFF
  17         SRA     GR0,1
  18 FIN     RET
  19 ILEN    DS      1
  20 LENMAX  DC      5
  21 IBUF    DS      5
  22         END