![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to pushal.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 pushal.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry |
1.1 ! root 1: /* PUSHAL instruction test */ ! 2: # R2 : error code ! 3: # 1 : error in flags ! 4: # 2 : result is not as expected ! 5: # 3 : Stack did not decrement as expected ! 6: ! 7: .set IPL,8 ! 8: .set MAPEN,9 ! 9: .set KSP,19 ! 10: ! 11: /* PSL fields */ ! 12: .set IV,32 ! 13: .set T,16 ! 14: .set N,8 ! 15: .set Z,4 ! 16: .set V,2 ! 17: .set C,1 ! 18: ! 19: /* constants */ ! 20: .set DISABLE,0 ! 21: .set ENABLE,1 ! 22: .set MAXPOSL,0x7fffffff ! 23: .set MAXNEGL,0x80000000 ! 24: .set HIGH,31 /* highest interrupt priority */ ! 25: .set DISP,2 ! 26: .set LONG,4 ! 27: .set WORD,2 ! 28: .set BYTE,1 ! 29: ! 30: .globl _pushal ! 31: _pushal: ! 32: callf $4,_setjmp /* save context for error return */ ! 33: movab _pushal,_stpc /* save starting address of subtest */ ! 34: movl $1,_subtst /* subtest number */ ! 35: movl $1,_no_opr /* number of operands in use */ ! 36: movab tstloc,_opr /* first operand */ ! 37: 0: bicpsw $(IV|T) /* disable exceptions */ ! 38: /* MOVE ADDRESS FROM MEMORY TO STACK(R14) */ ! 39: movab stk,r14 /* initialize stack */ ! 40: movab stk,r10 ! 41: bispsw $(N|Z|V) /* set n,z,v flags */ ! 42: bicpsw $Z ! 43: pushal tstloc /* push address tstloc on stack */ ! 44: jlss error1 /* error if any of the n,z,v */ ! 45: jeql error1 /* flags still set */ ! 46: jvs error1 ! 47: jcc error1 /* error if c flag clear */ ! 48: jmp 1f ! 49: error1: movpsl _actual /* actual = psl maybe incorrect */ ! 50: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 51: movl $2,_ercode /* error code flag miscompare */ ! 52: jmp *badrtn ! 53: 1: cmpl (r14),result /* check if stack has valid adr */ ! 54: jeql 1f ! 55: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 56: movl $1,_ercode /* error code data miscompare */ ! 57: movl (r14),_actual /* actual data */ ! 58: movl result,_expected /* expected data */ ! 59: jmp *badrtn ! 60: 1: movab (r14),r13 ! 61: decl r10 ! 62: decl r10 ! 63: decl r10 ! 64: decl r10 ! 65: cmpl r10,r13 /* check if stack get decrement */ ! 66: jeql p2 ! 67: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 68: movl $1,_ercode /* error code data miscompare */ ! 69: movl r10,_actual /* actual data */ ! 70: movl r13,_expected /* expected data */ ! 71: jmp *badrtn ! 72: /* MOVE ADDRESS FROM REGISTER TO STACK */ ! 73: p2: ! 74: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 75: ap2: callf $4,_setjmp /* save context for error return */ ! 76: movab ap2,_stpc /* save starting address of subtest */ ! 77: movl $2,_subtst /* subtest number */ ! 78: movl $1,_no_opr /* number of operands in use */ ! 79: movl result,_opr /* first operand */ ! 80: 0: movl result,r12 /* set r12 = address of tstloc */ ! 81: pushal (r12) /* push address in r12 on stack */ ! 82: movab (r14),r13 ! 83: decl r10 ! 84: decl r10 ! 85: decl r10 ! 86: decl r10 ! 87: cmpl r10,r13 ! 88: jeql 1f ! 89: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 90: movl $1,_ercode /* error code data miscompare */ ! 91: movl r10,_actual /* actual data */ ! 92: movl r13,_expected /* expected data */ ! 93: jmp *badrtn ! 94: 1: bicpsw $Z ! 95: cmpl (r14),result /* compare result */ ! 96: jeql chkflag ! 97: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 98: movl $1,_ercode /* error code data miscompare */ ! 99: movl (r14),_actual /* actual data */ ! 100: movl result,_expected /* expected data */ ! 101: jmp *badrtn ! 102: /* TESTING CONDITION FLAGS */ ! 103: chkflag: ! 104: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 105: ap3: callf $4,_setjmp /* save context for error return */ ! 106: movab ap3,_stpc /* save starting address of subtest */ ! 107: movl $3,_subtst /* subtest number */ ! 108: movl $1,_no_opr /* number of operands in use */ ! 109: movl $MAXNEGL,_opr /* first operand */ ! 110: 0: movl $MAXNEGL,r13 /* set r13 = $MAXNEGL */ ! 111: bispsw $(Z|V|C) /* set z,v,c flags */ ! 112: bicpsw $N /* clear n flag */ ! 113: pushal (r13) /* push adr. in r13 on stack */ ! 114: jgeq error2 /* error if n flag clear */ ! 115: jcc error2 /* error if c flag clear */ ! 116: jeql error2 /* error if z flag still set */ ! 117: jvs error2 /* error if v flag still set */ ! 118: jmp 1f ! 119: error2: movpsl _actual /* actual = psl maybe incorrect */ ! 120: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 121: movl $2,_ercode /* error code flag miscompare */ ! 122: jmp *badrtn ! 123: 1: cmpl (r14),$MAXNEGL /* check address in temp */ ! 124: jeql p4 ! 125: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 126: movl $1,_ercode /* error code data miscompare */ ! 127: movl (r14),_actual /* actual data */ ! 128: movl $MAXNEGL,_expected /* expected data */ ! 129: jmp *badrtn ! 130: ! 131: p4: ! 132: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 133: ap4: callf $4,_setjmp /* save context for error return */ ! 134: movab ap4,_stpc /* save starting address of subtest */ ! 135: movl $4,_subtst /* subtest number */ ! 136: movl $1,_no_opr /* number of operands in use */ ! 137: movl $0,_opr /* first operand */ ! 138: 0: movl $0,r11 /* set r11 = $0 */ ! 139: bispsw $(N|V) /* set n,v flags */ ! 140: bicpsw $(Z|C) /* clear z,c flag */ ! 141: pushal (r11) /* push adr. in r11 on stack */ ! 142: jneq error3 /* error if z flag clear */ ! 143: jcc error3 /* error if c flag clear */ ! 144: jlss error3 /* error if n flag still set */ ! 145: jvs error3 /* error if v flag still set */ ! 146: jmp 1f ! 147: error3: movpsl _actual /* actual = psl maybe incorrect */ ! 148: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 149: movl $2,_ercode /* error code flag miscompare */ ! 150: jmp *badrtn ! 151: 1: bicpsw $Z ! 152: cmpl (r14),$0 /* check address in temp */ ! 153: jeql p5 ! 154: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 155: movl $1,_ercode /* error code data miscompare */ ! 156: movl (r14),_actual /* actual data */ ! 157: movl $0,_expected /* expected data */ ! 158: jmp *badrtn ! 159: /* CHECKING INDEXING MODE */ ! 160: p5: ! 161: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 162: ap5: callf $4,_setjmp /* save context for error return */ ! 163: movab ap5,_stpc /* save starting address of subtest */ ! 164: movl $5,_subtst /* subtest number */ ! 165: movl $1,_no_opr /* number of operands in use */ ! 166: movl tstloc,_opr /* first operand */ ! 167: 0: movl $DISP,r0 /* set r0 = DISP = 2 */ ! 168: bispsw $(N|Z|V) /* set n,z,v flags */ ! 169: bicpsw $Z ! 170: pushal tstloc[r0] /* move address tstloc on stack */ ! 171: jlss error4 /* error if any of the n,z,v */ ! 172: jeql error4 /* flags still set */ ! 173: jvs error4 ! 174: jcc error4 /* error if c flag clear */ ! 175: jmp 1f ! 176: error4: movpsl _actual /* actual = psl maybe incorrect */ ! 177: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 178: movl $2,_ercode /* error code flag miscompare */ ! 179: jmp *badrtn ! 180: 1: cmpl (r14),resul1 /* check if stack has valid adr */ ! 181: jeql aldn ! 182: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 183: movl $1,_ercode /* error code data miscompare */ ! 184: movl (r14),_actual /* actual data */ ! 185: movl resul1,_expected /* expected data */ ! 186: jmp *badrtn ! 187: ! 188: aldn: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 189: jmp *return ! 190: ! 191: /* test data */ ! 192: .align 2 /* align on longword boundery */ ! 193: /* STACK SPACE */ ! 194: .space 40 /* 10 long words for stack */ ! 195: stk: .long 0 ! 196: tstloc: .long 0 ! 197: result: .long tstloc ! 198: resul1: .long tstloc+(DISP*LONG) ! 199: temp: .long 0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.