ack/mach/vax4/libem/csa4.s

#include "em_abs.h"

        # $Header$

.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)
Initial revision 1985-01-18 14:30:03 +00:00			`#include "em_abs.h"`

To have a file preprocessed, it must start with a # in column o1. The RCSid is replaced to accomplish this. 1985-01-21 12:56:09 +00:00			`# $Header$`

Initial revision 1985-01-18 14:30:03 +00:00			`.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)`