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.