some bug fixes: filename and unintialized data descriptor

diff --git a/mach/pdp/int/em_int.s b/mach/pdp/int/em_int.s
index d80367a..1b193ec 100644 (file)
--- a/mach/pdp/int/em_int.s
+++ b/mach/pdp/int/em_int.s
@@ -158,7 +158,8 @@
 startoff:
        mov     sp,r0
        mov     sp,ml
-       mov     02(sp),filb     / pointer to argv in filb for error message
+       mov     sp,filb
+       add     $2,filb         / pointer to argv in filb for error message
        dec     (r0)
        mov     (r0)+,argc      / pass to userprogram later
        bgt     0f              / go for argument
@@ -316,7 +317,7 @@ dat5:       mov     pb,r0           / and program base for procedures
        br      datloop         / next data descriptor
 
 dat1:  mov     $und,(r3)+      / reserve words with undefineds
-       sob     r2,2b           / jump back if more
+       sob     r2,dat1         / jump back if more
        br      datloop         / next data descriptor
 
 0:     mov     r3,r1           / copy data pointer (odd register)