lable "int square(int x)"
        link a6, #0
        movel a6@(8), d1
        mulsl a6@(8), d1
        move d1, d0
        unlk a6
        rts

lable "main"
//....
//      x=square(x)
//
        move a6@(-4),sp@-
        jbsr "void square(int value)"
        addqw #4, sp
        movel d0,a6@(-4)
//....