![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to adwc.c 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 adwc.c CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry |
1.1 ! root 1: #define disp_error error ! 2: ! 3: /* standard definition file */ ! 4: /* for 'C' diagnostic porgrams. */ ! 5: /* */ ! 6: /* */ ! 7: #define HIGH 31 ! 8: #define IPL 8 ! 9: #define PSWMASK 0xf ! 10: #define T 16 ! 11: #define IV 32 ! 12: #define FU 64 ! 13: #define DV 128 ! 14: #define FLAGS 0x0000000f ! 15: ! 16: extern long scoplp; ! 17: extern long force_lp; ! 18: ! 19: asm(".set PSWMASK,0xf"); ! 20: ! 21: ! 22: /* constants definition for ADWC instruction */ ! 23: /* */ ! 24: /* */ ! 25: ! 26: #define ADWC 0x8d /*opcode */ ! 27: ! 28: ! 29: #define MAX_PATTERNS 6 ! 30: ! 31: ! 32: #define SUM1 0 /*initial value of sum */ ! 33: #define SUM2 -1 ! 34: #define SUM3 0x7fffffff ! 35: #define SUM4 0x7ffffffd ! 36: #define SUM5 0x80000000 ! 37: #define SUM6 0x80000000 ! 38: ! 39: ! 40: #define ADD1 -1 /*initial values for add*/ ! 41: #define ADD2 1 ! 42: #define ADD3 1 ! 43: #define ADD4 1 ! 44: #define ADD5 0x7fffffff ! 45: #define ADD6 0x80000000 ! 46: ! 47: ! 48: ! 49: #define EXP1 0 /*expected result */ ! 50: #define EXP2 1 ! 51: #define EXP3 0x80000000 ! 52: #define EXP4 0x7fffffff ! 53: #define EXP5 0 ! 54: #define EXP6 0 ! 55: ! 56: ! 57: #define IPSW1 1 /*initial psw */ ! 58: #define IPSW2 15 ! 59: #define IPSW3 0 ! 60: #define IPSW4 15 ! 61: #define IPSW5 15 ! 62: #define IPSW6 0 ! 63: ! 64: ! 65: #define EPSW1 5 /*expected psw */ ! 66: #define EPSW2 1 ! 67: #define EPSW3 2 ! 68: #define EPSW4 0 ! 69: #define EPSW5 5 ! 70: #define EPSW6 15 ! 71: ! 72: ! 73: #define ERROR1 1 /*error definitions */ ! 74: #define ERROR2 2 ! 75: #define ERROR3 3 ! 76: ! 77: ! 78: #define EM1 "sum not equal to expected \n" ! 79: #define EM2 "addend operand altered \n" ! 80: #define EM3 "psw not equal to expected \n" ! 81: ! 82: ! 83: ! 84: ! 85: /* Global variables for add with carry test */ ! 86: /* */ ! 87: /* */ ! 88: ! 89: static short index = 0; ! 90: static long sum = 0; /*destination location */ ! 91: static long add = 0; /*addend location */ ! 92: static long psw; /*processor status word */ ! 93: static long error_count = 0; ! 94: ! 95: /*initial flag values */ ! 96: static long i_psw[MAX_PATTERNS] = {IPSW1,IPSW2,IPSW3,IPSW4,IPSW5,IPSW6}; ! 97: /*expected flag values */ ! 98: static long exp_psw[MAX_PATTERNS] = {EPSW1,EPSW2,EPSW3,EPSW4,EPSW5,EPSW6}; ! 99: /*expected destination */ ! 100: static long exp[MAX_PATTERNS] = {EXP1,EXP2,EXP3,EXP4,EXP5,EXP6}; ! 101: /*sum values */ ! 102: static long s[MAX_PATTERNS] = {SUM1,SUM2,SUM3,SUM4,SUM5,SUM6}; ! 103: /*add values */ ! 104: static long a[MAX_PATTERNS] = {ADD1,ADD2,ADD3,ADD4,ADD5,ADD6}; ! 105: ! 106: ! 107: static long savvec4; ! 108: static long old_psw; ! 109: ! 110: ! 111: adwc() ! 112: { ! 113: asm("movl $2,_no_opr"); ! 114: for (index = 0; index < MAX_PATTERNS; index++) t_adwc(); ! 115: asm("jmp *return"); ! 116: } ! 117: ! 118: ! 119: static t_adwc() ! 120: { char *msg; ! 121: for(;;) ! 122: { ! 123: asm("a1: movab a1,_stpc"); ! 124: sum = s[index]; /*initialize sum, addend, & psw */ ! 125: add = a[index]; ! 126: asm("movw _index,r11"); ! 127: asm("shll $16,_i_psw[r11],_savvec4"); ! 128: asm("bicpsw $PSWMASK"); ! 129: asm("movpsl _old_psw"); ! 130: ! 131: if (index==0) { ! 132: setjmp(); ! 133: asm("movl $1,_subtst"); ! 134: asm("bispsw _savvec4"); /* mem to mem */ ! 135: asm("adwc _add,_sum"); ! 136: asm("movpsl _psw"); /*save psw */ ! 137: } ! 138: if (index==1) { ! 139: setjmp(); ! 140: asm("movl $2,_subtst"); ! 141: asm("movl _add,r6"); /* reg to mem */ ! 142: asm("bicpsw $PSWMASK"); ! 143: asm("bispsw _savvec4"); ! 144: asm("adwc r6,_sum"); ! 145: asm("movpsl _psw"); /*save psw */ ! 146: asm("movl r6,_add"); ! 147: } ! 148: if (index==2) { ! 149: setjmp(); ! 150: asm("movl $3,_subtst"); ! 151: asm("movl _sum,r7"); /* mem to reg */ ! 152: asm("bicpsw $PSWMASK"); ! 153: asm("bispsw _savvec4"); ! 154: asm("adwc _add,r7"); ! 155: asm("movpsl _psw"); /*save psw */ ! 156: asm("movl r7,_sum"); ! 157: } ! 158: if (index==3) { ! 159: setjmp(); ! 160: asm("movl $4,_subtst"); ! 161: asm("movl _add,r6"); /* reg to reg */ ! 162: asm("movl _sum,r7"); ! 163: asm("bicpsw $PSWMASK"); ! 164: asm("bispsw _savvec4"); ! 165: asm("adwc r6,r7"); ! 166: asm("movpsl _psw"); /*save psw */ ! 167: asm("movl r6,_add"); ! 168: asm("movl r7,_sum"); ! 169: } ! 170: if (index==4) { ! 171: setjmp(); ! 172: asm("movl $5,_subtst"); ! 173: asm("bicpsw $PSWMASK"); ! 174: asm("bispsw _savvec4"); /* mem to mem */ ! 175: asm("adwc _add,_sum"); ! 176: asm("movpsl _psw"); /*save psw */ ! 177: } ! 178: if (index==5) { ! 179: setjmp(); ! 180: asm("movl $6,_subtst"); ! 181: asm("bicpsw $PSWMASK"); ! 182: asm("bispsw _savvec4"); /* mem to mem */ ! 183: asm("adwc _add,_sum"); ! 184: asm("movpsl _psw"); /*save psw */ ! 185: } ! 186: psw &= FLAGS; /*mask out all bits except flag bits */ ! 187: if (sum != exp[index]) ! 188: { ! 189: asm("movl $1,_ercode"); ! 190: if (scoplp) longjmp(); ! 191: disp_error(sum,exp[index],a[index],s[index]); ! 192: } ! 193: if (add != a[index]) ! 194: { ! 195: asm("movl $3,_ercode"); ! 196: if (scoplp) longjmp(); ! 197: disp_error(add,a[index],a[index],s[index]); ! 198: } ! 199: if (psw != exp_psw[index]) ! 200: { ! 201: asm("movl $2,_ercode"); ! 202: if (scoplp) longjmp(); ! 203: disp_error(psw,exp_psw[index],a[index],s[index]); ! 204: } ! 205: else ! 206: if (force_lp) longjmp(); ! 207: return(0); ! 208: } ! 209: } ! 210:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.