![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to cmp_b.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_b.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry |
1.1 ! root 1: ! 2: ! 3: /* CMPB (compare byte) test */ ! 4: /* */ ! 5: /*Test name = cmpb */ ! 6: /*Description = */ ! 7: /* This test checks 'cmpb' 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 /*+2*/ ! 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_b ! 125: _cmp_b: ! 126: callf $4,_setjmp /* save context for error return */ ! 127: movab _cmp_b,_stpc /* save address of subtest start */ ! 128: movl $1,_subtst /* subtest number */ ! 129: movl $2,_no_opr /* number of operands in use */ ! 130: movl $SRC1B1,_opr /* first operand */ ! 131: movl $SRC2B1,_opr + 4 /* second operand */ ! 132: 0: movl $SRC1B1,tloc1 /*tloc1 = source1 */ ! 133: movl $SRC2B1,tloc2 /*tloc2 = source2 */ ! 134: bicpsw $PSWMASK /*disable overflow & other enable bits */ ! 135: bispsw $(N|V|C) /*turn neg, overflow, & carry ON */ ! 136: cmpb tloc1+3,tloc2+3 /*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 data psl MAYBE is incorrect */ ! 143: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 144: movl $2,_ercode /* error code flag miscompare */ ! 145: jmp *badrtn ! 146: 1: bicpsw $Z /*clear Z flag */ ! 147: cmpl $SRC1B1,tloc1 /*check tloc1+3 & tlco2 unchanged */ ! 148: beql 1f /* if no error continue */ ! 149: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 150: movl $3,_ercode /* error code operand was modified */ ! 151: movl tloc1,_actual /* actual data */ ! 152: movl $SRC1B1,_expected /* expected data */ ! 153: jmp *badrtn ! 154: 1: bicpsw $Z ! 155: cmpl $SRC2B1,tloc2 ! 156: beql c2 /* if no error continue */ ! 157: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 158: movl $3,_ercode /* error code operand was modified */ ! 159: movl tloc1,_actual /* actual data */ ! 160: movl $SRC1B1,_expected /* expected data */ ! 161: jmp *badrtn ! 162: /* */ ! 163: /* different patterns for source1 & source2 */ ! 164: /* */ ! 165: c2: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 166: ac2: callf $4,_setjmp /* save context for error return */ ! 167: movab ac2,_stpc /* save address of subtest start */ ! 168: movl $2,_subtst /* subtest number */ ! 169: movl $2,_no_opr /* number of operands in use */ ! 170: movl $SRC1B2,_opr /* first operand */ ! 171: movl $-1,_opr + 4 /* second operand */ ! 172: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */ ! 173: movl $SRC1B2,tloc1 /*tloc1 = source1 */ ! 174: bispsw $(N|V|C) /*turn neg, overflow, & carry ON */ ! 175: cmpb tloc1+3,$-1 /*execute compare mem to data */ ! 176: bneq error2 /*error if Z = 0 */ ! 177: blss error2 /*error if N = 1 */ ! 178: bvs error2 /*error if V = 1 */ ! 179: bcc error2 /*error if C = 0 */ ! 180: jmp cmpbnc ! 181: error2: movpsl _actual /* actual data psl MAYBE is incorrect */ ! 182: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 183: movl $2,_ercode /* error code flag miscompare */ ! 184: jmp *badrtn ! 185: ! 186: cmpbnc: ! 187: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 188: ac3: callf $4,_setjmp /* save context for error return */ ! 189: movab ac3,_stpc /* save address of subtest start */ ! 190: movl $3,_subtst /* subtest number */ ! 191: movl $2,_no_opr /* number of operands in use */ ! 192: movl $SRC2B3,_opr /* first operand */ ! 193: movl $SRC1B3,_opr + 4 /* second operand */ ! 194: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */ ! 195: movl $SRC2B3,tloc2 /*tloc2 = source2 */ ! 196: bispsw $(Z|V) /*turn overflow, & zero ON */ ! 197: cmpb $SRC1B3,tloc2+3 /*execute compare data to mem */ ! 198: beql error3 /*error if Z = 1 */ ! 199: bgeq error3 /*error if N = 0 */ ! 200: bvs error3 /*error if V = 1 */ ! 201: bcs error3 /*error if C = 1 */ ! 202: jmp c4 ! 203: error3: movpsl _actual /* actual data psl MAYBE is incorrect */ ! 204: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 205: movl $2,_ercode /* error code flag miscompare */ ! 206: jmp *badrtn ! 207: /* */ ! 208: /* different patterns for source1 & source2 */ ! 209: /* */ ! 210: c4: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 211: ac4: callf $4,_setjmp /* save context for error return */ ! 212: movab ac4,_stpc /* save address of subtest start */ ! 213: movl $4,_subtst /* subtest number */ ! 214: movl $2,_no_opr /* number of operands in use */ ! 215: movl $SRC1B4,_opr /* first operand */ ! 216: movl $SRC2B4,_opr + 4 /* second operand */ ! 217: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */ ! 218: movl $SRC1B4,tloc1 /*tloc1 = source1 */ ! 219: movl $SRC2B4,r4 /* r4 = source2 */ ! 220: bispsw $(Z|V) /*turn overflow, & zero ON */ ! 221: cmpb tloc1+3,r4 /*execute compare memory to reg */ ! 222: beql error4 /*error if Z = 1 */ ! 223: bgeq error4 /*error if N = 0 */ ! 224: bvs error4 /*error if V = 1 */ ! 225: bcc error4 /*error if C = 0 */ ! 226: jmp cmpbn ! 227: error4: movpsl _actual /* actual data psl MAYBE is incorrect */ ! 228: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 229: movl $2,_ercode /* error code flag miscompare */ ! 230: jmp *badrtn ! 231: ! 232: ! 233: cmpbn: ! 234: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 235: ac5: callf $4,_setjmp /* save context for error return */ ! 236: movab ac5,_stpc /* save address of subtest start */ ! 237: movl $5,_subtst /* subtest number */ ! 238: movl $2,_no_opr /* number of operands in use */ ! 239: movl $SRC1B5,_opr /* first operand */ ! 240: movl $SRC2B5,_opr + 4 /* second operand */ ! 241: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */ ! 242: movl $SRC1B5,r3 /* r3 = source1 */ ! 243: movl $SRC2B5,tloc2 /*tloc2 = source2 */ ! 244: bispsw $(Z|V|C) /*turn zero, overflow, & carry ON */ ! 245: cmpb r3,tloc2+3 /* execute compare reg to mem */ ! 246: beql error5 /*error if Z = 1 */ ! 247: blss error5 /*error if N = 1 */ ! 248: bvs error5 /*error if V = 1 */ ! 249: bcc error5 /*error if C = 0 */ ! 250: jmp c6 ! 251: error5: movpsl _actual /* actual data psl MAYBE is incorrect */ ! 252: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 253: movl $2,_ercode /* error code flag miscompare */ ! 254: jmp *badrtn ! 255: /* */ ! 256: /* different patterns for source1 & source2 */ ! 257: /* */ ! 258: c6: ! 259: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 260: ac6: callf $4,_setjmp /* save context for error return */ ! 261: movab ac6,_stpc /* save address of subtest start */ ! 262: movl $6,_subtst /* subtest number */ ! 263: movl $2,_no_opr /* number of operands in use */ ! 264: movl $-2,_opr /* first operand */ ! 265: movl $SRC2B6,_opr + 4 /* second operand */ ! 266: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */ ! 267: movl $SRC2B6,r4 /*tloc2 = source2 */ ! 268: bispsw $(Z|V|C) /*turn zero, overflow, & carry ON */ ! 269: cmpb $-2,r4 /*execute compare data to reg */ ! 270: beql error6 /*error if Z = 1 */ ! 271: bgeq error6 /*error if N = 0 */ ! 272: bvs error6 /*error if V = 1 */ ! 273: bcc error6 /*error if C = 0 */ ! 274: jmp c7 ! 275: error6: movpsl _actual /* actual data psl MAYBE is incorrect */ ! 276: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 277: movl $2,_ercode /* error code flag miscompare */ ! 278: jmp *badrtn ! 279: /* */ ! 280: /* different patterns for source1 & source2 */ ! 281: /* */ ! 282: c7: ! 283: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 284: ac7: callf $4,_setjmp /* save context for error return */ ! 285: movab ac7,_stpc /* save address of subtest start */ ! 286: movl $7,_subtst /* subtest number */ ! 287: movl $2,_no_opr /* number of operands in use */ ! 288: movl $SRC1B7,_opr /* first operand */ ! 289: movl $SRC2B7,_opr + 4 /* second operand */ ! 290: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */ ! 291: movl $SRC1B7,r3 /*tloc1 = source1 */ ! 292: movl $SRC2B7,r4 /*tloc2 = source2 */ ! 293: bispsw $(Z|V|C) /*turn zero, overflow, & carry ON */ ! 294: cmpb r3,r4 /*execute compare reg to reg */ ! 295: beql error7 /*error if Z = 1 */ ! 296: blss error7 /*error if N = 1 */ ! 297: bvs error7 /*error if V = 1 */ ! 298: bcc error7 /*error if C = 0 */ ! 299: jmp cmpbc ! 300: error7: movpsl _actual /* actual data psl MAYBE is incorrect */ ! 301: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 302: movl $2,_ercode /* error code flag miscompare */ ! 303: jmp *badrtn ! 304: ! 305: cmpbc: ! 306: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 307: ac8: callf $4,_setjmp /* save context for error return */ ! 308: movab ac8,_stpc /* save address of subtest start */ ! 309: movl $8,_subtst /* subtest number */ ! 310: movl $2,_no_opr /* number of operands in use */ ! 311: movl $SRC1B8,_opr /* first operand */ ! 312: movl $-2,_opr + 4 /* second operand */ ! 313: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */ ! 314: movl $SRC1B8,r3 /*tloc1 = source1 */ ! 315: bispsw $(Z|V|N) /*turn zero, overflow, & neg ON */ ! 316: cmpb r3,$-2 /*execute compare reg to data */ ! 317: beql error8 /*error if Z = 1 */ ! 318: blss error8 /*error if N = 1 */ ! 319: bvs error8 /*error if V = 1 */ ! 320: bcs error8 /*error if C = 1 */ ! 321: jmp c9 ! 322: error8: movpsl _actual /* actual data psl MAYBE is incorrect */ ! 323: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 324: movl $2,_ercode /* error code flag miscompare */ ! 325: jmp *badrtn ! 326: /* */ ! 327: /* different patterns for source1 & source2 */ ! 328: /* */ ! 329: c9: ! 330: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 331: ac9: callf $4,_setjmp /* save context for error return */ ! 332: movab ac9,_stpc /* save address of subtest start */ ! 333: movl $9,_subtst /* subtest number */ ! 334: movl $2,_no_opr /* number of operands in use */ ! 335: movl $SRC1B9,_opr /* first operand */ ! 336: movl $SRC2B9,_opr + 4 /* second operand */ ! 337: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */ ! 338: movl $SRC1B9,tloc1 /*tloc1 = source1 */ ! 339: movl $SRC2B9,tloc2 /*tloc2 = source2 */ ! 340: bispsw $(Z|V|N) /*turn zero, overflow, & neg ON */ ! 341: cmpb tloc1+3,tloc2+3 /*execute compare */ ! 342: beql error9 /*error if Z = 1 */ ! 343: blss error9 /*error if N = 1 */ ! 344: bvs error9 /*error if V = 1 */ ! 345: bcs error9 /*error if C = 1 */ ! 346: jmp c10 ! 347: error9: movpsl _actual /* actual data psl MAYBE is incorrect */ ! 348: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 349: movl $2,_ercode /* error code flag miscompare */ ! 350: jmp *badrtn ! 351: /* */ ! 352: /* different patterns for source1 & source2 */ ! 353: /* */ ! 354: c10: ! 355: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 356: ac10: callf $4,_setjmp /* save context for error return */ ! 357: movab ac10,_stpc /* save address of subtest start */ ! 358: movl $0xa,_subtst /* subtest number */ ! 359: movl $2,_no_opr /* number of operands in use */ ! 360: movl $SRC1B10,_opr /* first operand */ ! 361: movl $SRC2B10,_opr + 4 /* second operand */ ! 362: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */ ! 363: movl $SRC1B10,tloc1 /*tloc1 = source1 */ ! 364: movl $SRC2B10,tloc2 /*tloc2 = source2 */ ! 365: bispsw $(Z|V|N) /*turn zero, overflow, & neg ON */ ! 366: cmpb tloc1+3,tloc2+3 /*execute compare */ ! 367: jeql error10 /*error if Z = 1 */ ! 368: jlss error10 /*error if N = 1 */ ! 369: jvs error10 /*error if V = 1 */ ! 370: jcs error10 /*error if C = 1 */ ! 371: jmp cmpboff ! 372: error10: movpsl _actual /* actual data psl MAYBE is incorrect */ ! 373: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 374: movl $2,_ercode /* error code flag miscompare */ ! 375: jmp *badrtn ! 376: ! 377: cmpboff: ! 378: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 379: ac11: callf $4,_setjmp /* save context for error return */ ! 380: movab ac11,_stpc /* save address of subtest start */ ! 381: movl $0xb,_subtst /* subtest number */ ! 382: movl $2,_no_opr /* number of operands in use */ ! 383: movl $SRC1B11,_opr /* first operand */ ! 384: movl $SRC2B11,_opr + 4 /* second operand */ ! 385: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */ ! 386: movl $SRC1B11,tloc1 /*tloc1 = source1 */ ! 387: movl $SRC2B11,tloc2 /*tloc2 = source2 */ ! 388: bispsw $(Z|N|V|C) /*turn Z, neg, overflow, & carry ON */ ! 389: cmpb tloc1+3,tloc2+3 /*execute compare */ ! 390: beql error11 /*error if Z = 1 */ ! 391: blss error11 /*error if N = 1 */ ! 392: bvs error11 /*error if V = 1 */ ! 393: bcc error11 /*error if C = 0 */ ! 394: jmp cmpboff1 ! 395: error11: movpsl _actual /* actual data psl MAYBE is incorrect */ ! 396: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 397: movl $2,_ercode /* error code flag miscompare */ ! 398: jmp *badrtn ! 399: ! 400: cmpboff1: ! 401: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 402: ac12: callf $4,_setjmp /* save context for error return */ ! 403: movab ac12,_stpc /* save address of subtest start */ ! 404: movl $0xc,_subtst /* subtest number */ ! 405: movl $2,_no_opr /* number of operands in use */ ! 406: movl $SRC1B12,_opr /* first operand */ ! 407: movl $SRC2B12,_opr + 4 /* second operand */ ! 408: 0: bicpsw $PSWMASK /*disable overflow & other enable bits */ ! 409: movl $SRC1B12,tloc1 /*tloc1 = source1 */ ! 410: movl $SRC2B12,tloc2 /*tloc2 = source2 */ ! 411: bispsw $(Z|N|V|C) /*turn Z, neg, overflow, & carry ON */ ! 412: cmpb tloc1+3,tloc2+3 /*execute compare */ ! 413: beql error12 /*error if Z = 1 */ ! 414: blss error12 /*error if N = 1 */ ! 415: bvs error12 /*error if V = 1 */ ! 416: bcc error12 /*error if C = 0 */ ! 417: jmp aldn ! 418: error12: movpsl _actual /* actual data psl MAYBE is incorrect */ ! 419: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 420: movl $2,_ercode /* error code flag miscompare */ ! 421: jmp *badrtn ! 422: ! 423: aldn: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 424: jmp *return /* good, return to monitor */ ! 425: ! 426: ! 427: /* Variables */ ! 428: .align 2 ! 429: tloc1: .space 4 ! 430: tloc2: .space 4 ! 431: ! 432: /* end of file */
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.