| Line | Address | Object Code
| Label | F1 | N1 | B | F2 | N2 | Comments | Check
|
|---|
| 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+1 | 2595 | 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+1 | 2599 | 7320121004032 | | lnk | gencode1.lnk | : | jmp | gencode1.ent | |
|
| 28 | 2600 | | | ret | | | | | ; | @2600
|
| 28+1 | 2600 | 0023733000001 | | o00 | GenLoad0.lnk | / | jmp | 1 | |
|
| 29 | 2601 | | ;-------------------------------------------------------------------- |
|