Elliott 803 Algol 60 Compiler (reconstructed)

File: bools.t2

For general comments see here
LineAddressObject Code LabelF1N1BF2N2CommentsCheck
1 0  ; tape1.d/bools.t2
2 0  ;-----------------
3 0  ;
4 0  =3158 
5 3158  L3158::; 
6 3158  ;
7 3158  .ent:; 
8 3158   call     ; @3158
8+13158 7322411004503 lnk advance.lnk:jmp advance.ent 
9 3159  L3159.ent:; 
10 3159 0605541 lod .lnk   ;
11 3159+  pad     ;
11+13159+0000000 00 0    
12 3160   call     ; @3160
12+13160 7323731005012 lnk push.lnk:jmp push.ent 
13 3161 0604340 lod K2b   ;=2
14 3161+0404300 sto W2240   ;set entry switch
15 3162 0120600 sub token   ;[if]? @3162
16 3162+1046176 jz L3182.3   ;conditional clause
17 3163 0105552 add W2922   ;=45+2=>47 [(] start nested expression
18 3163+1046156 jz L3182.ent   ;
19 3164   call     ;check for valid operand @3164
19+13164 7323761004775 lnk TestOpd.lnk:jmp TestOpd.ent 
20 3165 1026137 jn .2   ;
21 3165+1106211 jmp L3182.4   ;
22 3166  ;
23 3166 0064324.1:and T_Mask   ;=00700000000000 @3166
24 3166+1106143 jmp .4   ;
25 3167  ;
26 3167  .2:; 
27 3167   call     ;
27+13167 7323761005070 lnk TestArithOp.lnk:jmp TestArithOp.ent 
28 3168 1046145 jz .5   ; @3168
29 3168+  pad     ;
29+13168+0000000 00 0    
30 3169   call     ;test for equiv, hook, or
30+13169 7326605005772 lnk BoolOper1.lnk:jmp BoolOper1.ent 
31 3170 1661044_err40:lnk errlnk   ;error 40: illegal symbol in exprn @3170
32 3170+1024772 jn error2   ;if < call error routine
33 3171  .3:; 
34 3171 0604322 lod TBool   ;
35 3171+ .4:; 
36 3171+0405545 sto W2917   ;
37 3172 0124322 sub TBool   ; @3172
38 3172+1046154 jz .7   ;
39 3173  .5:; 
40 3173   call     ;
40+13173 7323131004627 lnk expression.lnk:jmp expression.ent 
41 3174 0604305 lod W2245   ; @3174
42 3174+0405545 sto W2917   ;
43 3175  .6:; 
44 3175   call     ;
44+13175 7323761105003 lnk Relop.lnk:jmp Relop.ent 
45 3176 1025073 jn Pop1   ;return via stack @3176
46 3176+  pad     ;
46+13176+0000000 00 0    
47 3177   call     ;complete comparison clause
47+13177 7326605005672 lnk BoolComp.lnk:jmp BoolComp.ent 
48 3178 0604322 lod TBool   ; @3178
49 3178+0405545 sto W2917   ;
50 3179 1006171 jmp L3182.2   ;
51 3179+ ;
52 3179+  pad     ;
52+13179+0000000 00 0    
53 3180  ;
54 3180  .7:; 
55 3180   call     ; @3180
55+13180 7326605005553 lnk compbool.lnk:jmp compbool.ent 
56 3181 1005073 jmp Pop1   ; return via stack
57 3181+ ;
58 3181+  pad      
58+13181+0000000 00 0    
59 3182  ;--------------------------------------------------------------------
60 3182  ;
61 3182  ;
62 3182  L3182::; 
63 3182  .ent:; 
64 3182   call     ; @3182
64+13182 7326605006126 lnk L3158.lnk:jmp L3158.ent 
65 3183 0600600 lod token   ;
66 3183+0124327 sub K48   ;=48 [)]
67 3184 1046161 jz .1   ; @3184
68 3184+1105140 jmp _err26   ;
69 3185  ;
70 3185  .1:; 
71 3185   call     ; @3185
71+13185 7322411004503 lnk advance.lnk:jmp advance.ent 
72 3186 0605545 lod W2917   ; @3186
73 3186+0124320 sub IntBit   ;
74 3187 1026171 jn .2   ;
75 3187+0000000 o00 0   ;
76 3188   call     ; @3188
76+13188 7323761005070 lnk TestArithOp.lnk:jmp TestArithOp.ent 
77 3189 1026147 jn L3158.6   ;
78 3189+0040000 o02 0   ;
79 3190 2710646600000 o27 stkp/lod 0; @3190
80 3191 0404303 sto W2243   ;
81 3191+0604347 lod K4a   ;=4
82 3192 0404300 sto W2240   ; @3192
83 3192+1006145 jmp L3158.5   ;
84 3193  ;
85 3193  .2:; 
86 3193   call     ;
86+13193 7326605005772 lnk BoolOper1.lnk:jmp BoolOper1.ent 
87 3194 1025073 jn Pop1   ;return via stack @3194
88 3194+0040000 o02 0   ;
89 3195 2710646600000 o27 stkp/lod 0;
90 3196 0404303 sto W2243   ; @3196
91 3196+0604347 lod K4a   ;=4
92 3197 0404300 sto W2240   ;
93 3197+1006154 jmp L3158.7   ;
94 3198  ;
95 3198  ; conditional clause
96 3198  .3:; 
97 3198 0545230 cls W2712   ;
98 3198+0000000 o00 0   ;
99 3199   call     ;
99+13199 7325115005260 lnk compif.lnk:jmp compif.ent 
100 3200   call     ; @3200
100+13200 7326605006127 lnk L3159.lnk:jmp L3159.ent 
101 3201 0605545 lod W2917   ;
102 3201+0404305 sto W2245   ;
103 3202 0164322 bus TBool   ; @3202
104 3202+1025233 jn L2715   ;
105 3203 0600600 lod token   ;
106 3203+0124370 sub W2296   ;
107 3204   jnz     ;
107+13204 1046205 jz .1    
107+23204+1105236 jmp _err28    
107+33205  .1:; 
108 3205 0040000 o02 0   ;
109 3205+0562151 o27 stkp   ;
110 3206 0404300 sto W2240   ; @3206
111 3206+  pad     ;
111+13206+0000000 00 0    
112 3207   call     ;
112+13207 7320121007405 lnk L3845.lnk:jmp L3845.ent 
113 3208   call     ; @3208
113+13208 7326605005553 lnk compbool.lnk:jmp compbool.ent 
114 3209 1106122 jmp L3136.5   ;
115 3209+ ;
116 3209+ .4:; 
117 3209+0600600 lod token   ;
118 3210 0020000 neg 0   ; @3210
119 3210+1026143 jn L3158.3   ;
120 3211 0603427 lod idptr   ;
121 3211+1006136 jmp L3158.1   ;
122 3212  ;-------------------------------------------------------------------
123 3212  ;
124 3212  L3212::; 
125 3212  ;
126 3212  .ent:; 
127 3212   call     ; @3212
127+13212 7322411004503 lnk advance.lnk:jmp advance.ent 
128 3213 0605541 lod .lnk   ;
129 3213+  pad     ;
129+13213+0000000 00 0    
130 3214   call     ; @3214
130+13214 7323731005012 lnk push.lnk:jmp push.ent 
131 3215 0604340 lod K2b   ;=2
132 3215+0404300 sto W2240   ;
133 3216   call     ; @3216
133+13216 7326605005760 lnk TBoolVar.lnk:jmp TBoolVar.ent 
134 3217 1026230 jn .1   ;
135 3217+0603427 lod idptr   ;
136 3218   call     ; @3218
136+13218 7323731005012 lnk push.lnk:jmp push.ent 
137 3219   call     ;
137+13219 7322411004503 lnk advance.lnk:jmp advance.ent 
138 3220   call     ; @3220
138+13220 7326605005772 lnk BoolOper1.lnk:jmp BoolOper1.ent 
139 3221 1025073 jn Pop1   ;return via stack
140 3221+0040000 o02 0   ;=1
141 3222 2710646600000 o27 stkp/lod 0;pop item from stack @3222
142 3223 0404303 sto W2243   ;
143 3223+0444300 inc W2240   ;
144 3224  .1:; 
145 3224   call     ; @3224
145+13224 7326605005553 lnk compbool.lnk:jmp compbool.ent 
146 3225   call     ;
146+13225 7323761005021 lnk SaveTemp.lnk:jmp SaveTemp.ent 
147 3226 1005073 jmp Pop1   ;return via stack @3226
148 3226+  pad      
148+13226+0000000 00 0    
149 3227  ;--------------------------------------------------------------------

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