![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to clr_w.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 clr_w.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry |
1.1 root 1:
2:
3: /* CLRW (clear word) test */
4:
5: /*Test name = Clrw */
6: /*Description = */
7: /* This test checks "clrw" instruction to see that */
8: /* (1)destination is cleared to zero */
9: /* (2)Z flag is set to one */
10: /* (3)N and V flags are set to zero */
11: /* (4)C flag is set to 1. */
12: /* Register 1 (r1) & memory location tmloc(lebel) are used as */
13: /* destination. */
14: /* */
15: /* Constants definition */
16: /* */
17: .set IPL,8
18: .set HIGH,31
19: .set ZERO,0
20: .set ONES,0xffffffff
21: .set N,8
22: .set Z,4
23: .set V,2
24: .set C,1
25: .set EXPL,0X00000000
26: .set EXPW,0x0000ffff
27: .set EXPB,0xffffff00
28: .set PSWMASK,0x003f
29: .globl _clr_w
30: _clr_w:
31: callf $4,_setjmp /* save context for error return */
32: movab _clr_w,_stpc /* save subtest starting address */
33: movl $1,_subtst /* subtest number */
34: movl $1,_no_opr /* number of operands in use */
35: movl $ONES,_opr /* first operand */
36: 0: movl $ONES,r3 /*set r3 to all bits ones */
37: bicpsw $PSWMASK /*disable overflow & other enable bits */
38: bispsw $(N|V) /*turn negetive, & overflow */
39: clrw r3 /*execute "clrw" */
40: bneq error1 /*error if Z = 0 */
41: blss error1 /*error if N = 1 */
42: bvs error1 /*error if V = 1 */
43: bcc error1 /*error if C did not remain 1 */
44: jmp 1f
45: error1: movpsl _actual /* actual = psl MAYBE it is incorrect */
46: bbs $0,_scoplp,0b /* if set scope loop on error */
47: movl $2,_ercode /* error code flag failure */
48: jmp *badrtn
49: 1: bicpsw $Z /*clear Z flag */
50: cmpl r3,$0 /*check r1 = expected value */
51: beql clrwm /*if no error continue */
52: bbs $0,_scoplp,0b /* if set scope loop on error */
53: movl $1,_ercode /* error code data miscompare */
54: movl r3,_actual /* actual data */
55: movl $0,_expected /* expected data */
56: jmp *badrtn
57: /* */
58: /* Now repeat the above test with a memory location (tmloc). */
59: /* */
60:
61: clrwm:
62: bbs $0,_force_lp,0b /* if set loop on last subtest */
63: callf $4,_setjmp /* save context for error return */
64: c2: movab clrwm,_stpc /* save subtest starting address */
65: movl $2,_subtst /* subtest number */
66: 0: movl $ONES,tmloc /*set tmloc to all bits ones */
67: bicpsw $PSWMASK
68: clrw tmloc /*execute "clrw" */
69: bneq error2 /*error if Z = 0 */
70: blss error2 /*error if N = 1 */
71: bvs error2 /*error if V = 1 */
72: bcc error2 /*error if C did not remain 1 */
73: jmp 1f
74: error2: movpsl _actual /* actual = psl MAYBE it is incorrect */
75: bbs $0,_scoplp,0b /* if set scope loop on error */
76: movl $2,_ercode /* error code flag failure */
77: jmp *badrtn
78: 1: bicpsw $Z /*clear Z flag */
79: cmpl tmloc,$EXPW /*check tmloc = expected value */
80: beql aldn /*if no error all done ! */
81: bbs $0,_scoplp,0b /* if set scope loop on error */
82: movl $1,_ercode /* error code data miscompare */
83: movl tmloc,_actual /* actual data */
84: movl $EXPW,_expected /* expected data */
85: jmp *badrtn
86: /*after "clrw" instruction */
87: aldn: bbs $0,_force_lp,0b /* if set loop on last subtest */
88: jmp *return /* good, return to monitor */
89:
90: /* */
91: /* Variables definition */
92: /* */
93: .align 2
94: tmloc: .long 0xffffffff
95:
96: /* end */
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.