;;; 0から65535の範囲にある整数の入力を受け付ける
;;; 入力 （SVC）
;;; 出力 GR1: 入力された数値
;;;      GR0: 文字列の長さ。入力が数字以外の場合は、#FFFF
;;;      65536以上の正数が入力された場合はエラー
INL     START
        IN      IBUF,ILEN       ; 入力文字列を格納
        LAD     GR1,IBUF
        LD      GR2,ILEN
        CPA     GR2,LENMAX
        JPL     LENOV
        CALL    STR2L
        JOV     FIN
        LD      GR0,GR2
        JUMP    FIN
LENOV   LAD     GR0,#FFFF
        SRA     GR0,1
FIN     RET
ILEN    DS      1
LENMAX  DC      5
IBUF    DS      5
        END