ack/mach/pdp/libem/sri.s
1984-07-19 13:34:12 +00:00

27 lines
318 B
ArmAsm

/ $Header$
.text
.globl sri~
.globl unknown~,save1~
/ Size in r0
sri~:
mov (sp)+,save1~
cmp r0,$02
bgt 1f
mov (sp)+,r1
mov (sp)+,r0
neg r1
ash r1,r0
mov r0,-(sp)
jmp *save1~
1: cmp r0,$04
bgt 2f
mov 02(sp),r0
mov 04(sp),r1
neg (sp)
ashc (sp)+,r0
mov r0,(sp)
mov r1,02(sp)
jmp *save1~
2: jmp unknown~