![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to or_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 or_b3.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry |
1.1 ! root 1: ! 2: ! 3: ! 4: /* ORB3 (or byte 3 operand) test */ ! 5: ! 6: /*Test name = orb3 */ ! 7: /*Description = */ ! 8: /* This test checks 'orb3' instruction as follows: */ ! 9: /* source mask destination Z N C V(flags) */ ! 10: /* ___________ ____ ___________ _____________ */ ! 11: /* 0xaa 0xaa 0x7fffffaa 0 0 1 0 */ ! 12: /* 0xaa 0x55 0x7fffffff 0 0 1 0 */ ! 13: /* 0x00 0x00 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 _orb3 ! 77: _orb3: ! 78: callf $4,_setjmp /* save context for error return */ ! 79: movab _orb3,_stpc /* save starting address of subtest */ ! 80: movl $1,_subtst /* subtest number */ ! 81: movl $2,_no_opr /* number of operands in use */ ! 82: movl $MASK1B3,_opr /* first operand */ ! 83: movl $SOURCE1B3,_opr + 4 /* second operand */ ! 84: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 85: movl $MASK1B3,r3 /*mask */ ! 86: movl $SOURCE1B3,r4 /*source */ ! 87: movl $INIT1B3,r5 /*destination */ ! 88: bispsw $(Z|V|C) /*overflow, Z & carry bits ON */ ! 89: orb3 r3,r4,r5 /*try it reg reg reg */ ! 90: jeql error1 /*error if Z = 1 */ ! 91: jlss error1 /*error if N = 1 */ ! 92: jcc error1 /*error if C = 0 */ ! 93: jvs error1 /*error if V = 1 */ ! 94: jmp 1f ! 95: error1: movpsl _actual /* actual = psl MAYBE is 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,$0xaa /*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 $0xaa,_expected /* expected data */ ! 105: jmp *badrtn ! 106: ! 107: /* Now try another mask(0x55) */ ! 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 subtest */ ! 114: movl $2,_subtst /* subtest number */ ! 115: movl $2,_no_opr /* number of operands in use */ ! 116: movl $MASK2B3,_opr /* first operand */ ! 117: movl $SOURCE2B3,_opr + 4 /* second operand */ ! 118: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 119: movl $MASK2B3,r3 /*mask */ ! 120: movl $SOURCE2B3,r4 /*source */ ! 121: movl $INIT1B3,dest /*destination */ ! 122: bispsw $(Z|V) /*overflow & zero bits ON */ ! 123: orb3 r3,r4,dest+3 /* try again reg reg mem */ ! 124: jeql error2 /*error if Z = 1 */ ! 125: jlss error2 /*error if N = 1 */ ! 126: jcc error2 /*error if C = 0 */ ! 127: jvs error2 /*error if V = 1 */ ! 128: jmp 1f ! 129: error2: movpsl _actual /* actual = psl MAYBE is 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: cmpb dest+3,$-1 /*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 $-1,_expected /* expected data */ ! 139: jmp *badrtn ! 140: ! 141: ! 142: /* Now try another mask(0x00), source(0x00) & dest(0x00) */ ! 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 subtest */ ! 148: movl $3,_subtst /* subtest number */ ! 149: movl $2,_no_opr /* number of operands in use */ ! 150: movl $MASK3B3,_opr /* first operand */ ! 151: movl $SOURCE3B3,_opr + 4 /* second operand */ ! 152: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 153: movl $MASK3B3,r3 /*mask */ ! 154: movl $INIT3B3,r5 /*destination */ ! 155: bispsw $(N|V) /*overflow & negetive bits ON */ ! 156: orb3 r3,$SOURCE3B3,r5/* try again reg data reg */ ! 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 is 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 r5,$EXP3B3 /*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 r5,_actual /* actual data */ ! 171: movl $EXP3B3,_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 subtest */ ! 178: movl $4,_subtst /* subtest number */ ! 179: movl $2,_no_opr /* number of operands in use */ ! 180: movl $MASK2B3,_opr /* first operand */ ! 181: movl $SOURCE2B3,_opr + 4 /* second operand */ ! 182: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 183: movl $SOURCE2B3,r4 /*source */ ! 184: movl $INIT1B3,r5 /*destination */ ! 185: bispsw $(Z|V) /*overflow & zero bits ON */ ! 186: orb3 $MASK2B3,r4,r5 /* try again data reg reg */ ! 187: jeql error4 /*error if Z = 1 */ ! 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 is 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 r5,$0xff /*if dest <> expected value, */ ! 197: jeql orb3mmm ! 198: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 199: movl $1,_ercode /* error code data miscompare */ ! 200: movl r5,_actual /* actual data */ ! 201: movl $0xff,_expected /* expected data */ ! 202: jmp *badrtn ! 203: ! 204: ! 205: /* now try source = M, mask = M, destination = M */ ! 206: orb3mmm: ! 207: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 208: ao5: callf $4,_setjmp /* save context for error return */ ! 209: movab ao5,_stpc /* save starting address of subtest */ ! 210: movl $5,_subtst /* subtest number */ ! 211: movl $2,_no_opr /* number of operands in use */ ! 212: movl $MASK1B3,_opr /* first operand */ ! 213: movl $SOURCE1B3,_opr + 4 /* second operand */ ! 214: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 215: movl $MASK1B3,mask /*mask */ ! 216: movl $SOURCE1B3,source/*source */ ! 217: movl $INIT1B3,dest /*destination */ ! 218: bispsw $(Z|V|C) /*overflow, Z & carry bits ON */ ! 219: orb3 mask+3,source+3,dest+3/*try it mem mem mem */ ! 220: jeql error5 /*error if Z = 1 */ ! 221: jgeq error5 /*error if N = 0 */ ! 222: jcc error5 /*error if C = 0 */ ! 223: jvs error5 /*error if V = 1 */ ! 224: jmp 1f ! 225: error5: movpsl _actual /* actual = psl MAYBE is incorrect */ ! 226: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 227: movl $2,_ercode /* error code flag failure */ ! 228: jmp *badrtn ! 229: 1: cmpl dest,$EXP1B3 /*if dest <> expected value, */ ! 230: jeql o6 ! 231: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 232: movl $1,_ercode /* error code data miscompare */ ! 233: movl dest,_actual /* actual data */ ! 234: movl $EXP1B3,_expected /* expected data */ ! 235: jmp *badrtn ! 236: ! 237: /* Now try another mask(0x55) */ ! 238: /* */ ! 239: ! 240: o6: ! 241: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 242: ao6: callf $4,_setjmp /* save context for error return */ ! 243: movab ao6,_stpc /* save starting address of subtest */ ! 244: movl $6,_subtst /* subtest number */ ! 245: movl $2,_no_opr /* number of operands in use */ ! 246: movl $MASK2B3,_opr /* first operand */ ! 247: movl $SOURCE2B3,_opr + 4 /* second operand */ ! 248: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 249: movl $MASK2B3,mask /*mask */ ! 250: movl $SOURCE2B3,source/*source */ ! 251: movl $INIT1B3,r5 /*destination */ ! 252: bispsw $(Z|V) /*overflow & zero bits ON */ ! 253: orb3 mask+3,source+3,r5/* try again mem mem reg */ ! 254: jeql error6 /*error if Z = 1 */ ! 255: jgeq error6 /*error if N = 0 */ ! 256: jcc error6 /*error if C = 0 */ ! 257: jvs error6 /*error if V = 1 */ ! 258: jmp 1f ! 259: error6: movpsl _actual /* actual = psl MAYBE is incorrect */ ! 260: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 261: movl $2,_ercode /* error code flag failure */ ! 262: jmp *badrtn ! 263: 1: movl $0x0ffffffff,r6 ! 264: cmpl r5,r6 /*if dest <> expected value, */ ! 265: jeql o7 ! 266: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 267: movl $1,_ercode /* error code data miscompare */ ! 268: movl r5,_actual /* actual data */ ! 269: movl r6,_expected /* expected data */ ! 270: jmp *badrtn ! 271: /* */ ! 272: /* Now try another mask(0x00), source(0x00), & dest(0x00) */ ! 273: /* */ ! 274: o7: ! 275: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 276: ao7: callf $4,_setjmp /* save context for error return */ ! 277: movab ao7,_stpc /* save starting address of subtest */ ! 278: movl $7,_subtst /* subtest number */ ! 279: movl $2,_no_opr /* number of operands in use */ ! 280: movl $MASK3B3,_opr /* first operand */ ! 281: movl $SOURCE3B3,_opr + 4 /* second operand */ ! 282: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 283: movl $SOURCE3B3,r4 /*source */ ! 284: movl $INIT3B3,dest /*destination */ ! 285: bispsw $(N|V) /*overflow & negetive bits ON */ ! 286: orb3 $MASK3B3,r4,dest+3/* try again data reg mem */ ! 287: jneq error7 /*error if Z = 0 */ ! 288: jlss error7 /*error if N = 1 */ ! 289: jcc error7 /*error if C = 0 */ ! 290: jvs error7 /*error if V = 1 */ ! 291: jmp 1f ! 292: error7: movpsl _actual /* actual = psl MAYBE is incorrect */ ! 293: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 294: movl $2,_ercode /* error code flag failure */ ! 295: jmp *badrtn ! 296: 1: movl $0x7fffff00,r6 ! 297: cmpl dest,r6 /*if dest <> expected value, */ ! 298: jeql orb3mrm ! 299: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 300: movl $1,_ercode /* error code data miscompare */ ! 301: movl dest,_actual /* actual data */ ! 302: movl r6,_expected /* expected data */ ! 303: jmp *badrtn ! 304: /* */ ! 305: /* Now use mask = R, source & destination = M */ ! 306: /* */ ! 307: orb3mrm: ! 308: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 309: ao8: callf $4,_setjmp /* save context for error return */ ! 310: movab ao8,_stpc /* save starting address of subtest */ ! 311: movl $8,_subtst /* subtest number */ ! 312: movl $2,_no_opr /* number of operands in use */ ! 313: movl $MASK1B3,_opr /* first operand */ ! 314: movl $SOURCE1B3,_opr + 4 /* second operand */ ! 315: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 316: movl $MASK1B3,r3 /*mask */ ! 317: movl $SOURCE1B3,source/*source */ ! 318: movl $INIT1B3,dest /*destination */ ! 319: bispsw $(Z|V|C) /*overflow, Z & carry bits ON */ ! 320: orb3 r3,source+3,dest+3/*try it reg mem mem */ ! 321: jeql error8 /*error if Z = 1 */ ! 322: jgeq error8 /*error if N = 0 */ ! 323: jcc error8 /*error if C = 0 */ ! 324: jvs error8 /*error if V = 1 */ ! 325: jmp 1f ! 326: error8: movpsl _actual /* actual = psl MAYBE 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: 1: cmpl dest,$EXP1B3 /*if dest <> expected value, */ ! 331: jeql o9 ! 332: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 333: movl $1,_ercode /* error code data miscompare */ ! 334: movl dest,_actual /* actual data */ ! 335: movl $EXP1B3,_expected /* expected data */ ! 336: jmp *badrtn ! 337: /* */ ! 338: /* Now try another mask(0x55) */ ! 339: /* */ ! 340: o9: ! 341: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 342: ao9: callf $4,_setjmp /* save context for error return */ ! 343: movab ao9,_stpc /* save starting address of subtest */ ! 344: movl $9,_subtst /* subtest number */ ! 345: movl $2,_no_opr /* number of operands in use */ ! 346: movl $MASK2B3,_opr /* first operand */ ! 347: movl $SOURCE2B3,_opr + 4 /* second operand */ ! 348: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 349: movl $MASK2B3,mask /*mask */ ! 350: movl $SOURCE2B3,r4 /*source */ ! 351: movl $INIT1B3,dest /*destination */ ! 352: bispsw $(Z|V) /*overflow & zero bits ON */ ! 353: orb3 mask+3,r4,dest+3/* try again mem reg mem */ ! 354: jeql error9 /*error if Z = 1 */ ! 355: jlss error9 /*error if N = 0 */ ! 356: jcc error9 /*error if C = 0 */ ! 357: jvs error9 /*error if V = 1 */ ! 358: jmp 1f ! 359: error9: movpsl _actual /* actual = psl MAYBE is incorrect */ ! 360: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 361: movl $2,_ercode /* error code flag failure */ ! 362: jmp *badrtn ! 363: 1: cmpl dest,$EXP2B3 /*if dest <> expected value, */ ! 364: jeql o10 ! 365: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 366: movl $1,_ercode /* error code data miscompare */ ! 367: movl dest,_actual /* actual data */ ! 368: movl $EXP2B3,_expected /* expected data */ ! 369: jmp *badrtn ! 370: /* */ ! 371: /* Now try another mask(0x00), source(0x00), & dest(0x00) */ ! 372: /* */ ! 373: o10: ! 374: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 375: ao10: callf $4,_setjmp /* save context for error return */ ! 376: movab ao10,_stpc /* save starting address of subtest */ ! 377: movl $0xa,_subtst /* subtest number */ ! 378: movl $2,_no_opr /* number of operands in use */ ! 379: movl $MASK3B3,_opr /* first operand */ ! 380: movl $SOURCE3B3,_opr + 4 /* second operand */ ! 381: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 382: movl $MASK3B3,mask /*mask */ ! 383: movl $INIT3B3,dest /*destination */ ! 384: bispsw $(N|V) /*overflow & negetive bits ON */ ! 385: orb3 mask,$SOURCE3B3,dest+3 /* try again */ ! 386: jneq error10 /*error if Z = 0 */ ! 387: jlss error10 /*error if N = 1 */ ! 388: jcc error10 /*error if C = 0 */ ! 389: jvs error10 /*error if V = 1 */ ! 390: jmp 1f ! 391: error10: movpsl _actual /* actual = psl MAYBE is incorrect */ ! 392: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 393: movl $2,_ercode /* error code flag failure */ ! 394: jmp *badrtn ! 395: 1: movl $0x7fffff00,r6 ! 396: cmpl dest,r6 /*if dest <> expected value, */ ! 397: jeql orb3rmm ! 398: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 399: movl $1,_ercode /* error code data miscompare */ ! 400: movl dest,_actual /* actual data */ ! 401: movl r6,_expected /* expected data */ ! 402: jmp *badrtn ! 403: ! 404: /* */ ! 405: /* Now try mask = M, source = R, dest = M */ ! 406: /* */ ! 407: orb3rmm: ! 408: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 409: ao11: callf $4,_setjmp /* save context for error return */ ! 410: movab ao11,_stpc /* save starting address of subtest */ ! 411: movl $0xb,_subtst /* subtest number */ ! 412: movl $2,_no_opr /* number of operands in use */ ! 413: movl $-0x56,_opr /* first operand */ ! 414: movl $-0x56,_opr + 4 /* second operand */ ! 415: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 416: movl $INIT1B3,dest /*destination */ ! 417: bispsw $(Z|V|C) /*overflow, Z & carry bits ON */ ! 418: orb3 $-0x56,$-0x56,dest+3 /*try it data data mem */ ! 419: jeql error11 /*error if Z = 1 */ ! 420: jgeq error11 /*error if N = 0 */ ! 421: jcc error11 /*error if C = 0 */ ! 422: jvs error11 /*error if V = 1 */ ! 423: jmp 1f ! 424: error11: movpsl _actual /* actual = psl MAYBE is incorrect */ ! 425: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 426: movl $2,_ercode /* error code flag failure */ ! 427: jmp *badrtn ! 428: 1: cmpl dest,$EXP1B3 /*if dest <> expected value, */ ! 429: jeql o12 ! 430: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 431: movl $1,_ercode /* error code data miscompare */ ! 432: movl dest,_actual /* actual data */ ! 433: movl $EXP1B3,_expected /* expected data */ ! 434: jmp *badrtn ! 435: ! 436: /* Now try another mask(0x55) */ ! 437: /* */ ! 438: ! 439: o12: ! 440: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 441: ao12: callf $4,_setjmp /* save context for error return */ ! 442: movab ao12,_stpc /* save starting address of subtest */ ! 443: movl $0xb,_subtst /* subtest number */ ! 444: movl $2,_no_opr /* number of operands in use */ ! 445: movl $-0x56,_opr /* first operand */ ! 446: movl $-0x56,_opr + 4 /* second operand */ ! 447: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 448: movl $MASK2B3,mask /*mask */ ! 449: movl $SOURCE2B3,r4 /*source */ ! 450: movl $INIT1B3,dest /*destination */ ! 451: bispsw $(Z|V) /*overflow & zero bits ON */ ! 452: orb3 mask+3,r4,dest+3 /* try again */ ! 453: jeql error12 /*error if Z = 1 */ ! 454: jlss error12 /*error if N = 1 */ ! 455: jcc error12 /*error if C = 0 */ ! 456: jvs error12 /*error if V = 1 */ ! 457: jmp 1f ! 458: error12: movpsl _actual /* actual = psl MAYBE is incorrect */ ! 459: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 460: movl $2,_ercode /* error code flag failure */ ! 461: jmp *badrtn ! 462: 1: cmpl dest,$EXP2B3 /*if dest <> expected value, */ ! 463: jeql o13 ! 464: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 465: movl $1,_ercode /* error code data miscompare */ ! 466: movl dest,_actual /* actual data */ ! 467: movl $EXP2B3,_expected /* expected data */ ! 468: jmp *badrtn ! 469: /* */ ! 470: /* Now try another mask(0x00), mask(0x00), dest(0x00) */ ! 471: /* */ ! 472: o13: ! 473: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 474: ao13: callf $4,_setjmp /* save context for error return */ ! 475: movab ao13,_stpc /* save starting address of subtest */ ! 476: movl $0xd,_subtst /* subtest number */ ! 477: movl $2,_no_opr /* number of operands in use */ ! 478: movl $MASK3B3,_opr /* first operand */ ! 479: movl $SOURCE3B3,_opr + 4 /* second operand */ ! 480: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 481: movl $MASK3B3,mask /*mask */ ! 482: movl $SOURCE3B3,r4 /*source */ ! 483: movl $INIT3B3,dest /*destination */ ! 484: bispsw $(N|V) /*overflow & negetive bits ON */ ! 485: orb3 mask+3,r4,dest+3 /* try again */ ! 486: jneq error13 /*error if Z = 0 */ ! 487: jlss error13 /*error if N = 1 */ ! 488: jcc error13 /*error if C = 0 */ ! 489: jvs error13 /*error if V = 1 */ ! 490: jmp 1f ! 491: error13: movpsl _actual /* actual = psl MAYBE is incorrect */ ! 492: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 493: movl $2,_ercode /* error code flag failure */ ! 494: jmp *badrtn ! 495: 1: movl $0x7fffff00,r6 ! 496: cmpl dest,r6 /*if dest <> expected value, */ ! 497: jeql orb3mrr ! 498: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 499: movl $1,_ercode /* error code data miscompare */ ! 500: movl dest,_actual /* actual data */ ! 501: movl r6,_expected /* expected data */ ! 502: jmp *badrtn ! 503: /* */ ! 504: /* Now try mask = R, source = M, dest = R */ ! 505: /* */ ! 506: orb3mrr: ! 507: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 508: ao14: callf $4,_setjmp /* save context for error return */ ! 509: movab ao14,_stpc /* save starting address of subtest */ ! 510: movl $0xe,_subtst /* subtest number */ ! 511: movl $2,_no_opr /* number of operands in use */ ! 512: movl $MASK1B3,_opr /* first operand */ ! 513: movl $SOURCE1B3,_opr + 4 /* second operand */ ! 514: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 515: movl $MASK1B3,r3 /*mask */ ! 516: movl $SOURCE1B3,source/*source */ ! 517: movl $INIT1B3,r5 /*destination */ ! 518: bispsw $(Z|V|C) /*overflow, Z & carry bits ON */ ! 519: orb3 r3,source+3,r5 /*try it */ ! 520: jeql error14 /*error if Z = 1 */ ! 521: jgeq error14 /*error if N = 0 */ ! 522: jcc error14 /*error if C = 0 */ ! 523: jvs error14 /*error if V = 1 */ ! 524: jmp 1f ! 525: error14: movpsl _actual /* actual = psl MAYBE is incorrect */ ! 526: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 527: movl $2,_ercode /* error code flag failure */ ! 528: jmp *badrtn ! 529: 1: cmpl r5,$0xffffffaa /*if dest <> expected value, */ ! 530: jeql o15 ! 531: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 532: movl $1,_ercode /* error code data miscompare */ ! 533: movl r5,_actual /* actual data */ ! 534: movl $0xffffffaa,_expected /* expected data */ ! 535: jmp *badrtn ! 536: ! 537: /* Now try another mask(0x55) */ ! 538: /* */ ! 539: ! 540: o15: ! 541: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 542: ao15: callf $4,_setjmp /* save context for error return */ ! 543: movab ao15,_stpc /* save starting address of subtest */ ! 544: movl $0xf,_subtst /* subtest number */ ! 545: movl $2,_no_opr /* number of operands in use */ ! 546: movl $MASK2B3,_opr /* first operand */ ! 547: movl $SOURCE2B3,_opr + 4 /* second operand */ ! 548: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 549: movl $MASK2B3,r3 /*mask */ ! 550: movl $SOURCE2B3,source/*source */ ! 551: movl $INIT1B3,r5 /*destination */ ! 552: bispsw $(Z|V) /*overflow & zero bits ON */ ! 553: orb3 r3,source+3,r5 /* try again */ ! 554: jeql error15 /*error if Z = 1 */ ! 555: jgeq error15 /*error if N = 1 */ ! 556: jcc error15 /*error if C = 0 */ ! 557: jvs error15 /*error if V = 1 */ ! 558: jmp 1f ! 559: error15: movpsl _actual /* actual = psl MAYBE is incorrect */ ! 560: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 561: movl $2,_ercode /* error code flag failure */ ! 562: jmp *badrtn ! 563: 1: movl $-1,r6 ! 564: cmpl r5,r6 /*if dest <> expected value, */ ! 565: jeql o16 ! 566: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 567: movl $1,_ercode /* error code data miscompare */ ! 568: movl r5,_actual /* actual data */ ! 569: movl r6,_expected /* expected data */ ! 570: jmp *badrtn ! 571: /* */ ! 572: /* Now try another mask(0x00), mask(0x00), & dest(0x00) */ ! 573: /* */ ! 574: o16: ! 575: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 576: ao16: callf $4,_setjmp /* save context for error return */ ! 577: movab ao16,_stpc /* save starting address of subtest */ ! 578: movl $0x10,_subtst /* subtest number */ ! 579: movl $2,_no_opr /* number of operands in use */ ! 580: movl $MASK3B3,_opr /* first operand */ ! 581: movl $SOURCE3B3,_opr + 4 /* second operand */ ! 582: 0: bicpsw $PSWMASK /*turn overflow enable bit off */ ! 583: movl $MASK3B3,r3 /*mask */ ! 584: movl $SOURCE3B3,source/*source */ ! 585: movl $INIT3B3,r5 /*destination */ ! 586: bispsw $(N|V) /*overflow & negetive bits ON */ ! 587: orb3 r3,source+3,r5 /* try again */ ! 588: jneq error16 /*error if Z = 0 */ ! 589: jlss error16 /*error if N = 1 */ ! 590: jcc error16 /*error if C = 0 */ ! 591: jvs error16 /*error if V = 1 */ ! 592: jmp 1f ! 593: error16: movpsl _actual /* actual = psl MAYBE is incorrect */ ! 594: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 595: movl $2,_ercode /* error code flag failure */ ! 596: jmp *badrtn ! 597: 1: cmpl r5,$EXP3B3 /*if dest <> expected value, */ ! 598: jeql aldn ! 599: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 600: movl $1,_ercode /* error code data miscompare */ ! 601: movl r5,_actual /* actual data */ ! 602: movl $EXP3B3,_expected /* expected data */ ! 603: jmp *badrtn ! 604: ! 605: aldn: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 606: jmp *return ! 607: ! 608: /* */ ! 609: /* Variables */ ! 610: /* */ ! 611: .align 2 ! 612: mask: .space 4 ! 613: source: .space 4 ! 614: dest: .space 4 ! 615: ! 616: /* */ ! 617: /* End of file */ ! 618:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.