![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to pipe10.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 / macro4|
Return to pipe10.lst CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / macro4 |
1.1 ! root 1: 1 00000000 LL0: ! 2: 2 00000000 .data ! 3: 3 00000278 * .text ! 4: 4 00000000 .align 1 ! 5: 5 00000000 .globl _pipe_10 ! 6: 6 00000000 _pipe_10: ! 7: 7 0002CCDC 0000 .word L215 ! 8: 8 0002CCDE # #include "fpp_defs.h" ! 9: 9 0002CCDE # ! 10: 10 0002CCDE # ! 11: 11 0002CCDE # /***************************************************************************** ! 12: 12 0002CCDE # * ! 13: 13 0002CCDE # * PIPELINE TEST #10 ! 14: 14 0002CCDE # * ! 15: 15 0002CCDE # * LDF(op1), MULF(op2), STF op3, SUBF op3, STF ! 16: 16 0002CCDE # * ! 17: 17 0002CCDE # * -where the operands are the fmacro1 MULF data patterns. The SUBF operand ! 18: 18 0002CCDE # * is the stored result of the MULF. ! 19: 19 0002CCDE # * -If the 1st STF isn't completed before the SUBF data is fetched then we ! 20: 20 0002CCDE # * won't get a final accumulator of zero. ! 21: 21 0002CCDE # *****************************************************************************/ ! 22: 22 0002CCDE # pipe_10() ! 23: 23 0002CCDE # { ! 24: 24 0002CCDE 13 00ee jbr L217 ! 25: 25 0002CCE1 L218: ! 26: 26 0002CCE1 # asm(".globl _pipeline_10_t"); ! 27: 27 0002CCE1 .globl _pipeline_10_t ! 28: 28 0002CCE1 # asm("_pipeline_10_t:"); ! 29: 29 0002CCE1 _pipeline_10_t: ! 30: 30 0002CCE1 # if( (cycle == 1) && (prt_hdrs) ) /* print headers on 1st cycle */ ! 31: 31 0002CCE1 1d effffffff5 01 cmpl _cycle,$1 ! 32: 32 0002CCE8 21 15 jneq L219 ! 33: 33 0002CCEA 5d efffffffec tstl _prt_hdrs ! 34: 34 0002CCF0 31 0d jeql L219 ! 35: 35 0002CCF2 # writes(" PIPE_10"); ! 36: 36 0002CCF2 .data 1 ! 37: 37 00000278 * L221: ! 38: 38 00000278 * 20504950455F313000 .ascii " PIPE_10\0" ! 39: 39 00000281 * .text ! 40: 40 0002CCF2 dd 8f00000278 pushl $L221 ! 41: 41 0002CCF8 fe 08 efffffffdd callf $8,_writes ! 42: 42 0002CCFF # force_loop = FALSE; /* clear force_loop flag */ ! 43: 43 0002CCFF L219: ! 44: 44 0002CCFF 4d efffffffd7 clrl _force_loop ! 45: 45 0002CD05 # for( index = 0; index <= max_mulf_1_index; index++ ) ! 46: 46 0002CD05 4d efffffffd1 clrl _index ! 47: 47 0002CD0B L224: ! 48: 48 0002CD0B 1d efffffffcb efffffffc6 cmpl _index,_max_mulf_1_index ! 49: 49 0002CD16 51 03 13 00ad jgtr L223 ! 50: 50 0002CD1B # { ! 51: 51 0002CD1B # sgl_value_1 = mulf_1_data[index].op_1; /* get the data */ ! 52: 52 0002CD1B 5c 0c efffffffba 50 mull3 $12,_index,r0 ! 53: 53 0002CD23 0d e000000000 efffffffae movl _mulf_1_data(r0),_sgl_value_1 ! 54: 54 0002CD2E # sgl_value_2 = mulf_1_data[index].op_2; /* operands */ ! 55: 55 0002CD2E 5c 0c efffffffa7 50 mull3 $12,_index,r0 ! 56: 56 0002CD36 0d e000000004 efffffff9b movl _mulf_1_data+4(r0),_sgl_value_2 ! 57: 57 0002CD41 # sgl_expected = mulf_1_data[index].exp; ! 58: 58 0002CD41 5c 0c efffffff94 50 mull3 $12,_index,r0 ! 59: 59 0002CD49 0d e000000008 efffffff88 movl _mulf_1_data+8(r0),_sgl_expected ! 60: 60 0002CD54 # /* ! 61: 61 0002CD54 # * This is the start of the LOOP ON ERROR section ! 62: 62 0002CD54 # */ ! 63: 63 0002CD54 # asm("_pipe10_1_lp:"); ! 64: 64 0002CD54 _pipe10_1_lp: ! 65: 65 0002CD54 # asm("ldf _sgl_value_1"); /* get the 1st operand */ ! 66: 66 0002CD54 06 efffffff82 ldf _sgl_value_1 ! 67: 67 0002CD5A # asm("mulf _sgl_value_2"); /* multiply by the 2nd op. */ ! 68: 68 0002CD5A e6 efffffff7c mulf _sgl_value_2 ! 69: 69 0002CD60 # asm("stf _sgl_value_3"); /* save the MULF result */ ! 70: 70 0002CD60 26 efffffff76 stf _sgl_value_3 ! 71: 71 0002CD66 # asm("subf _sgl_value_3"); /* and subtract it again */ ! 72: 72 0002CD66 d6 efffffff70 subf _sgl_value_3 ! 73: 73 0002CD6C # asm("stf _sgl_st_acc"); /* save the final result */ ! 74: 74 0002CD6C 26 efffffff6a stf _sgl_st_acc ! 75: 75 0002CD72 # if( force_loop ) ! 76: 76 0002CD72 5d efffffff64 tstl _force_loop ! 77: 77 0002CD78 31 02 jeql L225 ! 78: 78 0002CD7A # asm("brb _pipe10_1_lp");; /* loop on the error */ ! 79: 79 0002CD7A 11 d8 brb _pipe10_1_lp ! 80: 80 0002CD7C L225: ! 81: 81 0002CD7C # /* ! 82: 82 0002CD7C # * Verify the results ! 83: 83 0002CD7C # */ ! 84: 84 0002CD7C # if( sgl_st_acc ) { /* the Acc s/b cleared */ ! 85: 85 0002CD7C 5d efffffff5a tstl _sgl_st_acc ! 86: 86 0002CD82 31 3b jeql L226 ! 87: 87 0002CD84 # errcnt++; /* bump the error count */ ! 88: 88 0002CD84 6d efffffff52 incl _errcnt ! 89: 89 0002CD8A # if ( prt_error ) ! 90: 90 0002CD8A 5d efffffff4c tstl _prt_error ! 91: 91 0002CD90 31 07 jeql L227 ! 92: 92 0002CD92 # pipe10_print(); /* print the error mesage */ ! 93: 93 0002CD92 fe 04 ef00000039 callf $4,_pipe10_print ! 94: 94 0002CD99 # if ( halt_flg ) ! 95: 95 0002CD99 L227: ! 96: 96 0002CD99 5d efffffff3d tstl _halt_flg ! 97: 97 0002CD9F 31 09 jeql L229 ! 98: 98 0002CDA1 # pipe10_halt( 1 ); /* halt on the error */ ! 99: 99 0002CDA1 dd 01 pushl $1 ! 100: 100 0002CDA3 fe 08 ef00000156 callf $8,_pipe10_halt ! 101: 101 0002CDAA # if ( loop_on_err ) { ! 102: 102 0002CDAA L229: ! 103: 103 0002CDAA 5d efffffff2c tstl _loop_on_err ! 104: 104 0002CDB0 31 0d jeql L231 ! 105: 105 0002CDB2 # force_loop = TRUE; ! 106: 106 0002CDB2 0d 01 efffffff23 movl $1,_force_loop ! 107: 107 0002CDB9 # asm("jmp _pipe10_1_lp");; ! 108: 108 0002CDB9 71 efffffff95 jmp _pipe10_1_lp ! 109: 109 0002CDBF # } ! 110: 110 0002CDBF # } ! 111: 111 0002CDBF L231: ! 112: 112 0002CDBF # } ! 113: 113 0002CDBF L226: ! 114: 114 0002CDBF L222: ! 115: 115 0002CDBF 6d efffffff17 incl _index ! 116: 116 0002CDC5 13 ff43 jbr L224 ! 117: 117 0002CDC8 L223: ! 118: 118 0002CDC8 # asm("jmp *return"); /* return to the test monitor */ ! 119: 119 0002CDC8 71 ffffffff0e jmp *return ! 120: 120 0002CDCE # } ! 121: 121 0002CDCE 40 ret#2 ! 122: 122 0002CDCF .set L215,0x0 ! 123: 123 0002CDCF L217: ! 124: 124 0002CDCF 13 ff0f jbr L218 ! 125: 125 0002CDD2 .data ! 126: 126 00000278 * .text ! 127: 127 0002CDD2 .align 1 ! 128: 128 0002CDD2 .globl _pipe10_print ! 129: 129 0002CDD2 _pipe10_print: ! 130: 130 0002CDD2 0000 .word L232 ! 131: 131 0002CDD4 # ! 132: 132 0002CDD4 # ! 133: 133 0002CDD4 # ! 134: 134 0002CDD4 # ! 135: 135 0002CDD4 # /* ! 136: 136 0002CDD4 # ************************************************************************** ! 137: 137 0002CDD4 # * ! 138: 138 0002CDD4 # * print an error message of the form ! 139: 139 0002CDD4 # * ! 140: 140 0002CDD4 # * cycle: xx Test xx, Error subtracting the stored data (op3), index = xx ! 141: 141 0002CDD4 # * test sequence = LDF(op1), MULF(op2), STF(op3), SUBF(op3), STF ! 142: 142 0002CDD4 # * operand 1 = xxxxxxxx, final Acc = xxxxxxxx, data index = dd ! 143: 143 0002CDD4 # * operand 2 = xxxxxxxx, expected Acc = xxxxxxxx ! 144: 144 0002CDD4 # * operand 3 = xxxxxxxx, expected op3 = xxxxxxxx ! 145: 145 0002CDD4 # **************************************************************************/ ! 146: 146 0002CDD4 # pipe10_print() ! 147: 147 0002CDD4 # { ! 148: 148 0002CDD4 13 0125 jbr L234 ! 149: 149 0002CDD7 L235: ! 150: 150 0002CDD7 # writes(" \n"); /* start a new print line */ ! 151: 151 0002CDD7 .data 1 ! 152: 152 00000281 * L236: ! 153: 153 00000281 * 200A00 .ascii " \12\0" ! 154: 154 00000284 * .text ! 155: 155 0002CDD7 dd 8f00000281 pushl $L236 ! 156: 156 0002CDDD fe 08 effffffef8 callf $8,_writes ! 157: 157 0002CDE4 # writes("cycle: "); ! 158: 158 0002CDE4 .data 1 ! 159: 159 00000284 * L237: ! 160: 160 00000284 * 6379636C653A2000 .ascii "cycle: \0" ! 161: 161 0000028c * .text ! 162: 162 0002CDE4 dd 8f00000284 pushl $L237 ! 163: 163 0002CDEA fe 08 effffffeeb callf $8,_writes ! 164: 164 0002CDF1 # writed( cycle ); ! 165: 165 0002CDF1 dd effffffee5 pushl _cycle ! 166: 166 0002CDF7 fe 08 effffffede callf $8,_writed ! 167: 167 0002CDFE # writes(" Test "); ! 168: 168 0002CDFE .data 1 ! 169: 169 0000028c * L239: ! 170: 170 0000028c * 2020546573742000 .ascii " Test \0" ! 171: 171 00000294 * .text ! 172: 172 0002CDFE dd 8f0000028c pushl $L239 ! 173: 173 0002CE04 fe 08 effffffed1 callf $8,_writes ! 174: 174 0002CE0B # writed( test_no ); ! 175: 175 0002CE0B dd effffffecb pushl _test_no ! 176: 176 0002CE11 fe 08 effffffec4 callf $8,_writed ! 177: 177 0002CE18 # writes(" (Pipe 10), error\n"); ! 178: 178 0002CE18 .data 1 ! 179: 179 00000294 * L240: ! 180: 180 00000294 * 2020202850697065203130292 .ascii " (Pipe 10), error\12\0" ! 181: C206572726F720A00 ! 182: 181 000002a9 * .text ! 183: 182 0002CE18 dd 8f00000294 pushl $L240 ! 184: 183 0002CE1E fe 08 effffffeb7 callf $8,_writes ! 185: 184 0002CE25 # writes(" LDF(op1), MULF(op2), STF(op3), SUBF(op3), STF\n"); ! 186: 185 0002CE25 .data 1 ! 187: 186 000002a9 * L241: ! 188: 187 000002a9 * 204C4446286F7031292C204D5 .ascii " LDF(op1), MULF(op2), STF(op3), SUBF(op3), STF\12\0" ! 189: 54C46286F7032292C20535446 ! 190: 286F7033292C2053554246286 ! 191: F7033292C205354460A00 ! 192: 188 000002d9 * .text ! 193: 189 0002CE25 dd 8f000002a9 pushl $L241 ! 194: 190 0002CE2B fe 08 effffffeaa callf $8,_writes ! 195: 191 0002CE32 # writes("operand 1 = "); ! 196: 192 0002CE32 .data 1 ! 197: 193 000002d9 * L242: ! 198: 194 000002d9 * 6F706572616E642031203D200 .ascii "operand 1 = \0" ! 199: 0 ! 200: 195 000002e6 * .text ! 201: 196 0002CE32 dd 8f000002d9 pushl $L242 ! 202: 197 0002CE38 fe 08 effffffe9d callf $8,_writes ! 203: 198 0002CE3F # write32h( sgl_value_1 ); ! 204: 199 0002CE3F dd effffffe97 pushl _sgl_value_1 ! 205: 200 0002CE45 fe 08 effffffe90 callf $8,_write32h ! 206: 201 0002CE4C # writes(", final Acc = "); ! 207: 202 0002CE4C .data 1 ! 208: 203 000002e6 * L244: ! 209: 204 000002e6 * 2C202020202066696E616C204 .ascii ", final Acc = \0" ! 210: 16363203D2000 ! 211: 205 000002f9 * .text ! 212: 206 0002CE4C dd 8f000002e6 pushl $L244 ! 213: 207 0002CE52 fe 08 effffffe83 callf $8,_writes ! 214: 208 0002CE59 # write32h( sgl_st_acc ); ! 215: 209 0002CE59 dd effffffe7d pushl _sgl_st_acc ! 216: 210 0002CE5F fe 08 effffffe76 callf $8,_write32h ! 217: 211 0002CE66 # writes(", data index = "); ! 218: 212 0002CE66 .data 1 ! 219: 213 000002f9 * L245: ! 220: 214 000002f9 * 2C2020206461746120696E646 .ascii ", data index = \0" ! 221: 578203D2000 ! 222: 215 0000030b * .text ! 223: 216 0002CE66 dd 8f000002f9 pushl $L245 ! 224: 217 0002CE6C fe 08 effffffe69 callf $8,_writes ! 225: 218 0002CE73 # writed( index ); ! 226: 219 0002CE73 dd effffffe63 pushl _index ! 227: 220 0002CE79 fe 08 effffffe5c callf $8,_writed ! 228: 221 0002CE80 # writec('\n'); ! 229: 222 0002CE80 dd 0a pushl $10 ! 230: 223 0002CE82 fe 08 effffffe53 callf $8,_writec ! 231: 224 0002CE89 # writes("operand 2 = "); ! 232: 225 0002CE89 .data 1 ! 233: 226 0000030b * L247: ! 234: 227 0000030b * 6F706572616E642032203D200 .ascii "operand 2 = \0" ! 235: 0 ! 236: 228 00000318 * .text ! 237: 229 0002CE89 dd 8f0000030b pushl $L247 ! 238: 230 0002CE8F fe 08 effffffe46 callf $8,_writes ! 239: 231 0002CE96 # write32h( sgl_value_2 ); ! 240: 232 0002CE96 dd effffffe40 pushl _sgl_value_2 ! 241: 233 0002CE9C fe 08 effffffe39 callf $8,_write32h ! 242: 234 0002CEA3 # writes(", expected Acc = "); ! 243: 235 0002CEA3 .data 1 ! 244: 236 00000318 * L248: ! 245: 237 00000318 * 2C20206578706563746564204 .ascii ", expected Acc = \0" ! 246: 16363203D2000 ! 247: 238 0000032b * .text ! 248: 239 0002CEA3 dd 8f00000318 pushl $L248 ! 249: 240 0002CEA9 fe 08 effffffe2c callf $8,_writes ! 250: 241 0002CEB0 # write32h( 0 ); ! 251: 242 0002CEB0 dd 00 pushl $0 ! 252: 243 0002CEB2 fe 08 effffffe23 callf $8,_write32h ! 253: 244 0002CEB9 # writec('\n'); ! 254: 245 0002CEB9 dd 0a pushl $10 ! 255: 246 0002CEBB fe 08 effffffe1a callf $8,_writec ! 256: 247 0002CEC2 # writes("operand 3 = "); ! 257: 248 0002CEC2 .data 1 ! 258: 249 0000032b * L249: ! 259: 250 0000032b * 6F706572616E642033203D200 .ascii "operand 3 = \0" ! 260: 0 ! 261: 251 00000338 * .text ! 262: 252 0002CEC2 dd 8f0000032b pushl $L249 ! 263: 253 0002CEC8 fe 08 effffffe0d callf $8,_writes ! 264: 254 0002CECF # write32h( sgl_value_3 ); ! 265: 255 0002CECF dd effffffe07 pushl _sgl_value_3 ! 266: 256 0002CED5 fe 08 effffffe00 callf $8,_write32h ! 267: 257 0002CEDC # writes(", expected op3 = "); ! 268: 258 0002CEDC .data 1 ! 269: 259 00000338 * L250: ! 270: 260 00000338 * 2C20206578706563746564206 .ascii ", expected op3 = \0" ! 271: F7033203D2000 ! 272: 261 0000034b * .text ! 273: 262 0002CEDC dd 8f00000338 pushl $L250 ! 274: 263 0002CEE2 fe 08 effffffdf3 callf $8,_writes ! 275: 264 0002CEE9 # write32h( 0 ); ! 276: 265 0002CEE9 dd 00 pushl $0 ! 277: 266 0002CEEB fe 08 effffffdea callf $8,_write32h ! 278: 267 0002CEF2 # writec('\n'); ! 279: 268 0002CEF2 dd 0a pushl $10 ! 280: 269 0002CEF4 fe 08 effffffde1 callf $8,_writec ! 281: 270 0002CEFB # } ! 282: 271 0002CEFB 40 ret#2 ! 283: 272 0002CEFC .set L232,0x0 ! 284: 273 0002CEFC L234: ! 285: 274 0002CEFC 13 fed8 jbr L235 ! 286: 275 0002CEFF .data ! 287: 276 00000278 * .text ! 288: 277 0002CEFF 00 .align 1 ! 289: 278 0002CF00 .globl _pipe10_halt ! 290: 279 0002CF00 _pipe10_halt: ! 291: 280 0002CF00 0000 .word L251 ! 292: 281 0002CF02 # ! 293: 282 0002CF02 # ! 294: 283 0002CF02 # ! 295: 284 0002CF02 # /* ! 296: 285 0002CF02 # ************************************************************************** ! 297: 286 0002CF02 # * ! 298: 287 0002CF02 # * HALT ON AN ERROR ! 299: 288 0002CF02 # * ! 300: 289 0002CF02 # ************************************************************************** ! 301: 290 0002CF02 # */ ! 302: 291 0002CF02 # pipe10_halt() ! 303: 292 0002CF02 # { ! 304: 293 0002CF02 11 4d jbr L253 ! 305: 294 0002CF04 L254: ! 306: 295 0002CF04 # sgl_value_4 = 0; ! 307: 296 0002CF04 4d effffffdd2 clrl _sgl_value_4 ! 308: 297 0002CF0A # asm("movl _test_no,r0"); /* r0 = test number */ ! 309: 298 0002CF0A 0d effffffdcc 50 movl _test_no,r0 ! 310: 299 0002CF11 # asm("movl $1,r1"); /* r1 = subtest number */ ! 311: 300 0002CF11 0d 01 51 movl $1,r1 ! 312: 301 0002CF14 # asm("movl $1,r2"); /* r2 = error code */ ! 313: 302 0002CF14 0d 01 52 movl $1,r2 ! 314: 303 0002CF17 # asm("movl _cycle,r3"); /* r3 = cycle count */ ! 315: 304 0002CF17 0d effffffdbf 53 movl _cycle,r3 ! 316: 305 0002CF1E # asm("movl _sgl_value_1,r4"); /* r4 = sgl operand #1 */ ! 317: 306 0002CF1E 0d effffffdb8 54 movl _sgl_value_1,r4 ! 318: 307 0002CF25 # asm("movl _sgl_value_2,r5"); /* r5 = sgl operand #2 */ ! 319: 308 0002CF25 0d effffffdb1 55 movl _sgl_value_2,r5 ! 320: 309 0002CF2C # asm("movl _sgl_value_3,r6"); /* r6 = sgl operand #3 */ ! 321: 310 0002CF2C 0d effffffdaa 56 movl _sgl_value_3,r6 ! 322: 311 0002CF33 # asm("movl _sgl_st_acc,r7"); /* r7 = sgl stored */ ! 323: 312 0002CF33 0d effffffda3 57 movl _sgl_st_acc,r7 ! 324: 313 0002CF3A # asm("movl _sgl_expected,r8"); /* r8 = sgl expected */ ! 325: 314 0002CF3A 0d effffffd9c 58 movl _sgl_expected,r8 ! 326: 315 0002CF41 # asm("movl _sgl_value_4,r9"); /* r9 = op3 expected */ ! 327: 316 0002CF41 0d effffffd95 59 movl _sgl_value_4,r9 ! 328: 317 0002CF48 # asm("movl _index,r10"); /* r10 = data index */ ! 329: 318 0002CF48 0d effffffd8e 5a movl _index,r10 ! 330: 319 0002CF4F # asm("halt"); /* HALT ... */ ! 331: 320 0002CF4F 00 halt ! 332: 321 0002CF50 # } ! 333: 322 0002CF50 40 ret#2 ! 334: 323 0002CF51 .set L251,0x0 ! 335: 324 0002CF51 L253: ! 336: 325 0002CF51 11 b1 jbr L254 ! 337: 326 0002CF53 .data ! 338: 326 00059C2F .data
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.