![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to lit_mode.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 lit_mode.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry |
1.1 root 1:
2: /* LITERAL ADDRESSING MODE TEST */
3: /* */
4: /* */
5: /*Test name = l_mode */
6: /*This test checks the literal addressing mode. Note that literal, */
7: /*relative, immidiate, and register modes have been extensively used in */
8: /*the previous tests, and so part of what we do here is somewhat */
9: /*redundent. */
10: /* */
11: /* */
12: /* */
13: /* Syst.s - Constants */
14: /* */
15: .set IPL,8
16: .set HIGH,31
17: .set ZERO,0
18: .set ONES,0xffffffff
19: .set N,8
20: .set Z,4
21: .set V,2
22: .set C,1
23: .set T,16
24: .set IV,32
25: .set FU,64
26: .set DV,128
27: .set PSWMASK,0x003f
28:
29:
30: .globl _l_mode
31: _l_mode:
32: callf $4,_setjmp /* save context for error return */
33: movab _l_mode,_stpc /* save subtest pc */
34: movl $1,_subtst /* subtest number */
35: movl $1,_no_opr /* number of operands used */
36: 0: bicpsw $PSWMASK /*psw = 0 */
37: movl $1,r3 /*r3 = literal value */
38: movl r3,_opr /* first operand */
39: cmpl r3,$1 /*r3 = literal value? */
40: beql 1f /*if yes, goto next test */
41: movl $1,r2 /* error code */
42: er1: bbs $0,_scoplp,0b /* if set scope loop on error */
43: movl $1,_ercode /* error code data miscompare */
44: movl r3,_actual /* actual data */
45: movl $1,_expected /* expected data */
46: jmp *badrtn /*error - dislay error */
47: /* */
48: 1:
49: bbs $0,_force_lp,0b /* if set loop on last subtest */
50: 1: callf $4,_setjmp /* save context for error return */
51: movab 1b,_stpc /* save subtest pc */
52: movl $2,_subtst /* subtest number */
53: movl $1,_no_opr /* number of operands used */
54: 0: bicpsw $PSWMASK /*psw = 0 */
55: movl $18,r3 /*r3 = literal value */
56: movl r3,_opr /* first operand */
57: cmpl r3,$18 /*r3 = literal value? */
58: beql 2f /*if yes, goto next test */
59: er2: bbs $0,_scoplp,0b /* if set scope loop on error */
60: movl $1,_ercode /* error code data miscompare */
61: movl r3,_actual /* actual data */
62: movl $18,_expected /* expected data */
63: jmp *badrtn /*error - dislay error */
64: /* */
65: 2:
66: bbs $0,_force_lp,0b /* if set loop on last subtest */
67: 2: callf $4,_setjmp /* save context for error return */
68: movab 2b,_stpc /* save subtest pc */
69: movl $3,_subtst /* subtest number */
70: movl $1,_no_opr /* number of operands used */
71: 0: bicpsw $PSWMASK /*psw = 0 */
72: movl $36,r3 /*r3 = literal value */
73: movl r3,_opr /* first operand */
74: cmpl r3,$36 /*r3 = literal value? */
75: beql 3f /*if yes, goto next test */
76: er3: bbs $0,_scoplp,0b /* if set scope loop on error */
77: movl $1,_ercode /* error code data miscompare */
78: movl r3,_actual /* actual data */
79: movl $36,_expected /* expected data */
80: jmp *badrtn /*error - dislay error */
81: /* */
82: 3:
83: bbs $0,_force_lp,0b /* if set loop on last subtest */
84: 3: callf $4,_setjmp /* save context for error return */
85: movab 3b,_stpc /* save subtest pc */
86: movl $4,_subtst /* subtest number */
87: movl $1,_no_opr /* number of operands used */
88: 0: bicpsw $PSWMASK /*psw = 0 */
89: movl $63,r3 /*r3 = literal value */
90: movl r3,_opr /* first operand */
91: cmpl r3,$63 /*r3 = literal value? */
92: beql 4f /*if yes, goto next test */
93: er4: bbs $0,_scoplp,0b /* if set scope loop on error */
94: movl $1,_ercode /* error code data miscompare */
95: movl r3,_actual /* actual data */
96: movl $36,_expected /* expected data */
97: jmp *badrtn /*error - dislay error */
98: /* */
99: 4:
100: bbs $0,_force_lp,0b /* if set loop on last subtest */
101: movl $0,_ercode /* no error */
102: jmp *return /*end of test - goto monitor */
103:
104:
105:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.