ack/mach/arm/libem/sts.s
1988-02-18 10:08:42 +00:00

28 lines
351 B
ArmAsm

.define .sts
.sect .text
.sts: LDMFD R12<,{R0,R1,R2}
CMP R0, #8
BGE 2f
CMP R0, #1
STR.EQ.B R2,[R1]
CMP R0, #4
STR.EQ R2,[R1]
CMP R0,#2
MOV.NE R15,R14
MOV R3,R2,LSR #8
SUB R2,R2,R3,LSL #8
STR.EQ.B R2,[R1]
STR.EQ.B R3,[R1,#1]
MOV R15,R14
2:
ADD R3,R1,R0
1:
STR R2,[R1]
ADD R1,R1,#4
CMP R1,R3
MOV.EQ R15,R14
STMFD R12<,{R2}
BAL 1b