fixed typo

diff --git a/mach/pdp/libem/strhp.s b/mach/pdp/libem/strhp.s
index 4c2a814..1cc07b1 100644 (file)
--- a/mach/pdp/libem/strhp.s
+++ b/mach/pdp/libem/strhp.s
@@ -21,7 +21,7 @@ strhp~:
        bcs     3f
 1:     jmp     (r0)
 3:     mov     $EHEAP,-(sp)
-       jsr     trp~
+       jsr     pc,trp~
        jmp     (r0)
 .sect .data
 2:     sys     break; .data2 _end