.text
        .globl subpgm
subpgm:
        addi    $sp, $sp, -4
        sw      $ra, 0($sp)
# copy data (two "words") from dataX to dataY
        la      $s0, dataX
        la      $s1, dataY
        lw      $t0, 0($s0)
        sw      $t0, 0($s1)
        lw      $t0, 4($s0)
        sw      $t0, 4($s1)
        lw      $ra, 0($sp)
        addi    $sp, $sp, 4
        jr      $ra
        .end    subpgm

        .data
        .globl dataY
dataY:  .space  8