|
|
1.1 root 1: # relsrt0.s 4.2 11/9/80
2:
3: # Startup code for standalone system
4: # Self-relocating version used by boot itself.
5:
6: .globl _main
7: .globl __rtt
8: .globl _end
9: .globl _edata
10:
11: .set PHYSUBA,0x20006000 # uba 0
12:
13: .set HIGH,31 # mask for total disable
14:
15: .word 0x0
16: mtpr $HIGH,$IPL # just in case
17: movl $RELOC,sp
18: movl $1,*$PHYSUBA+4 # init
19: ubic:
20: movl *$PHYSUBA,r0 # while ((up->uba_cnfgr & UBIC) == 0)
21: bitl $0x10000,r0 # continue;
22: jeql ubic
23: movl aend,r0
24: clr:
25: clrl (r0)+
26: cmpl r0,sp
27: jlss clr
28: movc3 aend,*$0,(sp) # relocate
29: jmp *astart
30: start:
31: calls $0,_main
32: movl $RELOC,sp
33: jmp start
34:
35: __rtt:
36: .word 0x0
37: movl $RELOC,sp
38: jmp *$start
39:
40: .data
41: astart: .long start
42: aend: .long _end-RELOC
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.