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