You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
248 lines
3.5 KiB
ArmAsm
248 lines
3.5 KiB
ArmAsm
2 years ago
|
/* Copyright 2013-2014 IBM Corp.
|
||
|
|
* Copyright 2023 Paul Mackerras <paulus@ozlabs.org>.
|
||
|
|
*
|
||
|
|
* Licensed under the Apache License, Version 2.0 (the "License");
|
||
|
|
* you may not use this file except in compliance with the License.
|
||
|
|
* You may obtain a copy of the License at
|
||
|
|
*
|
||
|
|
* http://www.apache.org/licenses/LICENSE-2.0
|
||
|
|
*
|
||
|
|
* Unless required by applicable law or agreed to in writing, software
|
||
|
|
* distributed under the License is distributed on an "AS IS" BASIS,
|
||
|
|
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
|
||
|
|
* implied.
|
||
|
|
* See the License for the specific language governing permissions and
|
||
|
|
* limitations under the License.
|
||
|
|
*/
|
||
|
|
|
||
|
|
/* Load an immediate 64-bit value into a register */
|
||
|
|
#define LOAD_IMM64(r, e) \
|
||
|
|
lis r,(e)@highest; \
|
||
|
|
ori r,r,(e)@higher; \
|
||
|
|
rldicr r,r, 32, 31; \
|
||
|
|
oris r,r, (e)@h; \
|
||
|
|
ori r,r, (e)@l;
|
||
|
|
|
||
|
|
.section ".head","ax"
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Microwatt currently enters in LE mode at 0x0, so we don't need to
|
||
|
|
* do any endian fix ups
|
||
|
|
*/
|
||
|
|
. = 0
|
||
|
|
.global _start
|
||
|
|
_start:
|
||
|
|
LOAD_IMM64(%r10,__bss_start)
|
||
|
|
LOAD_IMM64(%r11,__bss_end)
|
||
|
|
subf %r11,%r10,%r11
|
||
|
|
addi %r11,%r11,63
|
||
|
|
srdi. %r11,%r11,6
|
||
|
|
beq 2f
|
||
|
|
mtctr %r11
|
||
|
|
1: dcbz 0,%r10
|
||
|
|
addi %r10,%r10,64
|
||
|
|
bdnz 1b
|
||
|
|
|
||
|
|
2: LOAD_IMM64(%r1,__stack_top)
|
||
|
|
li %r0,0
|
||
|
|
stdu %r0,-16(%r1)
|
||
|
|
LOAD_IMM64(%r10, die)
|
||
|
|
mtsprg0 %r10
|
||
|
|
LOAD_IMM64(%r12, main)
|
||
|
|
mtctr %r12
|
||
|
|
bctrl
|
||
|
|
die: attn // terminate on exit
|
||
|
|
b .
|
||
|
|
|
||
|
|
.global trapit
|
||
|
|
trapit:
|
||
|
|
mflr %r0
|
||
|
|
std %r0,16(%r1)
|
||
|
|
stdu %r1,-256(%r1)
|
||
|
|
mtsprg1 %r1
|
||
|
|
r = 14
|
||
|
|
.rept 18
|
||
|
|
std r,r*8(%r1)
|
||
|
|
r = r + 1
|
||
|
|
.endr
|
||
|
|
mfcr %r0
|
||
|
|
stw %r0,13*8(%r1)
|
||
|
|
LOAD_IMM64(%r10, ret)
|
||
|
|
mtsprg0 %r10
|
||
|
|
mr %r12,%r4
|
||
|
|
mtctr %r4
|
||
|
|
bctrl
|
||
|
|
ret:
|
||
|
|
mfsprg1 %r1
|
||
|
|
LOAD_IMM64(%r10, die)
|
||
|
|
mtsprg0 %r10
|
||
|
|
r = 14
|
||
|
|
.rept 18
|
||
|
|
ld r,r*8(%r1)
|
||
|
|
r = r + 1
|
||
|
|
.endr
|
||
|
|
lwz %r0,13*8(%r1)
|
||
|
|
mtcr %r0
|
||
|
|
ld %r0,256+16(%r1)
|
||
|
|
addi %r1,%r1,256
|
||
|
|
mtlr %r0
|
||
|
|
blr
|
||
|
|
|
||
|
|
#define EXCEPTION(nr) \
|
||
|
|
.= nr ;\
|
||
|
|
mfsprg0 %r0 ;\
|
||
|
|
mtctr %r0 ;\
|
||
|
|
li %r3,nr ;\
|
||
|
|
bctr
|
||
|
|
|
||
|
|
EXCEPTION(0x300)
|
||
|
|
EXCEPTION(0x380)
|
||
|
|
EXCEPTION(0x400)
|
||
|
|
EXCEPTION(0x480)
|
||
|
|
EXCEPTION(0x500)
|
||
|
|
EXCEPTION(0x600)
|
||
|
|
EXCEPTION(0x700)
|
||
|
|
EXCEPTION(0x800)
|
||
|
|
EXCEPTION(0x900)
|
||
|
|
EXCEPTION(0x980)
|
||
|
|
EXCEPTION(0xa00)
|
||
|
|
EXCEPTION(0xb00)
|
||
|
|
EXCEPTION(0xc00)
|
||
|
|
EXCEPTION(0xd00)
|
||
|
|
EXCEPTION(0xe00)
|
||
|
|
EXCEPTION(0xe20)
|
||
|
|
EXCEPTION(0xe40)
|
||
|
|
EXCEPTION(0xe60)
|
||
|
|
EXCEPTION(0xe80)
|
||
|
|
EXCEPTION(0xf00)
|
||
|
|
EXCEPTION(0xf20)
|
||
|
|
EXCEPTION(0xf40)
|
||
|
|
EXCEPTION(0xf60)
|
||
|
|
EXCEPTION(0xf80)
|
||
|
|
|
||
|
|
. = 0x1000
|
||
|
|
.globl test_paddi
|
||
|
|
test_paddi:
|
||
|
|
nop
|
||
|
|
nop
|
||
|
|
.machine "power10"
|
||
|
|
paddi %r3,%r3,0x123456789,0
|
||
|
|
blr
|
||
|
|
|
||
|
|
.globl test_paddi_r
|
||
|
|
test_paddi_r:
|
||
|
|
nop
|
||
|
|
nop
|
||
|
|
paddi %r3,0,0x123456789 - 0x101c,1
|
||
|
|
blr
|
||
|
|
|
||
|
|
.globl test_paddi_neg
|
||
|
|
test_paddi_neg:
|
||
|
|
nop
|
||
|
|
nop
|
||
|
|
paddi %r3,%r3,-0x123456789,0
|
||
|
|
blr
|
||
|
|
|
||
|
|
.globl test_pld
|
||
|
|
test_pld:
|
||
|
|
nop
|
||
|
|
nop
|
||
|
|
pld %r4,lvar(0)
|
||
|
|
std %r4,0(%r3)
|
||
|
|
li %r3,0
|
||
|
|
blr
|
||
|
|
|
||
|
|
.globl test_plfd
|
||
|
|
test_plfd:
|
||
|
|
nop
|
||
|
|
nop
|
||
|
|
plfd %f0,fpvar(0)
|
||
|
|
stfd %f0,0(%r3)
|
||
|
|
blr
|
||
|
|
|
||
|
|
. = 0x1074
|
||
|
|
.globl test_paddi_mis
|
||
|
|
test_paddi_mis:
|
||
|
|
nop
|
||
|
|
nop
|
||
|
|
.long 0x06012345
|
||
|
|
.long 0x38636789
|
||
|
|
blr
|
||
|
|
|
||
|
|
.globl test_pstd
|
||
|
|
test_pstd:
|
||
|
|
nop
|
||
|
|
nop
|
||
|
|
pstd %r3,lvar(0)
|
||
|
|
li %r3,0
|
||
|
|
blr
|
||
|
|
|
||
|
|
.globl test_plbz
|
||
|
|
test_plbz:
|
||
|
|
nop
|
||
|
|
nop
|
||
|
|
plbz %r4,bvar(0)
|
||
|
|
std %r4,0(%r3)
|
||
|
|
li %r3,0
|
||
|
|
blr
|
||
|
|
|
||
|
|
.globl test_pstb
|
||
|
|
test_pstb:
|
||
|
|
nop
|
||
|
|
nop
|
||
|
|
pstb %r3,bvar(0)
|
||
|
|
li %r3,0
|
||
|
|
blr
|
||
|
|
|
||
|
|
.globl test_plha
|
||
|
|
test_plha:
|
||
|
|
nop
|
||
|
|
nop
|
||
|
|
plha %r4,hvar(0)
|
||
|
|
std %r4,0(%r3)
|
||
|
|
li %r3,0
|
||
|
|
blr
|
||
|
|
|
||
|
|
.globl test_plhz
|
||
|
|
test_plhz:
|
||
|
|
nop
|
||
|
|
nop
|
||
|
|
plhz %r4,hvar(0)
|
||
|
|
std %r4,0(%r3)
|
||
|
|
li %r3,0
|
||
|
|
blr
|
||
|
|
|
||
|
|
.globl test_psth
|
||
|
|
test_psth:
|
||
|
|
nop
|
||
|
|
nop
|
||
|
|
psth %r3,hvar(0)
|
||
|
|
li %r3,0
|
||
|
|
blr
|
||
|
|
|
||
|
|
.globl test_plwa
|
||
|
|
test_plwa:
|
||
|
|
nop
|
||
|
|
nop
|
||
|
|
plwa %r4,wvar(0)
|
||
|
|
std %r4,0(%r3)
|
||
|
|
li %r3,0
|
||
|
|
blr
|
||
|
|
|
||
|
|
.globl test_plwz
|
||
|
|
test_plwz:
|
||
|
|
nop
|
||
|
|
nop
|
||
|
|
plwz %r4,wvar(0)
|
||
|
|
std %r4,0(%r3)
|
||
|
|
li %r3,0
|
||
|
|
blr
|
||
|
|
|
||
|
|
.globl test_pstw
|
||
|
|
test_pstw:
|
||
|
|
nop
|
||
|
|
nop
|
||
|
|
pstw %r3,wvar(0)
|
||
|
|
li %r3,0
|
||
|
|
blr
|