File: genload.t2

For general comments see here
LineAddressObject Code LabelF1N1BF2N2CommentsCheck
1 0  ; tape1.d/genload.t2
2 0  ;-------------------
3 0  ; GenLoad0 - load item at top of stack
4 0  ;
5 0  =2591 
6 2591  GenLoad0::; 
7 2591  ;
8 2591  .ent:; 
9 2591 0140000 cla 0   ; @2591
10 2591+1105040 jmp .2592P   ;
11 2592  ;
12 2592  ; GenLoad2 - load item two places down the stack
13 2592  ;
14 2592  GenLoad2.ent:; 
15 2592 0604340 lod K2b   ;=2 @2592
16 2592+ .2592P:; 
17 2592+0162151 bus stkp   ;take offset from stkp
18 2593 2021426577777 sto W2245/lod -1;get info from stack
19 2594 0404031 sto IdInfo   ;save it @2594
20 2594+0000000 o00 0   ;no-op
21 2595   call     ;???
21+12595 7323761005051 lnk FreeTemp.lnk:jmp FreeTemp.ent 
22 2596 0604031 lod IdInfo   ;get id info @2596
23 2596+0064324 and T_Mask   ;=00700000000000 remove all but type
24 2597 0021426377777 o00 W2245/sto -1;store on stack as loaded
25 2598 0040000 o02 0   ;=1 @2598
26 2598+0000000 o00 0   ;
27 2599   call     ;generate <30 addr>
27+12599 7320121004032 lnk gencode1.lnk:jmp gencode1.ent 
28 2600   ret     ; @2600
28+12600 0023733000001 o00 GenLoad0.lnk/jmp 1 
29 2601  ;--------------------------------------------------------------------