![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to movaw.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 movaw.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry |
1.1 root 1: /* MOVAW instruction test */
2: /* MOVL,MOVW,MOVB have been tested prior to this test */
3: /* Privilege registers */
4:
5: .set IPL,0x8
6: .set MAPEN,0x9
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 MAXPOSL,0x7fffffff
20: .set MAXNEGL,0x80000000
21: .set MAXPOSW,0x7fff
22: .set MAXNEGW,0x8000
23: .set MAXPOSB,0x7f
24: .set MAXNEGB,0x80
25: .set ZERO,0
26: .set ONES,0xffffffff
27: .set HIGH,31 /* highest interrupt priority */
28: .set DISP,2
29: .set LONG,4
30: .set WORD,2
31: .set BYTE,1
32:
33: .globl _movaw
34: _movaw:
35: callf $4,_setjmp /* save context for error return */
36: movab _movaw,_stpc /* save subtest starting address */
37: movl $1,_subtst /* subtest number */
38: movl $1,_no_opr /* number of operands in use */
39: movl $MAXPOSL,_opr /* first operand */
40: 0: bicpsw $(IV|T) /* disable exceptions */
41: movaw1:
42: movl $MAXPOSL,tstloc /* initialize tstloc */
43: bispsw $(N|Z|V|C) /* set n,z,v,c flags */
44: movaw tstloc,r3 /* move address tstloc to r3 */
45: jlss error1 /* error if any of the n,z,v */
46: jeql error1 /* flags still set */
47: jvs error1
48: jcc error1 /* error if c flag clear */
49: jmp 1f
50: error1: movpsl _actual /* actual = psl MAYBE it is incorrect */
51: bbs $0,_scoplp,0b /* if set scope loop on error */
52: movl $2,_ercode /* error code flag failure */
53: jmp *badrtn
54: 1: cmpl r3,result /* check if r3 has valid adr. */
55: jeql m2 /* error if not */
56: bbs $0,_scoplp,0b /* if set scope loop on error */
57: movl $1,_ercode /* error code data miscompare */
58: movl r3,_actual /* actual data */
59: movl result,_expected /* expected data */
60: jmp *badrtn
61: /* MOVE ADDRESS FROM REGISTER TO MEMORY */
62: m2:
63: bbs $0,_force_lp,0b /* if set loop on last subtest */
64: am2: callf $4,_setjmp /* save context for error return */
65: movab am2,_stpc /* save subtest starting address */
66: movl $2,_subtst /* subtest number */
67: movl $1,_no_opr /* number of operands in use */
68: movl $MAXPOSL,_opr /* first operand */
69: 0: movaw (r3),temp /* move address in r3 to temp */
70: cmpl temp,result /* compare result */
71: jeql chkflag /* error if not */
72: bbs $0,_scoplp,0b /* if set scope loop on error */
73: movl $1,_ercode /* error code data miscompare */
74: movl temp,_actual /* actual data */
75: movl result,_expected /* expected data */
76: jmp *badrtn
77: /* TESTING CONDITION FLAGS */
78: chkflag:
79: bbs $0,_force_lp,0b /* if set loop on last subtest */
80: am3: callf $4,_setjmp /* save context for error return */
81: movab am3,_stpc /* save subtest starting address */
82: movl $3,_subtst /* subtest number */
83: movl $1,_no_opr /* number of operands in use */
84: movl $MAXNEGL,_opr /* first operand */
85: 0: movl $0,temp /* clear temp */
86: movl $MAXNEGL,r3 /* set r3 = $MAXNEGL */
87: bispsw $(Z|V|C) /* set z,v,c flags */
88: bicpsw $N /* clear n flag */
89: movaw (r3),temp /* move adr. in r3 to temp */
90: jgeq error2 /* error if n flag not set */
91: jeql error2 /* error if z flag still set */
92: jvs error2 /* error if v flag still set */
93: jcc error2 /* error if c flag clear */
94: jmp 1f
95: error2: movpsl _actual /* actual = psl MAYBE it 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 temp,$MAXNEGL /* check address in temp */
100: jeql 1f /* error if not */
101: bbs $0,_scoplp,0b /* if set scope loop on error */
102: movl $1,_ercode /* error code data miscompare */
103: movl temp,_actual /* actual data */
104: movl $MAXNEGL,_expected /* expected data */
105: jmp *badrtn
106: 1: bicpsw $Z
107: cmpl r3,$MAXNEGL /* check source */
108: jeql m4 /* error if not */
109: bbs $0,_scoplp,0b /* if set scope loop on error */
110: movl $3,_ercode /* error code operand was modified */
111: movl r4,_actual /* actual data */
112: movl $MAXNEGL,_expected /* expected data */
113: jmp *badrtn
114:
115: m4:
116: bbs $0,_force_lp,0b /* if set loop on last subtest */
117: am4: callf $4,_setjmp /* save context for error return */
118: movab am4,_stpc /* save subtest starting address */
119: movl $4,_subtst /* subtest number */
120: movl $1,_no_opr /* number of operands in use */
121: movl $MAXNEGL,_opr /* first operand */
122: 0: movl $ONES,temp /* set temp = 0xffffffff */
123: movl $0,r3 /* set r3 = $0 */
124: bispsw $(N|V) /* set n,v flags */
125: bicpsw $(Z|C) /* clear z,c flag */
126: moval (r3),temp /* move adr. in r3 to temp */
127: jlss error3 /* error if n flag still set */
128: jneq error3 /* error if z flag not set */
129: jvs error3 /* error if v flag still set */
130: jcc error3 /* error if c flag clear */
131: jmp 1f
132: error3: movpsl _actual /* actual = psl MAYBE it is incorrect */
133: bbs $0,_scoplp,0b /* if set scope loop on error */
134: movl $2,_ercode /* error code flag failure */
135: jmp *badrtn
136: 1: cmpl temp,$0 /* check address in temp */
137: jeql 1f /* error if not */
138: bbs $0,_scoplp,0b /* if set scope loop on error */
139: movl $1,_ercode /* error code data miscompare */
140: movl temp,_actual /* actual data */
141: movl $0,_expected /* expected data */
142: jmp *badrtn
143: 1: bicpsw $Z
144: cmpl r3,$0 /* check source */
145: jeql m5 /* error if not */
146: bbs $0,_scoplp,0b /* if set scope loop on error */
147: movl $3,_ercode /* error code operand was modified */
148: movl r3,_actual /* actual data */
149: movl $0,_expected /* expected data */
150: jmp *badrtn
151: /* CHECKING INDEXING MODE */
152: m5:
153: bbs $0,_force_lp,0b /* if set loop on last subtest */
154: am5: callf $4,_setjmp /* save context for error return */
155: movab am5,_stpc /* save subtest starting address */
156: movl $5,_subtst /* subtest number */
157: movl $1,_no_opr /* number of operands in use */
158: movl $DISP,_opr /* first operand */
159: 0: movl $DISP,r3 /* set r3 = DISP = 2 */
160: bispsw $(N|Z|V|C) /* set n,z,v,c flags */
161: movaw tstloc[r3],r4 /* move address tstloc to r4 */
162: jlss error4 /* error if any of the n,z,v */
163: jeql error4 /* flags still set */
164: jvs error4
165: jcc error4 /* error if c flag clear */
166: jmp 1f
167: error4: movpsl _actual /* actual = psl MAYBE it is incorrect */
168: bbs $0,_scoplp,0b /* if set scope loop on error */
169: movl $2,_ercode /* error code flag failure */
170: jmp *badrtn
171: 1: cmpl r4,resul1 /* check if r4 has valid adr. */
172: jeql aldn /* error if not */
173: bbs $0,_scoplp,0b /* if set scope loop on error */
174: movl $1,_ercode /* error code data miscompare */
175: movl r4,_actual /* actual data */
176: movl resul1,_expected /* expected data */
177: jmp *badrtn
178:
179: aldn: bbs $0,_force_lp,0b /* if set loop on last subtest */
180: jmp *return
181:
182:
183: /* test data */
184: .align 2 /* align on longword boundary */
185: tstloc: .long 0
186: result: .long tstloc
187: resul1: .long tstloc+(DISP*WORD)
188: temp: .long 0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.