Elliott 803 Algol 60 Compiler (reconstructed)

File: boot.t2

For general comments see here
LineAddressObject Code LabelF1N1BF2N2CommentsCheck
1 0  ; tape2/boot.t2
2 0  ;--------------
3 0  ; bootstrap for tape2
4 0  ;
5 0  ;;; blanks 80
6 0  =8166 
7 8166  Boot::; 
8 8166   clo     ; @8166
8+18166 1177746 jo .1    
8+28166+ .1:; 
9 8166+0140000 cla 0   ;
10 8167  .1:; 
11 8167 1320005 sll 5   ; @8167
12 8167+1620000 inp 0   ;
13 8168 1077751 jo .2   ; @8168
14 8168+1017747 jmp .1   ;
15 8169  .2:; 
16 8169 0417776 sto .sumck   ; @8169
17 8169+0357777 stc .ldadr   ;
18 8170  .3:; 
19 8170 1620000 inp 0   ; @8170
20 8170+1157764 jz .4   ;
21 8171 0077775 and .10   ; @8171
22 8171+1520005 fsh 5   ;
23 8172 1620000 inp 0   ; @8172
24 8172+1520005 fsh 5   ;
25 8173 1620000 inp 0   ; @8173
26 8173+1520005 fsh 5   ;
27 8174 1620000 inp 0   ; @8174
28 8174+1520005 fsh 5   ;
29 8175 1620000 inp 0   ; @8175
30 8175+1520005 fsh 5    
31 8176 1620000 inp 0   ; @8176
32 8176+1520005 fsh 5    
33 8177 1620000 inp 0   ; @8177
34 8177+1520005 fsh 5    
35 8178 1620000 inp 0   ; @8178
36 8178+0517776 ads .sumck    
37 8179 2277776337777 inc .ldadr/stc -1; @8179
38 8180 1017752 jmp .3   ; @8180
39 8180+ ;
40 8180+ .4:; 
41 8180+  clo     ;
41+18180+1077765 jo .1    
41+28181  .1:; 
42 8181  .5:; 
43 8181 1320005 sll 5   ; @8181
44 8181+1620000 inp 0   ;
45 8182 1077767 jo .6   ; @8182
46 8182+1017765 jmp .5   ;
47 8183  ;
48 8183  .6:; 
49 8183 0137776 sub .sumck   ; @8183
50 8183+1157771 jz .7   ;
51 8184  .err:; 
52 8184 1700012 otp 10   ; @8184
53 8184+1700025 otp 21   ;
54 8185 1017770 jmp .err   ; @8185
55 8185+ ;
56 8185+ .7:; 
57 8185+  clo     ;
57+18185+1077772 jo .1    
57+28186  .1:; 
58 8186  .8:; 
59 8186 1320005 sll 5   ; @8186
60 8186+1620000 inp 0   ;
61 8187 1077774 jo .9   ; @8187
62 8187+1017772 jmp .8   ;
63 8188  ;
64 8188  .9:; 
65 8188 2077772000000 sto .sumck/o00 0; @8188
66 8189  ;
67 8189  .10:; 
68 8189 4077764000017 jmp .10:o00 +15; @8189
69 8190  ;
70 8190  .sumck:; 
71 8190 0000000000000 +0; @8190
72 8191  .ldadr:; 
73 8191 0000000000000 +0; @8191
74 8192  ;
75 8192  ; next word triggers T1 into top of the bootstrap loader
76 8192  ;
77 8192  ;.trig: o00 0 : inc 8162 ; @4
78 8192  ;
79 8192  ; all but the last block of Tape 2 have a trigger to re-enter
80 8192  ; this loader at 8166
81 8192  ; 00 0 : 40 8166
82 8192  ;
83 8192  ; the final block of Tape 2 has a trigger to enter via location EP8
84 8192  ; 00 0 : 40 8
85 8192  ;
86 8192  ; end of bootstrap code

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