Elliott 803 Algol 60 Compiler (reconstructed)


File: getvalue.t2

For general comments see here
LineAddressObject Code LabelF1N1BF2N2CommentsCheck
1 0  ; tape1.d/getvalue.t2
2 0  ;-----------------
3 0  GetValue::; 
4 0  .ent:; 
5 0   call     ; @2871
5+10 7322411004503 lnk advance.lnk:jmp advance.ent 
6 1  .2872:; 
7 1 0605436 lod .lnk   ; @2872
8 1+  pad     ;
8+11+0000000 00 0    
9 2   call     ;
9+12 7323731005012 lnk push.lnk:jmp push.ent 
10 3 0604340 lod K2b   ;=2 @2874
11 3+0404300 sto W2240   ;
12 4   call     ;
12+14 7323761005054 lnk SimpleTerm.lnk:jmp SimpleTerm.ent 
13 5 1020014 jn .1   ; @2876
14 5+0603427 lod idptr   ;
15 6   call     ;
15+16 7323731005012 lnk push.lnk:jmp push.ent 
16 7   call     ; @2878
16+17 7322411004503 lnk advance.lnk:jmp advance.ent 
17 8   call     ;
17+18 7323761005070 lnk TestArithOp.lnk:jmp TestArithOp.ent 
18 9 1025073 jn Pop1   ;return via stack @2880
19 9+0040000 o02 0   ;=1
20 10 2710646600000 o27 stkp/lod 0;
21 11 0404303 sto W2243   ; @2882
22 11+0444300 inc W2240   ;
23 12  .1:; 
24 12   call     ;
24+112 7323131004627 lnk expression.lnk:jmp expression.ent 
25 13   call     ; @2884
25+113 7323761005021 lnk SaveTemp.lnk:jmp SaveTemp.ent 
26 14 1005073 jmp Pop1   ;return via stack
27 14+  pad      
27+114+0000000 00 0    
28 15  ;--------------------------------------------------------------------

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