leave space for scb
authorBill Joy <wnj@ucbvax.Berkeley.EDU>
Mon, 16 Feb 1981 05:07:08 +0000 (21:07 -0800)
committerBill Joy <wnj@ucbvax.Berkeley.EDU>
Mon, 16 Feb 1981 05:07:08 +0000 (21:07 -0800)
SCCS-vsn: sys/vax/stand/srt0.c 4.4

usr/src/sys/vax/stand/srt0.c

index ea9c38f..80f6e0a 100644 (file)
@@ -1,4 +1,4 @@
-/*     srt0.c  4.3     %G%     */
+/*     srt0.c  4.4     %G%     */
 
 /*
  * Startup code for standalone system
 
 /*
  * Startup code for standalone system
 
        .set    HIGH,31         # mask for total disable
 
 
        .set    HIGH,31         # mask for total disable
 
+entry: .globl  entry
        .word   0x0
        mtpr    $HIGH,$IPL              # just in case
        .word   0x0
        mtpr    $HIGH,$IPL              # just in case
-       movl    $RELOC-0x2000,sp
+       mtpr    $_Scbbase,$SCBB
+       movl    $RELOC-0x2400,sp
+       mtpr    $RELOC-0x2000,$ISP      /* space for interrupts
+                                       /* (in case we are not using that
+                                       /* stack already)
+                                       */
 #if VAX==780
        movl    $1,PHYSUBA+4            # init
 ubic:
 #if VAX==780
        movl    $1,PHYSUBA+4            # init
 ubic:
@@ -25,12 +31,12 @@ ubic:
        bitl    $0x10000,r0             #       continue;
        jeql    ubic
 #endif
        bitl    $0x10000,r0             #       continue;
        jeql    ubic
 #endif
+start:
        movab   _edata,r0
 clr:
        clrl    (r0)+
        cmpl    r0,sp
        jlss    clr
        movab   _edata,r0
 clr:
        clrl    (r0)+
        cmpl    r0,sp
        jlss    clr
-start:
        calls   $0,_main
        jmp     start
 
        calls   $0,_main
        jmp     start