Elliott 803 Algol 60 Compiler (reconstructed)

File: updates.t2

For general comments see here
LineAddressObject Code LabelF1N1BF2N2CommentsCheck
1 0  ; tape2/updates.t2
2 0  ;-------------------------------------------------------------------
3 0  ; system tape update section, only used to update and punch
4 0  ; new versions of the system tape 2.
5 0  ;
6 0  =1888 
7 1888  SysPatch::; 
8 1888  ; input modifications tape starts here < 40 1888 : >
9 1888  ;
10 1888  SysPatch:; 
11 1888   calln ,   ; @1888
11+11888 7321225004060 lnk W2213:jmp L2096 
12 1889 0123622 sub .K2   ; @1889
13 1889+1043543 jz .1   ;
14 1890 0603630 lod .tab2+2   ; @1890
15 1890+1003561 jmp L1905   ;
16 1891  ;
17 1891  .1:; 
18 1891   calln ,   ; @1891
18+11891 7321225004060 lnk W2213:jmp L2096 
19 1892 0123623 sub W1939   ; @1892
20 1892+1043546 jz .2   ;
21 1893 0603632 lod .tab2+4   ; @1893
22 1893+1003561 jmp L1905   ;
23 1894  ;
24 1894  .2:; 
25 1894 0443623 inc W1939   ; @1894
26 1894+1003710 jmp L1992   ;
27 1895  ;--------------------------------
28 1895  ; entry to re-output copy of tape < 40 1895 : >
29 1895  ;
30 1895  L1895:; 
31 1895 0543633 cls W1947   ; @1895
32 1895+0603623 lod W1939   ;
33 1896  .3:; 
34 1896 0123625 sub .K10   ;=10 @1896
35 1896+1023552 jn .4   ;
36 1897 0443633 inc W1947   ; @1897
37 1897+1003550 jmp .3   ;
38 1898  ;
39 1898  .4:; 
40 1898 0103625 add .K10   ;=10 @1898
41 1898+0203633 exa W1947   ;
42 1899 1143555 jz .5   ; @1899
43 1899+0203633 exa W1947   ;
44 1900 1320006 sll 6   ; @1900
45 1900+0503633 ads W1947   ;
46 1901 0000000 o00 0   ; @1901
47 1901+ .5:; 
48 1901+0543620 cls W1936   ;
49 1902  .6:; 
50 1902 2217102603625 inc W1936/lod .tab2-1; @1902
51 1903   calln ,   ; @1903
51+11903 7317171003637 lnk SysPatch.ret:jmp L1951 
52 1904 1003556 jmp .6   ; @1904
53 1904+ ;
54 1904+0000000 o00 0   ;
55 1905  ;--------------------------------
56 1905  ;
57 1905  L1905:; 
58 1905   calln ,   ; @1905
58+11905 7317171003637 lnk SysPatch.ret:jmp L1951 
59 1906 0603635 lod .tab2+7   ; @1906
60 1906+0000000 o00 0   ;
61 1907   calln ,   ; @1907
61+11907 7317171003637 lnk SysPatch.ret:jmp L1951 
62 1908  .8:; 
63 1908 1003564 jmp .8   ;dynamic halt @1908
64 1908+ ;
65 1908+0000000 o00 0   ;
66 1909  ;
67 1909  ;
68 1909  L1909:; 
69 1909 3506142700007 +03506142700007; @1909
70 1910 4576000000005 +04576000000005; @1910
71 1911 4546153100007 +04546153100007; @1911
72 1912 2306556440007 +02306556440007; @1912
73 1913 3643420400007 +03643420400007; @1913
74 1914 5726552440007 +05726552440007; @1914
75 1915 3526552440007 +03526552440007; @1915
76 1916 4244112140007 +04244112140007; @1916
77 1917 2526552500007 +02526552500007; @1917
78 1918 4526552700007 +04526552700007; @1918
79 1919 7424513700007 +07424513700007; @1919
80 1920 7726543040007 +07726543040007; @1920
81 1921 3506123500007 +03506123500007; @1921
82 1922 4376100000005 +04376100000005; @1922
83 1923 7702041000007 +07702041000007; @1923
84 1924 7610421740007 +07610421740007; @1924
85 1925 3506142700007 +03506142700007; @1925
86 1926 7624512100007 +07624512100007; @1926
87 1927 7624533100007 +07624533100007; @1927
88 1928 2526552440007 +02526552440007; @1928
89 1929 0207702040007 +00207702040007; @1929
90 1930 3702040740007 +03702040740007; @1930
91 1931 1642031010171 +01642031010171; @1931
92 1932 0000000000005 +5; @1932
93 1933 0000000000017 +15; @1933
94 1934 3643420400007W1934:+03643420400007; @1934
95 1935 0000000000001W1935:+1; @1935
96 1936 0000000000007W1936:+7; @1936
97 1937 0000000000000W1937:+0; @1937
98 1938 0000000000002.K2:+2; @1938
99 1939 0000000000004W1939:+4; @1939
100 1940 0000000000017.K15:+15; @1940
101 1941 0000000000012.K10:+10; @1941
102 1942  ; table of encoded entries, 6 bits each from LS end
103 1942 0000027030010.tab2:+00000027030010;8,0,3,23 @1942
104 1943 0270400012712 +00270400012712;10,23,1,0,4,23 @1943
105 1944 0002713211224 +00002713211224;20,10,17,11,23 @1944
106 1945 0000000003002 +00000000003002;2,24 @1945
107 1946 0271325232315 +00271325232315;13,19,19,21,11,23 @1946
108 1947 0000000000004W1947:+4;4 ;modified? @1947
109 1948 0000000000000 +0; @1948
110 1949 0301417202226 +00301417202226;22,18,16,15,12,24 @1949
111 1950  ;
112 1950 0355700003557.ret:+00355700003557; return address @1950
113 1951  L1951:; 
114 1951 1043730 jz L2008   ;zero, end of list? @1951
115 1951+ .10:; 
116 1951+1200006 sra 6   ;shift bottom 6 bits
117 1952 0343621 stc W1937   ;save and clear acc @1952
118 1952+1300006 sla 6   ;get bottom 6 bits back
119 1953 2000022603565 sto 4/lod L1909;get table entry @1953
120 1954 0403616 sto W1934   ; and save it @1954
121 1954+0063624 and .K15   ;=15
122 1955 0423617 stn W1935   ; @1955
123 1955+0163616 bus W1934   ;subtract from original entry
124 1956 1200047 sra 39   ;hide it in AR @1956
125 1956+ .11:; 
126 1956+0643617 lis W1935   ;count
127 1957 1143650 jz .12   ;this word done @1957
128 1957+0140000 cla 0   ;clear acc
129 1958 1300005 sla 5   ;get next 5 bits @1958
130 1958+0000000 o00 0   ;
131 1959 2000023700000 sto 4/otp 0;punch it @1959
132 1960 1103644 jmp .11   ;and repeat @1960
133 1960+ ;
134 1960+ .12:; 
135 1960+0603621 lod W1937   ;rest of parameter
136 1961 0017173040001 o00 .ret/jz 1;return if zero @1961
137 1962 1103637 jmp .10   ;back for rest of it @1962
138 1962+ ;--------------------------------------------------------------------
139 1962+ ; no refs to following area?
140 1962+0000000 o00 0    
141 1963 0000000000000 +0;0000000000000 @1963
142 1964 0000000000000 +0;0000000000000 @1964
143 1965 0000000000000 +0;0000000000000 @1965
144 1966 0000000000000 +0;0000000000000 @1966
145 1967 0000000000000 +0;0000000000000 @1967
146 1968 0000000000000 +0;0000000000000 @1968
147 1969 0000000000000 +0;0000000000000 @1969
148 1970 0000000000000 +0;0000000000000 @1970
149 1971 0000000000000 +0;0000000000000 @1971
150 1972 0000000000000 +0;0000000000000 @1972
151 1973 0000000000000 +0;0000000000000 @1973
152 1974 0000000000000 +0;0000000000000 @1974
153 1975  ;--------------------------------------------------------------------
154 1975  ; no refs to following code ??
155 1975  ;
156 1975  L1975::; 
157 1975   calln ,   ; @1975
157+11975 7321225004060 lnk W2213:jmp L2096 
158 1976 1243676 mul .k30   ;=30 @1976
159 1976+1360000 ara 0   ;
160 1977 0403677 sto .w1   ; @1977
161 1977+0543700 cls .w2   ;
162 1978  .1:; 
163 1978 2217376604315 inc .w1/lod T2253; @1978
164 1979 2217402404315 inc .w2/sto T2253; @1979
165 1980 0603700 lod .w2   ; @1980
166 1980+0123676 sub .k30   ;
167 1981 1023672 jn .1   ; @1981
168 1981+1004000 jmp L2048   ;
169 1982  ;
170 1982 0000000000036.k30:+30; @1982
171 1983 0000000000226.w1:+150; @1983
172 1984 0000000000036.w2:+30; @1984
173 1985  ;--------------------------------------------------------------------
174 1985  ; no refs to following code ??
175 1985  ;
176 1985  ;L1985:
177 1985   calln ,   ; @1985
177+11985 7321225004060 lnk W2213:jmp L2096 
178 1986 1243676 mul .k30   ; @1986
179 1986+1360000 ara 0   ;
180 1987 0404245 sto W2213   ; @1987
181 1987+0103676 add .k30   ;
182 1988 0123766 sub .K180   ; @1988
183 1988+1123705 jn .2   ;
184 1989 0503766 ads .K180   ; @1989
185 1989+ .2:; 
186 1989+0603772 lod .K2048   ;
187 1990 0204245 exa W2213   ; @1990
188 1990+0104227 add W2199   ;
189 1991 0404315 sto T2253   ; @1991
190 1991+1104055 jmp L2093P   ;
191 1992  ;--------------------------------------------------------------------
192 1992  ; branched to from "read updates"
193 1992  ;
194 1992  L1992:; 
195 1992 0603623 lod W1939   ; @1992
196 1992+0400015 sto ep13   ;
197 1993 1004000 jmp L2048   ; @1993
198 1993+ ;
199 1993+0000000 o00 0   ;
200 1994 0000000000000 +0;0000000000000 @1994
201 1995  ;--------------------------------------------------------------------
202 1995  ; branched to from "read updates"
203 1995  ;
204 1995  L1995:; 
205 1995   calln ,   ; @1995
205+11995 7321225004060 lnk W2213:jmp L2096 
206 1996 0163767 bus .K8050   ; @1996
207 1996+0403764 sto W2036   ;
208 1997 0543700 cls .w2   ; @1997
209 1997+0603766 lod .K180   ;
210 1998 0123676 sub .k30   ; @1998
211 1998+0403677 sto .w1   ;
212 1999   nop     ; @1999
212+11999 1103717 jmp .1    
212+21999+ .1:; 
213 1999+ L1999P:; 
214 1999+0603764 lod W2036   ;
215 2000 2217402504353 inc .w2/ads T2283; @2000
216 2001 0603700 lod .w2   ; @2001
217 2001+0123677 sub .w1   ;
218 2002 1123717 jn L1999P   ; @2002
219 2002+0603764 lod W2036   ;
220 2003 1320024 sll 20   ; @2003
221 2003+0103767 add .K8050   ;
222 2004 0403760 sto W2032   ; @2004
223 2004+0603766 lod .K180   ;
224 2005 0103770 add T2040   ; @2005
225 2005+0403765 sto W2037   ;
226 2006 1004000 jmp L2048   ; @2006
227 2006+ ;
228 2006+0000000 o00 0   ;
229 2007 0000000000000 +0; @2007
230 2008  ;--------------------------------------------------------------------
231 2008  L2008:; 
232 2008 0603756 lod W2030   ;=<00 5 : 00 Lomem> @2008
233 2008+0103761 add Bit39   ;=04000000000000
234 2009   calln ,   ;dump segment 5-Lomem @2009
234+12009 7377571017700 lnk W8158:jmp DumpSub 
235 2010 0603765 lod W2037   ;
236 2010+0103762 add Bit38   ;=02000000000000
237 2011   calln ,   ; @2011
237+12011 7377571017700 lnk W8158:jmp DumpSub 
238 2012 0603676 lod .k30   ; @2012
239 2012+0420004 stn 4   ;
240 2013  L2013:; 
241 2013 1700000 otp 0   ; @2013
242 2013+0640004 lis 4   ;
243 2014 1023735 jn L2013   ; @2014
244 2014+  nop     ;
244+12014+1003737 jmp .1    
244+22015  .1:; 
245 2015 0603771 lod W2041   ;=<00 +10 : o00 +16> @2015
246 2015+0103762 add Bit38   ;=02000000000000
247 2016   calln ,   ;dump 10-16 @2016
247+12016 7377571017700 lnk W8158:jmp DumpSub 
248 2017 0603757 lod Jmp8   ;=<40 8:00 0> @2017
249 2017+0103763 add Bit36   ;=00400000000000
250 2018 0417562 sto W8050   ; @2018
251 2018+0603760 lod W2032   ;
252 2019 0103762 add Bit38   ;=02000000000000 @2019
253 2019+0103773 add .K9   ;=9
254 2020   calln ,   ; @2020
254+12020 7377571017700 lnk W8158:jmp DumpSub 
255 2021 0603774 lod W2044   ;<20 L8063 : 00 L8105> @2021
256 2021+0000000 o00 0   ;
257 2022   calln ,   ; @2022
257+12022 7377571017700 lnk W8158:jmp DumpSub 
258 2023 0603775 lod W2045   ;<20 PunchAddr : 00 L8157> @2023
259 2023+0000000 o00 0   ;
260 2024   calln ,   ; @2024
260+12024 7377571017700 lnk W8158:jmp DumpSub 
261 2025 0617562 lod W8050   ; @2025
262 2025+0000000 o00 0    
263 2026   calln ,   ; @2026
263+12026 7377571017700 lnk W8158:jmp DumpSub 
264 2027 1003753L2027:jmp L2027   ;loop stop @2027
265 2027+ ;
266 2027+0000000 o00 0   ;
267 2028  ; no refs
268 2028  ;L2028:
269 2028   calln ,   ; @2028
269+12028 7377571017577 lnk W8158:jmp L8063 
270 2029 1003755L2029:jmp L2029   ;loop stop @2029
271 2029+ ;
272 2029+0000000 o00 0    
273 2030 0000024000416W2030:o00 5:o00 Lomem; @2030
274 2031 0000001000010Jmp8:o00 0:jmp ep8; @2031
275 2032 0063304017562W2032:o00 memtop:o00 W8050; @2032
276 2033 4000000000000Bit39:jmp 0:o00 0; @2033
277 2034 2000000000000Bit38:sto 0:o00 0; @2034
278 2035 0400000000000Bit36:add 0:o00 0; @2035
279 2036 0000000014661W2036:+memtop; @2036
280 2037 0016600004601W2037:o00 SysPatch:o00 EndTab; @2037
281 2038 0000000000264.K180:+180; @2038
282 2039 0000000017562.K8050:+W8050; @2039
283 2040 0016600004315T2040:00 SysPatch:00 T2253; @2040
284 2041 0000050000020W2041:00 +10:o00 +16; @2041
285 2042 0000000004000.K2048:+2048; @2042
286 2043 0000000000011.K9:+9; @2043
287 2044 2076774017651W2044:sto L8063:o00 L8105; @2044
288 2045 2077300017735W2045:sto PunchAddr:o00 L8157; @2045
289 2046 0000000000000 +0; @2046
290 2047 0000000000000 +0; @2047
291 2048  ;
292 2048  L2048:; 
293 2048   calln ,   ; @2048
293+12048 7321225004060 lnk W2213:jmp L2096 
294 2049 2221462337777 inc T2252/stc -1; @2049
295 2050 1004000L2050:jmp L2048   ; @2050
296 2050+0060000 and 0   ;
297 2051 0000000000000 +0; @2051
298 2052  ;
299 2052  L2052:; 
300 2052 0604245 lod W2213   ; @2052
301 2052+0124246 sub W2214   ;
302 2053 1044074 jz L2108   ; @2053
303 2053+1004073 jmp L2107   ;
304 2054  ;
305 2054 0000000000037.K31:+31; @2054
306 2055 0000000000034.K28:+28; @2055
307 2056  L2056:; 
308 2056 0021202604315 o00 W2208/lod T2253; @2056
309 2057 1004031 jmp L2073   ; @2057
310 2057+ ;
311 2057+0000000 o00 0   ;
312 2058  L2058:; 
313 2058 0000000 o00 0   ; @2058
314 2058+1064065 jo L2101   ;
315 2059  L2059:; 
316 2059 0140000 cla 0   ; @2059
317 2059+ L2059P:; 
318 2059+1620000 inp 0   ;
319 2060 2021177700000W2060:sto W2207/otp 0; @2060
320 2061 0021237000001 o00 W2215/jmp 1; @2061
321 2062  ;
322 2062  L2062:; 
323 2062 0140000 cla 0   ; @2062
324 2062+1620000 inp 0   ;
325 2063 2021177700000W2063:sto W2207/otp 0; @2063
326 2064 1044106 jz L2118   ; @2064
327 2064+1004016 jmp L2062   ;
328 2065  ;
329 2065  L2065:; 
330 2065 1004267 jmp L2231   ; @2065
331 2065+ ;
332 2065+ L2065P:; 
333 2065+0404246 sto W2214   ;
334 2066 0604231 lod W2201   ; @2066
335 2066+1044060 jz L2096   ;
336 2067 1024043 jn L2083   ; @2067
337 2067+0604236 lod W2206   ;
338 2068 1044074W2068:jz L2108   ; @2068
339 2068+ L2068P:; 
340 2068+0604107 lod L2119   ;????
341 2069  L2069:; 
342 2069 0404237 sto W2207   ; @2069
343 2069+0604234 lod W2204   ;
344 2070 1024004 jn L2052   ; @2070
345 2070+ L2070P:; 
346 2070+0604232 lod W2202   ;
347 2071 1044004 jz L2052   ; @2071
348 2071+0604235 lod W2205   ;
349 2072 1024010 jn L2056   ; @2072
350 2072+0604240 lod W2208   ;
351 2073  L2073:; 
352 2073 0104242 add W2210   ; @2073
353 2073+0000017 o00 +15   ;
354 2074 0021162400001 o00 W2204/sto 1; @2074
355 2075 0021156104243 o00 W2203/add W2211; @2075
356 2076 0021176000007 o00 W2207/o00 7; @2076
357 2077 0504244 ads W2212   ; @2077
358 2077+ L2077P:; 
359 2077+0604244 lod W2212   ;
360 2078  L2078:; 
361 2078 0021233000001 o00 W2214/jmp 1; @2078
362 2079  ;
363 2079 0000000000007.K7:+7; @2079
364 2080  MaskF2N2:; 
365 2080 0000001777777 +0000001777777;<00 0:77 8191> @2080
366 2081 0000000000004.K4:+4; @2081
367 2082 0000002000000Bit20:+0000002000000; B-bit @2082
368 2083  ;
369 2083  L2083:; 
370 2083 0604012 lod L2058   ; @2083
371 2083+0404237 sto W2207   ;
372 2084 1104026 jmp L2070P   ; @2084
373 2084+ ;
374 2084+ L2084P:; 
375 2084+0544237 cls W2207   ;
376 2085  L2085:; 
377 2085 2221456604315 inc W2251/lod T2253; @2085
378 2086 1104050 jmp L2088P   ; @2086
379 2086+ ;
380 2086+ L2086P:; 
381 2086+0040000 o02 0   ;=1
382 2087 0404230 sto W2200   ; @2087
383 2087+0544313 cls W2251   ;
384 2088 0604227 lod W2199   ; @2088
385 2088+ L2088P:; 
386 2088+0404315 sto T2253   ;
387 2089 0604231 lod W2201   ; @2089
388 2089+1144055 jz L2093P   ;
389 2090 1004073 jmp L2107   ; @2090
390 2090+ ;
391 2090+ L2090P:; 
392 2090+0604235 lod W2205   ;
393 2091 3421202000000 las W2208/o00 0; @2091
394 2092 0344315 stc T2253   ; @2092
395 2092+0124231 sub W2201   ;
396 2093  L2093:; 
397 2093 1024073 jn L2107   ; @2093
398 2093+ L2093P:; 
399 2093+0604315 lod T2253   ;
400 2094 0104242 add W2210   ; @2094
401 2094+0404314 sto T2252   ;
402 2095 0604237 lod W2207   ; @2095
403 2095+ L2095P:; 
404 2095+1144057 jz L2095P   ;loop stop if zero
405 2096  L2096:; 
406 2096 1600000 kbd 0   ; @2096
407 2096+0064042 and Bit20   ;B-digit
408 2097 0164040 bus MaskF2N2   ;<00 0:77 8191> @2097
409 2097+1124062 jn L2098P   ;
410 2098 0020000 neg 0   ; @2098
411 2098+ L2098P:; 
412 2098+0064017 and W2063   ;
413 2099 0404014 sto W2060   ; @2099
414 2099+  clo     ;
414+12099+1064064 jo .1    
414+22100  .1:; 
415 2100 0544231 cls W2201   ; @2100
416 2100+0544236 cls W2206   ;
417 2101  L2101:; 
418 2101 0544244 cls W2212   ; @2101
419 2101+1004102 jmp L2114   ;
420 2102  ;
421 2102  L2102:; 
422 2102 0604217 lod W2191   ; @2102
423 2102+0204234 exa W2204   ;
424 2103 1024073 jn L2107   ; @2103
425 2103+0604230 lod W2200   ;
426 2104 0404241 sto W2209   ; @2104
427 2104+0604231 lod W2201   ;
428 2105 1124224 jn L2196P   ; @2105
429 2105+1104072 jmp L2106P   ;
430 2106  L2106:; 
431 2106 0604231 lod W2201   ; @2106
432 2106+ L2106P:; 
433 2106+1044152 jz L2154   ;
434 2107  L2107:; 
435 2107   calln ,   ; @2107
435+12107 7321231004205 lnk W2214:jmp L2181 
436 2108  ;
437 2108  L2108:; 
438 2108 1700034 otp SP   ; @2108
439 2108+1004074 jmp L2108   ;loop, punching SP's
440 2109  ;
441 2109  L2109:; 
442 2109 1104251 jmp L2217P   ; @2109
443 2109+ ;
444 2109+ L2109P:; 
445 2109+0404244 sto W2212   ;
446 2110  L2110:; 
447 2110 0644236 lis W2206   ; @2110
448 2110+1144077 jz L2111P   ;
449 2111 1004073 jmp L2107   ; @2111
450 2111+ ;
451 2111+ L2111P:; 
452 2111+0644231 lis W2201   ;
453 2112 1024073 jn L2107   ; @2112
454 2112+0604145 lod W2149   ;
455 2113   calln ,   ; @2113
455+12113 7321231004025 lnk W2214:jmp L2069 
456 2114  L2114:; 
457 2114 0040000 o02 0   ;=1 @2114
458 2114+0424232 stn W2202   ;
459 2115 0544264 cls W2228   ; @2115
460 2115+ L2115P:; 
461 2115+0544234 cls W2204   ;
462 2116 0544235 cls W2205   ; @2116
463 2116+0544240 cls W2208   ;
464 2117 0544242 cls W2210   ; @2117
465 2117+1004250 jmp L2216   ;
466 2118  ;
467 2118  L2118:; 
468 2118   calln ,   ; @2118
468+12118 7321235004013 lnk W2215:jmp L2059 
469 2119 1144013L2119:jz L2059P   ; @2119
470 2119+0064031 and L2073   ;=15
471 2120 0364237 o17 W2207   ; @2120
472 2120+1044112 jz L2122   ;
473 2121 3021177004113 lod W2207/jmp SW2123; @2121
474 2122  L2122:; 
475 2122 3021177104113 lod W2207/jmp SW2123#; @2122
476 2123  ;
477 2123  SW2123:; 
478 2123 0021153004137 o00 W2202/jmp L2143; @2123
479 2124 4021131004113 jmp L2198:jmp SW2123; @2124
480 2125 4420221004113 jmp L2084P:jmp SW2123; @2125
481 2126 4020455004045 jmp SW2123:jmp L2085; @2126
482 2127 4020301004113 jmp L2096:jmp SW2123; @2127
483 2128 4020455104052 jmp SW2123:jmp L2090P; @2128
484 2129 4020455004016 jmp SW2123:jmp L2062; @2129
485 2130 4020365004113 jmp L2109:jmp SW2123; @2130
486 2131 4420231004113 jmp L2086P:jmp SW2123; @2131
487 2132 4020455104164 jmp SW2123:jmp L2164P; @2132
488 2133 4420745004216 jmp L2169P:jmp L2190; @2133
489 2134 4020055004072 jmp L2059:jmp L2106; @2134
490 2135 4020055004076 jmp L2059:jmp L2110; @2135
491 2136 4020055004213 jmp L2059:jmp L2187; @2136
492 2137 4020105004066 jmp L2065:jmp L2102; @2137
493 2138 4020054604231 jmp L2059:lod W2201; @2138
494 2139 4220561004073 jz L2140:jmp L2107; @2139
495 2140  ;
496 2140  L2140:; 
497 2140   calln ,   ; @2140
497+12140 7321231004205 lnk W2214:jmp L2181 
498 2141 0444314 inc T2252   ; @2141
499 2141+1004060 jmp L2096   ;
500 2142  ; no refs
501 2142  ;L2142:
502 2142 1320003 sll 3   ; @2142
503 2142+1004146 jmp L2150   ;
504 2143  ;
505 2143  L2143:; 
506 2143 0104243 add W2211   ; @2143
507 2143+1104145 jmp L2149P   ;
508 2144  ; no refs
509 2144  ;L2144:
510 2144 0704240 las W2208   ; @2144
511 2144+0504240 ads W2208   ;
512 2145 1320003 sll 3   ; @2145
513 2145+0504240 ads W2208   ;
514 2146 0604234 lod W2204   ; @2146
515 2146+1144013 jz L2059P   ;
516 2147 0604241 lod W2209   ; @2147
517 2147+0504241 ads W2209   ;
518 2148 1320003 sll 3   ; @2148
519 2148+0504241 ads W2209   ;
520 2149 1004013W2149:jmp L2059   ; @2149
521 2149+ ;
522 2149+ L2149P:; 
523 2149+1320015 sll 13   ;
524 2150  L2150:; 
525 2150 0404243 sto W2211   ; @2150
526 2150+0444231 inc W2201   ;
527 2151 0444232 inc W2202   ; @2151
528 2151+0044037 o02 .K7   ;=7+1=>8
529 2152 0164237 bus W2207   ; @2152
530 2152+1024013 jn L2059   ;
531 2153 1144153 jz L2155P   ; @2153
532 2153+1004073 jmp L2107   ;
533 2154  ;
534 2154  L2154:; 
535 2154 0040000 o02 0   ; @2154
536 2154+0424231 stn W2201   ;
537 2155 1104224 jmp L2196P   ; @2155
538 2155+ ;
539 2155+ L2155P:; 
540 2155+0124232 sub W2202   ;
541 2156 1024073 jn L2107   ; @2156
542 2156+0124236 sub W2206   ;
543 2157 1024073 jn L2107   ; @2157
544 2157+0040000 o02 0   ;=1
545 2158  L2158:; 
546 2158 1320003 sll 3   ; @2158
547 2158+0404244 sto W2212   ;
548 2159   calln ,   ; @2159
548+12159 7321235004013 lnk W2215:jmp L2059 
549 2160 0164007 bus .K28   ; @2160
550 2160+1024074 jn L2108   ;
551 2161 1144013 jz L2059P   ; @2161
552 2161+0604237 lod W2207   ;
553 2162 0064037 and .K7   ;=7 @2162
554 2162+0504244 ads W2212   ;
555 2163 1064204 jo L2180   ; @2163
556 2163+0604244 lod W2212   ;
557 2164 1004156 jmp L2158   ; @2164
558 2164+ ;
559 2164+ L2164P:; 
560 2164+0744235 lzs W2205   ;
561 2165 3421202000000 las W2208/o00 0; @2165
562 2166 2421212600000 ads W2210/lod 0; @2166
563 2167 0021156504243 o00 W2203/ads W2211; @2167
564 2168 0544240 cls W2208   ; @2168
565 2168+0544242 cls W2210   ;
566 2169 1004221 jmp L2193   ; @2169
567 2169+ ;
568 2169+ L2169P:; 
569 2169+0604231 lod W2201   ;
570 2170 1044173 jz L2171   ; @2170
571 2170+1004073 jmp L2107   ;
572 2171  ;
573 2171  L2171:; 
574 2171 0044041 o02 .K4   ;=4 @2171
575 2171+0020000 neg 0   ;
576 2172 0344241 stc W2209   ; @2172
577 2172+ L2172P:; 
578 2172+0404240 sto W2208   ;
579 2173   calln ,   ; @2173
579+12173 7321235004013 lnk W2215:jmp L2059 
580 2174 0124006 sub .K31   ; @2174
581 2174+1044212 jz L2186   ;
582 2175 0104041 add .K4   ;=4 @2175
583 2175+1144174 jz L2172P   ;
584 2176 0604237 lod W2207   ; @2176
585 2176+0104240 add W2208   ;
586 2177 1200006 sra 6   ; @2177
587 2177+0644241 lis W2209   ;
588 2178 1024013 jn L2059   ; @2178
589 2178+1360000 ara 0   ;
590 2179 1220002 srl 2   ; @2179
591 2179+0404244 sto W2212   ;
592 2180  L2180:; 
593 2180 0604245 lod W2213   ; @2180
594 2180+0404246 sto W2214   ;
595 2181  L2181:; 
596 2181   calln ,   ; @2181
596+12181 7321235004013 lnk W2215:jmp L2059 
597 2182 0021176604000 o00 W2207/lod L2048; @2182
598 2183 0124024 sub W2068   ;??? @2183
599 2183+1044060 jz L2096   ;
600 2184 0104024 add W2068   ; @2184
601 2184+0124036 sub L2078   ;
602 2185 1144035 jz L2077P   ; @2185
603 2185+1004013 jmp L2059   ;
604 2186  ;
605 2186  L2186:; 
606 2186 0044006 o02 .K31   ;=31 @2186
607 2186+1104174 jmp L2172P   ;
608 2187  L2187:; 
609 2187 0604002 lod L2050   ; @2187
610 2187+0204233 exa W2203   ;
611 2188  L2188:; 
612 2188 1024214 jn L2188   ;loop stop if < 0 @2188
613 2188+0604231 lod W2201   ;
614 2189 1044152 jz L2154   ; @2189
615 2189+1104222 jmp L2194P   ;
616 2190  L2190:; 
617 2190 0604055 lod L2093   ; @2190
618 2190+0204235 exa W2205   ;
619 2191 1024073W2191:jn L2107   ; @2191
620 2191+0744240 lzs W2208   ;
621 2192 0021156504242 o00 W2203/ads W2210; @2192
622 2193  L2193:; 
623 2193 0544233 cls W2203   ; @2193
624 2193+0604231 lod W2201   ;
625 2194 1044073 jz L2107   ; @2194
626 2194+ L2194P:; 
627 2194+0604232 lod W2202   ;
628 2195 1044073 jz L2107   ; @2195
629 2195+0604234 lod W2204   ;
630 2196  ;L2196:
631 2196 1024073 jn L2107   ; @2196
632 2196+ L2196P:; 
633 2196+0040000 o02 0   ;=1
634 2197 0344232 stc W2202   ; @2197
635 2197+1104013 jmp L2059P   ;
636 2198  ;
637 2198  L2198:; 
638 2198   calln ,   ; @2198
638+12198 7321231104024 lnk W2214:jmp L2068P 
639 2199 1004244W2199:jmp W2212   ;??? @2199
640 2199+ ;
641 2199+0004316 o00 T2254   ;address const with prev instn
642 2200  ;
643 2200 0000000000001W2200:+1; @2200
644 2201 0000000000000W2201:+0; @2201
645 2202 7777777777777W2202:-1; @2202
646 2203 0000000000000W2203:+0; @2203
647 2204 0000000000000W2204:+0; @2204
648 2205 0000000000000W2205:+0; @2205
649 2206 0000000000000W2206:+0; @2206
650 2207 0000000000000W2207:+0; @2207
651 2208 0000000000000W2208:+0; @2208
652 2209 0000000000001W2209:+1; @2209
653 2210 0000000000000W2210:+0; @2210
654 2211 0000000000000W2211:+0; @2211
655 2212 0000000000000W2212:+0; @2212
656 2213 0400000004000W2213:+0400000004000; @2213
657 2214 0400000004000W2214:+0400000004000; @2214
658 2215 0410600004106W2215:+0410600004106; @2215
659 2216  ;
660 2216  ;
661 2216  L2216:; 
662 2216 0544243 cls W2211   ; @2216
663 2216+0544233 cls W2203   ;
664 2217 1004106 jmp L2118   ; @2217
665 2217+ ;
666 2217+ L2217P:; 
667 2217+0604231 lod W2201   ;
668 2218 1124253 jn L2219P   ; @2218
669 2218+0604042 lod Bit20   ; B-digit
670 2219 1104075L2219:jmp L2109P   ; @2219
671 2219+ ;
672 2219+ L2219P:; 
673 2219+0744241 lzs W2209   ;
674 2220 1540000 flt 4096   ; @2220
675 2220+0404265 sto W2229   ;
676 2221 0604240 lod W2208   ; @2221
677 2221+1540000 flt 4096   ;
678 2222 0404266 sto W2230   ; @2222
679 2222+0604233 lod W2203   ;
680 2223 1044261 jz L2225   ; @2223
681 2223+0140000 cla 0   ;
682 2224 1424266 fsb W2230   ; @2224
683 2224+0404266 sto W2230   ;
684 2225  L2225:; 
685 2225 0604253 lod L2219   ; @2225
686 2225+0404264 sto W2228   ;
687 2226 0544236 cls W2206   ; @2226
688 2226+0544244 cls W2212   ;
689 2227 0544231 cls W2201   ; @2227
690 2227+1104103 jmp L2115P   ;
691 2228  ;
692 2228 0000000000000W2228:+0; @2228
693 2229 0000000000000W2229:+0; @2229
694 2230 0000000000000W2230:+0; @2230
695 2231  ;
696 2231  L2231:; 
697 2231 0604264 lod W2228   ; @2231
698 2231+1044305 jz L2245   ;
699 2232 0604230 lod W2200   ; @2232
700 2232+1540000 flt 4096   ;
701 2233 0204265 exa W2229   ; @2233
702 2233+1504265 fdv W2229   ;
703 2234 0404265 sto W2229   ; @2234
704 2234+0624240 lcs W2208   ;
705 2235 0604310 lod FP10.0   ; @2235
706 2235+0404264 sto W2228   ;
707 2236 0424231 stn W2201   ; @2236
708 2236+0644240 lis W2208   ;
709 2237 1044303 jz L2243   ; @2237
710 2237+ L2237P:; 
711 2237+0644240 lis W2208   ;
712 2238 1144300 jz L2240P   ; @2238
713 2238+0604264 lod W2228   ;
714 2239 1464310 fmu FP10.0   ; @2239
715 2239+0404264 sto W2228   ;
716 2240 1104275 jmp L2237P   ; @2240
717 2240+ ;
718 2240+ L2240P:; 
719 2240+0604233 lod W2203   ;
720 2241 1044306 jz L2246   ; @2241
721 2241+0604265 lod W2229   ;
722 2242 1464264 fmu W2228   ; @2242
723 2242+0404265 sto W2229   ;
724 2243  L2243:; 
725 2243 0604266 lod W2230   ; @2243
726 2243+1504265 fdv W2229   ;
727 2244  L2244:; 
728 2244 0404240 sto W2208   ; @2244
729 2244+0544233 cls W2203   ;
730 2245  L2245:; 
731 2245 0604245 lod W2213   ; @2245
732 2245+1104021 jmp L2065P   ;
733 2246  ;
734 2246  L2246:; 
735 2246 0604264 lod W2228   ; @2246
736 2246+1504265 fdv W2229   ;
737 2247 1464266 fmu W2230   ; @2247
738 2247+1004304 jmp L2244   ;
739 2248  ;
740 2248 2400000000404FP10.0:+02400000000404;+10.0 @2248
741 2249 0000000000000 +0; @2249
742 2250 0000000000000 +0; @2250
743 2251 0000000000001W2251:+1; @2251
744 2252 0000000017255T2252:+Print.real; @2252
745 2253 0000000017255T2253:+Print.real; @2253
746 2254 0000000017255T2254:+Print.real; @2254
747 2255 0000000017305 +Print.c1; @2255
748 2256 0000000017361 +Print.f1; @2256
749 2257 0000000016202 +K8191; @2257
750 2258 0000000016111 +Scratch; @2258
751 2259 0000000016130 +Print.Pbuff; @2259
752 2260 0000000017402 +Print.h1; @2260
753 2261 0000000017177 +Pow10; @2261
754 2262 0000000017421 +Print.g3; @2262
755 2263 0000000017442 +Print.p1; @2263
756 2264 0000000017454 +Print.l1; @2264
757 2265 0000000017474 +Print.l5; @2265
758 2266 0000000017530 +Print.o2; @2266
759 2267 0000000000074 +Rfmt; @2267
760 2268 0000000017545 +Print.nr3; @2268
761 2269 0000000017550 +digits; @2269
762 2270 0000000031660 +0000000031660; @2270
763 2271 0000000031660 +0000000031660; @2271
764 2272 0000000031660 +0000000031660; @2272
765 2273 0000000031660 +0000000031660; @2273
766 2274 0000000031660 +0000000031660; @2274
767 2275 0000000031660 +0000000031660; @2275
768 2276 0000000031660 +0000000031660; @2276
769 2277 0000000031660 +0000000031660; @2277
770 2278 0000000031660 +0000000031660; @2278
771 2279 0000000031660 +0000000031660; @2279
772 2280 0000000031660 +0000000031660; @2280
773 2281 0000000031660 +0000000031660; @2281
774 2282 0000000031660 +0000000031660; @2282
775 2283 0000000031660T2283:+0000000031660; @2283
776 2284 0000000000000 +Return; @2284
777 2285 0000000015120 +W6736; @2285
778 2286 0000000015132 +FP0.5; @2286
779 2287 0000000015170 +W6776; @2287
780 2288 0000000015175 +L6781; @2288
781 2289 0000000015200 +CopyVArray; @2289
782 2290 0000000015213 +AllocArray; @2290
783 2291 0000000015271 +AllocArray.aa15; @2291
784 2292 0000000015304 +Unwind.3; @2292
785 2293 0000000015317 +StoreMax; @2293
786 2294 0000000015323 +L6867; @2294
787 2295 0000000015336 +UnstkData; @2295
788 2296 0000000000000 +intoflo; @2296
789 2297 0000000000005 +Stop; @2297
790 2298 0000000015363 +Round; @2298
791 2299 0000000015372 +Div; @2299
792 2300 0000000015403 +IPower; @2300
793 2301 0000000015425 +Sign; @2301
794 2302 0000000000000 +Index1; @2302
795 2303 0000000015451 +Checkb; @2303
796 2304 0000000000000 +unpackchar; @2304
797 2305 0000000000000 +Reset; @2305
798 2306 0000000000010 +CheckStack.lnk; @2306
799 2307 0000000000010 +CheckStack.lnk; @2307
800 2308 0000000000017 +pause; @2308
801 2309 0000000015700 +RPower; @2309
802 2310 0000000015705 +Size; @2310
803 2311 0000000015722 +Dump.keybd; @2311
804 2312 0000000015747 +W7143; @2312
805 2313 0000000015756 +Print.i1; @2313
806 2314 0000000016026 +Math.ExpErr; @2314
807 2315 0000000016045 +Math.SinErr; @2315
808 2316 0000000016067 +Cos; @2316
809 2317 0000000016071 +Series; @2317
810 2318 0000000016111 +Scratch; @2318
811 2319 0000000016151 +MathConsts; @2319
812 2320 0000000016165 +outerror0; @2320
813 2321 0000000016202 +K8191; @2321
814 2322 0000000016231 +N6; @2322
815 2323 0000000016321 +Math.LnErr; @2323
816 2324 0000000016333 +Math.TErr; @2324
817 2325 0000000016356 +Math.Magic; @2325
818 2326 0000000016373 +Sqrt; @2326
819 2327 0000000016415 +ArcSin; @2327
820 2328 0000000016443 +ArcCos; @2328
821 2329 0000000016446 +Digits; @2329
822 2330 0000000016462 +chkrfmt; @2330
823 2331 0000000016471 +Freepoint; @2331
824 2332 0000000016510 +Grouping; @2332
825 2333 0000000016556 +Msg1; @2333
826 2334 0000000016600 +msg1; @2334
827 2335 0000000016646 +OutString; @2335
828 2336 0000000016677 +ReadChar; @2336
829 2337 0000000017004 +Advance; @2337
830 2338 0000000017004 +Advance; @2338
831 2339 0000000017023 +Buffer; @2339
832 2340 0000000031660 +0000000031660; @2340
833 2341 0000000031660 +0000000031660; @2341
834 2342 0000000031660 +0000000031660; @2342
835 2343 0000000031660 +0000000031660; @2343
836 2344 0000000017044 +ReadReal; @2344
837 2345 0000000017075 +Read.neg; @2345
838 2346 0000000017136 +Read.term; @2346
839 2347 0000000016202 +K8191; @2347
840 2348 0000000016111 +Scratch; @2348
841 2349 0000000017171 +Read.error; @2349
842 2350 0000000000013 +IntOflo; @2350
843 2351 0000000017177 +Pow10; @2351
844 2352 0000000014661 +memtop; @2352
845 2353 0000000014661 +memtop; @2353
846 2354 0000000017223 +Read.SW; @2354
847 2355 0000000000025 +indev; @2355
848 2356 0000000000100 +RdBuff; @2356
849 2357 0000000031660 +0000000031660; @2357
850 2358 0000000031660 +0000000031660; @2358
851 2359 0000000031660 +0000000031660; @2359
852 2360 0000000031660 +0000000031660; @2360
853 2361 0000000031660 +0000000031660; @2361
854 2362 0000000031660 +0000000031660; @2362
855 2363 0000000031660 +0000000031660; @2363
856 2364 0000000031660 +0000000031660; @2364
857 2365 0000000031660 +0000000031660; @2365
858 2366 0000000031660 +0000000031660; @2366
859 2367 0000000031660 +0000000031660; @2367
860 2368 0000000031660 +0000000031660; @2368
861 2369 0000000031660 +0000000031660; @2369
862 2370 0000000031660 +0000000031660; @2370
863 2371 0000000031660 +0000000031660; @2371
864 2372 0000000031660 +0000000031660; @2372
865 2373 0000000031660 +0000000031660; @2373
866 2374 0000000017255 +Print.real; @2374
867 2375 0000000017305 +Print.c1; @2375
868 2376 0000000017361 +Print.f1; @2376
869 2377 0000000016202 +K8191; @2377
870 2378 0000000016111 +Scratch; @2378
871 2379 0000000016130 +Print.Pbuff; @2379
872 2380 0000000017402 +Print.h1; @2380
873 2381 0000000017177 +Pow10; @2381
874 2382 0000000017421 +Print.g3; @2382
875 2383 0000000017442 +Print.p1; @2383
876 2384 0000000017454 +Print.l1; @2384
877 2385 0000000017474 +Print.l5; @2385
878 2386 0000000017530 +Print.o2; @2386
879 2387 0000000000074 +Rfmt; @2387
880 2388 0000000017545 +Print.nr3; @2388
881 2389 0000000017550 +digits; @2389
882 2390 0000000031660 +0000000031660; @2390
883 2391 0000000031660 +0000000031660; @2391
884 2392 0000000031660 +0000000031660; @2392
885 2393 0000000031660 +0000000031660; @2393
886 2394 0000000031660 +0000000031660; @2394
887 2395 0000000031660 +0000000031660; @2395
888 2396 0000000031660 +0000000031660; @2396
889 2397 0000000031660 +0000000031660; @2397
890 2398 0000000031660 +0000000031660; @2398
891 2399 0000000031660 +0000000031660; @2399
892 2400 0000000031660 +0000000031660; @2400
893 2401 0000000031660 +0000000031660; @2401
894 2402 0000000031660 +0000000031660; @2402
895 2403 0000000031660 +0000000031660; @2403
896 2404 0000000014661 +memtop; @2404
897 2405 0000000014731 +W6617; @2405
898 2406 0000000014661 +memtop; @2406
899 2407 0000000014661 +memtop; @2407
900 2408 0000000014661 +memtop; @2408
901 2409 0000000014661 +memtop; @2409
902 2410 0000000014661 +memtop; @2410
903 2411 0000000014661 +memtop; @2411
904 2412 0000000014661 +memtop; @2412
905 2413 0000000014661 +memtop; @2413
906 2414 0000000014661 +memtop; @2414
907 2415 0000000014661 +memtop; @2415
908 2416 0000000014661 +memtop; @2416
909 2417 0000000014661 +memtop; @2417
910 2418 0000000014661 +memtop; @2418
911 2419 0000000014661 +memtop; @2419
912 2420 0000000014661 +memtop; @2420
913 2421 0000000014661 +memtop; @2421
914 2422 0000000014661 +memtop; @2422
915 2423 0000000014661 +memtop; @2423
916 2424 0000000014661 +memtop; @2424
917 2425 0000000014661 +memtop; @2425
918 2426 0000000014661 +memtop; @2426
919 2427 0000000014661 +memtop; @2427
920 2428 0000000014661 +memtop; @2428
921 2429 0000000014661 +memtop; @2429
922 2430 0000000014661 +memtop; @2430
923 2431 0000000014661 +memtop; @2431
924 2432 0000000014661 +memtop; @2432
925 2433 0000000014661EndTab:+memtop; @2433

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