ack/mach/pdp/libem/sru.s

30 lines
338 B
ArmAsm
Raw Normal View History

1984-07-19 13:34:12 +00:00
/ $Header$
1984-07-19 12:51:00 +00:00
.text
.globl sru~
.globl unknown~
1984-07-19 12:51:00 +00:00
sru~:
neg 2(sp)
mov (sp)+,r3
1984-07-19 12:51:00 +00:00
cmp r0,$02
bgt 1f
mov 2(sp),r1
clr r0
ashc (sp)+,r0
mov r1,(sp)
jmp (r3)
1984-07-19 12:51:00 +00:00
1: cmp r0,$04
bgt 3f
mov 02(sp),r0
mov 04(sp),r1
tst (sp)
beq 4f
ashc $-1,r0
bic $0100000,r0
inc (sp)
4: ashc (sp)+,r0
mov r0,(sp)
1984-07-19 12:51:00 +00:00
mov r1,02(sp)
jmp (r3)
1984-07-19 12:51:00 +00:00
3: jmp unknown~