ack/mach/pdp/libem/sru.s
1984-07-19 12:51:00 +00:00

31 lines
366 B
ArmAsm

.text
.globl sru~,slu~
.globl save1~,unknown~
sru~:
neg 2(sp)
slu~:
mov (sp)+,save1~
cmp r0,$02
bgt 1f
mov 2(sp),r1
clr r0
ashc (sp)+,r0
2: mov r1,-(sp)
jmp *save1~
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)
beq 4f
ashc (sp)+,r0
4: mov r0,(sp)
mov r1,02(sp)
jmp *save1~
3: jmp unknown~