ack/mach/pdp/libem/csb.s

26 lines
276 B
ArmAsm
Raw Normal View History

1984-07-19 12:51:00 +00:00
.text
.globl csb~
.globl fat~
ECASE = 20.
csb~:
mov r3,-(sp)
mov (r0)+,-(sp)
mov (r0)+,r3
beq 1f
3: cmp (r0)+,r1
beq 2f
tst (r0)+
sob r3,3b
1: mov (sp)+,r1
br 4f
2: tst (sp)+
mov (r0),r1
4: beq 5f
mov (sp)+,r3
jmp (r1)
5: mov (sp)+,r3
mov $ECASE,-(sp)
jmp fat~