![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to pushab.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 pushab.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry |
1.1 ! root 1: /* PUSHAB 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 DISABLE,0 ! 18: .set ENABLE,1 ! 19: .set MAXPOSW,0x7fff ! 20: .set MAXNEGL,0x8000ffff ! 21: .set HIGH,31 /* highest interrupt priority */ ! 22: .set DISP,2 ! 23: .set LONG,4 ! 24: .set WORD,2 ! 25: .set BYTE,1 ! 26: ! 27: .globl _pushab ! 28: _pushab: ! 29: callf $4,_setjmp /* save context for error return */ ! 30: movab _pushab,_stpc /* save subtest starting address */ ! 31: movl $1,_subtst /* subtest number */ ! 32: movl $1,_no_opr /* number of operands in use */ ! 33: movab tstloc,_opr /* first operand */ ! 34: 0: bicpsw $(IV|T) /* disable exceptions */ ! 35: /* */ ! 36: pshab: ! 37: /* MOVE ADDRESS FROM MEMORY TO STACK(R14) */ ! 38: movab stk,r14 /* initialize stack */ ! 39: movab stk,r10 ! 40: bispsw $(N|Z|V ) /* set n,z,v flags */ ! 41: bicpsw $Z ! 42: pushab tstloc /* push address tstloc on stack */ ! 43: jlss error1 /* error if any of the n,z,v */ ! 44: jeql error1 /* flags still set */ ! 45: jvs error1 ! 46: jcc error1 /* error if c flag clear */ ! 47: jmp 1f ! 48: error1: movpsl _actual /* actual = psl MAYBE incorrect */ ! 49: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 50: movl $2,_ercode /* error code flag failure */ ! 51: jmp *badrtn ! 52: 1: cmpl (r14),result /* check if stack has valid adr */ ! 53: jeql 1f /* no error then continue */ ! 54: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 55: movl $1,_ercode /* error code data miscompare */ ! 56: movl (r14),_actual /* actual data */ ! 57: movl result,_expected /* expected data */ ! 58: jmp *badrtn ! 59: 1: bicpsw $Z ! 60: 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 /* if no error continue */ ! 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 subtest starting address */ ! 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: pushab (r12) /* push address in r12 on stack */ ! 82: cmpl (r14),result /* compare result */ ! 83: jeql 1f /* no error then continue */ ! 84: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 85: movl $1,_ercode /* error code data miscompare */ ! 86: movl (r14),_actual /* actual data */ ! 87: movl result,_expected /* expected data */ ! 88: jmp *badrtn ! 89: 1: bicpsw $Z ! 90: movab (r14),r13 ! 91: decl r10 ! 92: decl r10 ! 93: decl r10 ! 94: decl r10 ! 95: cmpl r10,r13 /* check if stack get decrement */ ! 96: jeql chkflag /* no error then continue */ ! 97: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 98: movl $1,_ercode /* error code data miscompare */ ! 99: movl r10,_actual /* actual data */ ! 100: movl r13,_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 subtest starting address */ ! 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) /* set z,v flags */ ! 112: bicpsw $(C|N) /* clear n,c flag */ ! 113: pushab (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 failure */ ! 122: jmp *badrtn ! 123: 1: cmpl (r14),$MAXNEGL /* check address in temp */ ! 124: jeql p4 /* no error then continue */ ! 125: bbs $0,_scoplp,0b /* if set scope loop on error */ ! 126: movl $1,_ercode /* error code data miscompare */ ! 127: movl r10,_actual /* actual data */ ! 128: movl r13,_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 subtest starting address */ ! 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: pushab (r11) /* push adr. in r11 on stack */ ! 142: jcc error3 /* error if c flag clear */ ! 143: jneq error3 /* error if z 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 failure */ ! 150: jmp *badrtn ! 151: 1: bicpsw $Z ! 152: cmpl (r14),$0 /* check address in temp */ ! 153: jeql p5 /* no error then continue */ ! 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 subtest starting address */ ! 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: pushab 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 failure */ ! 179: jmp *badrtn ! 180: 1: cmpl (r14),resul1 /* check if stack has valid adr */ ! 181: jeql aldn /* no error then continue */ ! 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 $0,_expected /* expected data */ ! 186: jmp *badrtn ! 187: ! 188: ! 189: aldn: bbs $0,_force_lp,0b /* if set loop on last subtest */ ! 190: jmp *return /* good, return to monitor */ ! 191: ! 192: ! 193: /* test data */ ! 194: .align 2 /* align on longword boundery */ ! 195: /* STACK SPACE */ ! 196: .space 40 /* 10 long words for stack */ ! 197: stk: .long 0 ! 198: tstloc: .long 0 ! 199: result: .long tstloc ! 200: resul1: .long tstloc+(DISP*BYTE)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.