.gitignoreの推敲
[YACASL2.git] / 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