R1 Ÿì¤ÎÀ°¿ô, ¾®¿ôÆɤ߹þ¤ß¥ë¡¼¥Á¥ó
R1 Input of Signed Long Integers and Decimal Fractions

Special; even;  28 storage locations (normally 88-115);

used with initial input routine R0.


R1 is used to read in long integers and decimal fractions of either

sign into successive long storage locations in the memory.  During

the reading in of R1, the initial input routine is slightly

modified so as to enabel use of the control symbols "+" and "-"

during its operation.  With this routine, any number less than 235

followed by a "+" will be read as a positive integer, and any number

followed by a "-" as a negative integer.  Numbers exceeding this

limit will be interpreted modulo 236. If the number is preceded by a

decimal point with or without a zero ("0." or ".") and followed by a

sign it will be read in as a decimal fraction of that sign.  Any

number of digits up to 10 may follow the decimal point.  For instance,

2-1 cat be punched .5+ or 0.5+ instead of .5000000000+, but punching

more than 10 digits will give incorrect result.

     Long numbers and short words may appear mixed on the tape and

they are stored successively in their natural order on the tape, but

the location of long numbers must always be such that they are stored

in even storage locations.  Control symbols "+" and "-" causes storage

address fo the number to be increased by 2.  Hence no extra "," should

be placed after long numbers.  No code letter nore function symbol can

be used with long numbers.


                                 Author:  H. Takahasi

                                 Date:    58-12-08

     88:

 0   88   zl 2r    from 18    ¨¤decide whether the symbol just read
                              ¨¢is a decimal point or a control symbol.
 1   89   jl 15               ¨¥

 2   90   p 4r     from 0r    ¨¤it is a decimal point. place the "magic
                              ¨¢number" in 28 and 64 (by 41 and 42)
 3   91   jl 41               ¨¥

 4   92 | 156416   used by 2r   "magic number" = 1.193359375 *

 5   93 | nl 28    used by 8r

 6   94   p 12r    from 18    ¨¤place "pl 28" in 23r on
                              ¨¢reading "+".
 7   95   jl 9r               ¨¥

 8   96   p 5r     from 18    ¨¤place "nl 28" in 23r on
                              ¨¢reading "-".
 9   97   t 23r    from 7r    ¨¥

10   98   p 64                ¨¤test whether an integer or a
                              ¨¢fraction by reading C(64).
11   99   kl 19r              ¨¥

12  100   pl 28  also used by 6r ¨¤test whether multiplied      ¨¤
                                 ¨¢10 times                     ¨¢
13  101   kl 17r                 ¨¥                             ¨¢
                                 ¡¡                             ¨¢
14  102   v 48     from 16    ¨¤multiply by 10 up to ten times  ¨¢
                              ¨¢                                ¨¢
15  103   ll 5                ¨¢                                ¨¢fraction
                              ¨¢                                ¨¢
16  104   k 14r               ¨¥                                ¨¢
                            ¡¡                                  ¨¢
17  105   dl 26r              ¨¤divide by 1010                  ¨¢         
                              ¨¢                                ¨¢
18  106   tl 28               ¨¥                                ¨¥

19  107   p 57                ¨¤set store order for long number.
                              ¨¢
20  108   x 24r               ¨¥

21  109   a 40                ¨¤increase address of store order
                              ¨¢by 2.
22  110   x 57                ¨¥

23  111  (     )   by 9r        becomes pl 28 or nl 28

24  112   tl (  )  by 20r     ¨£ store a long number in ultimate
                              ¨¦ storage location.
25  113   jl 40

26  114 | 38146  ¨¤
                 ¨¢ used by 17r 1010
27  115 | 254976 ¨¥

          t 26.

          212988r  (-) makes jl 8r

          t 31.

          212980r  (.) makes jlr

          212986r  (+) makes jl 6r

          28r.     stop tape

* "Magic number" is a 9 digit binary fraction whose decimal form
  contains only odd digits.