L1001
        .proc       
        reg/op1/branchf internal:branchf-zero?,2,1005
        reg/return  3
L1005
        save        3
        store       0,0
        store       1,3
        store       3,2
        reg/op2imm/setreg internal:-/imm,2,1,7
        store       7,1
        setrtn      1006
        global/invoke random,1
        .align      4
L1006
        .cont       
        load        0,0
        setreg      7
        load        2,1
        load        6,2
        reg/op2/setreg internal:cons,7,6,3
        load        1,3
        pop         3
        branch      1001,3