summaryrefslogtreecommitdiff
path: root/ext/systemc/src/sysc/qt/md/mips_b.s
blob: 5b3740843064a67f15ad78ce91f9e3e643ddd6b8 (plain)
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
/*
 * QuickThreads -- Threads-building toolkit.
 * Copyright (c) 1993 by David Keppel
 *
 * Permission to use, copy, modify and distribute this software and
 * its documentation for any purpose and without fee is hereby
 * granted, provided that the above copyright notice and this notice
 * appear in all copies.  This software is provided as a
 * proof-of-concept and for demonstration purposes; there is no
 * representation about the suitability of this software for any
 * purpose.
 */

	.globl b_call_reg
	.globl b_call_imm
	.globl b_add
	.globl b_load

	.ent b_null
b_null:
	j $31
	.end b_null

	.ent b_call_reg
b_call_reg:
	la $5,b_null
	add $6, $31,0
$L0:
	jal $5
	jal $5
	jal $5
	jal $5
	jal $5

	sub $4, $4,5
	bgtz $4,$L0
	j $6
	.end


	.ent b_call_imm
b_call_imm:
	add $6, $31,0
$L1:
	jal b_null
	jal b_null
	jal b_null
	jal b_null
	jal b_null

	sub $4, $4,5
	bgtz $4,$L1
	j $6
	.end


	.ent b_add
b_add:
	add $5, $0,$4
	add $6, $0,$4
	add $7, $0,$4
	add $8, $0,$4
$L2:
	sub $4, $4,5
	sub $5, $5,5
	sub $6, $6,5
	sub $7, $7,5
	sub $8, $8,5

	sub $4, $4,5
	sub $5, $5,5
	sub $6, $6,5
	sub $7, $7,5
	sub $8, $8,5

	bgtz $4,$L2
	j $31
	.end


	.ent b_load
b_load:
$L3:
	ld $0, 0($sp)
	ld $0, 4($sp)
	ld $0, 8($sp)
	ld $0, 12($sp)
	ld $0, 16($sp)

	ld $0, 20($sp)
	ld $0, 24($sp)
	ld $0, 28($sp)
	ld $0, 32($sp)
	ld $0, 36($sp)

	sub $4, $4,10
	bgtz $4,$L3
	j $31
	.end