procedure_name:

MOVEA.L D0, (SP, 4)     ; Read argument from stack, overlooking return address
LINK stack_frame_length ; Link and Allocate Stack Frame


...


UNLK                    ; Unlink Stack Frame
RTS