Elliott 803 Algol 60 Compiler (reconstructed)

File: stdprocs.t2

For general comments see here
LineAddressObject Code LabelF1N1BF2N2CommentsCheck
1 0  ; tape1.d/stdprocs.t2
2 0  ;--------------------
3 0  ; standard procedures definitions
4 0  ;
5 0  =4089 
6 4089  proclist:; 
7 4089 5242400000000 +05242400000000;52 4416 : 00 0
8 4090 4004022000117 +04004022000117;40 516 / 00 79 @4090
9 4091 6040022000015 +06040022000015;60 4100 / 00 13
10 4092 0576564636462 'OUTSTR'; @4092
11 4093 5242400000000 +05242400000000;52 4416 : 00 0
12 4094 4004022000112 +04004022000112;40 516 / 00 74 @4094
13 4095 6040022000015 +06040022000015;60 4100 / 00 13
14 4096 0515663646251 'INSTRI'; @4096
15 4097 4600000000000 +04600000000000;46 0 : 00 0 string arg
16 4098 4002022000111 +04002022000111;40 260 / 00 73 @4098
17 4099 6000022000114 +06000022000114;60 4 / 00 76
18 4100 0435045435363 'CHECKS'; @4100
19 4101 4100000000000 +04100000000000;41 0 : 00 0 boolean arg
20 4102 4002022000110 +04002022000110;40 260 / 00 72 @4102
21 4103 6100022000114 +06100022000114;61 4 / 00 76
22 4104 0435045435342 'CHECKB'; @4104
23 4105 4300000000000 +04300000000000;43 0 : 00 0
24 4106 4002022000107 +04002022000107;40 260 / 00 71 @4106
25 4107 6300022000114 +06300022000114;63 4 / 00 76
26 4108 0435045435362 'CHECKR'; @4108
27 4109 4200000000000 +04200000000000;42 0 : 00 0
28 4110 4002022000106 +04002022000106;40 260 / 00 70 @4110
29 4111 6200022000114 +06200022000114;62 4 / 00 76
30 4112 0435045435351 'CHECKI'; @4112
31 4113 4000006000066 +04000006000066;40 1 / 00 54
32 4114 6000012000125 +06000012000125;60 2 / 00 85 @4114
33 4115 0606245435755 'PRECOM';
34 4116 4000022000026 +04000022000026;40 4 / 00 22 @4116
35 4117 6200022000015 +06200022000015;62 4 / 00 13
36 4118 0636457624555 'STOREM'; @4118
37 4119 4200000000000 +04200000000000;42 0 : 00 0
38 4120 4002022000104 +04002022000104;40 260 / 00 68 @4120
39 4121 6000022000015 +06000022000015;60 4 / 00 13
40 4122 0414466415643 'ADVANC'; @4122
41 4123 4206000000000 +04206000000000;42 768 : 00 0
42 4124 4004022000105 +04004022000105;40 516 / 00 69 @4124
43 4125 6100022000015 +06100022000015;61 4 / 00 13
44 4126 0426546464562 'BUFFER'; @4126
45 4127 4200000000000 +04200000000000;42 0 : 00 0
46 4128 4002022000072 +04002022000072;40 260 / 00 58 @4128
47 4129 6000022000015 +06000022000015;60 4 / 00 13
48 4130 0636045435141 'SPECIA'; @4130
49 4131 4600000000000 +04600000000000;46 0 : 00 0
50 4132 4002022000070 +04002022000070;40 260 / 00 56 @4132
51 4133 6000022000015 +06000022000015;60 4 / 00 13
52 4134 0544541447245 'LEADZE'; @4134
53 4135 4600000000000 +04600000000000;46 0 : 00 0
54 4136 4002022000073 +04002022000073;40 260 / 00 59 @4136
55 4137 6000022000015 +06000022000015;60 4 / 00 13
56 4138 0606245465170 'PREFIX'; @4138
57 4139 4200000000000 +04200000000000;42 0 : 00 0
58 4140 4002022000071 +04002022000071;40 260 / 00 57 @4140
59 4141 6000022000015 +06000022000015;60 4 / 00 13
60 4142 0476257656051 'GROUPI'; @4142
61 4143 4200000000000 +04200000000000;42 0 : 00 0
62 4144 4002022000067 +04002022000067; 40 260 / 00 55 @4144
63 4145 6000022000015 +06000022000015; 60 4 / 00 13
64 4146 0006065564350 'PUNCH'; @4146
65 4147 4200000000000 +04200000000000; 42 0 : 00 0
66 4148 4002022000066 +04002022000066; 40 260 / 00 54 @4148
67 4149 6000022000015 +06000022000015; 60 4 / 00 13
68 4150 0624541444562 'READER'; @4150
69 4151 4000006000052 +04000006000052; 40 1 / 00 42
70 4152 6000012000100 +06000012000100; 60 2 / 00 64 @4152
71 4153 0455454515764 'ELLIOT';
72 4154 4000006000051 +04000006000051; 40 1 / 00 41 @4154
73 4155 6010000000117 +06010000000117; 60 1024 : 00 79
74 4156 0000044655560 'DUMP'; @4156
75 4157 4000006000050 +04000006000050; 40 1 / 00 40
76 4158 6010000000110 +06010000000110; 60 1024 : 00 72 @4158
77 4159 0624563644162 'RESTAR';
78 4160 5342000000000 +05342000000000; 53 4352 : 00 0 @4160
79 4161 4004022000063 +04004022000063; 40 516 / 00 51
80 4162 6200022000015 +06200022000015; 62 4 / 00 13 @4162
81 4163 0545767425765 'LOWBOU';
82 4164 5342000000000 +05342000000000; 53 4352 : 00 0 @4164
83 4165 4004022000062 +04004022000062; 40 516 / 00 50
84 4166 6200022000015 +06200022000015; 62 4 / 00 13 @4166
85 4167 0006241564745 'RANGE';
86 4168 5340000000000 +05340000000000; 53 4096 : 00 0 @4168
87 4169 4002022000061 +04002022000061; 40 260 / 00 49
88 4170 6200022000015 +06200022000015; 62 4 / 00 13 @4170
89 4171 0000063517245 'SIZE';
90 4172 5340000000000 +05340000000000; 53 4096 : 00 0 @4172
91 4173 4002022000060 +04002022000060; 40 260 / 00 48
92 4174 6200022000015 +06200022000015; 62 4 / 00 13 @4174
93 4175 0414444624563 'ADDRES';
94 4176 4000022000057 +04000022000057; 40 4 / 00 47 @4176
95 4177 6000022000015 +06000022000015; 60 4 / 00 13
96 4178 0634155455451 'SAMELI'; @4178
97 4179 4202000000000 +04202000000000; 42 256 : 00 0
98 4180 4004022000055 +04004022000055; 40 516 / 00 45 @4180
99 4181 6000022000015 +06000022000015; 60 4 / 00 13
100 4182 0415451475645 'ALIGNE'; @4182
101 4183 4200000000000 +04200000000000; 42 0 : 00 0
102 4184 4002022000056 +04002022000056; 40 260 / 00 46 @4184
103 4185 6000022000015 +06000022000015; 60 4 / 00 13
104 4186 0466245456057 'FREEPO'; @4186
105 4187 4200000000000 +04200000000000; 42 0 : 00 0
106 4188 4002022000054 +04002022000054; 40 260 / 00 44 @4188
107 4189 6000022000015 +06000022000015; 60 4 / 00 13
108 4190 0634341544544 'SCALED'; @4190
109 4191 4200000000000 +04200000000000; 42 0 : 00 0
110 4192 4002022000053 +04002022000053; 40 260 / 00 43 @4192
111 4193 6000022000015 +06000022000015; 60 4 / 00 13
112 4194 0445147516463 'DIGITS'; @4194
113 4195 4300000000000 +04300000000000; 43 0 : 00 0
114 4196 4002022000051 +04002022000051; 40 260 / 00 41 @4196
115 4197 6300022000015 +06300022000015; 63 4 / 00 13
116 4198 0000063616264 'SQRT'; @4198
117 4199 4300000000000 +04300000000000; 43 0 : 00 0
118 4200 4002022000042 +04002022000042; 40 260 / 00 34 @4200
119 4201 6300022000015 +06300022000015; 63 4 / 00 13
120 4202 0000000005456 'LN'; @4202
121 4203 4300000000000 +04300000000000; 43 0 : 00 0
122 4204 4002022000041 +04002022000041; 40 260 / 00 33 @4204
123 4205 6300022000015 +06300022000015; 63 4 / 00 13
124 4206 0000000457060 'EXP'; @4206
125 4207 4300000000000 +04300000000000; 43 0 : 00 0
126 4208 4002022000040 +04002022000040; 40 260 / 00 32 @4208
127 4209 6200022000015 +06200022000015; 62 4 / 00 13
128 4210 0000063514756 'SIGN'; @4210
129 4211 4300000000000 +04300000000000; 43 0 : 00 0
130 4212 4002022000036 +04002022000036; 40 260 / 00 30 @4212
131 4213 6200022000015 +06200022000015; 62 4 / 00 13
132 4214 0455664514562 'ENTIER'; @4214
133 4215 4300000000000 +04300000000000; 43 0 : 00 0
134 4216 4002022000046 +04002022000046; 40 260 / 00 38 @4216
135 4217 6300022000015 +06300022000015; 63 4 / 00 13
136 4218 0416243644156 'ARCTAN'; @4218
137 4219 4300000000000 +04300000000000; 43 0 : 00 0
138 4220 4002022000047 +04002022000047; 40 260 / 00 39 @4220
139 4221 6300022000015 +06300022000015; 63 4 / 00 13
140 4222 0416243435763 'ARCCOS'; @4222
141 4223 4300000000000 +04300000000000; 43 0 : 00 0
142 4224 4002022000050 +04002022000050; 40 260 / 00 40 @4224
143 4225 6300022000015 +06300022000015; 63 4 / 00 13
144 4226 0416243635156 'ARCSIN'; @4226
145 4227 4300000000000 +04300000000000; 43 0 : 00 0
146 4228 4002022000045 +04002022000045; 40 260 / 00 37 @4228
147 4229 6300022000015 +06300022000015; 63 4 / 00 13
148 4230 0000000644156 'TAN'; @4230
149 4231 4300000000000 +04300000000000; 43 0 : 00 0
150 4232 4002022000044 +04002022000044; 40 260 / 00 36 @4232
151 4233 6300022000015 +06300022000015; 63 4 / 00 13
152 4234 0000000435763 'COS'; @4234
153 4235 4300000000000 +04300000000000; 43 0 : 00 0
154 4236 4002022000043 +04002022000043; 40 260 / 00 35 @4236
155 4237 6300022000015 +06300022000015; 63 4 / 00 13
156 4238 0000000635156 'SIN'; @4238
157 4239 4300000000000 +04300000000000; 43 0 : 00 0
158 4240 4002006000003 +04002006000003; 40 257 / 00 3 @4240
159 4241 6310000000106 +06310000000106; 63 1024 : 00 70
160 4242 0000000414263 'ABS'; @4242
161 4243 4000022000035 +04000022000035; 40 4 / 00 29
162 4244 6000022000001 +06000022000001; 60 4 / 00 1 @4244
163 4245 0000067415164 'WAIT';
164 4246 4000006000001 +04000006000001; 40 1 / 00 1 @4246
165 4247 6010000000077 +06010000000077; 60 1024 : 00 63
166 4248 0000063645760 'STOP'; @4248
167 4249 7777777777777 -1;end of dictionary marker
168 4250  ;--------------------------------------------------------------------

Page created by Bill Purvis, last updated: January 09 2004