[unix-history] / px / 02rel.s

/
/ RELATIONAL OPERATORS
/
_REL2:
	mov	(sp)+,r0
	cmp	(sp)+,r0
	jmp	*reltab(r3)
_REL42:
	mov	(sp)+,r0
	mov	(sp)+,r1
	tst	(sp)
	sxt	r2
	br	2f
_REL24:
	mov	(sp)+,r1
	sxt	r0
	br	1f
_REL4:
	mov	(sp)+,r0
	mov	(sp)+,r1
1:
	mov	(sp)+,r2
2:
	cmp	r2,r0
	bne	1f
	cmp	(sp)+,r1
	bhi	3f
	beq	2f
	tst	$-1
2:
	jmp	*reltab(r3)
3:
	tst	$1
	jmp	*reltab(r3)
1:
	tst	(sp)+
	cmp	r2,r0
	jmp	*reltab(r3)
_REL28:
	tst	(sp)
	sxt	-(sp)
_REL48:
	movif	(sp)+,fr0
	cmpf	(sp)+,fr0
	cfcc
	jmp	*reltab(r3)
_REL82:
	movf	(sp)+,fr0
	tst	(sp)
	sxt	-(sp)
	br	1f
_REL84:
	movf	(sp)+,fr0
1:
	movif	(sp)+,fr2
	cmpf	fr2,fr0
	cfcc
	jmp	*reltab(r3)
_REL8:
	movf	(sp)+,fr0
	cmpf	(sp)+,fr0
	cfcc
	jmp	*reltab(r3)
_RELG:
	mov	sp,r0
	mov	(lc),r2
	inc	r2
	bic	$1,r2
	add	r2,sp
	mov	sp,r1
	add	r2,sp
	mov	(lc)+,r2
1:
	cmpb	(r1)+,(r0)+
	bne	1f
	sob	r2,1b
	tst	$0
1:
	jmp	*reltab(r3)
.data
reltab:
	releq
	relne
	rellt
	relgt
	relle
	relge
	ifeq
	ifne
	iflt
	ifgt
	ifle
	ifge
.text
releq:
	beq	true
	clr	-(sp)
	return
relne:
	bne	true
	clr	-(sp)
	return
rellt:
	blt	true
	clr	-(sp)
	return
relgt:
	bgt	true
	clr	-(sp)
	return
relle:
	ble	true
	clr	-(sp)
	return
relge:
	bge	true
	clr	-(sp)
	return
true:
	mov	$1,-(sp)
	return
false:
	clr	-(sp)
	return
ifeq:
	bne	iftra
	tst	(lc)+
	return
ifne:
	beq	iftra
	tst	(lc)+
	return
iflt:
	bge	iftra
	tst	(lc)+
	return
ifgt:
	ble	iftra
	tst	(lc)+
	return
ifle:
	bgt	iftra
	tst	(lc)+
	return
ifge:
	blt	iftra
	tst	(lc)+
	return
iftra:
	add	(lc),lc
	return
Commit	Line	Data
4e754410 BJ	1	/
	2	/ RELATIONAL OPERATORS
	3	/
	4	_REL2:
	5	mov (sp)+,r0
	6	cmp (sp)+,r0
	7	jmp *reltab(r3)
	8	_REL42:
	9	mov (sp)+,r0
	10	mov (sp)+,r1
	11	tst (sp)
	12	sxt r2
	13	br 2f
	14	_REL24:
	15	mov (sp)+,r1
	16	sxt r0
	17	br 1f
	18	_REL4:
	19	mov (sp)+,r0
	20	mov (sp)+,r1
	21	1:
	22	mov (sp)+,r2
	23	2:
	24	cmp r2,r0
	25	bne 1f
	26	cmp (sp)+,r1
	27	bhi 3f
	28	beq 2f
	29	tst $-1
	30	2:
	31	jmp *reltab(r3)
	32	3:
	33	tst $1
	34	jmp *reltab(r3)
	35	1:
	36	tst (sp)+
	37	cmp r2,r0
	38	jmp *reltab(r3)
	39	_REL28:
	40	tst (sp)
	41	sxt -(sp)
	42	_REL48:
	43	movif (sp)+,fr0
	44	cmpf (sp)+,fr0
	45	cfcc
	46	jmp *reltab(r3)
	47	_REL82:
	48	movf (sp)+,fr0
	49	tst (sp)
	50	sxt -(sp)
	51	br 1f
	52	_REL84:
	53	movf (sp)+,fr0
	54	1:
	55	movif (sp)+,fr2
	56	cmpf fr2,fr0
	57	cfcc
	58	jmp *reltab(r3)
	59	_REL8:
	60	movf (sp)+,fr0
	61	cmpf (sp)+,fr0
	62	cfcc
	63	jmp *reltab(r3)
	64	_RELG:
65	mov sp,r0
66	mov (lc),r2
67	inc r2
68	bic $1,r2
69	add r2,sp
70	mov sp,r1
71	add r2,sp
72	mov (lc)+,r2
73	1:
74	cmpb (r1)+,(r0)+
75	bne 1f
76	sob r2,1b
77	tst $0
78	1:
79	jmp *reltab(r3)
80	.data
81	reltab:
82	releq
83	relne
84	rellt
85	relgt
86	relle
87	relge
88	ifeq
89	ifne
90	iflt
91	ifgt
92	ifle
93	ifge
94	.text
95	releq:
96	beq true
97	clr -(sp)
98	return
99	relne:
100	bne true
101	clr -(sp)
102	return
103	rellt:
104	blt true
105	clr -(sp)
106	return
107	relgt:
108	bgt true
109	clr -(sp)
110	return
111	relle:
112	ble true
113	clr -(sp)
114	return
115	relge:
116	bge true
117	clr -(sp)
118	return
119	true:
120	mov $1,-(sp)
121	return
122	false:
123	clr -(sp)
124	return
125	ifeq:
126	bne iftra
127	tst (lc)+
128	return
129	ifne:
130	beq iftra
131	tst (lc)+
132	return
133	iflt:
134	bge iftra
135	tst (lc)+
136	return
137	ifgt:
138	ble iftra
139	tst (lc)+
140	return
141	ifle:
142	bgt iftra
143	tst (lc)+
144	return
145	ifge:
146	blt iftra
147	tst (lc)+
148	return
149	iftra:
150	add (lc),lc
151	return