.seg
sp := r15
SP := rr14
.psec
.code
_dup2::
{
ldl rr0,SP(#4)
set r0,#6
sc #41 /*dup*/
ld r2,r4
ret nc
jp cerror
}