earlyc/cctab.s at main · bcd/earlyc · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
/ c code tables-- set condition codes

.globl	_cctab

.data
_cctab=.
	106.;	cc60
	28.;	rest
	34.;	rest
	35.;	rest
	36.;	rest
	37.;	rest
	40.;	rest
	41.;	rest
	42.;	rest
	43.;	rest
	45.;	rest
	46.;	rest
	47.;	cc47
	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
	tstB1	A1

%af,z
	movof	A1,R

%n*,z
%nd*,zf
	F*
	tstB1	#1(R)

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

%n,z
%nf,zf
	FC

%aw,aw
%ab,ab
	cmpBE	A1,A2

%nw*,aw
%nb*,ab
	F*
	cmpBE	#1(R),A2

%n,aw
%nf,ad
	F
	V
	cmpB2	A2,R

%nw*,ew*
%nb*,eb*
	F*
	S1*
	cmpBE	#1(R),#2(R1)

%nw*,e
%nd*,ef
	F*
	S1
	cmpB1	#1(R),R1

%n,ew*
%nf,ed*
	F
	S1*
	V
	cmpB2	#2(R1),R

%n,e
%nf,ef
	F
	S1
	cmpBF	R,R1

%nw*,nw*
%nb*,nb*
	FS*
	S*
	cmpBE	*(sp)+,#2(R)

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

%n,nw*
	FS
	S*
	cmp	(sp)+,#2(R)

%n,n
%nf,nf
	SS
	F
	V
	cmpBF	(sp)+,R

/ & as in "if ((a&b) ==0)"
cc47:
%a,a
	bitBE	A2,A1

%n*,a
	F*
	bitBE	A2,#1(R)

%n,a
	F
	bitB2	A2,R

%n,e
	F
	S1
	bit	R1,R

%n,n
	FS
	S
	bit	(sp)+,R

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

.data
.even
.text