![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to and_b3.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 and_b3.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry |
1.1 ! root 1: ! 2: ! 3: /* ANDB3 (and byte 3 operand) test */ ! 4: ! 5: /*Test name = andb3 */ ! 6: /*Description = */ ! 7: /* This test checks 'andb3' instruction as follows: */ ! 8: /* source mask destination Z N C V(flags) */ ! 9: /* ___________ ____ ___________ _____________ */ ! 10: /* 0xaa 0xaa 0x7fffffaa 0 0 1 0 */ ! 11: /* 0xaa 0x55 0x7fffff00 1 0 1 0 */ ! 12: /* R R R --- */ ! 13: /* M M M --- */ ! 14: /* R M M --- */ ! 15: /* M R R --- */ ! 16: /* */ ! 17: /* */ ! 18: ! 19: /* */ ! 20: /* Constants */ ! 21: /* */ ! 22: .set MASK1B3,0xaa ! 23: .set MASK1W3,0xaaaa ! 24: .set MASK1L3,0xaaaaaaaa ! 25: .set MASK2B3,0x55 ! 26: .set MASK2W3,0x5555 ! 27: .set MASK2L3,0x55555555 ! 28: .set SOURCE1B3,0xaa ! 29: .set SOURCE1W3,0xaaaa ! 30: .set SOURCE1L3,0xaaaaaaaa ! 31: .set SOURCE2B3,0xaa ! 32: .set SOURCE2W3,0xaaaa ! 33: .set SOURCE2L3,0xaaaaaaaa ! 34: .set INITIAL3,0x7fffffff ! 35: .set EXP1B3,0x7fffffaa ! 36: .set EXP1W3,0x7fffaaaa ! 37: .set EXP1L3,0xaaaaaaaa ! 38: .set EXP2B3,0x7fffff00 ! 39: .set EXP2W3,0x7fff0000 ! 40: .set EXP2L3,0x00000000 ! 41: ! 42: /* */ ! 43: /* */ ! 44: /* */ ! 45: /* Syst.s - constants */ ! 46: /* */ ! 47: .set IPL,8 ! 48: .set HIGH,31 ! 49: .set ZERO,0 ! 50: .set ONES,0xffffffff ! 51: .set N,8 ! 52: .set Z,4 ! 53: .set V,2 ! 54: .set C,1 ! 55: .set T,16 ! 56: .set IV,32 ! 57: .set FU,64 ! 58: .set DV,128 ! 59: .set PSWMASK,0x003f ! 60: /* */ ! 61: /* */ ! 62: .globl _andb3 ! 63: _andb3: ! 64: callf $4,_setjmp /* save context for error return */ ! 65: movab _andb3,_stpc /* save subtest program counter */ ! 66: movl $1,_subtst /* subtest number */ ! 67: movl $2,_no_opr /* number of operands in use */ ! 68: movl $MASK1B3,_opr /* first operand */ ! 69: movl $SOURCE1B3,_opr + 4 /* second operand */ ! 70: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 71: movl $MASK1B3,r3 /*mask */ ! 72: movl $SOURCE1B3,r4 /*source */ ! 73: movl $INITIAL3,r5 /*destination */ ! 74: bispsw $(Z|V|C) /*overflow, Z & carry bits ON */ ! 75: andb3 r3,r4,r5 /*try it reg reg reg */ ! 76: jeql error1 /*error if Z = 1 */ ! 77: jlss error1 /*error if N = 1 */ ! 78: jcc error1 /*error if C = 0 */ ! 79: jvs error1 /*error if V = 1 */ ! 80: cmpl r5,$0xaa /*if dest <> expected value, */ ! 81: jeql a2 /* if correct continue */ ! 82: movl $1,_ercode /* error code data miscompare */ ! 83: bbs $0,_scoplp,0b /* if set loop on error */ ! 84: movl r5,_actual /* actual data */ ! 85: movl $0xaa,_expected /* expected data */ ! 86: jmp *badrtn ! 87: error1: movpsl _actual /* actual = psl */ ! 88: bbs $0,_scoplp,0b /* if set loop on error */ ! 89: movl $2,_ercode /* error code flag failure */ ! 90: jmp *badrtn ! 91: ! 92: /* Now try another mask(0x55) */ ! 93: /* */ ! 94: ! 95: a2: ! 96: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 97: aa2: callf $4,_setjmp /* save context for error return */ ! 98: movab aa2,_stpc /* save subtest program counter */ ! 99: movl $2,_subtst /* subtest number */ ! 100: movl $2,_no_opr /* number of operands in use */ ! 101: movl $MASK2B3,_opr /* first operand */ ! 102: movl $SOURCE2B3,_opr + 4 /* second operand */ ! 103: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 104: movl $MASK2B3,mask /*mask */ ! 105: movl $SOURCE2B3,r4 /*source */ ! 106: movl $INITIAL3,dest /*destination */ ! 107: bispsw $(N|V) /*overflow & negetive bits ON */ ! 108: andb3 mask+3,r4,dest+3/* try again mem reg mem */ ! 109: jneq error2 /*error if Z = 0 */ ! 110: jlss error2 /*error if N = 1 */ ! 111: jcc error2 /*error if C = 0 */ ! 112: jvs error2 /*error if V = 1 */ ! 113: cmpb dest+3,$0 /*if dest <> expected value, */ ! 114: jeql andb3mmm ! 115: movl $1,_ercode /* error code data miscompare */ ! 116: bbs $0,_scoplp,0b /* if set loop on error */ ! 117: movl dest,_actual /* actual data */ ! 118: movl $0,_expected /* expected data */ ! 119: jmp *badrtn ! 120: error2: movpsl _actual /* actual = psl */ ! 121: bbs $0,_scoplp,0b /* if set loop on error */ ! 122: movl $2,_ercode /* error code flag failure */ ! 123: jmp *badrtn ! 124: /* */ ! 125: /* now try source = M, mask = M, destination = M */ ! 126: andb3mmm: ! 127: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 128: aa3: callf $4,_setjmp /* save context for error return */ ! 129: movab aa3,_stpc /* save subtest program counter */ ! 130: movl $3,_subtst /* subtest number */ ! 131: movl $2,_no_opr /* number of operands in use */ ! 132: movl $MASK1B3,_opr /* first operand */ ! 133: movl $SOURCE1B3,_opr + 4 /* second operand */ ! 134: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 135: movl $MASK1B3,mask /*mask */ ! 136: movl $SOURCE1B3,source/*source */ ! 137: movl $INITIAL3,dest /*destination */ ! 138: bispsw $(Z|V|C) /*overflow, Z & carry bits ON */ ! 139: andb3 mask+3,source+3,dest+3 /*try it mem mem mem */ ! 140: jeql error3 /*error if Z = 1 */ ! 141: jgeq error3 /*error if N = 1 */ ! 142: jcc error3 /*error if C = 0 */ ! 143: jvs error3 /*error if V = 1 */ ! 144: cmpl dest,$EXP1B3 /*if dest <> expected value, */ ! 145: jeql a4 ! 146: movl $1,_ercode /* error code data miscompare */ ! 147: 1: bbs $0,_scoplp,0b /* if set loop on error */ ! 148: movl dest,_actual /* actual data */ ! 149: movl $EXP1B3,_expected /* expected data */ ! 150: jmp *badrtn ! 151: error3: movpsl _actual /* actual = psl */ ! 152: bbs $0,_scoplp,0b /* if set loop on error */ ! 153: movl $2,_ercode /* error code flag failure */ ! 154: jmp *badrtn ! 155: ! 156: /* Now try another mask(0x55) */ ! 157: /* */ ! 158: ! 159: a4: ! 160: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 161: aa4: callf $4,_setjmp /* save context for error return */ ! 162: movab aa4,_stpc /* save subtest program counter */ ! 163: movl $4,_subtst /* subtest number */ ! 164: movl $2,_no_opr /* number of operands in use */ ! 165: movl $MASK2B3,_opr /* first operand */ ! 166: movl $SOURCE2B3,_opr + 4 /* second operand */ ! 167: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 168: movl $MASK2B3,mask /*mask */ ! 169: movl $SOURCE2B3,source/*source */ ! 170: movl $INITIAL3,dest /*destination */ ! 171: bispsw $(N|V) /*overflow & negetive bits ON */ ! 172: andb3 mask+3,$SOURCE1B3,dest+3/* try again mem data mem */ ! 173: jneq error4 /*error if Z = 0 */ ! 174: jlss error4 /*error if N = 1 */ ! 175: jcc error4 /*error if C = 0 */ ! 176: jvs error4 /*error if V = 1 */ ! 177: cmpl dest,$EXP2B3 /*if dest <> expected value, */ ! 178: jeql andb3mrm /* if correct continue */ ! 179: movl $1,_ercode /* error code data miscompare */ ! 180: bbs $0,_scoplp,0b /* if set loop on error */ ! 181: movl dest,_actual /* actual data */ ! 182: movl $EXP2B3,_expected /* expected data */ ! 183: jmp *badrtn ! 184: error4: movpsl _actual /* actual = psl */ ! 185: bbs $0,_scoplp,0b /* if set loop on error */ ! 186: movl $2,_ercode /* error code flag failure */ ! 187: jmp *badrtn ! 188: /* */ ! 189: /* Now use mask = R, source & destination = M */ ! 190: andb3mrm: ! 191: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 192: aa5: callf $4,_setjmp /* save context for error return */ ! 193: movab aa5,_stpc /* save subtest program counter */ ! 194: movl $5,_subtst /* subtest number */ ! 195: movl $2,_no_opr /* number of operands in use */ ! 196: movl $MASK1B3,_opr /* first operand */ ! 197: movl $SOURCE1B3,_opr + 4 /* second operand */ ! 198: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 199: movl $MASK1B3,r3 /*mask */ ! 200: movl $SOURCE1B3,source/*source */ ! 201: movl $INITIAL3,dest /*destination */ ! 202: bispsw $(Z|V|C) /*overflow, Z & carry bits ON */ ! 203: andb3 r3,source+3,dest+3/*try it reg mem mem */ ! 204: jeql error5 /*error if Z = 1 */ ! 205: jlss error5 /*error if N = 1 */ ! 206: jcc error5 /*error if C = 0 */ ! 207: jvs error5 /*error if V = 1 */ ! 208: cmpl dest,$EXP1B3 /*if dest <> expected value, */ ! 209: jeql a6 /* if correct continue */ ! 210: movl $1,_ercode /* error code data miscompare */ ! 211: bbs $0,_scoplp,0b /* if set loop on error */ ! 212: movl dest,_actual /* actual data */ ! 213: movl $EXP1B3,_expected /* expected data */ ! 214: jmp *badrtn ! 215: error5: movpsl _actual /* actual = psl */ ! 216: bbs $0,_scoplp,0b /* if set loop on error */ ! 217: movl $2,_ercode /* error code flag failure */ ! 218: jmp *badrtn ! 219: /* */ ! 220: /* Now try another mask(0x55) */ ! 221: /* */ ! 222: a6: ! 223: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 224: aa6: callf $4,_setjmp /* save context for error return */ ! 225: movab aa6,_stpc /* save subtest program counter */ ! 226: movl $6,_subtst /* subtest number */ ! 227: movl $2,_no_opr /* number of operands in use */ ! 228: movl $MASK2B3,_opr /* first operand */ ! 229: movl $SOURCE2B3,_opr + 4 /* second operand */ ! 230: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 231: movl $INITIAL3,dest /*destination */ ! 232: bispsw $(N|V) /*overflow & negetive bits ON */ ! 233: andb3 $MASK2B3,$SOURCE2B3,dest+3/* try again data data mem */ ! 234: jneq error6 /*error if Z = 0 */ ! 235: jlss error6 /*error if N = 1 */ ! 236: jcc error6 /*error if C = 0 */ ! 237: jvs error6 /*error if V = 1 */ ! 238: cmpl dest,$EXP2B3 /*if dest <> expected value, */ ! 239: jneq error2 /*then error */ ! 240: jeql andb3rmm /* if correct continue */ ! 241: movl $1,_ercode /* error code data miscompare */ ! 242: bbs $0,_scoplp,0b /* if set loop on error */ ! 243: movl dest,_actual /* actual data */ ! 244: movl $EXP2B3,_expected /* expected data */ ! 245: jmp *badrtn ! 246: error6: movpsl _actual /* actual = psl */ ! 247: bbs $0,_scoplp,0b /* if set loop on error */ ! 248: movl $2,_ercode /* error code flag failure */ ! 249: jmp *badrtn ! 250: /* */ ! 251: /* Now try mask = M, source = R, dest = M */ ! 252: /* */ ! 253: andb3rmm: ! 254: ! 255: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 256: aa7: callf $4,_setjmp /* save context for error return */ ! 257: movab aa7,_stpc /* save subtest program counter */ ! 258: movl $7,_subtst /* subtest number */ ! 259: movl $2,_no_opr /* number of operands in use */ ! 260: movl $MASK1B3,_opr /* first operand */ ! 261: movl $SOURCE1B3,_opr + 4 /* second operand */ ! 262: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 263: movl $MASK1B3,mask /*mask */ ! 264: movl $SOURCE1B3,r4 /*source */ ! 265: movl $INITIAL3,dest /*destination */ ! 266: bispsw $(Z|V|C) /*overflow, Z & carry bits ON */ ! 267: andb3 mask+3,r4,dest+3/*try it mem reg mem */ ! 268: jeql error7 /*error if Z = 1 */ ! 269: jlss error7 /*error if N = 1 */ ! 270: jcc error7 /*error if C = 0 */ ! 271: jvs error7 /*error if V = 1 */ ! 272: movl $EXP1B3,r6 ! 273: cmpl dest,$EXP1B3 /*if dest <> expected value, */ ! 274: jeql a8 /* if correct continue */ ! 275: movl $1,_ercode /* error code data miscompare */ ! 276: bbs $0,_scoplp,0b /* if set loop on error */ ! 277: movl dest,_actual /* actual data */ ! 278: movl $EXP1B3,_expected /* expected data */ ! 279: jmp *badrtn ! 280: error7: movpsl _actual /* actual = psl */ ! 281: bbs $0,_scoplp,0b /* if set loop on error */ ! 282: movl $2,_ercode /* error code flag failure */ ! 283: jmp *badrtn ! 284: ! 285: /* Now try another mask(0x55) */ ! 286: /* */ ! 287: ! 288: a8: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 289: aa8: callf $4,_setjmp /* save context for error return */ ! 290: movab aa8,_stpc /* save subtest program counter */ ! 291: movl $8,_subtst /* subtest number */ ! 292: movl $2,_no_opr /* number of operands in use */ ! 293: movl $MASK2B3,_opr /* first operand */ ! 294: movl $SOURCE2B3,_opr + 4 /* second operand */ ! 295: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 296: movl $MASK2B3,mask /*mask */ ! 297: movl $SOURCE2B3,source/*source */ ! 298: movl $INITIAL3,r5 /*destination */ ! 299: bispsw $(N|V) /*overflow & negetive bits ON */ ! 300: andb3 mask+3,source+3,r5/* try again mem mem reg */ ! 301: jneq error8 /*error if Z = 0 */ ! 302: jlss error8 /*error if N = 1 */ ! 303: jcc error8 /*error if C = 0 */ ! 304: jvs error8 /*error if V = 1 */ ! 305: cmpl r5,$0 /*if dest <> expected value, */ ! 306: jeql andb3mrr /* if correct continue */ ! 307: movl $1,_ercode /* error code data miscompare */ ! 308: bbs $0,_scoplp,0b /* if set loop on error */ ! 309: movl r5,_actual /* actual data */ ! 310: movl $0,_expected /* expected data */ ! 311: jmp *badrtn ! 312: error8: movpsl _actual /* actual = psl */ ! 313: bbs $0,_scoplp,0b /* if set loop on error */ ! 314: movl $2,_ercode /* error code flag failure */ ! 315: jmp *badrtn ! 316: /* */ ! 317: /* Now try mask = R, source = M, dest = R */ ! 318: /* */ ! 319: andb3mrr: ! 320: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 321: aa9: callf $4,_setjmp /* save context for error return */ ! 322: movab aa9,_stpc /* save subtest program counter */ ! 323: movl $9,_subtst /* subtest number */ ! 324: movl $2,_no_opr /* number of operands in use */ ! 325: movl $MASK1B3,_opr /* first operand */ ! 326: movl $SOURCE1B3,_opr + 4 /* second operand */ ! 327: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 328: movl $MASK1B3,r3 /*mask */ ! 329: movl $SOURCE1B3,source/*source */ ! 330: movl $INITIAL3,r5 /*destination */ ! 331: bispsw $(Z|V|C) /*overflow, Z & carry bits ON */ ! 332: andb3 r3,source+3,r5 /*try it reg mem reg */ ! 333: jeql error9 /*error if Z = 1 */ ! 334: jlss error9 /*error if N = 1 */ ! 335: jcc error9 /*error if C = 0 */ ! 336: jvs error9 /*error if V = 1 */ ! 337: cmpb r5,$0xaa /*if dest <> expected value, */ ! 338: jeql a10 /* if correct continue */ ! 339: movl $1,_ercode /* error code data miscompare */ ! 340: bbs $0,_scoplp,0b /* if set loop on error */ ! 341: movl r5,_actual /* actual data */ ! 342: movl $0xaa,_expected /* expected data */ ! 343: jmp *badrtn ! 344: error9: movpsl _actual /* actual = psl */ ! 345: bbs $0,_scoplp,0b /* if set loop on error */ ! 346: movl $2,_ercode /* error code flag failure */ ! 347: jmp *badrtn ! 348: ! 349: /* Now try another mask(0x55) */ ! 350: /* */ ! 351: a10: ! 352: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 353: aa10: callf $4,_setjmp /* save context for error return */ ! 354: movab aa10,_stpc /* save subtest program counter */ ! 355: movl $0xa,_subtst /* subtest number */ ! 356: movl $2,_no_opr /* number of operands in use */ ! 357: movl $MASK2B3,_opr /* first operand */ ! 358: movl $SOURCE2B3,_opr + 4 /* second operand */ ! 359: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 360: movl $SOURCE2B3,r4 /*source */ ! 361: movl $INITIAL3,dest /*destination */ ! 362: bispsw $(N|V) /*overflow & negetive bits ON */ ! 363: andb3 $MASK2B3,r4,dest+3 /* try again data reg mem */ ! 364: jneq error10 /*error if Z = 0 */ ! 365: jlss error10 /*error if N = 1 */ ! 366: jcc error10 /*error if C = 0 */ ! 367: jvs error10 /*error if V = 1 */ ! 368: cmpb dest+3,$0 /*if dest <> expected value, */ ! 369: jeql a11 /* if correct continue */ ! 370: movl $1,_ercode /* error code data miscompare */ ! 371: bbs $0,_scoplp,0b /* if set loop on error */ ! 372: movl dest,_actual /* actual data */ ! 373: movl $0,_expected /* expected data */ ! 374: jmp *badrtn ! 375: error10: movpsl _actual /* actual = psl */ ! 376: bbs $0,_scoplp,0b /* if set loop on error */ ! 377: movl $2,_ercode /* error code flag failure */ ! 378: jmp *badrtn ! 379: ! 380: /* Now try another mask(0x55) */ ! 381: /* */ ! 382: ! 383: a11: ! 384: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 385: aa11: callf $4,_setjmp /* save context for error return */ ! 386: movab aa11,_stpc /* save subtest program counter */ ! 387: movl $0xb,_subtst /* subtest number */ ! 388: movl $2,_no_opr /* number of operands in use */ ! 389: movl $MASK2B3,_opr /* first operand */ ! 390: movl $SOURCE2B3,_opr + 4 /* second operand */ ! 391: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 392: movl $SOURCE2B3,r4 /*source */ ! 393: movl $INITIAL3,r5 /*destination */ ! 394: bispsw $(N|V) /*overflow & negetive bits ON */ ! 395: andb3 $MASK2B3,r4,r5 /* try again data reg reg */ ! 396: jneq error11 /*error if Z = 0 */ ! 397: jlss error11 /*error if N = 1 */ ! 398: jcc error11 /*error if C = 0 */ ! 399: jvs error11 /*error if V = 1 */ ! 400: cmpl r5,$0 /*if dest <> expected value, */ ! 401: jeql a12 /* if correct continue */ ! 402: movl $1,_ercode /* error code data miscompare */ ! 403: bbs $0,_scoplp,0b /* if set loop on error */ ! 404: movl r5,_actual /* actual data */ ! 405: movl $0,_expected /* expected data */ ! 406: jmp *badrtn ! 407: error11: movpsl _actual /* actual = psl */ ! 408: bbs $0,_scoplp,0b /* if set loop on error */ ! 409: movl $2,_ercode /* error code flag failure */ ! 410: jmp *badrtn ! 411: ! 412: /* Now try another mask(0x55) */ ! 413: /* */ ! 414: ! 415: a12: ! 416: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 417: aa12: callf $4,_setjmp /* save context for error return */ ! 418: movab aa12,_stpc /* save subtest program counter */ ! 419: movl $0xc,_subtst /* subtest number */ ! 420: movl $2,_no_opr /* number of operands in use */ ! 421: movl $MASK2B3,_opr /* first operand */ ! 422: movl $SOURCE2B3,_opr + 4 /* second operand */ ! 423: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 424: movl $MASK2B3,r3 /*mask */ ! 425: movl $INITIAL3,r5 /*destination */ ! 426: bispsw $(N|V) /*overflow & negetive bits ON */ ! 427: andb3 r3,$SOURCE2B3,r5/* try again reg data reg */ ! 428: jneq error12 /*error if Z = 0 */ ! 429: jlss error12 /*error if N = 1 */ ! 430: jcc error12 /*error if C = 0 */ ! 431: jvs error12 /*error if V = 1 */ ! 432: cmpl r5,$0 /*if dest <> expected value, */ ! 433: jeql a13 /* if correct continue */ ! 434: movl $1,_ercode /* error code data miscompare */ ! 435: bbs $0,_scoplp,0b /* if set loop on error */ ! 436: movl r5,_actual /* actual data */ ! 437: movl $0,_expected /* expected data */ ! 438: jmp *badrtn ! 439: error12: movpsl _actual /* actual = psl */ ! 440: bbs $0,_scoplp,0b /* if set loop on error */ ! 441: movl $2,_ercode /* error code flag failure */ ! 442: jmp *badrtn ! 443: ! 444: a13: ! 445: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 446: aa13: callf $4,_setjmp /* save context for error return */ ! 447: movab aa13,_stpc /* save subtest program counter */ ! 448: movl $0xd,_subtst /* subtest number */ ! 449: movl $2,_no_opr /* number of operands in use */ ! 450: movl $MASK1B3,_opr /* first operand */ ! 451: movl $SOURCE1B3,_opr + 4 /* second operand */ ! 452: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 453: movl $MASK1B3,r3 /*mask */ ! 454: movl $SOURCE1B3,r4 /*source */ ! 455: movl $INITIAL3,dest /*destination */ ! 456: bispsw $(Z|V|C) /*overflow, Z & carry bits ON */ ! 457: andb3 r3,r4,dest+3 /*try it reg reg mem */ ! 458: jeql error13 /*error if Z = 1 */ ! 459: jlss error13 /*error if N = 1 */ ! 460: jcc error13 /*error if C = 0 */ ! 461: jvs error13 /*error if V = 1 */ ! 462: movl $0x7fffffaa,r6 ! 463: cmpl dest,r6 /*if dest <> expected value, */ ! 464: jneq error2 /*then error */ ! 465: jeql aldn /* if correct continue */ ! 466: movl $1,_ercode /* error code data miscompare */ ! 467: bbs $0,_scoplp,0b /* if set loop on error */ ! 468: movl dest,_actual /* actual data */ ! 469: movl r6,_expected /* expected data */ ! 470: jmp *badrtn ! 471: error13: movpsl _actual /* actual = psl */ ! 472: bbs $0,_scoplp,0b /* if set loop on error */ ! 473: movl $2,_ercode /* error code flag failure */ ! 474: jmp *badrtn ! 475: ! 476: ! 477: ! 478: aldn: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 479: jmp *return ! 480: /* */ ! 481: /* Variables */ ! 482: /* */ ! 483: .align 2 ! 484: mask: .space 4 ! 485: source: .space 4 ! 486: dest: .space 4 ! 487: ! 488: /* */ ! 489: /* End of file */ ! 490:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.