[unix-history] / usr / src / cmd / c / table.s

/
/ c code tables-- compile to register
/

.globl	_regtab

.data
_regtab=.
	106.;	cr106
	30.;	cr70
	31.;	cr70
	32.;	cr32
	33.;	cr32
	37.;	cr37
	38.;	cr37
	98.;	cr100
	99.;	cr100
	80.;	cr80
	40.;	cr40
	41.;	cr40	/ - like +
	42.;	cr42
	43.;	cr43
	14.;	cr43
	44.;	cr43
	45.;	cr45
	46.;	cr40
	55.; 	cr40
	48.;	cr40
	49.;	cr49
	70.;	cr70
	71.;	cr70
	72.;	cr72
	73.;	cr73
	74.;	cr74
	75.;	cr75
	76.;	cr72
	78.;	cr70
	85.;	cr70
	79.;	cr79
	102.;	cr102
	51.;	cr51
	52.;	cr52
	56.;	cr56
	57.;	cr57
	58.;	cr58
	59.;	cr59
	91.;	cr91
	82.;	cr82
	83.;	cr82
	84.;	cr82
	86.;	cr86
	87.;	cr86
	88.;	cr86
	16.;	cr16
	92.;	cr92
	17.;	cr43
	18.;	cr74
	109.; cr109
	0
.text

/ goto
cr102:
%a,n
	jmp	A1

%n*,n
	F*
	jmp	#1(R)

/ call
cr100:
%a,n
	jsr	pc,IA1

%n*,n
	F*
	jsr	pc,#1(R)

%n,n
	F
	jsr	pc,(R)

/ addressible
cr106:
%z,n
	clr	R

%zf,n
	clrf	R

%a,n
%ad,n
	movB1	A1,R

%af,n
	movof	A1,R

%n*,n
%nd*,n
	F*
	movB1	#1(R),R

%nf*,n
	F*
	movof	#1(R),R

%al,n
	mov	A1+,R+
	mov	A1,R

%nl*,n
	F*
	mov	#1+2(R),R+
	mov	#1(R),R

%n,n
	F

/ ++,-- postfix
cr32:
%a,1
	movB1	A1',R
	I'B1	A1''

%aw,n
	mov	A1',R
	I	A2,A1''

%e*,1
	F1*
	movB1	#1(R1),R
	I'B1	#1(R1)

%n*,1
	F*
	movB1	#1(R),-(sp)
	I'B1	#1(R)
	movB1	(sp)+,R

%ew*,n
	F1*
	mov	#1(R1),R
	I	A2,#1(R1)

%nw*,n
	F*
	mov	#1(R),-(sp)
	I	A2,#1(R)
	mov	(sp)+,R

%al,1
	F
	I	$1,A1+
	V	A1

%el*,1
	F1*
	mov	#1+2(R1),R+
	mov	#1(R1),R
	I	$1,#1+2(R1)
	V	#1(R1)

%nl*,1
	F*
	mov	#1+2(R),-(sp)
	mov	#1(R),-(sp)
	I	$1,#1+2(R)
	V	#1(R)
	mov	(sp)+,R
	mov	(sp)+,R+

/ - unary, ~
cr37:
%n,n
%nf,n
	F
	IBF	R

%nl,n
	F
	I	R
	I	R+
	V	R

/ =
cr80:
%a,n
%ad,nf
	S
	movB1	R,A1

%af,nf
	S
	movfo	R,A1

%nd*,af
	F*
	S
	movf	R,#1(R)

%n*,aw
	F*
	movB1	A2,#1(R)
	movB1	#1(R),R

%nf*,af
	F*
	S
	movfo	R,#1(R)

%n*,e
	F*
	S1
	movB1	R1,#1(R)
	movB1	R1,R

%ed*,nf
	S
	F1*
	movf	R,#1(R1)

%ef*,nf
	S
	F1*
	movfo	R,#1(R1)

%n*,n
%nd*,nf
	FS*
	S
	movB1	R,*(sp)+

%nf*,nf
	FS*
	S
	movfo	R,*(sp)+

%al,nl
	S
	mov	R+,A1+
	mov	R,A1

%el*,nl
	S
	F1*
	mov	R+,2+#1(R1)
	mov	R,#1(R1)

%nl*,nl
	FS*
	S
	mov	R,*(sp)
	add	$2,(sp)
	mov	R+,*(sp)+

/ field assign, value in reg.
cr16:
%a,n
	S
	bicB1	Z,A1'
	bisB1	R,A1''

%e*,n
%	[fas1]

%n*,n
	SS
	F*
	bicB1	Z,#1(R)
	bisB1	(sp),#1(R)
	mov	(sp)+,R

/ +, -, |, &~, <<
cr40:
%n,z
	F

%n,1
	F
	I'	R

%[add1:]
%n,aw
%nf,ad
	F
	IB2	A2,R

%[add2:]
%n,ew*
%nf,ed*
	F
	S1*
	IB2	#2(R1),R

%[add3:]
%n,e
%nf,ef
	F
	S1
	IBF	R1,R

%[add4:]
%n,nw*
%nf,nd*
	SS*
	F
	IB2	*(sp)+,R

%[add5:]
%n,n
%nf,nf
	SS
	F
	IBF	(sp)+,R

%nl,c
%nl,au
	F
	I	A2,R+
	V	R

%nl,eu
	F
	S1
	I	R1,R+
	V	R

%nl,al
	F
	I	A2,R
	I	A2+,R+
	V	R

%[addl1:]
%nl,el
	F
	S1
	I	R1+,R+
	V	R
	I	R1,R

%[addl2:]
%nl,nl
	SS
	F
	I	(sp)+,R
	I	(sp)+,R+
	V	R

/ ^ -- xor
cr49:
%n,e
%	[add3]

%n,n
	FS
	S
	xor	R,(sp)
	mov	(sp)+,R

%nl,el
%	[addl1]

%nl,nl
	SS
	F
	I	R,(sp)
	mov	(sp)+,R
	I	R+,(sp)
	mov	(sp)+,R+

/ >> (all complicated cases taken care of by << -)
cr45:
%n,1
	F
	asr	R

/ * -- R must be odd on integers
cr42:
%n,aw
%nf,ad
%	[add1]

%n,ew*
%nf,ed*
%	[add2]

%n,e
%nf,ef
%	[add3]

%n,n
%nf,nf
%	[add5]

/ / R must be odd on integers
cr43:
%n,aw
	F
	T
	I	A2,R-

%n,ew*
	F
	T
	S1*
	I	#2(R1),R-

%n,e
	F
	T
	S1
	I	R1,R-

%n,n
	SS
	F
	T
	I	(sp)+,R-

%nf,ad
%	[add1]

%nf,ed*
%	[add2]

%nf,ef
%	[add3]

%nf,nf
%	[add5]

/ =+, =-, =|, =&~
cr70:
%[addq1:]
%aw,aw
	I	A2,A1'
	mov	A1'',R

%[addq1a:]
%a,aw
%ad,ad
	movB1	A1',R
	IBF	A2,R
	movB1	R,A1''

%[addq2:]
%aw,nw*
	S*
	I	#2(R),A1'
	mov	A1'',R

%[addq3:]
%aw,n
	S
	I	R,A1'
	mov	A1'',R

%[addq4:]
%ew*,nw*
	S*
	F1*
	I	#2(R),#1(R1)
	mov	#1(R1),R

%[addq4a:]
%ad,ef
	movf	A1',R
	S1
	IBF	R1,R
	movf	R,A1''

%[addq5:]
%a,n
%ad,nf
	SS
	movB1	A1',R
	IBF	(sp)+,R
	movB1	R,A1''

%[addq6:]
%af,nf
	SS
	movof	A1',R
	IBF	(sp)+,R
	movfo	R,A1''

%[addq7:]
%ew*,n
	S
	F1*
	I	R,#1(R1)
	mov	#1(R1),R

%[addq8:]
%nw*,n
	SS
	F*
	I	(sp)+,#1(R)
	mov	#1(R),R

%[addq9:]
%n*,n
	FS*
	SS
	movB1	*2(sp),R
	IBF	(sp)+,R
	movB1	R,*(sp)+

%[addq9a:]
%nd*,nf
	SS
	F*
	movB1	#1(R),R
	IBF	(sp)+,R
	movB1	R,#1(R)

%[addq10:]
%nf*,nf
	SS
	F*
	movof	#1(R),R1
	IBF	(sp)+,R1
	movfo	R1,#1(R)
	movf	R1,R

%al,c
	I	A2,A1+
	V	A1
	F

%al,al
	I	A2+,A1+
	V	A1
	I	A2,A1
	F

%al,nl
	S
	I	R+,A1+
	V	A1
	I	R,A1
	F

%nl*,c
	F*
	I	A2,#1+2(R)
	V	#1(R)
	mov	#1+2(R),R+
	mov	#1(R),R

%nl*,al
	F*
	I	A2+,#1+2(R)
	V	#1(R)
	I	A2,#1(R)
	mov	#1+2(R),R+
	mov	#1(R),R

%nl*,nl
	SS
	F*
	I	(sp)+,#1(R)
	I	(sp)+,#1+2(R)
	V	#1(R)
	mov	#1+2(R),R+
	mov	#1(R),R

/ =*, =<< (for integer multiply, R must be odd)
cr72:
%a,aw
%ad,ad
%	[addq1a]

%ad,ef
%	[addq4a]

%a,n
%ad,nf
%	[addq5]

%af,nf
%	[addq6]

%n*,n
%	[addq9]

%nd*,nf
%	[addq9a]

%nf*,nf
%	[addq10]

/ =/ ;  R must be odd on integers
cr73:
%a,aw
	movB1	A1',R
	V	R-
	IBF	A2,R-
	movB1	R-,A1''

%a,n
	SS
	movB1	A1',R
	V	R-
	I	(sp)+,R-
	movB1	R-,A1''

%e*,n
	SS
	F1*
	movB1	#1(R1),R
	V	R-
	I	(sp)+,R-
	movB1	R-,#1(R1)

%n*,n
	FS*
	SS
	movB1	*2(sp),R
	V	R-
	I	(sp)+,R-
	movB1	R-,*(sp)+

%ad,ad
%	[addq1a]

%ad,ef
%	[addq4a]

%ad,nf
%	[addq5]

%af,nf
%	[addq6]

%nd*,nf
%	[addq9a]

%nf*,nf
%	[addq10]

/ =mod; R must be odd on integers
cr74:
%a,aw
	movB1	A1',R
	V	R-
	I	A2,R-
	movB1	R,A1''

%a,n
	SS
	movB1	A1',R
	V	R-
	I	(sp)+,R-
	movB1	R,A1''

%e*,n
	SS
	F1*
	movB1	#1(R1),R
	V	R-
	I	(sp)+,R-
	movB1	R,#1(R1)

%n*,n
	FS*
	SS
	movB1	*2(sp),R
	V	R-
	I	(sp)+,R-
	mov	R,*(sp)+

/ =^ -- =xor
cr79:
%aw,n
%	[addq3]

%ab,n
	SS
	movb	A1',R
	xor	R,(sp)
	mov	(sp)+,R
	movb	R,A1''

%n*,n
	FS*
	movB1	*(sp),-(sp)
	S
	xor	R,(sp)
	movB1	(sp)+,R
	movB1	R,*(sp)+

/ =>> (all complicated cases done by =<< -)
cr75:
%a,1
	asrB1	A1'
	movB1	A1'',R

%n*,1
	F*
	asrB1	#1(R)
	movB1	#1(R),R

/ << for longs
cr91:
%nl,aw
%	[add1]

%nl,ew*
%	[add2]

%nl,e
%	[add3]

%nl,nw*
%	[add4]

%nl,n
%	[add5]

/ int -> float
cr51:
%aw,n
	movif	A1,R

%nw*,n
	F*
	movif	#1(R),R

%n,n
	F
	movif	R,R

/ float, double -> int
cr52:
%nf,n
	F
	movfi	R,R

/ double (float) to long
cr56:
%nf,n
	F
	setl
	movfi	R,-(sp)
	mov	(sp)+,R
	mov	(sp)+,R+
	seti

/ long to double
cr57:
%al,n
	setl
	movif	A1,R
	seti

%nl*,n
	F*
	setl
	movif	#1(R),R
	seti

%nl,n
	FS
	setl
	movif	(sp)+,R
	seti

/ integer to long
cr58:
%eu,n
	F1!
	clr	R

%nu,n
	F
	mov	R,R1
	clr	R

%e,n
	F1!
	sxt	R

%n,n
	F
	mov	R,R1
	sxt	R

/ long to integer
cr59:
%al,n
	mov	A1+,R

%nl*,n
	F*
	mov	#1+2(R),R

/ *, /, remainder for longs.
cr82:
%nl,nl
	SS
	FS
	jsr	pc,I
	add	$10,sp

/ =*, =/, =rem for longs
/ Operands of the form &x op y, so stack space is known.
cr86:
%n,nl
	SS
	FS
	jsr	pc,I
	add	$6,sp

/ convert integer to character (sign extend)
cr109:
%n,n
	F
	movb	R,R

/
/ c code tables -- compile for side effects.
/ Also set condition codes properly (except for ++, --)
/

.globl	_efftab

.data
_efftab=.
	30.;	ci70
	31.;	ci70
	32.;	ci70
	33.;	ci70
	80.;	ci80
	70.;	ci70
	71.;	ci70	/ - like +
	78.;	ci78
	79.;	ci79
	85.;	ci78
	75.;	ci75
	76.;	ci76
	16.;	ci16
	116.;	ci116
	0
.text

/ =
ci80:
%[move1:]
%a,z
%ad,zf
	I'B1	A1

%[move2:]
%n*,z
%nd*,zf
	F*
	I'B1	#1(R)

%[move3:]
%a,aw
%ab,a
	IBE	A2,A1

%[move4:]
%ab,n*
%a,nw*
	S*
	IBE	#2(R),A1

%[move5:]
%a,n
	S
	IB1	R,A1

%[move6:]
%n*,aw
%nb*,a
	F*
	IBE	A2,#1(R)

%[move7:]
%n*,ew*
%nb*,e*
	F*
	S1*
	IBE	#2(R1),#1(R)

%[move8:]
%n*,e
	F*
	S1
	IB1	R1,#1(R)

%[move9:]
%e*,nw*
%eb*,n*
	S*
	F1*
	IBE	#2(R),#1(R1)

%[move10:]
%e*,n
	S
	F1*
	IB1	R,#1(R1)

%[move11:]
%n*,nw*
%nb*,n*
	FS*
	S*
	IBE	#2(R),*(sp)+

%[move12:]
%n*,n
	FS*
	S
	IB1	R,*(sp)+

%aw,nf
	S
	movfi	R,A1

%ew*,nf
	S
	F1*
	movfi	R,#1(R1)

%al,z
	clr	A1
	clr	A1+

%nl*,z
	F*
	clr	#1(R)
	clr	2+#1(R)

%[move13a:]
%al,aw
	I	A2,A1+
	V	A1

%al,nw*
	S*
	mov	#2(R),A1+
	V	A1

%al,n
	S
	mov	R,A1+
	V	A1

%al,nf
	S
	setl
	movfi	R,A1
	seti

%el*,nf
	S
	F1*
	setl
	movfi	R,#1(R1)
	seti

%[move13:]
%al,al
	I	A2,A1
	I	A2+,A1+
	V	A1

%[move14:]
%al,nl*
	S*
	I	#2(R),A1
	I	#2+2(R),A1+
	V	A1

%[move15:]
%al,nl
	S
	I	R,A1
	I	R+,A1+
	V	A1

%[move14a:]
%nl*,aw
	F*
	I	A2,#1+2(R)
	V	#1(R)

%[move16a:]
%nl*,al
	F*
	I	A2+,#1+2(R)
	V	#1(R)
	I	A2,#1(R)

%[move16:]
%el*,nl
	S
	F1*
	I	R+,#1+2(R1)
	V	#1(R1)
	I	R,#1(R1)

%nl*,n
	SS
	F*
	mov	(sp)+,#1+2(R)
	V	#1(R)

%[move17:]
%nl*,nl
	SS
	F*
	I	(sp)+,#1(R)
	I	(sp)+,#1+2(R)
	V	#1(R)

/ =| and =& ~
ci78:
%a,aw
%ab,a
%	[move3]

%a,n
%	[move5]

%n*,aw
%nb*,a
%	[move6]

%n*,ew*
%nb*,e*
%	[move7]

%n*,e
%	[move8]

%e*,nw*
%eb*,n*
%	[move9]

%e*,n
%	[move10]

%n*,nw*
%nb*,n*
%	[move11]

%n*,n
%	[move12]

%al,c
%al,au
%	[move13a]

%al,al
%	[move13]

%al,nl*
%	[move14]

%al,nl
%	[move15]

%nl*,c
%	[move14a]

%nl*,al
%	[move16a]

%el*,nl
%	[move16]

%nl*,nl
%	[move17]

/ =^
ci79:
%al,nl
%	[move15]

%el*,nl
%	[move16]

%nl*,nl
	FS*
	S
	I	R,*(sp)
	mov	(sp)+,R
	I	R+,2(R)

/ =+
ci70:
%n*,z
%a,z

%a,1
	I'B1	A1

%aw,aw
%	[move3]

%aw,nw*
%	[move4]

%aw,n
%	[move5]

%n*,1
%	[move2]

%ew*,nw*
%	[move9]

%a,nw*
	S*
	movB1	A1',R1
	I	#2(R),R1
	movB1	R1,A1''

%a,n
	S
	movB1	A1',R1
	I	R,R1
	movB1	R1,A1''

%ew*,n
%	[move10]

%nw*,n
%	[move12]

%n*,n
	SS
	F*
	movB1	#1(R),R1
	I	(sp)+,R1
	movB1	R1,#1(R)

%al,c
%al,au
%	[move13a]

%al,al
%	[move13]

%al,nl*
%	[move14]

%al,nl
%	[move15]

%nl*,c
%nl*,au
%	[move14a]

%nl*,al
%	[move16a]

%el*,nl
%	[move16]

%nl*,nl
%	[move17]

/ =>> (all harder cases handled by =<< -)
ci75:
%a,1
	asrB1	A1

%n*,1
	F*
	asrB1	#1(R)

/ =<<
ci76:
%a,1
	aslB1	A1

%n*,1
	F*
	aslB1	#1(R)

%r,aw
	ash	A2,A1

%r,nw*
	S*
	ash	#2(R),A1

%r,n
	S
	ash	R,A1

/ =<< for longs
cr92:
%al,aw
	F
	ashc	A2,R
	mov	R,A1
	mov	R+,A1+

%al,n
	SS
	F
	ashc	(sp)+,R
	mov	R,A1
	mov	R+,A1+

%nl*,n
	FS*
	SS
	mov	2(sp),R
	mov	2(R),R+
	mov	(R),R
	ashc	(sp)+,R
	mov	R,*(sp)
	add	$2,(sp)
	mov	R+,*(sp)+

/ field = ...
ci16:
%a,a
	bicB1	Z,A1'
	bisB1	A2,A1''

%a,n
	S
	bicB1	Z,A1'
	bisB1	R,A1''

%n*,a
	F*
	bicB1	Z,#1(R)
	bisB1	A2,#1(R)

%[fas1:]
%e*,n
	S
	F1*
	bicB1	Z,#1(R1)
	bisB1	R,#1(R1)

%n*,e
	F*
	S1
	bicB1	Z,#1(R)
	bisB1	R1,#1(R)

%n*,n
	SS
	F*
	bicB1	Z,#1(R)
	bisB1	(sp)+,#1(R)

/
/ c code tables-- set condition codes
/

.globl	_cctab

.data
_cctab=.
	106.;	cc60
	28.;	rest
	55.;	rest
	34.;	rest
	35.;	rest
	36.;	rest
	37.;	rest
	40.;	rest
	41.;	rest
	42.;	rest
	43.;	rest
	81.;	cc81	/ & as in "if ((a&b)==0)"
	48.;	rest
	60.;	cc60
	61.;	cc60
	62.;	cc60
	63.;	cc60
	64.;	cc60
	65.;	cc60
	66.;	cc60
	67.;	cc60
	68.;	cc60
	69.;	cc60
	72.;	rest
	73.;	rest
	79.;	rest
	0
.text

/ relationals
cc60:
%a,z
%ad,zf
%	[move1]

%af,z
	movof	A1,R

%n*,z
%nd*,zf
%	[move2]

%nf*,z
	F*
	movof	#1(R),R

%n,z
%nf,zf
	FC

%aw,aw
%ab,ab
%	[move3]

%nw*,aw
%nb*,ab
%	[move6]

%n,aw
%nf,ad
%	[add1]

%nw*,ew*
%nb*,eb*
%	[move7]

%nw*,e
%	[move8]

%n,ew*
%nf,ed*
%	[add2]

%n,e
%nf,ef
%	[add3]

%nw*,nw*
%nb*,nb*
%	[move11]

%nw*,n
%	[move12]

%n,n
%nf,nf
%	[add5]

%al,z
	tst	A1
	X0
	tst	A1+
	X1

%al,c
%al,au
	tst	A1
	X0
	cmp	A1+,A2
	X1

%[lcmp1:]
%al,al
	I	A1,A2
	X0
	I	A1+,A2+
	X1

%nl*,z
	F*
	tst	#1(R)
	X0
	tst	#1+2(R)
	X1

%nl*,c
%nl*,au
	F*
	tst	#1(R)
	X0
	cmp	#1+2(R),A2
	X1

%[lcmp2:]
%nl*,al
	F*
	I	#1(R),A2
	X0
	I	#1+2(R),A2+
	X1

%nl,z
	F
	tst	R
	X0
	tst	R+
	X1

%nl,c
%nl,au
	F
	tst	R
	X0
	cmp	R+,A2
	X1

%[lcmp3:]
%nl,al
	F
	I	R,A2
	X0
	I	R+,A2+
	X1

%[lcmp4:]
%nl*,el*
	F*
	S1*
	I	#1(R),#2(R1)
	X0
	I	#1+2(R),#2+2(R1)
	X1

%[lcmp5:]
%nl,el*
	F
	S1*
	I	R,#2(R1)
	X0
	I	R+,#2+2(R1)
	X1

%[lcmp6:]
%nl,nl
	FS
	S
	mov	R,-(sp)
	mov	4(sp),R
	mov	(sp)+,2(sp)
	I	(sp)+,(sp)+
	X0
	I	R,R+
	X1

/ & as in "if ((a&b) ==0)"
cc81:
%a,a
%	[move3]

%n*,a
%	[move6]

%n,a
%	[add1]

%n,e
%	[add3]

%n,n
%	[add5]

%al,c
%al,au
	/bit	$0,A1
	/X0
	bit	A2,A1+
	X1

%nl*,c
%nl*,au
	F*
	/bit	$0,#2(R)
	/X0
	bit	A2,#2+2(R)
	X1

%al,al
%	[lcmp1]

%nl*,al
%	[lcmp2]

%nl,al
%	[lcmp3]

%nl*,el*
%	[lcmp4]

%nl,el*
%	[lcmp5]

%nl,nl
%	[lcmp6]

%nl,c
%nl,au
	F
	/bit	$0,R
	/X0
	bit	A2,R+
	X1

/ set codes right
rest:
%n,n
%nf,nf
	H

/
/ c code tables-- expression to -(sp)
/

.globl	_sptab

.data
_sptab=.
	106.;	cs106
	40.;	cs40
	41.;	cs40
	55.;	cs40
	48.;	cs40
	58.;	cs58
	56.;	cs56
	0
.text

/ name
cs106:
%z,n
%zf,n
	clrB1	-(sp)

%aw,n
	mov	A1,-(sp)

%nw*,n
	F*
	mov	#1(R),-(sp)

%al,n
	mov	A1+,-(sp)
	mov	A1,-(sp)

/ +, -, |, &~
cs40:
%a,1
	FS
	I'	(sp)

%a,aw
	FS
	I	A2,(sp)

%a,nw*
	FS
	S*
	I	#2(R),(sp)

%a,n
	FS
	S
	I	R,(sp)

/ integer to long
cs58:
%nu,n
	FS
	clr	-(sp)

%n,n
	FS
	sxt	-(sp)

/ float to long
cs56:
%nf,n
	F
	setl
	movfi	R,-(sp)
	seti

/ setup for structure assign
ci116:
%n,e
	F!
	S1!

%n,n
	SS
	F!
	mov	(sp)+,r1
Commit	Line	Data
3823a6ae DR	1	/
	2	/ c code tables-- compile to register
	3	/
	4
	5	.globl _regtab
	6
	7	.data
	8	_regtab=.
	9	106.; cr106
	10	30.; cr70
	11	31.; cr70
	12	32.; cr32
	13	33.; cr32
	14	37.; cr37
	15	38.; cr37
	16	98.; cr100
	17	99.; cr100
	18	80.; cr80
	19	40.; cr40
	20	41.; cr40 / - like +
	21	42.; cr42
	22	43.; cr43
	23	14.; cr43
	24	44.; cr43
	25	45.; cr45
	26	46.; cr40
	27	55.; cr40
	28	48.; cr40
	29	49.; cr49
	30	70.; cr70
	31	71.; cr70
	32	72.; cr72
	33	73.; cr73
	34	74.; cr74
	35	75.; cr75
	36	76.; cr72
	37	78.; cr70
	38	85.; cr70
	39	79.; cr79
	40	102.; cr102
	41	51.; cr51
	42	52.; cr52
	43	56.; cr56
	44	57.; cr57
	45	58.; cr58
	46	59.; cr59
	47	91.; cr91
	48	82.; cr82
	49	83.; cr82
	50	84.; cr82
	51	86.; cr86
	52	87.; cr86
	53	88.; cr86
	54	16.; cr16
	55	92.; cr92
	56	17.; cr43
	57	18.; cr74
	58	109.; cr109
	59	0
	60	.text
	61
	62	/ goto
	63	cr102:
	64	%a,n
65	jmp A1
66
67	%n*,n
68	F*
69	jmp #1(R)
70
71	/ call
72	cr100:
73	%a,n
74	jsr pc,IA1
75
76	%n*,n
77	F*
78	jsr pc,#1(R)
79
80	%n,n
81	F
82	jsr pc,(R)
83
84	/ addressible
85	cr106:
86	%z,n
87	clr R
88
89	%zf,n
90	clrf R
91
92	%a,n
93	%ad,n
94	movB1 A1,R
95
96	%af,n
97	movof A1,R
98
99	%n*,n
100	%nd*,n
101	F*
102	movB1 #1(R),R
103
104	%nf*,n
105	F*
106	movof #1(R),R
107
108	%al,n
109	mov A1+,R+
110	mov A1,R
111
112	%nl*,n
113	F*
114	mov #1+2(R),R+
115	mov #1(R),R
116
117	%n,n
118	F
119
120	/ ++,-- postfix
121	cr32:
122	%a,1
123	movB1 A1',R
124	I'B1 A1''
125
126	%aw,n
127	mov A1',R
128	I A2,A1''
129
130	%e*,1
131	F1*
132	movB1 #1(R1),R
133	I'B1 #1(R1)
134
135	%n*,1
136	F*
137	movB1 #1(R),-(sp)
138	I'B1 #1(R)
139	movB1 (sp)+,R
140
141	%ew*,n
142	F1*
143	mov #1(R1),R
144	I A2,#1(R1)
145
146	%nw*,n
147	F*
148	mov #1(R),-(sp)
149	I A2,#1(R)
150	mov (sp)+,R
151
152	%al,1
153	F
154	I $1,A1+
155	V A1
156
157	%el*,1
158	F1*
159	mov #1+2(R1),R+
160	mov #1(R1),R
161	I $1,#1+2(R1)
162	V #1(R1)
163
164	%nl*,1
165	F*
166	mov #1+2(R),-(sp)
167	mov #1(R),-(sp)
168	I $1,#1+2(R)
169	V #1(R)
170	mov (sp)+,R
171	mov (sp)+,R+
172
173	/ - unary, ~
174	cr37:
175	%n,n
176	%nf,n
177	F
178	IBF R
179
180	%nl,n
181	F
182	I R
183	I R+
184	V R
185
186	/ =
187	cr80:
188	%a,n
189	%ad,nf
190	S
191	movB1 R,A1
192
193	%af,nf
194	S
195	movfo R,A1
196
197	%nd*,af
198	F*
199	S
200	movf R,#1(R)
201
202	%n*,aw
203	F*
204	movB1 A2,#1(R)
205	movB1 #1(R),R
206
207	%nf*,af
208	F*
209	S
210	movfo R,#1(R)
211
212	%n*,e
213	F*
214	S1
215	movB1 R1,#1(R)
216	movB1 R1,R
217
218	%ed*,nf
219	S
220	F1*
221	movf R,#1(R1)
222
223	%ef*,nf
224	S
225	F1*
226	movfo R,#1(R1)
227
228	%n*,n
229	%nd*,nf
230	FS*
231	S
232	movB1 R,*(sp)+
233
234	%nf*,nf
235	FS*
236	S
237	movfo R,*(sp)+
238
239	%al,nl
240	S
241	mov R+,A1+
242	mov R,A1
243
244	%el*,nl
245	S
246	F1*
247	mov R+,2+#1(R1)
248	mov R,#1(R1)
249
250	%nl*,nl
251	FS*
252	S
253	mov R,*(sp)
254	add $2,(sp)
255	mov R+,*(sp)+
256
257	/ field assign, value in reg.
258	cr16:
259	%a,n
260	S
261	bicB1 Z,A1'
262	bisB1 R,A1''
263
264	%e*,n
265	% [fas1]
266
267	%n*,n
268	SS
269	F*
270	bicB1 Z,#1(R)
271	bisB1 (sp),#1(R)
272	mov (sp)+,R
273
274	/ +, -, \|, &~, <<
275	cr40:
276	%n,z
277	F
278
279	%n,1
280	F
281	I' R
282
283	%[add1:]
284	%n,aw
285	%nf,ad
286	F
287	IB2 A2,R
288
289	%[add2:]
290	%n,ew*
291	%nf,ed*
292	F
293	S1*
294	IB2 #2(R1),R
295
296	%[add3:]
297	%n,e
298	%nf,ef
299	F
300	S1
301	IBF R1,R
302
303	%[add4:]
304	%n,nw*
305	%nf,nd*
306	SS*
307	F
308	IB2 *(sp)+,R
309
310	%[add5:]
311	%n,n
312	%nf,nf
313	SS
314	F
315	IBF (sp)+,R
316
317	%nl,c
318	%nl,au
319	F
320	I A2,R+
321	V R
322
323	%nl,eu
324	F
325	S1
326	I R1,R+
327	V R
328
329	%nl,al
330	F
331	I A2,R
332	I A2+,R+
333	V R
334
335	%[addl1:]
336	%nl,el
337	F
338	S1
339	I R1+,R+
340	V R
341	I R1,R
342
343	%[addl2:]
344	%nl,nl
345	SS
346	F
347	I (sp)+,R
348	I (sp)+,R+
349	V R
350
351	/ ^ -- xor
352	cr49:
353	%n,e
354	% [add3]
355
356	%n,n
357	FS
358	S
359	xor R,(sp)
360	mov (sp)+,R
361
362	%nl,el
363	% [addl1]
364
365	%nl,nl
366	SS
367	F
368	I R,(sp)
369	mov (sp)+,R
370	I R+,(sp)
371	mov (sp)+,R+
372
373	/ >> (all complicated cases taken care of by << -)
374	cr45:
375	%n,1
376	F
377	asr R
378
379	/ * -- R must be odd on integers
380	cr42:
381	%n,aw
382	%nf,ad
383	% [add1]
384
385	%n,ew*
386	%nf,ed*
387	% [add2]
388
389	%n,e
390	%nf,ef
391	% [add3]
392
393	%n,n
394	%nf,nf
395	% [add5]
396
397	/ / R must be odd on integers
398	cr43:
399	%n,aw
400	F
401	T
402	I A2,R-
403
404	%n,ew*
405	F
406	T
407	S1*
408	I #2(R1),R-
409
410	%n,e
411	F
412	T
413	S1
414	I R1,R-
415
416	%n,n
417	SS
418	F
419	T
420	I (sp)+,R-
421
422	%nf,ad
423	% [add1]
424
425	%nf,ed*
426	% [add2]
427
428	%nf,ef
429	% [add3]
430
431	%nf,nf
432	% [add5]
433
434	/ =+, =-, =\|, =&~
435	cr70:
436	%[addq1:]
437	%aw,aw
438	I A2,A1'
439	mov A1'',R
440
441	%[addq1a:]
442	%a,aw
443	%ad,ad
444	movB1 A1',R
445	IBF A2,R
446	movB1 R,A1''
447
448	%[addq2:]
449	%aw,nw*
450	S*
451	I #2(R),A1'
452	mov A1'',R
453
454	%[addq3:]
455	%aw,n
456	S
457	I R,A1'
458	mov A1'',R
459
460	%[addq4:]
461	%ew,nw
462	S*
463	F1*
464	I #2(R),#1(R1)
465	mov #1(R1),R
466
467	%[addq4a:]
468	%ad,ef
469	movf A1',R
470	S1
471	IBF R1,R
472	movf R,A1''
473
474	%[addq5:]
475	%a,n
476	%ad,nf
477	SS
478	movB1 A1',R
479	IBF (sp)+,R
480	movB1 R,A1''
481
482	%[addq6:]
483	%af,nf
484	SS
485	movof A1',R
486	IBF (sp)+,R
487	movfo R,A1''
488
489	%[addq7:]
490	%ew*,n
491	S
492	F1*
493	I R,#1(R1)
494	mov #1(R1),R
495
496	%[addq8:]
497	%nw*,n
498	SS
499	F*
500	I (sp)+,#1(R)
501	mov #1(R),R
502
503	%[addq9:]
504	%n*,n
505	FS*
506	SS
507	movB1 *2(sp),R
508	IBF (sp)+,R
509	movB1 R,*(sp)+
510
511	%[addq9a:]
512	%nd*,nf
513	SS
514	F*
515	movB1 #1(R),R
516	IBF (sp)+,R
517	movB1 R,#1(R)
518
519	%[addq10:]
520	%nf*,nf
521	SS
522	F*
523	movof #1(R),R1
524	IBF (sp)+,R1
525	movfo R1,#1(R)
526	movf R1,R
527
528	%al,c
529	I A2,A1+
530	V A1
531	F
532
533	%al,al
534	I A2+,A1+
535	V A1
536	I A2,A1
537	F
538
539	%al,nl
540	S
541	I R+,A1+
542	V A1
543	I R,A1
544	F
545
546	%nl*,c
547	F*
548	I A2,#1+2(R)
549	V #1(R)
550	mov #1+2(R),R+
551	mov #1(R),R
552
553	%nl*,al
554	F*
555	I A2+,#1+2(R)
556	V #1(R)
557	I A2,#1(R)
558	mov #1+2(R),R+
559	mov #1(R),R
560
561	%nl*,nl
562	SS
563	F*
564	I (sp)+,#1(R)
565	I (sp)+,#1+2(R)
566	V #1(R)
567	mov #1+2(R),R+
568	mov #1(R),R
569
570	/ =*, =<< (for integer multiply, R must be odd)
571	cr72:
572	%a,aw
573	%ad,ad
574	% [addq1a]
575
576	%ad,ef
577	% [addq4a]
578
579	%a,n
580	%ad,nf
581	% [addq5]
582
583	%af,nf
584	% [addq6]
585
586	%n*,n
587	% [addq9]
588
589	%nd*,nf
590	% [addq9a]
591
592	%nf*,nf
593	% [addq10]
594
595	/ =/ ; R must be odd on integers
596	cr73:
597	%a,aw
598	movB1 A1',R
599	V R-
600	IBF A2,R-
601	movB1 R-,A1''
602
603	%a,n
604	SS
605	movB1 A1',R
606	V R-
607	I (sp)+,R-
608	movB1 R-,A1''
609
610	%e*,n
611	SS
612	F1*
613	movB1 #1(R1),R
614	V R-
615	I (sp)+,R-
616	movB1 R-,#1(R1)
617
618	%n*,n
619	FS*
620	SS
621	movB1 *2(sp),R
622	V R-
623	I (sp)+,R-
624	movB1 R-,*(sp)+
625
626	%ad,ad
627	% [addq1a]
628
629	%ad,ef
630	% [addq4a]
631
632	%ad,nf
633	% [addq5]
634
635	%af,nf
636	% [addq6]
637
638	%nd*,nf
639	% [addq9a]
640
641	%nf*,nf
642	% [addq10]
643
644	/ =mod; R must be odd on integers
645	cr74:
646	%a,aw
647	movB1 A1',R
648	V R-
649	I A2,R-
650	movB1 R,A1''
651
652	%a,n
653	SS
654	movB1 A1',R
655	V R-
656	I (sp)+,R-
657	movB1 R,A1''
658
659	%e*,n
660	SS
661	F1*
662	movB1 #1(R1),R
663	V R-
664	I (sp)+,R-
665	movB1 R,#1(R1)
666
667	%n*,n
668	FS*
669	SS
670	movB1 *2(sp),R
671	V R-
672	I (sp)+,R-
673	mov R,*(sp)+
674
675	/ =^ -- =xor
676	cr79:
677	%aw,n
678	% [addq3]
679
680	%ab,n
681	SS
682	movb A1',R
683	xor R,(sp)
684	mov (sp)+,R
685	movb R,A1''
686
687	%n*,n
688	FS*
689	movB1 *(sp),-(sp)
690	S
691	xor R,(sp)
692	movB1 (sp)+,R
693	movB1 R,*(sp)+
694
695	/ =>> (all complicated cases done by =<< -)
696	cr75:
697	%a,1
698	asrB1 A1'
699	movB1 A1'',R
700
701	%n*,1
702	F*
703	asrB1 #1(R)
704	movB1 #1(R),R
705
706	/ << for longs
707	cr91:
708	%nl,aw
709	% [add1]
710
711	%nl,ew*
712	% [add2]
713
714	%nl,e
715	% [add3]
716
717	%nl,nw*
718	% [add4]
719
720	%nl,n
721	% [add5]
722
723	/ int -> float
724	cr51:
725	%aw,n
726	movif A1,R
727
728	%nw*,n
729	F*
730	movif #1(R),R
731
732	%n,n
733	F
734	movif R,R
735
736	/ float, double -> int
737	cr52:
738	%nf,n
739	F
740	movfi R,R
741
742	/ double (float) to long
743	cr56:
744	%nf,n
745	F
746	setl
747	movfi R,-(sp)
748	mov (sp)+,R
749	mov (sp)+,R+
750	seti
751
752	/ long to double
753	cr57:
754	%al,n
755	setl
756	movif A1,R
757	seti
758
759	%nl*,n
760	F*
761	setl
762	movif #1(R),R
763	seti
764
765	%nl,n
766	FS
767	setl
768	movif (sp)+,R
769	seti
770
771	/ integer to long
772	cr58:
773	%eu,n
774	F1!
775	clr R
776
777	%nu,n
778	F
779	mov R,R1
780	clr R
781
782	%e,n
783	F1!
784	sxt R
785
786	%n,n
787	F
788	mov R,R1
789	sxt R
790
791	/ long to integer
792	cr59:
793	%al,n
794	mov A1+,R
795
796	%nl*,n
797	F*
798	mov #1+2(R),R
799
800	/ *, /, remainder for longs.
801	cr82:
802	%nl,nl
803	SS
804	FS
805	jsr pc,I
806	add $10,sp
807
808	/ =*, =/, =rem for longs
809	/ Operands of the form &x op y, so stack space is known.
810	cr86:
811	%n,nl
812	SS
813	FS
814	jsr pc,I
815	add $6,sp
816
817	/ convert integer to character (sign extend)
818	cr109:
819	%n,n
820	F
821	movb R,R
822
823	/
824	/ c code tables -- compile for side effects.
825	/ Also set condition codes properly (except for ++, --)
826	/
827
828	.globl _efftab
829
830	.data
831	_efftab=.
832	30.; ci70
833	31.; ci70
834	32.; ci70
835	33.; ci70
836	80.; ci80
837	70.; ci70
838	71.; ci70 / - like +
839	78.; ci78
840	79.; ci79
841	85.; ci78
842	75.; ci75
843	76.; ci76
844	16.; ci16
845	116.; ci116
846	0
847	.text
848
849	/ =
850	ci80:
851	%[move1:]
852	%a,z
853	%ad,zf
854	I'B1 A1
855
856	%[move2:]
857	%n*,z
858	%nd*,zf
859	F*
860	I'B1 #1(R)
861
862	%[move3:]
863	%a,aw
864	%ab,a
865	IBE A2,A1
866
867	%[move4:]
868	%ab,n*
869	%a,nw*
870	S*
871	IBE #2(R),A1
872
873	%[move5:]
874	%a,n
875	S
876	IB1 R,A1
877
878	%[move6:]
879	%n*,aw
880	%nb*,a
881	F*
882	IBE A2,#1(R)
883
884	%[move7:]
885	%n,ew
886	%nb,e
887	F*
888	S1*
889	IBE #2(R1),#1(R)
890
891	%[move8:]
892	%n*,e
893	F*
894	S1
895	IB1 R1,#1(R)
896
897	%[move9:]
898	%e,nw
899	%eb,n
900	S*
901	F1*
902	IBE #2(R),#1(R1)
903
904	%[move10:]
905	%e*,n
906	S
907	F1*
908	IB1 R,#1(R1)
909
910	%[move11:]
911	%n,nw
912	%nb,n
913	FS*
914	S*
915	IBE #2(R),*(sp)+
916
917	%[move12:]
918	%n*,n
919	FS*
920	S
921	IB1 R,*(sp)+
922
923	%aw,nf
924	S
925	movfi R,A1
926
927	%ew*,nf
928	S
929	F1*
930	movfi R,#1(R1)
931
932	%al,z
933	clr A1
934	clr A1+
935
936	%nl*,z
937	F*
938	clr #1(R)
939	clr 2+#1(R)
940
941	%[move13a:]
942	%al,aw
943	I A2,A1+
944	V A1
945
946	%al,nw*
947	S*
948	mov #2(R),A1+
949	V A1
950
951	%al,n
952	S
953	mov R,A1+
954	V A1
955
956	%al,nf
957	S
958	setl
959	movfi R,A1
960	seti
961
962	%el*,nf
963	S
964	F1*
965	setl
966	movfi R,#1(R1)
967	seti
968
969	%[move13:]
970	%al,al
971	I A2,A1
972	I A2+,A1+
973	V A1
974
975	%[move14:]
976	%al,nl*
977	S*
978	I #2(R),A1
979	I #2+2(R),A1+
980	V A1
981
982	%[move15:]
983	%al,nl
984	S
985	I R,A1
986	I R+,A1+
987	V A1
988
989	%[move14a:]
990	%nl*,aw
991	F*
992	I A2,#1+2(R)
993	V #1(R)
994
995	%[move16a:]
996	%nl*,al
997	F*
998	I A2+,#1+2(R)
999	V #1(R)
1000	I A2,#1(R)
1001
1002	%[move16:]
1003	%el*,nl
1004	S
1005	F1*
1006	I R+,#1+2(R1)
1007	V #1(R1)
1008	I R,#1(R1)
1009
1010	%nl*,n
1011	SS
1012	F*
1013	mov (sp)+,#1+2(R)
1014	V #1(R)
1015
1016	%[move17:]
1017	%nl*,nl
1018	SS
1019	F*
1020	I (sp)+,#1(R)
1021	I (sp)+,#1+2(R)
1022	V #1(R)
1023
1024	/ =\| and =& ~
1025	ci78:
1026	%a,aw
1027	%ab,a
1028	% [move3]
1029
1030	%a,n
1031	% [move5]
1032
1033	%n*,aw
1034	%nb*,a
1035	% [move6]
1036
1037	%n,ew
1038	%nb,e
1039	% [move7]
1040
1041	%n*,e
1042	% [move8]
1043
1044	%e,nw
1045	%eb,n
1046	% [move9]
1047
1048	%e*,n
1049	% [move10]
1050
1051	%n,nw
1052	%nb,n
1053	% [move11]
1054
1055	%n*,n
1056	% [move12]
1057
1058	%al,c
1059	%al,au
1060	% [move13a]
1061
1062	%al,al
1063	% [move13]
1064
1065	%al,nl*
1066	% [move14]
1067
1068	%al,nl
1069	% [move15]
1070
1071	%nl*,c
1072	% [move14a]
1073
1074	%nl*,al
1075	% [move16a]
1076
1077	%el*,nl
1078	% [move16]
1079
1080	%nl*,nl
1081	% [move17]
1082
1083	/ =^
1084	ci79:
1085	%al,nl
1086	% [move15]
1087
1088	%el*,nl
1089	% [move16]
1090
1091	%nl*,nl
1092	FS*
1093	S
1094	I R,*(sp)
1095	mov (sp)+,R
1096	I R+,2(R)
1097
1098	/ =+
1099	ci70:
1100	%n*,z
1101	%a,z
1102
1103	%a,1
1104	I'B1 A1
1105
1106	%aw,aw
1107	% [move3]
1108
1109	%aw,nw*
1110	% [move4]
1111
1112	%aw,n
1113	% [move5]
1114
1115	%n*,1
1116	% [move2]
1117
1118	%ew,nw
1119	% [move9]
1120
1121	%a,nw*
1122	S*
1123	movB1 A1',R1
1124	I #2(R),R1
1125	movB1 R1,A1''
1126
1127	%a,n
1128	S
1129	movB1 A1',R1
1130	I R,R1
1131	movB1 R1,A1''
1132
1133	%ew*,n
1134	% [move10]
1135
1136	%nw*,n
1137	% [move12]
1138
1139	%n*,n
1140	SS
1141	F*
1142	movB1 #1(R),R1
1143	I (sp)+,R1
1144	movB1 R1,#1(R)
1145
1146	%al,c
1147	%al,au
1148	% [move13a]
1149
1150	%al,al
1151	% [move13]
1152
1153	%al,nl*
1154	% [move14]
1155
1156	%al,nl
1157	% [move15]
1158
1159	%nl*,c
1160	%nl*,au
1161	% [move14a]
1162
1163	%nl*,al
1164	% [move16a]
1165
1166	%el*,nl
1167	% [move16]
1168
1169	%nl*,nl
1170	% [move17]
1171
1172	/ =>> (all harder cases handled by =<< -)
1173	ci75:
1174	%a,1
1175	asrB1 A1
1176
1177	%n*,1
1178	F*
1179	asrB1 #1(R)
1180
1181	/ =<<
1182	ci76:
1183	%a,1
1184	aslB1 A1
1185
1186	%n*,1
1187	F*
1188	aslB1 #1(R)
1189
1190	%r,aw
1191	ash A2,A1
1192
1193	%r,nw*
1194	S*
1195	ash #2(R),A1
1196
1197	%r,n
1198	S
1199	ash R,A1
1200
1201	/ =<< for longs
1202	cr92:
1203	%al,aw
1204	F
1205	ashc A2,R
1206	mov R,A1
1207	mov R+,A1+
1208
1209	%al,n
1210	SS
1211	F
1212	ashc (sp)+,R
1213	mov R,A1
1214	mov R+,A1+
1215
1216	%nl*,n
1217	FS*
1218	SS
1219	mov 2(sp),R
1220	mov 2(R),R+
1221	mov (R),R
1222	ashc (sp)+,R
1223	mov R,*(sp)
1224	add $2,(sp)
1225	mov R+,*(sp)+
1226
1227	/ field = ...
1228	ci16:
1229	%a,a
1230	bicB1 Z,A1'
1231	bisB1 A2,A1''
1232
1233	%a,n
1234	S
1235	bicB1 Z,A1'
1236	bisB1 R,A1''
1237
1238	%n*,a
1239	F*
1240	bicB1 Z,#1(R)
1241	bisB1 A2,#1(R)
1242
1243	%[fas1:]
1244	%e*,n
1245	S
1246	F1*
1247	bicB1 Z,#1(R1)
1248	bisB1 R,#1(R1)
1249
1250	%n*,e
1251	F*
1252	S1
1253	bicB1 Z,#1(R)
1254	bisB1 R1,#1(R)
1255
1256	%n*,n
1257	SS
1258	F*
1259	bicB1 Z,#1(R)
1260	bisB1 (sp)+,#1(R)
1261
1262	/
1263	/ c code tables-- set condition codes
1264	/
1265
1266	.globl _cctab
1267
1268	.data
1269	_cctab=.
1270	106.; cc60
1271	28.; rest
1272	55.; rest
1273	34.; rest
1274	35.; rest
1275	36.; rest
1276	37.; rest
1277	40.; rest
1278	41.; rest
1279	42.; rest
1280	43.; rest
1281	81.; cc81 / & as in "if ((a&b)==0)"
1282	48.; rest
1283	60.; cc60
1284	61.; cc60
1285	62.; cc60
1286	63.; cc60
1287	64.; cc60
1288	65.; cc60
1289	66.; cc60
1290	67.; cc60
1291	68.; cc60
1292	69.; cc60
1293	72.; rest
1294	73.; rest
1295	79.; rest
1296	0
1297	.text
1298
1299	/ relationals
1300	cc60:
1301	%a,z
1302	%ad,zf
1303	% [move1]
1304
1305	%af,z
1306	movof A1,R
1307
1308	%n*,z
1309	%nd*,zf
1310	% [move2]
1311
1312	%nf*,z
1313	F*
1314	movof #1(R),R
1315
1316	%n,z
1317	%nf,zf
1318	FC
1319
1320	%aw,aw
1321	%ab,ab
1322	% [move3]
1323
1324	%nw*,aw
1325	%nb*,ab
1326	% [move6]
1327
1328	%n,aw
1329	%nf,ad
1330	% [add1]
1331
1332	%nw,ew
1333	%nb,eb
1334	% [move7]
1335
1336	%nw*,e
1337	% [move8]
1338
1339	%n,ew*
1340	%nf,ed*
1341	% [add2]
1342
1343	%n,e
1344	%nf,ef
1345	% [add3]
1346
1347	%nw,nw
1348	%nb,nb
1349	% [move11]
1350
1351	%nw*,n
1352	% [move12]
1353
1354	%n,n
1355	%nf,nf
1356	% [add5]
1357
1358	%al,z
1359	tst A1
1360	X0
1361	tst A1+
1362	X1
1363
1364	%al,c
1365	%al,au
1366	tst A1
1367	X0
1368	cmp A1+,A2
1369	X1
1370
1371	%[lcmp1:]
1372	%al,al
1373	I A1,A2
1374	X0
1375	I A1+,A2+
1376	X1
1377
1378	%nl*,z
1379	F*
1380	tst #1(R)
1381	X0
1382	tst #1+2(R)
1383	X1
1384
1385	%nl*,c
1386	%nl*,au
1387	F*
1388	tst #1(R)
1389	X0
1390	cmp #1+2(R),A2
1391	X1
1392
1393	%[lcmp2:]
1394	%nl*,al
1395	F*
1396	I #1(R),A2
1397	X0
1398	I #1+2(R),A2+
1399	X1
1400
1401	%nl,z
1402	F
1403	tst R
1404	X0
1405	tst R+
1406	X1
1407
1408	%nl,c
1409	%nl,au
1410	F
1411	tst R
1412	X0
1413	cmp R+,A2
1414	X1
1415
1416	%[lcmp3:]
1417	%nl,al
1418	F
1419	I R,A2
1420	X0
1421	I R+,A2+
1422	X1
1423
1424	%[lcmp4:]
1425	%nl,el
1426	F*
1427	S1*
1428	I #1(R),#2(R1)
1429	X0
1430	I #1+2(R),#2+2(R1)
1431	X1
1432
1433	%[lcmp5:]
1434	%nl,el*
1435	F
1436	S1*
1437	I R,#2(R1)
1438	X0
1439	I R+,#2+2(R1)
1440	X1
1441
1442	%[lcmp6:]
1443	%nl,nl
1444	FS
1445	S
1446	mov R,-(sp)
1447	mov 4(sp),R
1448	mov (sp)+,2(sp)
1449	I (sp)+,(sp)+
1450	X0
1451	I R,R+
1452	X1
1453
1454	/ & as in "if ((a&b) ==0)"
1455	cc81:
1456	%a,a
1457	% [move3]
1458
1459	%n*,a
1460	% [move6]
1461
1462	%n,a
1463	% [add1]
1464
1465	%n,e
1466	% [add3]
1467
1468	%n,n
1469	% [add5]
1470
1471	%al,c
1472	%al,au
1473	/bit $0,A1
1474	/X0
1475	bit A2,A1+
1476	X1
1477
1478	%nl*,c
1479	%nl*,au
1480	F*
1481	/bit $0,#2(R)
1482	/X0
1483	bit A2,#2+2(R)
1484	X1
1485
1486	%al,al
1487	% [lcmp1]
1488
1489	%nl*,al
1490	% [lcmp2]
1491
1492	%nl,al
1493	% [lcmp3]
1494
1495	%nl,el
1496	% [lcmp4]
1497
1498	%nl,el*
1499	% [lcmp5]
1500
1501	%nl,nl
1502	% [lcmp6]
1503
1504	%nl,c
1505	%nl,au
1506	F
1507	/bit $0,R
1508	/X0
1509	bit A2,R+
1510	X1
1511
1512	/ set codes right
1513	rest:
1514	%n,n
1515	%nf,nf
1516	H
1517
1518	/
1519	/ c code tables-- expression to -(sp)
1520	/
1521
1522	.globl _sptab
1523
1524	.data
1525	_sptab=.
1526	106.; cs106
1527	40.; cs40
1528	41.; cs40
1529	55.; cs40
1530	48.; cs40
1531	58.; cs58
1532	56.; cs56
1533	0
1534	.text
1535
1536	/ name
1537	cs106:
1538	%z,n
1539	%zf,n
1540	clrB1 -(sp)
1541
1542	%aw,n
1543	mov A1,-(sp)
1544
1545	%nw*,n
1546	F*
1547	mov #1(R),-(sp)
1548
1549	%al,n
1550	mov A1+,-(sp)
1551	mov A1,-(sp)
1552
1553	/ +, -, \|, &~
1554	cs40:
1555	%a,1
1556	FS
1557	I' (sp)
1558
1559	%a,aw
1560	FS
1561	I A2,(sp)
1562
1563	%a,nw*
1564	FS
1565	S*
1566	I #2(R),(sp)
1567
1568	%a,n
1569	FS
1570	S
1571	I R,(sp)
1572
1573	/ integer to long
1574	cs58:
1575	%nu,n
1576	FS
1577	clr -(sp)
1578
1579	%n,n
1580	FS
1581	sxt -(sp)
1582
1583	/ float to long
1584	cs56:
1585	%nf,n
1586	F
1587	setl
1588	movfi R,-(sp)
1589	seti
1590
1591	/ setup for structure assign
1592	ci116:
1593	%n,e
1594	F!
1595	S1!
1596
1597	%n,n
1598	SS
1599	F!
1600	mov (sp)+,r1
1601