![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to decl.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 decl.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry |
1.1 ! root 1: /* DECL instruction test */ ! 2: /* Privilege registers */ ! 3: ! 4: .set IPL,8 ! 5: .set MAPEN,9 ! 6: .set KSP,19 ! 7: ! 8: /* PSL fields */ ! 9: .set IV,32 ! 10: .set T,16 ! 11: .set N,8 ! 12: .set Z,4 ! 13: .set V,2 ! 14: .set C,1 ! 15: ! 16: /* constants */ ! 17: .set MAXPOSL,0x7fffffff ! 18: .set MAXNEGL,0x80000000 ! 19: .set MAXPOSW,0x7fff ! 20: .set MAXNEGW,0x8000 ! 21: .set MAXPOSB,0x7f ! 22: .set MAXNEGB,0x80 ! 23: .set ZERO,0 ! 24: .set ONES,0xffffffff ! 25: .set HIGH,31 /* highest interrupt priority */ ! 26: ! 27: .globl _dec_l ! 28: _dec_l: ! 29: callf $4,_setjmp /* save context for error return */ ! 30: movab _dec_l,_stpc /* save address of subtest start */ ! 31: movl $1,_subtst /* subtest number */ ! 32: movl $1,_no_opr /* number of operands in use */ ! 33: movl $1,_opr /* first operand */ ! 34: 0: bicpsw $(IV|T) /* disable overflow,trace exceptions */ ! 35: movl $1,r3 /* load r3 with 1 */ ! 36: bispsw $(N|V) /* set n,v flags */ ! 37: bicpsw $(C|Z) /* clear c,z flag */ ! 38: decl r3 /* decrement r3 */ ! 39: jneq error1 /* error if z flag not set */ ! 40: jcc error1 /* error if c flag not set */ ! 41: jlss error1 /* error if n flag still set */ ! 42: jvs error1 /* error if v flag still set */ ! 43: jmp 1f ! 44: error1: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 45: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 46: movl $2,_ercode /* error code flag failure */ ! 47: jmp *badrtn ! 48: 1: cmpl $0,r3 /* compare r3 to 0 */ ! 49: jeql ovf1 /* if no error continue */ ! 50: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 51: movl $1,_ercode /* error code data miscompare */ ! 52: movl r3,_actual /* actual data */ ! 53: movl $0,_expected /* expected data */ ! 54: jmp *badrtn ! 55: ovf1: ! 56: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 57: ad2: callf $4,_setjmp /* save context for error return */ ! 58: movab ad2,_stpc /* save address of subtest start */ ! 59: movl $2,_subtst /* subtest number */ ! 60: movl $1,_no_opr /* number of operands in use */ ! 61: movl $MAXNEGL,_opr /* first operand */ ! 62: 0: movl $MAXNEGL,r3 /* load r3 with largest neg. value */ ! 63: bispsw $Z /* set z flags */ ! 64: bicpsw $(N|V|C) /* clear n,v,c flag */ ! 65: decl r3 /* decrement r3 */ ! 66: jeql error2 /* error if z flag still set */ ! 67: jgeq error2 /* error if n flag not set */ ! 68: jcc error2 /* error if c flag not set */ ! 69: jvc error2 /* error if v flag not set */ ! 70: jmp 1f ! 71: error2: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 72: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 73: movl $2,_ercode /* error code flag failure */ ! 74: jmp *badrtn ! 75: 1: cmpl $MAXPOSL,r3 /* compare r3 to largest pos. value */ ! 76: jeql d3 /* if no error continue */ ! 77: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 78: movl $1,_ercode /* error code data miscompare */ ! 79: movl r3,_actual /* actual data */ ! 80: movl $MAXPOSL,_expected /* expected data */ ! 81: jmp *badrtn ! 82: ! 83: d3: ! 84: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 85: ad3: callf $4,_setjmp /* save context for error return */ ! 86: movab ad3,_stpc /* save address of subtest start */ ! 87: movl $3,_subtst /* subtest number */ ! 88: movl $1,_no_opr /* number of operands in use */ ! 89: movl $0,_opr /* first operand */ ! 90: 0: movl $0,r3 ! 91: bispsw $(C|Z|V) /* set c,z,v flags */ ! 92: bicpsw $N /* clear n flag */ ! 93: decl r3 ! 94: jeql error3 /* error if z flag still set */ ! 95: jcs error3 /* error if c flag still set */ ! 96: jvs error3 /* error if v flag still set */ ! 97: jgeq error3 /* error if n flag clear */ ! 98: jmp 1f ! 99: error3: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 100: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 101: movl $2,_ercode /* error code flag failure */ ! 102: jmp *badrtn ! 103: 1: cmpl $0xffffffff,r3 /* compare r3 to -1 */ ! 104: jeql decml /* if no error continue */ ! 105: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 106: movl $1,_ercode /* error code data miscompare */ ! 107: movl r3,_actual /* actual data */ ! 108: movl $0xffffffff,_expected /* expected data */ ! 109: jmp *badrtn ! 110: decml: /* DECREMENT MEMORY */ ! 111: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 112: ad4: callf $4,_setjmp /* save context for error return */ ! 113: movab ad4,_stpc /* save address of subtest start */ ! 114: movl $4,_subtst /* subtest number */ ! 115: movl $1,_no_opr /* number of operands in use */ ! 116: movl $1,_opr /* first operand */ ! 117: 0: movl $1,tstloc /* load tstloc with 1 */ ! 118: bispsw $(N|V) /* set n,v flags */ ! 119: bicpsw $(C|Z) /* clear c,z flag */ ! 120: decl tstloc /* decrement value in tstloc */ ! 121: jneq error4 /* error if z flag not set */ ! 122: jcc error4 /* error if c flag not set */ ! 123: jlss error4 /* error if n flag still set */ ! 124: jvs error4 /* error if v flag still set */ ! 125: jmp 1f ! 126: error4: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 127: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 128: movl $2,_ercode /* error code flag failure */ ! 129: jmp *badrtn ! 130: 1: cmpl $0,tstloc /* compare tstloc to 0 */ ! 131: jeql ovf2 /* if no error continue */ ! 132: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 133: movl $1,_ercode /* error code data miscompare */ ! 134: movl tstloc,_actual /* actual data */ ! 135: movl $0,_expected /* expected data */ ! 136: jmp *badrtn ! 137: ovf2: ! 138: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 139: ad5: callf $4,_setjmp /* save context for error return */ ! 140: movab ad5,_stpc /* save address of subtest start */ ! 141: movl $5,_subtst /* subtest number */ ! 142: movl $1,_no_opr /* number of operands in use */ ! 143: movl $MAXNEGL,_opr /* first operand */ ! 144: 0: movl $MAXNEGL,tstloc /* load tstloc with largest neg. value */ ! 145: bispsw $Z /* set z flags */ ! 146: bicpsw $(N|V|C) /* clear n,v,c flags */ ! 147: decl tstloc /* decrement tstloc */ ! 148: jeql error5 /* error if z flag still set */ ! 149: jgeq error5 /* error if n flag not set */ ! 150: jcc error5 /* error if c flag not set */ ! 151: jvc error5 /* error if v flag not set */ ! 152: jmp 1f ! 153: error5: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 154: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 155: movl $2,_ercode /* error code flag failure */ ! 156: jmp *badrtn ! 157: 1: cmpl $MAXPOSL,tstloc /* compare tstloc to largest pos. value */ ! 158: jeql d6 /* if no error continue */ ! 159: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 160: movl $1,_ercode /* error code data miscompare */ ! 161: movl tstloc,_actual /* actual data */ ! 162: movl $MAXPOSL,_expected /* expected data */ ! 163: jmp *badrtn ! 164: ! 165: d6: ! 166: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 167: ad6: callf $4,_setjmp /* save context for error return */ ! 168: movab ad6,_stpc /* save address of subtest start */ ! 169: movl $6,_subtst /* subtest number */ ! 170: movl $1,_no_opr /* number of operands in use */ ! 171: movl $0,_opr /* first operand */ ! 172: 0: movl $0,tstloc /* clear tstloc */ ! 173: bispsw $(Z|V|C) /* set z,v,c flags */ ! 174: bicpsw $N /* clear n flag */ ! 175: decl tstloc /* decrement tstloc */ ! 176: jgeq error6 /* error if n flag not set */ ! 177: jeql error6 /* error if z flag still set */ ! 178: jvs error6 /* error if v flag still set */ ! 179: jcs error6 /* error if c flag still set */ ! 180: jmp 1f ! 181: error6: movpsl _actual /* actual = psl MAYBE it is incorrect */ ! 182: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 183: movl $2,_ercode /* error code flag failure */ ! 184: jmp *badrtn ! 185: 1: cmpl $0xffffffff,tstloc /* tstloc == 0xffffffff */ ! 186: jeql aldn /* if no error continue */ ! 187: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 188: movl $1,_ercode /* error code data miscompare */ ! 189: movl tstloc,_actual /* actual data */ ! 190: movl $0xffffffff,_expected /* expected data */ ! 191: jmp *badrtn ! 192: ! 193: aldn: ! 194: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 195: jmp *return ! 196: ! 197: /* test data */ ! 198: .align 2 ! 199: tstloc: .long 0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.