ack/mach/vax4/libem/csa4.s

22 lines
334 B
ArmAsm
Raw Normal View History

1985-01-18 14:30:03 +00:00
# $Header$
#include "em_abs.h"
.globl .csa4
.csa4:
movl (sp)+,r0 # descriptor address
movl (sp)+,r1 # index
movl (r0)+,r2 # default
subl2 (r0)+,r1
cmpl (r0)+,r1
blssu L1
movl (r0)[r1],r1
bneq L2
L1:
movl r2,r1
bneq L2
pushl $ECASE
jmp .fat
L2:
jmp (r1)