The Initial Input Routine for the PC-1
Location Order Notes
0 al 28 from 48 Decimal to binary conversion
1 jl 49
2 0 0 Constant
3 ( 0) by 34 Temporary storage for binary number
4 a 64 from 25 Add function
5 t 64 from 45 Store function and parameter
6 i 6 from 7 Read code, number or symbol
and 52
7 zl 6 Jump if blank
8 rl 12 from 46 Shift teletype code to address part
9 kl 20 Jump if code letter
10 a 33 Add address base
11 x 12 Assemble load order
12 p ( 0) by 11 Load number or base order
13 kl 34 Jump if number
14 a 47 Modify base order into switch order
15 t 18 from 15 Set switch order
16 p 29 Load address
17 a 64 Add function and parameter
18 ( 0) by 15 jl 18, jl 57, jl 15, x 66, p 24,
19 jl 55 Jump to ``set transfer order''
20 a 33 from 9 Add address base
21 x 24 Assemble load order
22 s 4 Examine whether code letter is line feed
23 z 40 Jump to clear order in case of line feed
24 p ( 0) by 21 Load parameter
25 jl 4 (4) Jump to ``add function'' order
26 *s 6 (-) Base order for ``jl 18''
27 8 (8) Constant
28 ( 0) by 41 Working space for
29 ( 0) and 51 decimal to binary conversion
30 *s 45 (,) Base order for ``jl 57''
31 *s 3 (.) Base order for ``jl 15''
32 *s 6 (+) Base order for ``jl 18''
33 56 Address base
34 x 3 (3)from 13 Store binary number
35 pl 28
36 rl 7 (7) Decimal to binary conversion
37 ll 9 (9)
38 jl 0
39 *el 54 (:) Base order for ``x 66''
40 p 2 (2)from 23
and 56
41 tl 28 Clear working spaces
42 t 64
43 i 43 from 44 Read function, number or symbol
44 zl 43 Jump if blank
45 kl 5 (5) Jump if function letter
46 jl 8 Jump to right shift order
47 *nl 12 (=) Base order for ``p 24'' and order modifier
48 jl 0 (0)from 38
49 l 1 (1)from 1
50 al 2 Decimal to binary
51 tl 28
52 jl 6 (6)
53 p 57 from 58
54 a 49 Increase ``transfer order''
55 x 57 Set ``transfer order''
56 jl 40 (blank) Jump to clear order
57 t (67) (t)from 18 Transfer order
by 55
58 jl 53 (C.R.)
59 28 (o)
60 0 (space)
61 0 (h) h parameter (variable)
62 parity (n) n parameter (variable)
63 digits (m) m parameter (varialbe)
64 ( 0) (L.F.)by 5 Working space for functions and
and 42 parameters
65 2048 (l) l parameter (for long word order)
66 ( 0) (r)by 18 r parameter (relative address base)
67 68 (g) End of tape
Programmed May 1 1958
by Wada Eiiti