56 lines
855 B
ArmAsm
56 lines
855 B
ArmAsm
|
#
|
||
|
|
.sect .text; .sect .rom; .sect .data; .sect .bss
|
||
|
|
|
||
|
|
/* Loads a variable-sized block onto the stack.
|
||
|
|
*
|
||
|
|
* On entry: r2 = size
|
||
|
|
* Stack: ( address -- block )
|
||
|
|
* Preserves r25 for .lar4 and .sar4
|
||
|
|
*/
|
||
|
|
|
||
|
|
.sect .text
|
||
|
|
.define .los4
|
||
|
|
.los4:
|
||
|
|
lw r4, 0(sp) ! r4 = address
|
||
|
|
|
||
|
|
! Sizes 1 and 2 are handled specially.
|
||
|
|
|
||
|
|
li at, 1
|
||
|
|
beq r2, at, byte_sized
|
||
|
|
nop
|
||
|
|
|
||
|
|
li at, 2
|
||
|
|
beq r2, at, word_sized
|
||
|
|
nop
|
||
|
|
|
||
|
|
! Else the size must be a multiple of 4.
|
||
|
|
|
||
|
|
srl r5, r2, 2 ! r5 = number of words
|
||
|
|
addiu sp, sp, 4 ! adjust to end of block
|
||
|
|
subu sp, sp, r4 ! sp = start of block
|
||
|
|
mov r6, sp ! r6 = start of block
|
||
|
|
|
||
|
|
1:
|
||
|
|
lw at, 0(r2)
|
||
|
|
sw at, 0(r6)
|
||
|
|
addiu r2, r2, 4
|
||
|
|
addiu r6, r6, 4
|
||
|
|
addiu r5, r5, -1
|
||
|
|
bne r5, zero, 1b
|
||
|
|
nop
|
||
|
|
|
||
|
|
jr ra
|
||
|
|
nop
|
||
|
|
|
||
|
|
byte_sized:
|
||
|
|
lb at, 0(r4)
|
||
|
|
sw at, 0(sp)
|
||
|
|
jr ra
|
||
|
|
nop
|
||
|
|
|
||
|
|
word_sized:
|
||
|
|
lh at, 0(r4)
|
||
|
|
sw at, 0(sp)
|
||
|
|
jr ra
|
||
|
|
nop
|