![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to or_l3.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 or_l3.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry |
1.1 ! root 1: ! 2: ! 3: ! 4: /* ORL3 (or long 3 operand) test */ ! 5: ! 6: /*Test name = orl3 */ ! 7: /*Description = */ ! 8: /* This test checks 'orl3' instruction as follows: */ ! 9: /* source mask destination Z N C V(flags) */ ! 10: /* ___________ ____ ___________ _____________ */ ! 11: /* 0xaaaaaaaa 0xaaaaaaaa 0x7fffffaa 0 0 1 0 */ ! 12: /* 0xaaaaaaaa 0x55555555 0x7fffffff 0 0 1 0 */ ! 13: /* 0x00000000 0x00000000 0x00000000 1 0 x 0 */ ! 14: /* R R R --- */ ! 15: /* M M M --- */ ! 16: /* R M M --- */ ! 17: /* M R R --- */ ! 18: /* */ ! 19: /* */ ! 20: /* */ ! 21: /* Constants */ ! 22: /* */ ! 23: .set MASK1B3,0xaa ! 24: .set MASK1W3,0xaaaa ! 25: .set MASK1L3,0xaaaaaaaa ! 26: .set MASK2B3,0x55 ! 27: .set MASK2W3,0x5555 ! 28: .set MASK2L3,0x55555555 ! 29: .set MASK3B3,0x00 ! 30: .set MASK3W3,0x0000 ! 31: .set MASK3L3,0x00000000 ! 32: .set SOURCE1B3,0xaa ! 33: .set SOURCE1W3,0xaaaa ! 34: .set SOURCE1L3,0xaaaaaaaa ! 35: .set SOURCE2B3,0xaa ! 36: .set SOURCE2W3,0xaaaa ! 37: .set SOURCE2L3,0xaaaaaaaa ! 38: .set SOURCE3B3,0x00 ! 39: .set SOURCE3W3,0x0000 ! 40: .set SOURCE3L3,0x00000000 ! 41: .set INIT1B3,0x7fffff00 ! 42: .set INIT1W3,0x7fff0000 ! 43: .set INIT1L3,0x00000000 ! 44: .set INIT3B3,0x7fffffff ! 45: .set INIT3W3,INIT3B3 ! 46: .set INIT3L3,INIT3B3 ! 47: .set EXP1B3,0x7fffffaa ! 48: .set EXP1W3,0x7fffaaaa ! 49: .set EXP1L3,0xaaaaaaaa ! 50: .set EXP2B3,0x7fffffff ! 51: .set EXP2W3,0x7fffffff ! 52: .set EXP2L3,0xffffffff ! 53: .set EXP3B3,0x00000000 ! 54: .set EXP3W3,EXP3B3 ! 55: .set EXP3L3,EXP3B3 ! 56: ! 57: /* */ ! 58: /* */ ! 59: /* */ ! 60: /* Syst.s - constants */ ! 61: /* */ ! 62: .set IPL,8 ! 63: .set HIGH,31 ! 64: .set ZERO,0 ! 65: .set ONES,0xffffffff ! 66: .set N,8 ! 67: .set Z,4 ! 68: .set V,2 ! 69: .set C,1 ! 70: .set T,16 ! 71: .set IV,32 ! 72: .set FU,64 ! 73: .set DV,128 ! 74: .set PSWMASK,0x003f ! 75: /* */ ! 76: .globl _orl3 ! 77: _orl3: ! 78: callf $4,_setjmp /* save context for error return */ ! 79: movab _orl3,_stpc /* save starting address of program subtest */ ! 80: movl $1,_subtst /* subtest number */ ! 81: movl $2,_no_opr /* number of operands */ ! 82: movl $MASK1L3,_opr /* first operand */ ! 83: movl $SOURCE1L3,_opr + 4 /* second operand */ ! 84: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 85: movl $MASK1L3,r3 /*mask */ ! 86: movl $SOURCE1L3,r4 /*source */ ! 87: movl $INIT1L3,r5 /*destination */ ! 88: bispsw $(Z|V|C) /*overflow, Z & carry bits ON */ ! 89: orl3 r3,r4,r5 /*try it reg reg reg */ ! 90: jeql error1 /*error if Z = 1 */ ! 91: jgeq error1 /*error if N = 0 */ ! 92: jcc error1 /*error if C = 0 */ ! 93: jvs error1 /*error if V = 1 */ ! 94: jmp 1f ! 95: error1: movpsl _actual /* actual = psl Maybe incorrect */ ! 96: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 97: movl $2,_ercode /* error code flag failure */ ! 98: jmp *badrtn ! 99: 1: cmpl r5,$EXP1L3 /*if dest <> expected value, */ ! 100: jeql o2 ! 101: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 102: movl $1,_ercode /* error code data miscompare */ ! 103: movl r5,_actual /* actual data */ ! 104: movl $EXP1L3,_expected /* expected data */ ! 105: jmp *badrtn ! 106: ! 107: /* Now try another mask(0x55555555) */ ! 108: /* */ ! 109: ! 110: o2: ! 111: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 112: ao2: callf $4,_setjmp /* save context for error return */ ! 113: movab ao2,_stpc /* save starting address of program subtest */ ! 114: movl $2,_subtst /* subtest number */ ! 115: movl $2,_no_opr /* number of operands */ ! 116: movl $MASK2L3,_opr /* first operand */ ! 117: movl $SOURCE2L3,_opr + 4 /* second operand */ ! 118: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 119: movl $MASK2L3,r3 /*mask */ ! 120: movl $SOURCE2L3,r4 /*source */ ! 121: movl $INIT1L3,dest /*destination */ ! 122: bispsw $(Z|V) /*overflow & zero bits ON */ ! 123: orl3 r3,r4,dest /* try again reg reg mem */ ! 124: jeql error2 /*error if Z = 1 */ ! 125: jgeq error2 /*error if N = 0 */ ! 126: jcc error2 /*error if C = 0 */ ! 127: jvs error2 /*error if V = 1 */ ! 128: jmp 1f ! 129: error2: movpsl _actual /* actual = psl Maybe incorrect */ ! 130: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 131: movl $2,_ercode /* error code flag failure */ ! 132: jmp *badrtn ! 133: 1: cmpl dest,$EXP2L3 /*if dest <> expected value, */ ! 134: jeql o3 ! 135: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 136: movl $1,_ercode /* error code data miscompare */ ! 137: movl dest,_actual /* actual data */ ! 138: movl $EXP2L3,_expected /* expected data */ ! 139: jmp *badrtn ! 140: ! 141: ! 142: /* Now try another mask(0), source(0) & dest(0) */ ! 143: ! 144: o3: ! 145: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 146: ao3: callf $4,_setjmp /* save context for error return */ ! 147: movab ao3,_stpc /* save starting address of program subtest */ ! 148: movl $3,_subtst /* subtest number */ ! 149: movl $2,_no_opr /* number of operands */ ! 150: movl $MASK3L3,_opr /* first operand */ ! 151: movl $SOURCE3L3,_opr + 4 /* second operand */ ! 152: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 153: movl $SOURCE3L3,r4 /*source */ ! 154: movl $INIT3L3,dest /*destination */ ! 155: bispsw $(N|V) /*overflow & negetive bits ON */ ! 156: orl3 $MASK3L3,r4,dest/* try again data reg mem */ ! 157: jneq error3 /*error if Z = 0 */ ! 158: jlss error3 /*error if N = 1 */ ! 159: jcc error3 /*error if C = 0 */ ! 160: jvs error3 /*error if V = 1 */ ! 161: jmp 1f ! 162: error3: movpsl _actual /* actual = psl Maybe incorrect */ ! 163: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 164: movl $2,_ercode /* error code flag failure */ ! 165: jmp *badrtn ! 166: 1: cmpl dest,$EXP3L3 /*if dest <> expected value, */ ! 167: jeql o4 ! 168: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 169: movl $1,_ercode /* error code data miscompare */ ! 170: movl dest,_actual /* actual data */ ! 171: movl $EXP3L3,_expected /* expected data */ ! 172: jmp *badrtn ! 173: ! 174: o4: ! 175: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 176: ao4: callf $4,_setjmp /* save context for error return */ ! 177: movab ao4,_stpc /* save starting address of program subtest */ ! 178: movl $4,_subtst /* subtest number */ ! 179: movl $2,_no_opr /* number of operands */ ! 180: movl $MASK3L3,_opr /* first operand */ ! 181: movl $SOURCE3L3,_opr + 4 /* second operand */ ! 182: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 183: movl $MASK3L3,r3 ! 184: movl $INIT3L3,dest /*destination */ ! 185: bispsw $(N|V) /*overflow & negetive bits ON */ ! 186: orl3 r3,$SOURCE3L3,dest/* try again reg data mem */ ! 187: jneq error4 /*error if Z = 0 */ ! 188: jlss error4 /*error if N = 1 */ ! 189: jcc error4 /*error if C = 0 */ ! 190: jvs error4 /*error if V = 1 */ ! 191: jmp 1f ! 192: error4: movpsl _actual /* actual = psl Maybe incorrect */ ! 193: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 194: movl $2,_ercode /* error code flag failure */ ! 195: jmp *badrtn ! 196: 1: cmpl dest,$EXP3L3 /*if dest <> expected value, */ ! 197: jeql o5 ! 198: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 199: movl $1,_ercode /* error code data miscompare */ ! 200: movl dest,_actual /* actual data */ ! 201: movl $EXP3L3,_expected /* expected data */ ! 202: jmp *badrtn ! 203: ! 204: o5: ! 205: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 206: ao5: callf $4,_setjmp /* save context for error return */ ! 207: movab ao5,_stpc /* save starting address of program subtest */ ! 208: movl $5,_subtst /* subtest number */ ! 209: movl $2,_no_opr /* number of operands */ ! 210: movl $MASK1L3,_opr /* first operand */ ! 211: movl $SOURCE1L3,_opr + 4 /* second operand */ ! 212: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 213: movl $SOURCE1L3,r4 /*source */ ! 214: movl $INIT1L3,r5 /*destination */ ! 215: bispsw $(Z|V|C) /*overflow, Z & carry bits ON */ ! 216: orl3 $MASK1L3,r4,r5 /*try it data reg reg */ ! 217: jeql error5 /*error if Z = 1 */ ! 218: jgeq error5 /*error if N = 0 */ ! 219: jcc error5 /*error if C = 0 */ ! 220: jvs error5 /*error if V = 1 */ ! 221: jmp 1f ! 222: error5: movpsl _actual /* actual = psl Maybe incorrect */ ! 223: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 224: movl $2,_ercode /* error code flag failure */ ! 225: jmp *badrtn ! 226: 1: cmpl r5,$EXP1L3 /*if dest <> expected value, */ ! 227: jeql o6 ! 228: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 229: movl $1,_ercode /* error code data miscompare */ ! 230: movl r5,_actual /* actual data */ ! 231: movl $EXP1L3,_expected /* expected data */ ! 232: jmp *badrtn ! 233: ! 234: o6: ! 235: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 236: ao6: callf $4,_setjmp /* save context for error return */ ! 237: movab ao6,_stpc /* save starting address of program subtest */ ! 238: movl $6,_subtst /* subtest number */ ! 239: movl $2,_no_opr /* number of operands */ ! 240: movl $MASK2L3,_opr /* first operand */ ! 241: movl $SOURCE2L3,_opr + 4 /* second operand */ ! 242: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 243: movl $MASK2L3,r3 /*mask */ ! 244: movl $INIT1L3,r5 /*destination */ ! 245: bispsw $(Z|V) /*overflow & zero bits ON */ ! 246: orl3 r3,$SOURCE2L3,r5/* try again reg data reg */ ! 247: jeql error6 /*error if Z = 1 */ ! 248: jgeq error6 /*error if N = 0 */ ! 249: jcc error6 /*error if C = 0 */ ! 250: jvs error6 /*error if V = 1 */ ! 251: jmp 1f ! 252: error6: movpsl _actual /* actual = psl Maybe incorrect */ ! 253: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 254: movl $2,_ercode /* error code flag failure */ ! 255: jmp *badrtn ! 256: 1: cmpl r5,$EXP2L3 /*if dest <> expected value, */ ! 257: jeql orl3mmm /* no error then continue */ ! 258: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 259: movl $1,_ercode /* error code data miscompare */ ! 260: movl r5,_actual /* actual data */ ! 261: movl $EXP1L3,_expected /* expected data */ ! 262: jmp *badrtn ! 263: ! 264: /* */ ! 265: /* now try source = M, mask = M, destination = M */ ! 266: orl3mmm: ! 267: ! 268: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 269: ao7: callf $4,_setjmp /* save context for error return */ ! 270: movab ao7,_stpc /* save starting address of program subtest */ ! 271: movl $7,_subtst /* subtest number */ ! 272: movl $2,_no_opr /* number of operands */ ! 273: movl $MASK1L3,_opr /* first operand */ ! 274: movl $SOURCE1L3,_opr + 4 /* second operand */ ! 275: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 276: movl $MASK1L3,mask /*mask */ ! 277: movl $SOURCE1L3,source/*source */ ! 278: movl $INIT1L3,dest /*destination */ ! 279: bispsw $(Z|V|C) /*overflow, Z & carry bits ON */ ! 280: orl3 mask,source,dest/*try it mem mem mem */ ! 281: jeql error7 /*error if Z = 1 */ ! 282: jgeq error7 /*error if N = 0 */ ! 283: jcc error7 /*error if C = 0 */ ! 284: jvs error7 /*error if V = 1 */ ! 285: jmp 1f ! 286: error7: movpsl _actual /* actual = psl Maybe incorrect */ ! 287: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 288: movl $2,_ercode /* error code flag failure */ ! 289: jmp *badrtn ! 290: 1: cmpl dest,$EXP1L3 /*if dest <> expected value, */ ! 291: jeql o8 /* no error then continue */ ! 292: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 293: movl $1,_ercode /* error code data miscompare */ ! 294: movl dest,_actual /* actual data */ ! 295: movl $EXP1L3,_expected /* expected data */ ! 296: jmp *badrtn ! 297: ! 298: /* Now try another mask(0x55555555) */ ! 299: /* */ ! 300: ! 301: o8: ! 302: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 303: ao8: callf $4,_setjmp /* save context for error return */ ! 304: movab ao8,_stpc /* save starting address of program subtest */ ! 305: movl $8,_subtst /* subtest number */ ! 306: movl $2,_no_opr /* number of operands */ ! 307: movl $MASK2L3,_opr /* first operand */ ! 308: movl $SOURCE2L3,_opr + 4 /* second operand */ ! 309: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 310: movl $INIT1L3,dest /*destination */ ! 311: bispsw $(Z|V) /*overflow & zero bits ON */ ! 312: orl3 $MASK2L3,$SOURCE2L3,dest/* try again data data mem */ ! 313: jeql error8 /*error if Z = 1 */ ! 314: jgeq error8 /*error if N = 0 */ ! 315: jcc error8 /*error if C = 0 */ ! 316: jvs error8 /*error if V = 1 */ ! 317: jmp 1f ! 318: error8: movpsl _actual /* actual = psl Maybe incorrect */ ! 319: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 320: movl $2,_ercode /* error code flag failure */ ! 321: jmp *badrtn ! 322: 1: cmpl dest,$EXP2L3 /*if dest <> expected value, */ ! 323: jeql o9 /* no error then continue */ ! 324: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 325: movl $1,_ercode /* error code data miscompare */ ! 326: movl dest,_actual /* actual data */ ! 327: movl $EXP2L3,_expected /* expected data */ ! 328: jmp *badrtn ! 329: ! 330: o9: ! 331: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 332: ao9: callf $4,_setjmp /* save context for error return */ ! 333: movab ao9,_stpc /* save starting address of program subtest */ ! 334: movl $9,_subtst /* subtest number */ ! 335: movl $2,_no_opr /* number of operands */ ! 336: movl $MASK2L3,_opr /* first operand */ ! 337: movl $SOURCE2L3,_opr + 4 /* second operand */ ! 338: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 339: movl $INIT1L3,r5 /*destination */ ! 340: bispsw $(Z|V) /*overflow & zero bits ON */ ! 341: orl3 $MASK2L3,$SOURCE2L3,r5/* try again data data reg */ ! 342: jeql error9 /*error if Z = 1 */ ! 343: jgeq error9 /*error if N = 0 */ ! 344: jcc error9 /*error if C = 0 */ ! 345: jvs error9 /*error if V = 1 */ ! 346: jmp 1f ! 347: error9: movpsl _actual /* actual = psl Maybe incorrect */ ! 348: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 349: movl $2,_ercode /* error code flag failure */ ! 350: jmp *badrtn ! 351: 1: cmpl r5,$EXP2L3 /*if dest <> expected value, */ ! 352: jeql o10 /* no error then continue */ ! 353: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 354: movl $1,_ercode /* error code data miscompare */ ! 355: movl r5,_actual /* actual data */ ! 356: movl $EXP2L3,_expected /* expected data */ ! 357: jmp *badrtn ! 358: /* */ ! 359: /* */ ! 360: /* Now try another mask(0), source(0), & dest(0) */ ! 361: /* */ ! 362: o10: ! 363: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 364: ao10: callf $4,_setjmp /* save context for error return */ ! 365: movab ao10,_stpc /* save starting address of program subtest */ ! 366: movl $0xa,_subtst /* subtest number */ ! 367: movl $2,_no_opr /* number of operands */ ! 368: movl $MASK3L3,_opr /* first operand */ ! 369: movl $SOURCE3L3,_opr + 4 /* second operand */ ! 370: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 371: movl $SOURCE3L3,r4 /*source */ ! 372: movl $INIT3L3,r5 /*destination */ ! 373: bispsw $(N|V) /*overflow & negetive bits ON */ ! 374: orl3 $MASK3L3,r4,r5 /* try again data reg reg */ ! 375: jneq error10 /*error if Z = 0 */ ! 376: jlss error10 /*error if N = 1 */ ! 377: jcc error10 /*error if C = 0 */ ! 378: jvs error10 /*error if V = 1 */ ! 379: jmp 1f ! 380: error10: movpsl _actual /* actual = psl Maybe incorrect */ ! 381: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 382: movl $2,_ercode /* error code flag failure */ ! 383: jmp *badrtn ! 384: 1: movl $EXP3L3,r6 ! 385: cmpl r5,r6 /*if dest <> expected value, */ ! 386: jeql orl3mrm /* no error then continue */ ! 387: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 388: movl $1,_ercode /* error code data miscompare */ ! 389: movl r5,_actual /* actual data */ ! 390: movl r6,_expected /* expected data */ ! 391: jmp *badrtn ! 392: /* */ ! 393: /* Now use mask = R, source & destination = M */ ! 394: /* */ ! 395: orl3mrm: ! 396: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 397: ao11: callf $4,_setjmp /* save context for error return */ ! 398: movab ao11,_stpc /* save starting address of program subtest */ ! 399: movl $0xb,_subtst /* subtest number */ ! 400: movl $2,_no_opr /* number of operands */ ! 401: movl $MASK1L3,_opr /* first operand */ ! 402: movl $SOURCE1L3,_opr + 4 /* second operand */ ! 403: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 404: movl $MASK1L3,r3 /*mask */ ! 405: movl $SOURCE1L3,source/*source */ ! 406: movl $INIT1L3,dest /*destination */ ! 407: bispsw $(Z|V|C) /*overflow, Z & carry bits ON */ ! 408: orl3 r3,source,dest /*try it */ ! 409: jeql error11 /*error if Z = 1 */ ! 410: jgeq error11 /*error if N = 0 */ ! 411: jcc error11 /*error if C = 0 */ ! 412: jvs error11 /*error if V = 1 */ ! 413: jmp 1f ! 414: error11: movpsl _actual /* actual = psl Maybe incorrect */ ! 415: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 416: movl $2,_ercode /* error code flag failure */ ! 417: jmp *badrtn ! 418: 1: cmpl dest,$EXP1L3 /*if dest <> expected value, */ ! 419: jeql o12 /* no error then continue */ ! 420: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 421: movl $1,_ercode /* error code data miscompare */ ! 422: movl dest,_actual /* actual data */ ! 423: movl $EXP1L3,_expected /* expected data */ ! 424: jmp *badrtn ! 425: /* */ ! 426: /* Now try another mask(0x55555555) */ ! 427: /* */ ! 428: o12: ! 429: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 430: ao12: callf $4,_setjmp /* save context for error return */ ! 431: movab ao12,_stpc /* save starting address of program subtest */ ! 432: movl $0xc,_subtst /* subtest number */ ! 433: movl $2,_no_opr /* number of operands */ ! 434: movl $MASK2L3,_opr /* first operand */ ! 435: movl $SOURCE2L3,_opr + 4 /* second operand */ ! 436: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 437: movl $MASK2L3,r3 /*mask */ ! 438: movl $SOURCE2L3,source/*source */ ! 439: movl $INIT1L3,dest /*destination */ ! 440: bispsw $(Z|V) /*overflow & zero bits ON */ ! 441: orl3 r3,source,dest /* try again */ ! 442: jeql error12 /*error if Z = 1 */ ! 443: jgeq error12 /*error if N = 0 */ ! 444: jcc error12 /*error if C = 0 */ ! 445: jvs error12 /*error if V = 1 */ ! 446: jmp 1f ! 447: error12: movpsl _actual /* actual = psl Maybe incorrect */ ! 448: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 449: movl $2,_ercode /* error code flag failure */ ! 450: jmp *badrtn ! 451: 1: cmpl dest,$EXP2L3 /*if dest <> expected value, */ ! 452: jeql o13 /* no error then continue */ ! 453: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 454: movl $1,_ercode /* error code data miscompare */ ! 455: movl dest,_actual /* actual data */ ! 456: movl $EXP2L3,_expected /* expected data */ ! 457: jmp *badrtn ! 458: /* */ ! 459: /* Now try another mask(0), source(0), & dest(0) */ ! 460: /* */ ! 461: o13: ! 462: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 463: ao13: callf $4,_setjmp /* save context for error return */ ! 464: movab ao13,_stpc /* save starting address of program subtest */ ! 465: movl $0xd,_subtst /* subtest number */ ! 466: movl $2,_no_opr /* number of operands */ ! 467: movl $MASK3L3,_opr /* first operand */ ! 468: movl $SOURCE3L3,_opr + 4 /* second operand */ ! 469: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 470: movl $MASK3L3,r3 /*mask */ ! 471: movl $SOURCE3L3,source/*source */ ! 472: movl $INIT3L3,dest /*destination */ ! 473: bispsw $(N|V) /*overflow & negetive bits ON */ ! 474: orl3 r3,source,dest /* try again */ ! 475: jneq error13 /*error if Z = 0 */ ! 476: jlss error13 /*error if N = 1 */ ! 477: jcc error13 /*error if C = 0 */ ! 478: jvs error13 /*error if V = 1 */ ! 479: jmp 1f ! 480: error13: movpsl _actual /* actual = psl Maybe incorrect */ ! 481: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 482: movl $2,_ercode /* error code flag failure */ ! 483: jmp *badrtn ! 484: 1: cmpl dest,$EXP3L3 /*if dest <> expected value, */ ! 485: jeql orl3rmm /* no error then continue */ ! 486: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 487: movl $1,_ercode /* error code data miscompare */ ! 488: movl dest,_actual /* actual data */ ! 489: movl $EXP3L3,_expected /* expected data */ ! 490: jmp *badrtn ! 491: ! 492: /* */ ! 493: /* Now try mask = M, source = R, dest = M */ ! 494: /* */ ! 495: orl3rmm: ! 496: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 497: ao14: callf $4,_setjmp /* save context for error return */ ! 498: movab ao14,_stpc /* save starting address of program subtest */ ! 499: movl $0xe,_subtst /* subtest number */ ! 500: movl $2,_no_opr /* number of operands */ ! 501: movl $MASK1L3,_opr /* first operand */ ! 502: movl $SOURCE1L3,_opr + 4 /* second operand */ ! 503: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 504: movl $MASK1L3,mask /*mask */ ! 505: movl $SOURCE1L3,r4 /*source */ ! 506: movl $INIT1L3,dest /*destination */ ! 507: bispsw $(Z|V|C) /*overflow, Z & carry bits ON */ ! 508: orl3 mask,r4,dest /*try it */ ! 509: jeql error14 /*error if Z = 1 */ ! 510: jgeq error14 /*error if N = 0 */ ! 511: jcc error14 /*error if C = 0 */ ! 512: jvs error14 /*error if V = 1 */ ! 513: jmp 1f ! 514: error14: movpsl _actual /* actual = psl Maybe incorrect */ ! 515: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 516: movl $2,_ercode /* error code flag failure */ ! 517: jmp *badrtn ! 518: 1: cmpl dest,$EXP1L3 /*if dest <> expected value, */ ! 519: jeql o15 /* no error then continue */ ! 520: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 521: movl $1,_ercode /* error code data miscompare */ ! 522: movl dest,_actual /* actual data */ ! 523: movl $EXP1L3,_expected /* expected data */ ! 524: jmp *badrtn ! 525: ! 526: /* Now try another mask(0x55555555) */ ! 527: /* */ ! 528: ! 529: o15: ! 530: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 531: ao15: callf $4,_setjmp /* save context for error return */ ! 532: movab ao15,_stpc /* save starting address of program subtest */ ! 533: movl $0xf,_subtst /* subtest number */ ! 534: movl $2,_no_opr /* number of operands */ ! 535: movl $MASK2L3,_opr /* first operand */ ! 536: movl $SOURCE2L3,_opr + 4 /* second operand */ ! 537: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 538: movl $MASK2L3,mask /*mask */ ! 539: movl $SOURCE2L3,r4 /*source */ ! 540: movl $INIT1L3,dest /*destination */ ! 541: bispsw $(Z|V) /*overflow & zero bits ON */ ! 542: orl3 mask,r4,dest /* try again */ ! 543: jeql error15 /*error if Z = 1 */ ! 544: jgeq error15 /*error if N = 0 */ ! 545: jcc error15 /*error if C = 0 */ ! 546: jvs error15 /*error if V = 1 */ ! 547: jmp 1f ! 548: error15: movpsl _actual /* actual = psl Maybe incorrect */ ! 549: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 550: movl $2,_ercode /* error code flag failure */ ! 551: jmp *badrtn ! 552: 1: cmpl dest,$EXP2L3 /*if dest <> expected value, */ ! 553: jeql o16 /* no error then continue */ ! 554: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 555: movl $1,_ercode /* error code data miscompare */ ! 556: movl dest,_actual /* actual data */ ! 557: movl $EXP2L3,_expected /* expected data */ ! 558: jmp *badrtn ! 559: /* */ ! 560: /* Now try another mask(0), mask(0), dest(0) */ ! 561: /* */ ! 562: o16: ! 563: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 564: ao16: callf $4,_setjmp /* save context for error return */ ! 565: movab ao16,_stpc /* save starting address of program subtest */ ! 566: movl $0x10,_subtst /* subtest number */ ! 567: movl $2,_no_opr /* number of operands */ ! 568: movl $MASK3L3,_opr /* first operand */ ! 569: movl $SOURCE3L3,_opr + 4 /* second operand */ ! 570: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 571: movl $MASK3L3,mask /*mask */ ! 572: movl $SOURCE3L3,r4 /*source */ ! 573: movl $INIT3L3,dest /*destination */ ! 574: bispsw $(N|V) /*overflow & negetive bits ON */ ! 575: orl3 mask,r4,dest /* try again */ ! 576: jneq error16 /*error if Z = 0 */ ! 577: jlss error16 /*error if N = 1 */ ! 578: jcc error16 /*error if C = 0 */ ! 579: jvs error16 /*error if V = 1 */ ! 580: jmp 1f ! 581: error16: movpsl _actual /* actual = psl Maybe incorrect */ ! 582: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 583: movl $2,_ercode /* error code flag failure */ ! 584: jmp *badrtn ! 585: 1: cmpl dest,$EXP3L3 /*if dest <> expected value, */ ! 586: jeql orl3mrr /* no error then continue */ ! 587: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 588: movl $1,_ercode /* error code data miscompare */ ! 589: movl dest,_actual /* actual data */ ! 590: movl $EXP3L3,_expected /* expected data */ ! 591: jmp *badrtn ! 592: /* */ ! 593: /* Now try mask = R, source = M, dest = R */ ! 594: /* */ ! 595: orl3mrr: ! 596: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 597: ao17: callf $4,_setjmp /* save context for error return */ ! 598: movab ao17,_stpc /* save starting address of program subtest */ ! 599: movl $0x11,_subtst /* subtest number */ ! 600: movl $2,_no_opr /* number of operands */ ! 601: movl $MASK1L3,_opr /* first operand */ ! 602: movl $SOURCE1L3,_opr + 4 /* second operand */ ! 603: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 604: movl $MASK1L3,r3 /*mask */ ! 605: movl $SOURCE1L3,source/*source */ ! 606: movl $INIT1L3,r5 /*destination */ ! 607: bispsw $(Z|V|C) /*overflow, Z & carry bits ON */ ! 608: orl3 r3,source,r5 /*try it */ ! 609: jeql error17 /*error if Z = 1 */ ! 610: jgeq error17 /*error if N = 0 */ ! 611: jcc error17 /*error if C = 0 */ ! 612: jvs error17 /*error if V = 1 */ ! 613: jmp 1f ! 614: error17: movpsl _actual /* actual = psl Maybe incorrect */ ! 615: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 616: movl $2,_ercode /* error code flag failure */ ! 617: jmp *badrtn ! 618: 1: cmpl r5,$EXP1L3 /*if dest <> expected value, */ ! 619: jeql o18 /* no error then continue */ ! 620: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 621: movl $1,_ercode /* error code data miscompare */ ! 622: movl r5,_actual /* actual data */ ! 623: movl $EXP1L3,_expected /* expected data */ ! 624: jmp *badrtn ! 625: ! 626: /* Now try another mask(0x55555555) */ ! 627: /* */ ! 628: ! 629: o18: ! 630: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 631: ao18: callf $4,_setjmp /* save context for error return */ ! 632: movab ao18,_stpc /* save starting address of program subtest */ ! 633: movl $0x12,_subtst /* subtest number */ ! 634: movl $2,_no_opr /* number of operands */ ! 635: movl $MASK2L3,_opr /* first operand */ ! 636: movl $SOURCE2L3,_opr + 4 /* second operand */ ! 637: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 638: movl $MASK2L3,r3 /*mask */ ! 639: movl $SOURCE2L3,source/*source */ ! 640: movl $INIT1L3,r5 /*destination */ ! 641: bispsw $(Z|V) /*overflow & zero bits ON */ ! 642: orl3 r3,source,r5 /* try again */ ! 643: jeql error18 /*error if Z = 1 */ ! 644: jgeq error18 /*error if N = 0 */ ! 645: jcc error18 /*error if C = 0 */ ! 646: jvs error18 /*error if V = 1 */ ! 647: jmp 1f ! 648: error18: movpsl _actual /* actual = psl Maybe incorrect */ ! 649: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 650: movl $2,_ercode /* error code flag failure */ ! 651: jmp *badrtn ! 652: 1: cmpl r5,$EXP2L3 /*if dest <> expected value, */ ! 653: jeql o19 /* no error then continue */ ! 654: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 655: movl $1,_ercode /* error code data miscompare */ ! 656: movl r5,_actual /* actual data */ ! 657: movl $EXP2L3,_expected /* expected data */ ! 658: jmp *badrtn ! 659: /* */ ! 660: /* Now try another mask(0), mask(0), & dest(0) */ ! 661: /* */ ! 662: o19: ! 663: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 664: ao19: callf $4,_setjmp /* save context for error return */ ! 665: movab ao19,_stpc /* save starting address of program subtest */ ! 666: movl $0x13,_subtst /* subtest number */ ! 667: movl $2,_no_opr /* number of operands */ ! 668: movl $MASK3L3,_opr /* first operand */ ! 669: movl $SOURCE3L3,_opr + 4 /* second operand */ ! 670: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 671: movl $MASK3L3,r3 /*mask */ ! 672: movl $SOURCE3L3,source/*source */ ! 673: movl $INIT3L3,r5 /*destination */ ! 674: bispsw $(N|V) /*overflow & negetive bits ON */ ! 675: orl3 r3,source,r5 /* try again */ ! 676: jneq error19 /*error if Z = 0 */ ! 677: jlss error19 /*error if N = 1 */ ! 678: jcc error19 /*error if C = 0 */ ! 679: jvs error19 /*error if V = 1 */ ! 680: jmp 1f ! 681: error19: movpsl _actual /* actual = psl Maybe incorrect */ ! 682: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 683: movl $2,_ercode /* error code flag failure */ ! 684: jmp *badrtn ! 685: 1: cmpl r5,$EXP3L3 /*if dest <> expected value, */ ! 686: jeql aldn /* no error then continue */ ! 687: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 688: movl $1,_ercode /* error code data miscompare */ ! 689: movl r5,_actual /* actual data */ ! 690: movl $EXP3L3,_expected /* expected data */ ! 691: jmp *badrtn ! 692: ! 693: aldn: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 694: jmp *return ! 695: /* */ ! 696: /* Variables */ ! 697: /* */ ! 698: .align 2 ! 699: mask: .space 4 ! 700: source: .space 4 ! 701: dest: .space 4 ! 702: ! 703: /* */ ! 704: /* End of file */ ! 705:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.