Elliott 803 Algol 60 Compiler (reconstructed)

File: patches.t2

For general comments see here
LineAddressObject Code LabelF1N1BF2N2CommentsCheck
1 0  =6577 
2 6577  ;
3 6577  ; address of upper limit of free memory
4 6577  ;
5 6577  memtop=6577; 
6 6577  ;
7 6577  ;--------------------------------------------------------------------
8 6577  ;
9 6577  patch1::; 
10 6577  ;
11 6577  ;--------------------------------------------------------------------
12 6577  =6585 
13 6585  ;
14 6585  L6585:; 
15 6585   clo     ; @6585
15+16585 1174671 jo .1    
15+26585+ .1:; 
16 6585+1015267 jmp AllocArray.aa14   ;
17 6586  ;
18 6586  =6590 
19 6590 0000000000000 +0; @6590
20 6591 0000000000000 +0; @6591
21 6592 0000000000000 +0; @6592
22 6593 0000000000000 +0; @6593
23 6594 0000000000000 +0; @6594
24 6595 0000000000000 +0; @6595
25 6596 0000000000000 +0; @6596
26 6597 0000000000000 +0; @6597
27 6598 0000000000000 +0; @6598
28 6599 0000000000000 +0; @6599
29 6600 0000000000000 +0; @6600
30 6601 0000000000000 +0; @6601
31 6602 0000000000000 +0; @6602
32 6603 0000000000000 +0; @6603
33 6604 0000000000000 +0; @6604
34 6605 0000000000000 +0; @6605
35 6606 0000000000000 +0; @6606
36 6607 0000000000000 +0; @6607
37 6608 0000000000000 +0; @6608
38 6609 0000000000000 +0; @6609
39 6610 0000000000000 +0; @6610
40 6611 0000000000000 +0; @6611
41 6612 0000000000000 +0; @6612
42 6613 0000000000000 +0; @6613
43 6614 0000000000000 +0; @6614
44 6615 0000000000000 +0; @6615
45 6616 0000000000000 +0; @6616
46 6617  ; bootstrap loader, written to head of dump tape
47 6617  ;
48 6617  BootBase= ëÿ¿P/@hëÿ¿hX@Ø ôÿ¿ÿ8160;where BootStrap will be loaded 
49 6617   ; 
50 6617  BootStrap::; 
51 6617  BootStrap:; 
52 6617 0000000017734W6617:+BootBase-4;allow for T1 quirks @6617
53 6618  ;L6618:
54 6618  Boot:; 
55 6618 0140000 cla 0   ; @6618
56 6618+1077741 jo .1-Boot+BootBase   ;
57 6619 1620000.1:inp 0   ; @6619
58 6619+1077743 jo .2-Boot+BootBase   ;
59 6620 1320005 sll 5   ; @6620
60 6620+1017741 jmp .1-Boot+BootBase   ;
61 6621  .2:; 
62 6621 0417777 sto W8191   ; @6621
63 6621+0077774 and W8188   ;
64 6622 0417776 sto W8190   ; @6622
65 6622+0417760 sto W6634-Boot+BootBase   ;
66 6623 0617777 lod W8191   ; @6623
67 6623+1200024 sra 20   ;
68 6624 0537776 sbs W8190   ; @6624
69 6624+0617775 lod W8189   ;
70 6625 0517760 ads W6634-Boot+BootBase   ; @6625
71 6625+0140000.3:cla 0   ;
72 6626 1620000.4:inp 0   ; @6626
73 6626+1057750 jz .4-Boot+BootBase   ;
74 6627 1320005 sll 5   ; @6627
75 6627+1620000 inp 0   ;
76 6628 1320005 sll 5   ; @6628
77 6628+1620000 inp 0   ;
78 6629 1320005 sll 5   ; @6629
79 6629+1620000 inp 0   ;
80 6630 1320005 sll 5   ; @6630
81 6630+1620000 inp 0   ;
82 6631 1320005 sll 5   ; @6631
83 6631+1620000 inp 0   ;
84 6632 1320005 sll 5   ; @6632
85 6632+1620000 inp 0   ;
86 6633 1320005 sll 5   ; @6633
87 6633+1620000 inp 0   ;
88 6634 0000000000000W6634:+0; @6634
89 6635 0517777 ads W8191   ; @6635
90 6635+0657776 lis W8190   ;
91 6636 1137747 jn .3-Boot+BootBase   ; @6636
92 6636+1077763 jo .5-Boot+BootBase   ;L8179 ;
93 6637 1620000.5:inp 0   ; @6637
94 6637+1077765 jo .6-Boot+BootBase   ;L8181 ;
95 6638 1320005 sll 5   ; @6638
96 6638+1017763 jmp .5-Boot+BootBase   ;L8179 ;
97 6639  ;
98 6639  .6:; 
99 6639 0137777 sub W8191   ; @6639
100 6639+1057767 jz .8-Boot+BootBase   ;L8183 ;
101 6640  .7:; 
102 6640  L6640:; 
103 6640 1700034 otp SP   ; @6640
104 6640+1017766 jmp .7-Boot+BootBase   ;L8182 ;
105 6641  ;
106 6641  .8:; 
107 6641  ;L6641:
108 6641 0140000 cla 0   ; @6641
109 6641+1077770 jo .9-Boot+BootBase   ;L8184 ;
110 6642  .9:; 
111 6642 1620000 inp 0   ; @6642
112 6642+1077772 jo .10-Boot+BootBase   ;L8186 ;
113 6643 1320005 sll 5   ; @6643
114 6643+1017770 jmp .9-Boot+BootBase   ;L8184 ;
115 6644  ;
116 6644  .10:; 
117 6644 2077772000000 sto W8190/o00 0; @6644
118 6645  .11:; 
119 6645 1017773 jmp .11-Boot+BootBase   ;L8187 @6645
120 6645+ ;
121 6645+0000000 o00 0   ;
122 6646  ;--------------------------------------------------------------------
123 6646 0000001777777W6646:+0000001777777;=<00 0:77 8191> @6646
124 6647 0077772400000 +0077772400000; @6647
125 6648 0000000000000W6648:+0; @6648
126 6649 0000000000000W6649:+0; @6649
127 6650 0000000000000 +0; @6650
128 6651 0000000000000 +0; @6651
129 6652 0000000000000 +0; @6652
130 6653 0000000000000 +0; @6653
131 6654  BootEnd:; 
132 6654 0000000457734 o00 0:inc BootBase-4; @6654

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