|
|
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.