![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to cmp_w.s 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 / entry|
Return to cmp_w.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry |
1.1 ! root 1: ! 2: ! 3: /* CMPW (compare word) test */ ! 4: /* */ ! 5: /*Test name = cmpw */ ! 6: /*Description = */ ! 7: /* This test checks 'cmpw' instruction as follows: */ ! 8: /* src1 src2 N Z V C (flags) */ ! 9: /* ____ ____ _______________ */ ! 10: /* + = + 0 1 0 1 */ ! 11: /* - = - 0 1 0 1 */ ! 12: /* + > + 1 0 0 0 */ ! 13: /* - < - 1 0 0 0 */ ! 14: /* - = + 1 0 0 1 */ ! 15: /* - > + 1 0 0 1 */ ! 16: /* - < + 1 0 0 1 */ ! 17: /* + < - 0 0 0 0 */ ! 18: /* + = - 0 0 0 0 */ ! 19: /* + > - 0 0 0 0 */ ! 20: /* - > - 0 0 0 1 */ ! 21: /* + > + 0 0 0 1 */ ! 22: /* M ---- M ------- */ ! 23: /* R ---- M ------- */ ! 24: /* */ ! 25: /* */ ! 26: /* */ ! 27: ! 28: /* */ ! 29: /* constants definition for 'cmpx' tests. */ ! 30: /* */ ! 31: ! 32: .set SRC1B1,0x7f /*+127, highest +ve number, byte */ ! 33: .set SRC1W1,0x7fff ! 34: .set SRC1L1,0x7fffffff ! 35: .set SRC2B1,0x5555557f ! 36: .set SRC2W1,0x55557fff ! 37: .set SRC2L1,SRC1L1 ! 38: .set SRC1B2,0xff /*-1, highest -ve number, byte */ ! 39: .set SRC1W2,0xffff ! 40: .set SRC1L2,0xffffffff ! 41: .set SRC2B2,SRC1B2 ! 42: .set SRC2W2,SRC1W2 ! 43: .set SRC2L2,SRC1L2 ! 44: .set SRC1B3,0x01 ! 45: .set SRC1W3,0X0001 ! 46: .set SRC1L3,0x00000001 ! 47: .set SRC2B3,0x02 ! 48: .set SRC2W3,0x0002 ! 49: .set SRC2L3,0x00000002 ! 50: .set SRC1B4,0xfe /*-2 */ ! 51: .set SRC1W4,0xfffe ! 52: .set SRC1L4,0xfffffffe ! 53: .set SRC2B4,0xff /*-1 */ ! 54: .set SRC2W4,0xffff ! 55: .set SRC2L4,0xffffffff ! 56: .set SRC1B5,0x81 /*-127 */ ! 57: .set SRC1W5,0x8001 ! 58: .set SRC1L5,0x80000001 ! 59: .set SRC2B5,0x7f /*+127 */ ! 60: .set SRC2W5,0x7fff ! 61: .set SRC2L5,0x7fffffff ! 62: .set SRC1B6,SRC1B4 /*-2 */ ! 63: .set SRC1W6,SRC1W4 ! 64: .set SRC1L6,SRC1L4 ! 65: .set SRC2B6,SRC1B3 /*+1 */ ! 66: .set SRC2W6,SRC1W3 ! 67: .set SRC2L6,SRC1L3 ! 68: .set SRC1B7,SRC2B4 /*-1 */ ! 69: .set SRC1W7,SRC2W4 ! 70: .set SRC1L7,SRC2L4 ! 71: .set SRC2B7,SRC2B3 ! 72: .set SRC2W7,SRC2W3 ! 73: .set SRC2L7,SRC2L3 ! 74: .set SRC1B8,SRC2B6 /*+1*/ ! 75: .set SRC1W8,SRC2W6 ! 76: .set SRC1L8,SRC2L6 ! 77: .set SRC2B8,SRC1B4 /*-2*/ ! 78: .set SRC2W8,SRC1W4 ! 79: .set SRC2L8,SRC1L4 ! 80: .set SRC1B9,SRC1B1 /*127*/ ! 81: .set SRC1W9,SRC1W1 ! 82: .set SRC1L9,SRC1L1 ! 83: .set SRC2B9,SRC1B5 /*-127*/ ! 84: .set SRC2W9,SRC1W5 ! 85: .set SRC2L9,SRC1L5 ! 86: .set SRC1B10,SRC2B3 /*2*/ ! 87: .set SRC1W10,SRC2W3 ! 88: .set SRC1L10,SRC2L3 ! 89: .set SRC2B10,SRC1B2 /*-1*/ ! 90: .set SRC2W10,SRC1W2 ! 91: .set SRC2L10,SRC1L2 ! 92: .set SRC1B11,SRC1B2 /*-1*/ ! 93: .set SRC1W11,SRC1W2 ! 94: .set SRC1L11,SRC1L2 ! 95: .set SRC2B11,SRC1B4 /*-2*/ ! 96: .set SRC2W11,SRC1W4 ! 97: .set SRC2L11,SRC1L4 ! 98: .set SRC1B12,SRC2B3 /*2*/ ! 99: .set SRC1W12,SRC2W3 ! 100: .set SRC1L12,SRC2L3 ! 101: .set SRC2B12,SRC1B3 /*1*/ ! 102: .set SRC2W12,SRC1W3 ! 103: .set SRC2L12,SRC1L3 ! 104: ! 105: /* */ ! 106: /* Syst.s - Constants */ ! 107: /* */ ! 108: .set IPL,8 ! 109: .set HIGH,31 ! 110: .set ZERO,0 ! 111: .set ONES,0xffffffff ! 112: .set N,8 ! 113: .set Z,4 ! 114: .set V,2 ! 115: .set C,1 ! 116: .set T,16 ! 117: .set IV,32 ! 118: .set FU,64 ! 119: .set DV,128 ! 120: .set PSWMASK,0x003f ! 121: /* */ ! 122: /* t1loc = M, t2loc = M */ ! 123: /* */ ! 124: .globl _cmp_w ! 125: _cmp_w: ! 126: callf $4,_setjmp /* save context for error return */ ! 127: movab _cmp_w,_stpc /* save subtest starting address */ ! 128: movl $1,_subtst /* subtest number */ ! 129: movl $2,_no_opr /* number of operands in use */ ! 130: movl $SRC1W1,_opr /* first operand */ ! 131: movl $SRC2W1,_opr + 4 /* second operand */ ! 132: 0: movl $SRC1W1,tloc1 /*tloc1 = source1 */ ! 133: movl $SRC2W1,tloc2 /*tloc2 = source2 */ ! 134: bicpsw $PSWMASK /*disable overflow & other enable bits */ ! 135: bispsw $(N|V|C) /*turn neg, overflow, & carry ON */ ! 136: cmpw tloc1+2,tloc2+2 /*execute compare memory to memory */ ! 137: bneq error1 /*error if Z = 0 */ ! 138: blss error1 /*error if N = 1 */ ! 139: bvs error1 /*error if V = 1 */ ! 140: bcc error1 /*error if C = 0 */ ! 141: jmp 1f ! 142: error1: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 143: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 144: movl $2,_ercode /* error code flag failure */ ! 145: jmp *badrtn ! 146: 1: bicpsw $Z /*clear Z flag */ ! 147: cmpl $SRC1W1,tloc1 /*check tloc1+2 & tlco2 unchanged */ ! 148: beql 1f /* no error then continue */ ! 149: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 150: movl $3,_ercode /* error code operand was changed */ ! 151: movl tloc1,_actual /* actual data */ ! 152: movl $SRC1W1,_expected /* expected data */ ! 153: jmp *badrtn ! 154: 1: bicpsw $Z ! 155: movl $SRC2W1,r4 ! 156: cmpl $SRC2W1,tloc2 ! 157: beql c2 /* no error then continue */ ! 158: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 159: movl $3,_ercode /* error code operand was changed */ ! 160: movl tloc1,_actual /* actual data */ ! 161: movl $SRC1W1,_expected /* expected data */ ! 162: jmp *badrtn ! 163: /* */ ! 164: /* different patterns for source1 & source2 */ ! 165: /* */ ! 166: c2: ! 167: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 168: ac2: callf $4,_setjmp /* save context for error return */ ! 169: movab ac2,_stpc /* save subtest starting address */ ! 170: movl $2,_subtst /* subtest number */ ! 171: movl $2,_no_opr /* number of operands in use */ ! 172: movl $SRC1W2,_opr /* first operand */ ! 173: movl $-1,_opr + 4 /* second operand */ ! 174: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */ ! 175: movl $SRC1W2,tloc1 /*tloc1 = source1 */ ! 176: bispsw $(N|V|C) /*turn neg, overflow, & carry ON */ ! 177: cmpw tloc1+2,$-1 /*execute compare memory to data */ ! 178: bneq error2 /*error if Z = 0 */ ! 179: blss error2 /*error if N = 1 */ ! 180: bvs error2 /*error if V = 1 */ ! 181: bcc error2 /*error if C = 0 */ ! 182: jmp cmpwnc ! 183: error2: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 184: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 185: movl $2,_ercode /* error code flag failure */ ! 186: jmp *badrtn ! 187: ! 188: cmpwnc: ! 189: ! 190: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 191: ac3: callf $4,_setjmp /* save context for error return */ ! 192: movab ac3,_stpc /* save subtest starting address */ ! 193: movl $3,_subtst /* subtest number */ ! 194: movl $2,_no_opr /* number of operands in use */ ! 195: movl $SRC1W3,_opr /* first operand */ ! 196: movl $SRC2W3,_opr + 4 /* second operand */ ! 197: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */ ! 198: movl $SRC2W3,tloc2 /*tloc2 = source2 */ ! 199: bispsw $(Z|V) /*turn overflow, & zero ON */ ! 200: cmpw $SRC1W3,tloc2+2 /*execute compare e data to mem */ ! 201: beql error3 /*error if Z = 1 */ ! 202: bgeq error3 /*error if N = 0 */ ! 203: bvs error3 /*error if V = 1 */ ! 204: bcs error3 /*error if C = 1 */ ! 205: jmp c4 ! 206: error3: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 207: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 208: movl $2,_ercode /* error code flag failure */ ! 209: jmp *badrtn ! 210: /* */ ! 211: /* different patterns for source1 & source2 */ ! 212: /* */ ! 213: c4: ! 214: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 215: ac4: callf $4,_setjmp /* save context for error return */ ! 216: movab ac4,_stpc /* save subtest starting address */ ! 217: movl $4,_subtst /* subtest number */ ! 218: movl $2,_no_opr /* number of operands in use */ ! 219: movl $SRC1W4,_opr /* first operand */ ! 220: movl $SRC2W4,_opr + 4 /* second operand */ ! 221: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */ ! 222: movl $SRC1W4,r3 /* r3 = source1 */ ! 223: movl $SRC2W4,r4 /* r4 = source2 */ ! 224: bispsw $(Z|V) /*turn overflow, & zero ON */ ! 225: cmpw r3,r4 /*execute compare reg to reg */ ! 226: beql error4 /*error if Z = 1 */ ! 227: bgeq error4 /*error if N = 0 */ ! 228: bvs error4 /*error if V = 1 */ ! 229: bcs error4 /*error if C = 1 */ ! 230: jmp cmpwn ! 231: error4: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 232: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 233: movl $2,_ercode /* error code flag failure */ ! 234: jmp *badrtn ! 235: ! 236: ! 237: cmpwn: ! 238: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 239: ac5: callf $4,_setjmp /* save context for error return */ ! 240: movab ac5,_stpc /* save subtest starting address */ ! 241: movl $5,_subtst /* subtest number */ ! 242: movl $2,_no_opr /* number of operands in use */ ! 243: movl $SRC1W5,_opr /* first operand */ ! 244: movl $SRC2W5,_opr + 4 /* second operand */ ! 245: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */ ! 246: movl $SRC2W5,r4 /*tloc2 = source2 */ ! 247: bispsw $(Z|V|C) /*turn zero, overflow, & carry ON */ ! 248: cmpw $SRC1W5,r4 /*execute compare data to reg */ ! 249: beql error5 /*error if Z = 1 */ ! 250: blss error5 /*error if N = 1 */ ! 251: bvs error5 /*error if V = 1 */ ! 252: bcc error5 /*error if C = 0 */ ! 253: jmp c6 ! 254: error5: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 255: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 256: movl $2,_ercode /* error code flag failure */ ! 257: jmp *badrtn ! 258: /* */ ! 259: /* different patterns for source1 & source2 */ ! 260: /* */ ! 261: c6: ! 262: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 263: ac6: callf $4,_setjmp /* save context for error return */ ! 264: movab ac6,_stpc /* save subtest starting address */ ! 265: movl $6,_subtst /* subtest number */ ! 266: movl $2,_no_opr /* number of operands in use */ ! 267: movl $SRC1W6,_opr /* first operand */ ! 268: movl $SRC2W6,_opr + 4 /* second operand */ ! 269: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */ ! 270: movl $SRC1W6,r3 /*tloc1 = source1 */ ! 271: movl $SRC2W6,tloc2 /*tloc2 = source2 */ ! 272: bispsw $(Z|V|C) /*turn zero, overflow, & carry ON */ ! 273: cmpw r3,tloc2+2 /*execute compare reg to memory */ ! 274: beql error6 /*error if Z = 1 */ ! 275: blss error6 /*error if N = 0 */ ! 276: bvs error6 /*error if V = 1 */ ! 277: bcc error6 /*error if C = 0 */ ! 278: jmp c7 ! 279: error6: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 280: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 281: movl $2,_ercode /* error code flag failure */ ! 282: jmp *badrtn ! 283: /* */ ! 284: /* different patterns for source1 & source2 */ ! 285: /* */ ! 286: c7: ! 287: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 288: ac7: callf $4,_setjmp /* save context for error return */ ! 289: movab ac7,_stpc /* save subtest starting address */ ! 290: movl $7,_subtst /* subtest number */ ! 291: movl $2,_no_opr /* number of operands in use */ ! 292: movl $SRC1W7,_opr /* first operand */ ! 293: movl $SRC2W7,_opr + 4 /* second operand */ ! 294: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */ ! 295: movl $SRC1W7,r3 /*tloc1 = source1 */ ! 296: bispsw $(Z|V|C) /*turn zero, overflow, & carry ON */ ! 297: cmpw r3,$SRC2W7 /*execute compare reg to data */ ! 298: beql error7 /*error if Z = 1 */ ! 299: blss error7 /*error if N = 0 */ ! 300: bvs error7 /*error if V = 1 */ ! 301: bcc error7 /*error if C = 0 */ ! 302: jmp cmpwc ! 303: error7: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 304: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 305: movl $2,_ercode /* error code flag failure */ ! 306: jmp *badrtn ! 307: ! 308: cmpwc: ! 309: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 310: ac8: callf $4,_setjmp /* save context for error return */ ! 311: movab ac8,_stpc /* save subtest starting address */ ! 312: movl $8,_subtst /* subtest number */ ! 313: movl $2,_no_opr /* number of operands in use */ ! 314: movl $SRC1W8,_opr /* first operand */ ! 315: movl $SRC2W8,_opr + 4 /* second operand */ ! 316: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */ ! 317: movl $SRC1W8,tloc1 /*tloc1 = source1 */ ! 318: movl $SRC2W8,tloc2 /*tloc2 = source2 */ ! 319: bispsw $(Z|V|N) /*turn zero, overflow, & neg ON */ ! 320: cmpw tloc1+2,tloc2+2 /*execute compare */ ! 321: beql error8 /*error if Z = 1 */ ! 322: blss error8 /*error if N = 1 */ ! 323: bvs error8 /*error if V = 1 */ ! 324: bcs error8 /*error if C = 1 */ ! 325: jmp c9 ! 326: error8: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 327: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 328: movl $2,_ercode /* error code flag failure */ ! 329: jmp *badrtn ! 330: /* */ ! 331: /* different patterns for source1 & source2 */ ! 332: /* */ ! 333: c9: ! 334: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 335: ac9: callf $4,_setjmp /* save context for error return */ ! 336: movab ac9,_stpc /* save subtest starting address */ ! 337: movl $9,_subtst /* subtest number */ ! 338: movl $2,_no_opr /* number of operands in use */ ! 339: movl $SRC1W9,_opr /* first operand */ ! 340: movl $SRC2W9,_opr + 4 /* second operand */ ! 341: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */ ! 342: movl $SRC1W9,tloc1 /*tloc1 = source1 */ ! 343: movl $SRC2W9,tloc2 /*tloc2 = source2 */ ! 344: bispsw $(Z|V|N) /*turn zero, overflow, & neg ON */ ! 345: cmpw tloc1+2,tloc2+2 /*execute compare */ ! 346: beql error9 /*error if Z = 1 */ ! 347: blss error9 /*error if N = 1 */ ! 348: bvs error9 /*error if V = 1 */ ! 349: bcs error9 /*error if C = 1 */ ! 350: jmp c10 ! 351: error9: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 352: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 353: movl $2,_ercode /* error code flag failure */ ! 354: jmp *badrtn ! 355: /* */ ! 356: /* different patterns for source1 & source2 */ ! 357: /* */ ! 358: c10: ! 359: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 360: ac10: callf $4,_setjmp /* save context for error return */ ! 361: movab ac10,_stpc /* save subtest starting address */ ! 362: movl $0xa,_subtst /* subtest number */ ! 363: movl $2,_no_opr /* number of operands in use */ ! 364: movl $SRC1W10,_opr /* first operand */ ! 365: movl $SRC2W10,_opr + 4 /* second operand */ ! 366: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */ ! 367: movl $SRC1W10,tloc1 /*tloc1 = source1 */ ! 368: movl $SRC2W10,tloc2 /*tloc2 = source2 */ ! 369: bispsw $(Z|V|N) /*turn zero, overflow, & neg ON */ ! 370: cmpw tloc1+2,tloc2+2 /*execute compare */ ! 371: jeql error10 /*error if Z = 1 */ ! 372: jlss error10 /*error if N = 1 */ ! 373: jvs error10 /*error if V = 1 */ ! 374: jcs error10 /*error if C = 1 */ ! 375: jmp cmpwoff ! 376: error10: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 377: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 378: movl $2,_ercode /* error code flag failure */ ! 379: jmp *badrtn ! 380: ! 381: cmpwoff: ! 382: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 383: ac11: callf $4,_setjmp /* save context for error return */ ! 384: movab ac11,_stpc /* save subtest starting address */ ! 385: movl $0xb,_subtst /* subtest number */ ! 386: movl $2,_no_opr /* number of operands in use */ ! 387: movl $SRC1W11,_opr /* first operand */ ! 388: movl $SRC2W11,_opr + 4 /* second operand */ ! 389: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */ ! 390: movl $SRC1W11,tloc1 /*tloc1 = source1 */ ! 391: movl $SRC2W11,tloc2 /*tloc2 = source2 */ ! 392: bispsw $(Z|N|V|C) /*turn Z, neg, overflow, & carry ON */ ! 393: cmpw tloc1+2,tloc2+2 /*execute compare */ ! 394: beql error11 /*error if Z = 1 */ ! 395: blss error11 /*error if N = 1 */ ! 396: bvs error11 /*error if V = 1 */ ! 397: bcc error11 /*error if C = 0 */ ! 398: jmp cmpwoff1 ! 399: error11: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 400: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 401: movl $2,_ercode /* error code flag failure */ ! 402: jmp *badrtn ! 403: ! 404: cmpwoff1: ! 405: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 406: ac12: callf $4,_setjmp /* save context for error return */ ! 407: movab ac12,_stpc /* save subtest starting address */ ! 408: movl $0xc,_subtst /* subtest number */ ! 409: movl $2,_no_opr /* number of operands in use */ ! 410: movl $SRC1W12,_opr /* first operand */ ! 411: movl $SRC2W12,_opr + 4 /* second operand */ ! 412: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */ ! 413: movl $SRC1W12,tloc1 /*tloc1 = source1 */ ! 414: movl $SRC2W12,tloc2 /*tloc2 = source2 */ ! 415: bispsw $(Z|N|V|C) /*turn Z, neg, overflow, & carry ON */ ! 416: cmpw tloc1+2,tloc2+2 /*execute compare */ ! 417: beql error12 /*error if Z = 1 */ ! 418: blss error12 /*error if N = 1 */ ! 419: bvs error12 /*error if V = 1 */ ! 420: bcc error12 /*error if C = 0 */ ! 421: jmp aldn ! 422: error12: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 423: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 424: movl $2,_ercode /* error code flag failure */ ! 425: jmp *badrtn ! 426: ! 427: aldn: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 428: jmp *return /* good, return to monitor */ ! 429: ! 430: ! 431: /* Variables */ ! 432: .align 2 ! 433: tloc1: .space 4 ! 434: tloc2: .space 4 ! 435: ! 436: /* end of file */
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.