File: defer.t2

For general comments see here
LineAddressObject Code LabelF1N1BF2N2CommentsCheck
1 0  ; tape1.d/misc2.t2
2 0  ;-----------------
3 0  ;
4 0  =2636 
5 2636  TestDefer::; 
6 2636  .ent:; 
7 2636   call     ; @2636
7+12636 7324375005100 lnk TestPrty.lnk:jmp TestPrty.ent 
8 2637 1025124 jn .retYA   ;mustn't stack
9 2637+  pad     ;
9+12637+0000000 00 0    
10 2638 0010646577776 o00 stkp/lod -2;get previous op @2638
11 2639 1145125 jz .retNO   ;none, OK
12 2639+0400004 sto 4   ;save stacked op for below
13 2640 0600600 lod token   ;load current op @2640
14 2640+0124342 sub K27   ;=27 [**]
15 2641 1145125 jz .retNO   ;
16 2641+0104341 add K3a   ;=3 [*]
17 2642 1025124 jn .retYA   ;+,- -> @2642
18 2642+0600004 lod 4   ;reload stacked op
19 2643 0124337 sub K24a   ;=24 [*]
20 2643+1125125 jn .retNO   ;+,-
21 2644  .retYA:; 
22 2644   retc     ;return with Acc=0 (True) @2644
22+12644 0624457000001 cla TestDefer.lnk/jmp 1 
23 2645   pad      
23+12645 0000000 00 0    
24 2645+ ;
25 2645+ .retNO:; 
26 2645+0604321 lod False   ;
27 2646   ret     ;return with Acc=False @2646
27+12646 0024457000001 o00 TestDefer.lnk/jmp 1 
28 2647  ;
29 2647   pad      
29+12647 0000000 00 0    
30 2647+ ;--------------------------------------------------------------------