File: priority.t2

For general comments see here
LineAddressObject Code LabelF1N1BF2N2CommentsCheck
1 0  ; tape1.d/priority.t2
2 0  ;--------------------
3 0  ;
4 0  =2624 
5 2624  TestPrty::; 
6 2624  .ent:; 
7 2624   call     ; test arith op @2624
7+12624 7323761005070 lnk TestArithOp.lnk:jmp TestArithOp.ent 
8 2625 1125127 jn .retNO   ;no, end of expression? ->
9 2625+0604337 lod K24a   ;=24
10 2626 0010646117776 o00 stkp/sub -2; compare prty of stacked op @2626
11 2627 1145104 jz .equal   ; = 24
12 2627+1025110 jn .maybe   ; > 24
13 2628 1005107 jmp .retYA   ; < 24 @2628
14 2628+ ;
15 2628+ ; stacked prty = 24
16 2628+ ;
17 2628+ .equal:; 
18 2628+0600600 lod token   ; equal priority
19 2629 0124337 sub K24a   ;=24
20 2629+1125127 jn .retNO   ;->22,23
21 2630 0124340 sub K2b   ;=2 @2630
22 2630+1145127 jz .retNO   ;->26
23 2631  ;
24 2631  .retYA:; 
25 2631 0624377000001 cla .lnk/jmp 1;return @2631
26 2632  ;
27 2632  ; stacked op > 24
28 2632  .maybe:; 
29 2632 0104341 add K3a   ;=3 @2632
30 2632+1145127 jz .retNO   ;-> = 27 '**'
31 2633 0600600 lod token   ;current op
32 2633+0124342 sub K27   ;=27
33 2634 1045107 jz .retYA   ;return @2634
34 2634+1105127 jmp .retNO   ;
35 2635  ;
36 2635  =2647+ 
37 2647+ .retNO:; 
38 2647+0604321 lod False   ;=4000000000000
39 2648 0024377000001 o00 .lnk/jmp 1;return with negative @2648
40 2649  ;------------------------------------------------------