![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to pipe_test.lst CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / fpevent|
Return to pipe_test.lst CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / fpevent |
1.1 root 1: 1 00000000 LL0:
2: 2 00000000 .data
3: 3 00000158 * .text
4: 4 00000000 .align 1
5: 5 00000000 .globl _pipeline_test
6: 6 00000000 _pipeline_test:
7: 7 0000F1F4 0000 .word L381
8: 8 0000F1F6 #
9: 9 0000F1F6 # #include "evt_defs.h"
10: 10 0000F1F6 #
11: 11 0000F1F6 #
12: 12 0000F1F6 # /*
13: 13 0000F1F6 # ********************************************************************
14: 14 0000F1F6 # *
15: 15 0000F1F6 # * MONITOR FOR THE FPP PIPELINED EVENTS TEST
16: 16 0000F1F6 # *
17: 17 0000F1F6 # * If evt_inst is non-zero, run the test that it specifies, otherwise
18: 18 0000F1F6 # * run all of the pipelined tests. If the print headers option is
19: 19 0000F1F6 # * set then print the names of the tests as they are run:
20: 20 0000F1F6 # * Piped Events Tests: pipe1 pipd2 pipe3 pipe4 pipe5 pipe6 pipe7 pipe8
21: 21 0000F1F6 # * pipe9 pipd10 pipe11 pipe12 pipe13 pipe14 pipe15
22: 22 0000F1F6 # ********************************************************************
23: 23 0000F1F6 # */
24: 24 0000F1F6 # pipeline_test()
25: 25 0000F1F6 # {
26: 26 0000F1F6 13 014f jbr L383
27: 27 0000F1F9 L384:
28: 28 0000F1F9 # if( evt_inst ) { /* was the test specified? */
29: 29 0000F1F9 5d effffffff5 tstl _evt_inst
30: 30 0000F1FF 21 03 13 00b4 jeql L385
31: 31 0000F204 # inst_index = evt_inst - 1; /* get '0' based subtest # */
32: 32 0000F204 3c 01 efffffffe9 50 subl3 $1,_evt_inst,r0
33: 33 0000F20C 0d 50 efffffffe1 movl r0,_inst_index
34: 34 0000F213 # subtest = evt_inst; /* get '1' based subtest # */
35: 35 0000F213 0d efffffffdb efffffffd6 movl _evt_inst,_subtest
36: 36 0000F21E # if( (inst_index < 0) || (inst_index >= no_pipe_tests) ) {
37: 37 0000F21E 5d efffffffd0 tstl _inst_index
38: 38 0000F224 91 0d jlss L9999
39: 39 0000F226 1d efffffffc8 efffffffc3 cmpl _inst_index,_no_pipe_tests
40: 40 0000F231 91 3d jlss L386
41: 41 0000F233 L9999:
42: 42 0000F233 # if( (prt_hdrs) && (cycle == 1) ) { /* not a valid instr */
43: 43 0000F233 5d efffffffbb tstl _prt_hdrs
44: 44 0000F239 31 33 jeql L387
45: 45 0000F23B 1d efffffffb3 01 cmpl _cycle,$1
46: 46 0000F242 21 2a jneq L387
47: 47 0000F244 # writes("There is no pipeline test #");
48: 48 0000F244 .data 1
49: 49 00000158 * L389:
50: 50 00000158 * 5468657265206973206E6F207 .ascii "There is no pipeline test #\0"
51: 06970656C696E652074657374
52: 202300
53: 51 00000174 * .text
54: 52 0000F244 dd 8f00000158 pushl $L389
55: 53 0000F24A fe 08 efffffffa3 callf $8,_writes
56: 54 0000F251 # writed( evt_inst );
57: 55 0000F251 dd efffffff9d pushl _evt_inst
58: 56 0000F257 fe 08 efffffff96 callf $8,_writed
59: 57 0000F25E # writec('\n');
60: 58 0000F25E dd 0a pushl $10
61: 59 0000F260 fe 08 efffffff8d callf $8,_writec
62: 60 0000F267 # error = TRUE; /* needed for line feed control */
63: 61 0000F267 0d 01 efffffff86 movl $1,_error
64: 62 0000F26E # }
65: 63 0000F26E # } else {
66: 64 0000F26E L387:
67: 65 0000F26E 11 45 jbr L392
68: 66 0000F270 L386:
69: 67 0000F270 # valid_test = TRUE; /* a test is being run */
70: 68 0000F270 0d 01 efffffff7d movl $1,_valid_test
71: 69 0000F277 # if( (prt_hdrs) && (cycle == 1) )
72: 70 0000F277 5d efffffff77 tstl _prt_hdrs
73: 71 0000F27D 31 21 jeql L393
74: 72 0000F27F 1d efffffff6f 01 cmpl _cycle,$1
75: 73 0000F286 21 18 jneq L393
76: 74 0000F288 # writes( pipe_test_tbl[inst_index].name );
77: 75 0000F288 0d efffffff66 50 movl _inst_index,r0
78: 76 0000F28F 48 03 50 50 shll $3,r0,r0
79: 77 0000F293 dd e000000004 pushl _pipe_test_tbl+4(r0)
80: 78 0000F299 fe 08 efffffff54 callf $8,_writes
81: 79 0000F2A0 # (*pipe_test_tbl[inst_index].test)(); /* run the test */
82: 80 0000F2A0 L393:
83: 81 0000F2A0 0d efffffff4e 50 movl _inst_index,r0
84: 82 0000F2A7 48 03 50 50 shll $3,r0,r0
85: 83 0000F2AB 0d e000000000 50 movl _pipe_test_tbl(r0),r0
86: 84 0000F2B2 bf 04 60 calls $4,(r0)
87: 85 0000F2B5 # }
88: 86 0000F2B5 L392:
89: 87 0000F2B5 # } else /* the test # wasn't specfied */
90: 88 0000F2B5 13 008f jbr L394
91: 89 0000F2B8 L385:
92: 90 0000F2B8 # for(inst_index=0; inst_index < no_pipe_tests; inst_index++) {
93: 91 0000F2B8 4d efffffff36 clrl _inst_index
94: 92 0000F2BE L397:
95: 93 0000F2BE 1d efffffff30 efffffff2b cmpl _inst_index,_no_pipe_tests
96: 94 0000F2C9 81 7c jgeq L396
97: 95 0000F2CB # if( (prt_hdrs) && (cycle == 1) ) {
98: 96 0000F2CB 5d efffffff23 tstl _prt_hdrs
99: 97 0000F2D1 31 40 jeql L398
100: 98 0000F2D3 1d efffffff1b 01 cmpl _cycle,$1
101: 99 0000F2DA 21 37 jneq L398
102: 100 0000F2DC # if( (inst_index == 8) ||
103: 101 0000F2DC # (inst_index == 16) )
104: 102 0000F2DC 1d efffffff12 08 cmpl _inst_index,$8
105: 103 0000F2E3 31 09 jeql L9998
106: 104 0000F2E5 1d efffffff09 10 cmpl _inst_index,$16
107: 105 0000F2EC 21 0d jneq L399
108: 106 0000F2EE L9998:
109: 107 0000F2EE # writes("\n ");
110: 108 0000F2EE .data 1
111: 109 00000174 * L400:
112: 110 00000174 * 0A20202020202020202020202 .ascii "\12 \0"
113: 0202020202020202020202000
114: 111 0000018d * .text
115: 112 0000F2EE dd 8f00000174 pushl $L400
116: 113 0000F2F4 fe 08 effffffef9 callf $8,_writes
117: 114 0000F2FB # writes( pipe_test_tbl[inst_index].name );
118: 115 0000F2FB L399:
119: 116 0000F2FB 0d effffffef3 50 movl _inst_index,r0
120: 117 0000F302 48 03 50 50 shll $3,r0,r0
121: 118 0000F306 dd e000000004 pushl _pipe_test_tbl+4(r0)
122: 119 0000F30C fe 08 effffffee1 callf $8,_writes
123: 120 0000F313 # }
124: 121 0000F313 # valid_test = TRUE; /* a test is being run */
125: 122 0000F313 L398:
126: 123 0000F313 0d 01 effffffeda movl $1,_valid_test
127: 124 0000F31A # subtest = inst_index+1; /* get '1' based subtest # */
128: 125 0000F31A 1c 01 effffffed3 50 addl3 $1,_inst_index,r0
129: 126 0000F322 0d 50 effffffecb movl r0,_subtest
130: 127 0000F329 # (*pipe_test_tbl[inst_index].test)(); /* run the test */
131: 128 0000F329 0d effffffec5 50 movl _inst_index,r0
132: 129 0000F330 48 03 50 50 shll $3,r0,r0
133: 130 0000F334 0d e000000000 50 movl _pipe_test_tbl(r0),r0
134: 131 0000F33B bf 04 60 calls $4,(r0)
135: 132 0000F33E # }
136: 133 0000F33E L395:
137: 134 0000F33E 6d effffffeb0 incl _inst_index
138: 135 0000F344 13 ff77 jbr L397
139: 136 0000F347 L396:
140: 137 0000F347 L394:
141: 138 0000F347 # }
142: 139 0000F347 40 ret#2
143: 140 0000F348 .set L381,0x0
144: 141 0000F348 L383:
145: 142 0000F348 13 feae jbr L384
146: 143 0000F34B .data
147: 144 00000158 * #
148: 144 00000158 * #
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.