N.B. In Appendix B, the time for the 56 action for the 13.5μS store, has been changed. This is believed to be a typing error in the original manual.
N.B. In Appendix B, time for 80 action with X c lines for the 2½μS store,has been changed to 7½+5X. This is believed to be a typing error in the original manual.
Appendix A
APPENDIX A : TRANSLATIONS OF INTERCODE ACTIONS
This appendix gives the computer code equivalent of the various
Intercode actions.
Translations are arranged in groups.
Additional instructions may be inserted by the Translator in the
following cases:
(i) Reference to a Transit Area
(ii) Reference to another chapter (see section 10)
(iii) Modification of a type 2 instruction (see section 11)
(iv) Modification using register > 3.
Where the computer code action is preceded by an asterisk; this indicates
that extra orders may be inserted to deal with its address. Where there is no
asterisk, no extra orders are inserted and the action always refers to a
compartment in the current chapter generated by the Translator as a working
location or a constant (unless the action uses its address as a literal).
Format of translations:
The computer code versions of all actions are laid out in the following
manner:
Div Address
A d m No within div
┌────┬───┬───┬───┬──────────┐
│ │ │ │ │ │
└────┴───┴───┴───┴──────────┘
Blank columns indicate variables inserted by the Translator according to
variables in the original Intercode, e.g. addresses, literals, etc.
5/72 Amendment No.30
March 1965
Appendix A (cont'd)
Group 0
Intercode Computer Code
┌────┬───┬───┬───┬──────────┐
00 *│ 6 │ │ │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
01 *│ 4 │ │ │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
02 *│ 5 │ │ │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
03 *│ 3 │ │ │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
04 *│ 7 │ │ │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
05 *│ 2 │ │ │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
06 *│ 9 │ │ │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
07 *│ 0 │ d │ 2 │ │ │ Select (N) into B
*│ 10 │ │ │ │ │ Multiply by (NC1)
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
08 *│ 0 │ d │ 2 │ │ │
*│ 11 │ │ │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
09 *│ 18 │ 1 │ 1 │ 0 │ 1 │ (AB) aligned to Q2 of B
*│ 13 │ │ │ │ │
└────┴───┴───┴───┴──────────┘
Group 1
The literal is held as a constant is sections formed by the Translator
(except for actions 10, 11, 12 if L ≤ 1 15 15 15).
__ __ __ __ __ __
L ≤ 1 15 15 15 L > 1 15 15 15 or L < 0
┌────┬───┬───┬───┬──────────┐ ┌────┬───┬───┬───┬──────────┐
10 │ 1 │ 1 │ 3 │ │ │ │ 6 │ │ │ │ │
└────┴───┴───┴───┴──────────┘ └────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐ ┌────┬───┬───┬───┬──────────┐
11 │ 1 │ 1 │ 1 │ │ │ │ 4 │ │ │ │ │
└────┴───┴───┴───┴──────────┘ └────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐ ┌────┬───┬───┬───┬──────────┐
12 │ 1 │ 1 │ 2 │ │ │ │ 5 │ │ │ │ │
└────┴───┴───┴───┴──────────┘ └────┴───┴───┴───┴──────────┘
7/2 Amendment No.30
March 1965
Appendix A (cont'd)
Intercode Computer Code
All values of L
┌────┬───┬───┬───┬──────────┐
16 │ 2 │ │ │ │ │ W/L
│ 0 │ d │ 2 │ │ │ Select (L) into B
*│ 10 │ │ │ │ │ W/L or N if non-zero
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
17 │ 0 │ d │ 2 │ │ │ Select L into B
*│ 10 │ │ │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
19 │ 1 │ 0 │ 1 │ │ │ Clear B
│ 6 │ │ │ │ │ (if N is non-zero)
│ 18 │ 1 │ 1 │ │ 4119 │ Align to Q2 of B
│ 13 │ │ │ │ │ Literal
└────┴───┴───┴───┴──────────┘
Group 2
┌────┬───┬───┬───┬──────────┐
20 │ 21 │ 0 │ 0 │ │ │ Transfer to clear A*
*│ 20 │ 0 │ m │ │ │ Add (N)
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
21 *│ 20 │ 0 │ m │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
22 *│ 20 │ 1 │ m │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
23 *│ 21 │ 1 │ m │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
24 │ 21 │ 1 │ 0 │ │ │ Copy to W/L
*│ 20 │ 0 │ m │ │ │ Add (N)
*│ 21 │ 0 │ 0 │ │ │ Transfer to (N)
│ 20 │ 0 │ 0 │ │ │ Add W/L
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
25 *│ 21 │ 0 │ m │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
26 *│ 22 │ 0 │ m │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
29 *│ 22 │ 1 │ m │ │ │
└────┴───┴───┴───┴──────────┘
8/1 Amendment No.33
August 1966
Appendix A (cont'd)
Group 3
Note: In computer code shift actions, discriminant 0 specifies shift (A),
discriminant 1 specifies shift (AB).
Intercode Computer Code
┌────┬───┬───┬───┬──────────┐
30 & 32 left │ 18 │ d │ 1 │ │ L │ (L positive)
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
right │ 18 │ d │ 1 │ │ 4128+L │ (L negative)
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
31 & 33 left │ 18 │ d │ 3 │ │ L │ (L positive)
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐ where L is negative and = X-4y,
right │ 18 │ d │ 3 │ │ X │ 3 ≥ x ≥ 0. If x = 0 the first
│ 18 │ d │ 1 │ │ 4128-y │ action is omitted.
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
34 *│ 0 │ d │ 2 │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
35 │ 1 │ 0 │ 1 │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
36 *│ 15 │ │ │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
37 *│ 14 │ │ │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
38 │ 1 │ 0 │ 2 │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
39 │ 2 │ 1 │ 0 │ │ │ W/L
│ 27 │ 1 │ 0 │ │ │ → change sequence if (AB) = 0
│ 1 │ 1 │ 3 │ │ 1 │
→│ 4 │ 1 │ 0 │ │ │ W/L
└────┴───┴───┴───┴──────────┘
Group 4
Group 4 actions are in general translated as entries into a subroutine
of the Master Programme. The basic form of the expansion is as follows:
┌────┬───┬───┬───┬──────────┐
│ 0 │ 1 │ 0 │ │ │ copy ABC, set binary
│ 0 │ 0 │ 3 │ │ │
(1) │ 0 │ d │ 2 │ │ │ control information to B
│ 6 │ 1 │ 0 │ │ │ type of operation in Q6
│ 4 │ 0 │ 0 │ │ │ route number
│ 25 │ 1 │ 1 │ │ 4096 │
│ 24 │ 0 │ 3 │ │ │ enter Master
│ 23 │ 0 │ 2 │ │ 1 │
(2) │ 0 │ 1 │ 1 │ │ │ restore ABC
└────┴───┴───┴───┴──────────┘
8 7/2 Amendment No.30
March 1965
Appendix A (cont'd)
The variations occur at the points marked ( ), as follows:
Action 40: (1) Selects Q1-5 = programme identity, Q6-9 =file identity
(2) is a 0/0/3 order (restore C, leave A,B as set up by
Master)
Actions 41,45: (1) is omitted
Normal Actions
42,43 (1) selects pseudo-route number.
Actions 42,43
with second
C-line: (1) is replaced by:
┌────┬───┬───┬───┬──────────┐
│ 0 │ 0 │ 2 │ │ │ pseudo-route number
│ 18 │ 1 │ 1 │ │ 5 │
*│ 24 │ 0 │ 2 │ │ 1 │ second C-line address
│ 18 │ 1 │ 1 │ │ 4123 │
└────┴───┴───┴───┴──────────┘
Action 43 for
route type 3: (1) is replaced by:
┌────┬───┬───┬───┬──────────┐
*│ 24 │ 0 │ 2 │ │ │ data start address
*│ 29 │ 0 │ 0 │ │ │ into GP transit area
│ 0 │ 0 │ 2 │ │ │ pseudo-route number of
└────┴───┴───┴───┴──────────┘ GP transit area
Action 43 for
route type 4: (1) is replaced by:
┌────┬───┬───┬───┬──────────┐ set bits in Q10 of programmer’s
│ 6 │ 1 │ 0 │ │ │ function word depending upon
│ 0 │ 1 │ 2 │ │ │ unused sets of 40 print columns
*│ 14 │ 1 │ 0 │ │ │ (omitted if printing on all 160
│ │ │ │ │ │ columns)
*│ 24 │ 0 │ 2 │ │ │ data start address
*│ 29 │ 0 │ 1 │ │ │ into GP transit are
│ 0 │ 0 │ 2 │ │ │ pseudo-route number of GP
└────┴───┴───┴───┴──────────┘ transit area
9 7/2 Amendment No.30
March 1965
Appendix A (cont'd)
Action 43 for The entire expansion is replaced by:
route type 19:
┌────┬───┬───┬───┬──────────┐
│ 0 │ 1 │ 0 │ │ │ copy ABC, set binary
│ 0 │ 0 │ 3 │ │ │
│ 24 │ 0 │ 3 │ │ │ enter subroutine in programme’s
│ 26 │ 0 │ 0 │ │ │ extra chapter
│ 24 │ 1 │ 0 │ │ │
│ 0 │ 0 │ 0 │ │ │ W/L = route number
│ │ │ │ │ │
│ 0 │ 0 │ 0 │ │ │ W/L = pseudo-route number of
│ │ │ │ │ │ transit area holding data
│ 0 │ 0 │ 0 │ │ │ W/L = pseudo-route number of GP
│ │ │ │ │ │ transit area
│ 2 │ 0 │ 0 │ │ │ W/L = top half of ’bulk clear
│ │ │ │ │ │ GP transit area’ constant
│ │ │ │ │ │
│ 0 │ 1 │ 1 │ │ │ restore ABC
└────┴───┴───┴───┴──────────┘
Action 44: (1) selects the original contents of A into B.
(2) is a 0/0/3 order (restore C)
Actions 46-49,
NC = 0: (1) selects Q1-5 = C-line literal
Q6-10 = first line item in decimal (or zero,
actions 48 and 49)
Actions 46-49,
NC ≠ 0 (1) is replaced by:
┌────┬───┬───┬───┬──────────┐
*│ 6 │ 0 │ 0 │ │ │ select (NC)
│ 4 │ 1 │ 0 │ │ │ first line item (decimal) in
│ 18 │ 1 │ 1 │ │ 4128 │ Q6-10
└────┴───┴───┴───┴──────────┘
10 7/2 Amendment No.30
March 1965
Appendix A (cont'd)
Group 5
Intercode Computer Code
┌────┬───┬───┬───┬──────────┐
50 *│ 24 │ 0 │ 2 │ │ │ Select table start location
*│ 28 │ 0 │ 2 │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
51 *│ 24 │ 0 │ 2 │ │ │
*│ 28 │ 0 │ 3 │ │ │
│ 0 │ 1 │ 0 │ │ │ Copy ABC
│ 0 │ 0 │ 3 │ │ │ Set binary
│ 1 │ 1 │ 1 │ │ 2 │
│ 0 │ 0 │ 3 │ │ │ Reset radix
*│ 3 │ │ │ │ │ Update 'Item +' counter
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
52 *│ 24 │ 0 │ 2 │ │ │
*│ 28 │ 1 │ 2 │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
53 *│ 24 │ 0 │ 2 │ │ │
*│ 28 │ 1 │ 3 │ │ │
*│ 3 │ │ │ │ │
└────┴───┴───┴───┴──────────┘ Update 'Item +1.counter
Note: As these actions usually refer to transit areas one 24/1/2 action
is added in each case.
No. of locations as literal
┌────┬───┬───┬───┬──────────┐
54 │ 6 │ 1 │ 0 │ │ │ bit 38 + quantity in Q6-8
*│ 28 │ d │ 0 │ │ │ d = 0 to clear short,
└────┴───┴───┴───┴──────────┘ d = 1 to clear long
No. of locations as contents of compartment
┌────┬───┬───┬───┬──────────┐
│ 0 │ 1 │ 0 │ │ │ Copy ABC
│ 0 │ 0 │ 3 │ │ │ Set binay
│ 6 │ │ │ │ │ B18
*│ 4 │ │ │ │ │ Number of locations
│ 0 │ 0 │ 3 │ │ │ Reset radix
│ 18 │ 0 │ 1 │ │ 5 │ Shift (A) 5L
*│ 28 │ │ │ │ │
└────┴───┴───┴───┴──────────┘
11 7/2 Amendment No.30
March 1965
Appendix A (cont'd)
Intercode Computer Code
┌────┬───┬───┬───┬──────────┐
55 *│ 24 │ 0 │ 2 │ │ │ Source Address
│ 18 │ 1 │ 0 │ │ 4123 │ Shift (AB) 5R
│ 1 │ 1 │ 3 │ │ │ literal
Or │ 6 │ │ │ │ │ No. of locations compart-
│ │ │ │ │ │ ment
│ 18 │ 1 │ 1 │ │ 5 │ Shift (AB) 5L
*│ 28 │ │ │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
56 │ 0 │ 1 │ 0 │ │ │ Copy ABC
│ 0 │ 0 │ 3 │ │ │ Set binary
*│ 1 │ d │ 0 │ │ │ Table look up
│ 18 │ 1 │ 1 │ │ 10 │ Shift into A
│ 5 │ │ │ │ │ Difference formed
│ 0 │ 0 │ 3 │ │ │ Restore radix
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
57 │ 8 │ 0 │ 0 │ │ │ The length of each item as
└────┴───┴───┴───┴──────────┘ specified by L is set as a
constant by Translator
┌────┬───┬───┬───┬──────────┐
58 │ 8 │ 1 │ 0 │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
59 │ 0 │ 1 │ 0 │ │ │ Copy ABC
│ 0 │ 0 │ 3 │ │ │ Set binary
│ 24 │ 0 │ 2 │ │ │ Start
│ 3 │ 0 │ 0 │ │ │ Less significant half of
│ │ │ │ │ │ modification register
│ 4 │ │ │ │ │ Length
│ 2 │ 0 │ 0 │ │ │ More significant half of
│ │ │ │ │ │ modification resister
│ 0 │ 1 │ 1 │ │ │ Restore ABC
└────┴───┴───┴───┴──────────┘
8/1 Amendment No.33
August 1966
Appendix A (cont'd)
Group 6
Intercode Computer Code
┌────┬───┬───┬───┬──────────┐
60 │ 0 │ 0 │ 3 │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
61 │ 0 │ 0 │ 3 │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
62 │ 0 │ 0 │ 3 │ │ │ L is s et as a constant by the
└────┴───┴───┴───┴──────────┘ Translator
┌────┬───┬───┬───┬──────────┐
63 │ 2 │ │ │ │ │ W/L if acting on A
│ 0 │ 0 │ 3 │ │ │ (C) sterling
│ 6 │ │ │ │ │ (A) = address of table start
*│ 12 │ │ │ │ │ W/L or N if present
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
64 │ 2 │ │ │ │ │ W/L if acting on A
│ 0 │ 0 │ 3 │ │ │ (C) decimal
│ 6 │ │ │ │ │ (A) = address of table start
*│ 12 │ │ │ │ │ W/L or N if present
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
65 │ 2 │ │ │ │ │ W/L if acting on A
│ 0 │ 0 │ 3 │ │ │ (C) new radix
│ 6 │ │ │ │ │ (A) = address of table start
*│ 12 │ │ │ │ │ W/L or N if present
└────┴───┴───┴───┴──────────┘ (Translator has to work out
Table and place it in a
Section)
┌────┬───┬───┬───┬──────────┐
66 │ 6 │ 1 │ 0 │ │ │ -(239 + 37)
│ 24 │ 0 │ 3 │ │ │ to division 0
│ 3 │ 1 │ 0 │ │ 132 │
│ 24 │ 0 │ 3 │ │ │ to division 0
│ 2 │ 0 │ 0 │ │ 132 │ (to set sign bit of 132 short)
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
67 │ 6 │ 1 │ 0 │ │ │ 239 + 37
│ 24 │ 0 │ 3 │ │ │ to division 0
│ 3 │ 1 │ 0 │ │ 132 │
└────┴───┴───┴───┴──────────┘
13 7/2 Amendment No.30
March 1965
Appendix A (cont'd)
Group 7
Intercode Computer Code
┌────┬───┬───┬───┬──────────┐
70 *│ 27 │ 0 │ 0 │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
71 *│ 27 │ 0 │ 1 │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
72 *│ 27 │ 0 │ 2 │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
73 *│ 27 │ 0 │ 3 │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
74 *│ 27 │ 1 │ 0 │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
75 *│ 27 │ 1 │ 1 │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
76 *│ 24 │ 1 │ 0 │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
77&78 │ 24 │ 0 │ 3 │ │ │ to division 0
│ 17 │ 0 │ 0 │ │ 130 │ A* exponent
*│ 5 │ │ │ │ │ L or (NC1)
*│ 27 │ 0 │ 3 │ │ │→(Action 77)
or *│ 27 │ 0 │ 2 │ │ │→(Action 78)
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
79 │ 24 │ 0 │ 3 │ │ │ to division 0
│ 17 │ 0 │ 0 │ │ 128 │ A* mantissa
*│ 27 │ 0 │ 2 │ │ │→
└────┴───┴───┴───┴──────────┘
14 7/2 Amendment No.30
March 1965
Appendix A (cont'd)
Group 8
Intercode Computer Code
80 (i) No C-lines
┌────┬───┬───┬───┬──────────┐
*│ 26 │ 0 │ 0 │ │ │
└────┴───┴───┴───┴──────────┘
(ii) X C-lines
┌────┬───┬───┬───┬──────────┐
n *│ 26 │ 0 │ 0 │ │ │
n+1 │ 24 │ 1 │ 0 │ │ n+X+2 │
n+2 │Absolute address 1st C-line│
n+3 │Absolute address 2nd C-line│
n+4 │Absolute address 3rd C-line│
. │ │
. │ │
. │ │
N+X+1 │Absolute address Xth C-line│
└───────────────────────────┘
┌────┬───┬───┬───┬──────────┐ First word of computer code
81 │ 0 │ 0 │ 0 │ │ │ subroutine blank (to act as
└────┴───┴───┴───┴──────────┘ link)
┌────┬───┬───┬───┬──────────┐
82 │ 26 │ 0 │ 1 │ │ │→
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
83 │ 1 │ 1 │ 3 │ │ │ Select literal
*│ 2 │ │ │ │ │ Transfer to switch location
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
84 *│ 6 │ │ │ │ │ Select compartment if specified
*│ 2 │ │ │ │ │ Transfer to switch location
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
85 │ 24 │ 0 │ 1 │ │ │
│ 26 │ 0 │ 1 │ │ │
│+ locn. of each destination│
└───────────────────────────┘
┌────┬───┬───┬───┬──────────┐
86 *│ 6 │ │ │ │ │ Select location
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
87 *│ 24 │ 0 │ 1 │ │ │ Compartment specified
│ 26 │ 0 │ 1 │ │ │
│+ locn. of each destination│
└───────────────────────────┘
15 7/2 Amendment No.30
March 1965
Appendix A (cont'd)
Group 9
Mod. Reg. 1-3 Mod. Reg. > 3
┌────┬───┬───┬───┬────┐ The Literals ┌────┬───┬───┬───┬────┐ The literals
90 *│ 26 │ 1 │ m │ │ │ are converted │ 6 │ 1 │ 0 │ │ │ are converted
└────┴───┴───┴───┴────┘ to binary and │ 2 │ 1 │ 0 │ │ │ to binary and
placed in └────┴───┴───┴───┴────┘ placed in
modification modifier form
register in in W/L.
modifier
form.
┌────┬───┬───┬───┬────┐ W/L if acting ┌────┬───┬───┬───┬────┐
91 │ 3 │ │ │ │ │ on A *│ 6 │ 1 │ 0 │ │ │ If acting on
│ │ │ │ │ │ │ │ │ │ │ │ compartment
│ 26 │ 1 │ m │ │ │ W/L or N if *│ 2 │ 1 │ 0 │ │ │
└────┴───┴───┴───┴────┘ present └────┴───┴───┴───┴────┘
┌────┬───┬───┬───┬────┐ ┌────┬───┬───┬───┬────┐
92 *│ 6 │ │ │ │ │ if acting on *│ 6 │ │ │ │ │ if acting on
│ │ │ │ │ │ compartment │ │ │ │ │ │ compartment
│ 24 │ 0 │ 3 │ │ │ *│ 2 │ │ │ │ │
│ 2 │ │ │ │ │ │ │ │ │ │ │
└────┴───┴───┴───┴────┘ └────┴───┴───┴───┴────┘
┌────┬───┬───┬───┬────┐ ┌────┬───┬───┬───┬────┐
93 │ 0 │ 1 │ 0 │ │ │ Copy ABC │ 0 │ 1 │ 0 │ │ │
│ 0 │ 0 │ 3 │ │ │ Binary │ 0 │ 0 │ 3 │ │ │
│ 6 │ │ │ │ │ Table heading │ 6 │ │ │ │ │
*│ 12 │ │ │ │ │ Conversion *│ 12 │ │ │ │ │
│ 27 │ 0 │ 2 │ │ │→ │ 27 │ 0 │ 2 │ │ │→
│ 4 │ │ │ │ │ Add B17 │ 4 │ │ │ │ │
→│ 24 │ 0 │ 3 │ │ │ →│ 2 │ │ │ │ │ W/L
│ 2 │ │ │ │ │ Modification │ 0 │ 1 │ 1 │ │ │
│ │ │ │ │ │ register └────┴───┴───┴───┴────┘
│ 0 │ 1 │ 1 │ │ │ Restore ABC
└────┴───┴───┴───┴────┘
┌────┬───┬───┬───┬────┐ ┌────┬───┬───┬───┬────┐
94 │ 25 │ 0 │ m │ │ │ │ 23 │ 0 │ 0 │ │ │
│ 24 │ 1 │ 0 │ │ │→ │Location of simulated│
└────┴───┴───┴───┴────┘ │modification register│
│ 24 │ 1 │ 0 │ │ │→
└────┴───┴───┴───┴────┘
16 7/2 Amendment No.30
March 1965
Appendix A (cont'd)
Mod. Reg. 1-3 Mod. Reg. > 3
┌────┬───┬───┬───┬────┐ ┌────┬───┬───┬───┬────┐
95 │ 24 │ 0 │ 3 │ │ │ *│ 6 │ 1 │ 0 │ │ │
│ 6 │ 1 │ 0 │ │ │ └────┴───┴───┴───┴────┘
└────┴───┴───┴───┴────┘
┌────┬───┬───┬───┬────┐ ┌────┬───┬───┬───┬────┐
96 │ 24 │ 0 │ 3 │ │ │ *│ 6 │ 0 │ 0 │ │ │
│ 6 │ 0 │ 0 │ │ │ └────┴───┴───┴───┴────┘
└────┴───┴───┴───┴────┘
┌────┬───┬───┬───┬────┐ ┌────┬───┬───┬───┬────┐
97 *│ 24 │ 0 │ 1 │ │ │ │ 24 │ 0 │ 1 │ │ │
│ 25 │ 0 │ m │ │ │ │ 23 │ 0 │ 0 │ │ │
│ 24 │ 1 │ 0 │ │ │→ │ 0 │ 0 │ 0 │ │ │ Location of
└────┴───┴───┴───┴────┘ │ 24 │ 1 │ 0 │ │ │→simulated M.R.
└────┴───┴───┴───┴────┘
┌────┬───┬───┬───┬────┐ ┌────┬───┬───┬───┬────┐
98 │ 24 │ 0 │ 3 │ │ │ *│ 4 │ d │ 0 │ │ │
│ 4 │ d │ 0 │ │ │ └────┴───┴───┴───┴────┘
└────┴───┴───┴───┴────┘
┌────┬───┬───┬───┬────┐ ┌────┬───┬───┬───┬────┐
99 │ 24 │ 0 │ 3 │ │ │ *│ 5 │ d │ 0 │ │ │
│ 5 │ d │ 0 │ │ │ └────┴───┴───┴───┴────┘
└────┴───┴───┴───┴────┘
Groups 10 - 13
100 subtracted from each action number.
Group 14
Intercode Computer Code
┌────┬───┬───┬───┬──────────┐
140 │ 1 │ 1 │ 3 │ 0 │ │
│ 1 │ 0 │ 1 │ 0 │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
141 *│ 31 │ 0 │ m │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
142 *│ 31 │ 1 │ m │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
143 *│ 30 │ 1 │ m │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
145 │ 30 │ 0 │ m │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
146 *│ 6 │ 1 │ │ │ │
*│ 9 │ 1 │ │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
147 │ 30 │ 0 │ m │ │ │ W/L
*│ 6 │ 1 │ │ │ │
*│ 9 │ 1 │ │ │ │
│ 31 │ 0 │ m │ │ │ W/L
└────┴───┴───┴───┴──────────┘
8/4 Amendment No.36
November 1966
Appendix A (cont'd)
Intercode Computer Code
┌────┬───┬───┬───┬──────────┐
148 │ 30 │ 0 │ m │ │ W/L (1) │
*│ 6 │ 1 │ │ │ │
*│ 9 │ 1 │ │ │ │
│ 30 │ 0 │ m │ │ W/L (2) │
│ 31 │ 0 │ m │ │ W/L (1) │
│ 31 │ 1 │ m │ │ W/L (2) │
└────┴───┴───┴───┴──────────┘
Group 15
┌────┬───┬───┬───┬──────────┐
150 │ 1 │ 1 │ 3 │ │ │ Control data in A and B
│ 0 │ 0 │ 2 │ │ │
│ 25 │ 1 │ 1 │ │ 4096 │ Set non-interruptible
│ 24 │ 0 │ 3 │ │ │
│ 26 │ 0 │ 2 │ │ │→Control to Master Program
│ + Locations │
└───────────────────────────┘
This is also an entry into a subroutine of the Master Program which
automatically changes sequence back to a selected location when an option
choice has been made.
┌────┬───┬───┬───┬──────────┐
151 │ 25 │ 1 │ 1 │ │ 4096 │ Set non-interruptible
│ 24 │ 0 │ 3 │ │ │
│ 26 │ 0 │ 2 │ │ │→To Master unload routine
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
152 │ 0 │ 1 │ 0 │ │ │
│ 1 │ 1 │ 3 │ │ │ Set control data in A and B
│ 0 │ 0 │ 2 │ │ │
│ 25 │ 1 │ 1 │ │ 4096 │ Set non-interruptible
│ 24 │ 0 │ 3 │ │ │
│ 23 │ 0 │ 2 │ │ │
│ 0 │ 1 │ 1 │ │ │→Control to Master Program
└────┴───┴───┴───┴──────────┘
→
8/4 Amendment No.36
November 1966
Appendix A (cont'd)
Intercode Computer Code
┌────┬───┬───┬───┬──────────┐
153 n │ 25 │ 1 │ 1 │ │ 4096 │ Set non-interruptible
n+1 │ 23 │ 0 │ 2 │ │ n+3 │ Set tag 14
n+2 │ 24 │ 1 │ 0 │ │ n+9 │
n+3 │ 0 │ 0 │ 0 │ │ │(link)
n+4 │ 24 │ 0 │ 3 │ │ │
n+5 │ 6 │ 1 │ 0 │ │ 138 │ Date
n+6 │ 24 │ 0 │ 3 │ │ │
n+7 │ 0 │ 0 │ 2 │ │ 156 │ Time
n+8 │ 26 │ 0 │ 3 │ │ n+3 │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
154 │ 0 │ 1 │ 0 │ │ │ Copy ABC
│ 0 │ 0 │ 3 │ │ │ Set binary
*│ 24 │ 0 │ 2 │ │ │ Select annexe start
│ 24 │ 0 │ 3 │ │ │ Enter Master
│ 23 │ 0 │ 2 │ │ │
│ 0 │ 1 │ 1 │ │ │ Restore ABC
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
155 │ 6 │ 1 │ 0 │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
156 │ 0 │ 1 │ 0 │ │ │ Copy ABC, set binary
│ 0 │ 0 │ 3 │ │ │
│ 6 │ 1 │ 0 │ │ │ route type in Q6
│ 4 │ 0 │ 0 │ │ │ route number
│ 25 │ 1 │ 1 │ │ 4096 │
│ 24 │ 0 │ 3 │ │ │ Enter Master
│ 23 │ 0 │ 2 │ │ │
│ 0 │ 1 │ 1 │ │ │ Restore ABC
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
157 *│ 24 │ 0 │ 2 │ │ │
*│ 29 │ 0 │ 3 │ │ │
│ 0 │ 1 │ 0 │ │ │ Copy ABC, set binary
│ 0 │ 0 │ 3 │ │ │
│ 1 │ 1 │ 1 │ │ 2 │
*│ 3 │ 0 │ 0 │ │ │ Update 'item +' counter
│ 0 │ 0 │ 3 │ │ │ Restore C
└────┴───┴───┴───┴──────────┘
19 7/2 Amendment No.30
March 1965
Appendix A (cont'd)
Intercode Computer Code
┌────┬───┬───┬───┬──────────┐
158 (i) L=0 *│ 16 │ 1 │ 0 │ │ │
└────┴───┴───┴───┴──────────┘
┌────┬───┬───┬───┬──────────┐
(ii) L=1 *│ 16 │ 1 │ 1 │ │ │
└────┴───┴───┴───┴──────────┘
2o 7/2 Amendment No.30
March 1965
APPENDIX B INTERCODE ACTION TIMES Appendix B
Time in microseconds
Group 0 : ARITHMETIC ON VARIABLES
LEO 326 LEO 360 LEO III
ACTION 2½μS store 6μS store 13.5μS store
00 5 12 27 to 36
01 5 12 34 to 36
02 5 12 31 to 39
03 5 12 31 to 39
04 8½ 18 52 to 72
05 5 12 30 to 54
06 28½ + 2½R 66 + 6R 405 to 590
07) 12s + S + 1 12s + S + 11 254 to 1927
08) or 5½ when s = 0 or 12 when s = 0
09 36½ + 1½Σd1 + 26½b5 42½ + 1½Σd1 + 26½b5 513 to 1888
+½b13 + 1½q1 + ½b13 + 1½q1
Group 1 : ARITHMETIC ON LITERALS
10 2½ 6 40
11 3½ 6 51
12 3 6 45
Last three times doubled if 1 15 15 15 ≥ L>0
16 6 + 12s + S 23 + 12s + S 284 to 1981
17 1 + 12s + S 11 + 12s + S 254 to 1927
19 41½ + 26½b5 + ½b13 + 54½ + 26½b5 + ½b13 + 635 to 2029
1½q1 + 1½Σd1 1½q1 + 1½Σd1
Group 2 : FLOATING POINT ARITHMETIC
20 45 to 70 101 to 126 295 to 462
21 30 to 55 65 to 90 186 to 342
22 30 to 55 65 to 90 186 to 342
23 20 48 81 to 92
24 95 to 145 214 to 264 562 to 896
25 15 36 109 to 120
26 sig. digit 70 to 100 110 to 130 ) 602 to 784
norm. 80 to 90 115 to 125 ) 372 to 538
zero result 20 to 22½ 48 to 54 ) with same multiple
29 sig. digit 75 to 100 105 to 130 (
norm. 80 to 95 115 to 130 ( 117 to 179
zero result 15½ 36 (
Amendment No.32
8/0 July 1966
Appendix B (Cont'd)
Group 3 : PATTERN MANIPULATION
ACTION 2½μS store 6μS store 13.5μS store
30+32 left } 5½+18b5+½b13+q1 7½+18b5+½b13+q1 29+6n
} d=0
right} 35+6n
left } 5½+26b5+½b13+1½q1 7½+26½b5+½b13+1½q1 29+6n
} d=1
* right}
31+33 left } 4½+5q'+q1 7+5q'+q1 40+20f
} d=0
* right} 10+5q'+2q1+18½b5+½b13 14½+5q'+2q1+18½b5+½b13 75+6n+20f
left } 4½+6½q"+1½q1 7+6½q"+1½q1 40+20f
} d=1
right} 10+6½q"+3q1+26½b5+½b13 14½+6½q"+3q1+26½b5+½b13 75+6n+20f
34 5 12 28 to 34
35 5 7 43
36 6 12 52 to 55
37 8 12 74 to 90
38 5 or 3½ 7 or 6 51 to 79
39 29½ 61½ 124 to 196
Group 4 : FILE CONTROL
Note : Time in Master Routines is not included in this group
ACTION 2½μS store 6μS store 13.5μS store
40 52 120 312 to 323
41 47 108 349 to 360
42 57 132 377 to 394
with 2nd c-line 65½+53b5+b13+3q1 141+53b5+b13+3q1 516 to 533
43 57 132 377 to 394
with 2nd c-line 65½+53b5+b13+3q1 141+53b5+b13+3q1 516 to 533
route type3 127+16½cα+10cn+3½c0 306½+26½cα+15½cn 458 to 475
+8c2+6w +13c2+13w +14cα+9cn+3cs
route type 4 91½+3½c0+7½c1 198½+3½c0+12½c1 198 to 235
+321F+6½W +769F+13½W +9C+4Cs
route type 19 42½ 126 375 to 399
44 52 120 259 to 339
46 - 49
NC=0 57 132 377 to 394
NC≠0 62½+26½b5+½b13+1½q1 139½+26½b5+½b13+1½q1 481 to 503
Amendment No.32
8/0 July 1966
Appendix B (Cont'd)
Group 5 : RE-ARRANGEMENTS
ACTION 2½μS store 6μS store 13.5μS store
50 10+12u+6v 24+14u+12v 82+80u+59v
51 41+2½α+4½n-2q 96+4½α+6½n-2q 321 to 345+18t
+12½r+S+2½t +14½r+s+5½t +106u+66w
52 10+d+2v+12½w+ 24+d+12½e+14½w 99+6d+115e+63e,
10e if alpha +102w
8½e if numeric
53 15+d+6e+3t+13w 36+d+8e+5½t+15w (126 to 150+6d+83e
(+48e+34t+74w
54
loc. as literal 14+2½W 23+6W 75 to 84+30W
loc. as comptmnt 44½+2½W+18½b5 90½+6W+18½b5+c1 291 to 302+30W
+½b13+q1 +½b13
55 26½b5+½b13+1½q1 26½b5+½q1+½b13 40W
+1288x+80½y +12W +167 to 174 if literal
+19½ if literal +30½ if literal +199 if compartment
+22 if compartment +36½ if compartment
56 33+2½a+26½b5 73½+6a+26½b5 26a+276 to 31a+278
+½b13+1½q1 +½b13+1½q1
57 12½+20g+5p+5w 30+48g+12p+12w 115+136g+29p+43w
58 10+25g+5p+5w 24+60g+12p+12w 109+166g+29p+43w
59 48+18½b5+½b13+q1 109½+18½b5+c1+½b13 370 to 420
Group 6 : RADIX FACILITIES
ACTION 2½μS store 6μS store 13.5μS store
60 5 12 28
61 5 12 28
62 5 12 28
63 19½+2½Q+Σd 42+6Q+Σd 180 to 1897
64 19½+2½Q+Σd 42+6Q+Σd 180 to 1897
65 19½+2½Q+Σd 42+6Q+Σd 180 to 1897
66 30 72 173 to 230
67 17½ 42 100 to 133
Amendment No.32
8/0 July 1966
Appendix B (Cont'd)
Group 7 : SEQUENCE CHANGES
ACTION 2½μS store 6μS store 13.5μS store
70 3½ 6 20 to 35
71 3½ 6 23 to 35
72 3 6 20 to 26
73 3 6 23
74 3½ 6 20 to 66
75 3½ 6 23 to 66
76 2½ 6 18
77 17½ 48 157 to 165
78 17½ 48 154 to 168
79 15½ 36 123 to 129
Group 8 : SUBROUTINES AND SWITCHES
ACTION 2½μS store 6μS store 13.5μS store
80
no c-lines 5 12 36
x c-lines 7½+5X 18+12X 54+27X to 54+36X
81 2½ 6 20
82 5 12 33
83 7½ 18 70 to 94
84 10 24 57 to 90
85 12½ 30 73
86 5 12 27 to 36
87 12½ 30 73
Group 9: MODIFICATION REGISTER CONTROLS
ACTION 2½μS store 6μS store 13.5μS store
Mod.Reg.1-3 Mod.Reg.>3 Mod.Reg.1-3 Mod.Reg.>3 Mod.Reg.1-3 Mod.Reg.>3
90 12½ 10 30 24 78 57 to 90
91 17½ 10 35 24 108 to 132 57 to 90
92 17½ 10 32 24 100 to 133 57 to 90
Amendment No.32
8/0 July 1966
GROUP 9 (Cont'd) Appendix B (Cont'd)
ACTION 2½μS store 6μS store 13.5μS store
Mod.Reg.1-3 Mod.Reg.>3 Mod.Reg.1-3 Mod.Reg.>3 Mod.Reg.1-3 Mod.Reg.>3
93 55+2½Q+Σd 47½+2½+Σd 126+5Q+Σd 108+6Q+Σd 437 to 2162 394 to 2119
94 12½ (13 if N3 15½ 30 36 74 to 98 104 to 116
=1)
95 12½ 5 30 12 70 to 79 27 to 36
96 12½ 3 30 12 70 to 79 28 to 36
97 20 (20½ if N3 25½ 40 60 114 to 138 164 to 176
=1)
98 12½ 5 30 12 77 to 79 34 to 36
99 12½ 5 30 12 74 to 82 31 to 39
Actions 100 - 131 see computer code section times in Volume I.
GROUPS 10 - 13 : COMPUTER CODE ACTIONS
For timing see User's manual Vol. I Appendix D.
GROUP 14 : DOUBLE LENGTH ARITHMETIC
ACTION 2½μS store 6μS store 13.5μS store
140 7½ 13 83
141 38½(N-ve) 18 80
8(N+ve)
142 8½(N-ve) 18 90
8(N+ve)
143 7½(AB+ve) 18 100
8(AB-ve)
145 7½(AB+ve) 18 60
8(AB-ve)
146 33½+2½R 78+6R 432 to 626
147 49+2½R(AB+ve) 114+6R 572 to 766
50+2½R(AB-ve)
148 64½+2½R(AB+ve) 150+6R 722 to 916
66½+2½(AB-ve)
Amendment No.32
8/0 July 1966
Appendix B (Cont'd)
GROUP 15 : MASTER ROUTINE CONTROLS
ACTION 2½μS store 6μS store 13.5μS store
150 2½ 54 171 to 177
151 17 36 103
152 49½ 114 356 to 362
153 44½ 102 274 to 289
154 41 96 296
155 5 12 27 to 36
156 52 120 364 to 375
157 37½+12½r+3t+4w 90+14½r+6½t+6w not applicable
158 4+5p 12(½+p) 50+43p
Note
With 2½μS and 6μS store machines add 1 store cycle if address is modified
by reg. m. With Leo III the extra time taken when modifying depends the
action.
Constants
a = no. of searches
b1..b13 = bit positions of N
Cd = no. of alpha characters
Cn = no. of numeric characters
C0 = no. of zero characters
C1 = no. of non-zero characters
C2 = no. of basic qtt >9
C = no. of characters
Cs = no. of space characters
Σd = no. of discards
Σd = sum of digits to be converted
d' = sum of digits in modules of Quotient
e = no. of words edited
+f for no.of left shifts required
-f for one left shift required
F = no. of bits which are not set in function words bits b37, b38, b39
g = no. of items merged
+h = no. of right shifts required
-h = 1 left shift required
h = no. of items unpacked into numeric form
Amendment No.32
8/0 July 1966
Appendix B (Cont'd)
P = no. of comparisons made
q = character position (1-5) of L/E or B/E in last word if action ends on
either of these
q1q2 = quartet positions of N
q' = q2, or 3, whichever is less
q" = q2, or 5 whichever is less
Q = number of quartets set
r = no. of words read
R = radix (e.g. for decimal = 10)
s = no. of signif. chars. in N
S = most signif. of these
t = no. of table entries
V = no. of spaces inserted
w = no. of words written
W = no. of long words in source
x = multiples of 256 words
y = multiples of 16 words
z = multiples of 1 word
d = no. of items unpacked into alpha form
Amendment No.32
8/0 July 1966
APPENDIX C
SPECIMENS of programme sheets for submission of programmes on
paper tape.
Note: Forms different from those shown here may of course be used provided
the paper tape produced from them is identical with tape produced
from the forms in this appendix;
