module Programs.Ordered where

import Assembly
import LinearScan.Hoopl.DSL

regOrdered :: Program (Node IRVar)
regOrdered = do
    label "entry" $ do
        copy v99 v94
        lc v6
        move v96 v73
        copy v5 v67
        add v48 v96 pr7
        move v29 v23
        offp v95 v28 v51
        move v36 v96
        move v22 v32
        call 100
        jump "L72"

    label "L72" $ do
        add v67 v22 v13
        move v0 v30
        copy v56 v39
        branch v90 "L14" "L86"

    label "L86" $ do
        return_

    label "L14" $ do
        call 37
        move v31 v34
        nop
        add v10 v22 v60
        move v6 v54
        branch v89 "L97" "L18"

    label "L18" $ do
        offlpi v3
        jump "L83"

    label "L83" $ do
        move v37 v62
        branch v10 "L47" "L33"

    label "L33" $ do
        lc v74
        return_

    label "L47" $ do
        lc v80
        jump "L68"

    label "L68" $ do
        jump "L91"

    label "L91" $ do
        lc v38
        call 45
        move v50 v16
        lc v72
        add v3 pr9 v34
        move v52 v16
        copy v76 v73
        offlpi v92
        add v6 v54 v48
        add v27 v68 v49
        return_

    label "L97" $ do
        move v95 v30
        offp v77 v31 v75
        move v95 v88
        move v67 v69
        call 50
        return_