![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to cmps.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 cmps.c CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry |
1.1 ! root 1: #define error_hdl1s error ! 2: #define error_str error ! 3: #define error_str1 error ! 4: ! 5: extern long scoplp; ! 6: extern long force_lp; ! 7: ! 8: #define C 0x1 ! 9: #define V 0x2 ! 10: #define Z 0x4 ! 11: #define N 0x8 ! 12: ! 13: /* CMPS2, CMPS3 instruction */ ! 14: ! 15: #define MAXLINE 500 ! 16: #define NULL 0 ! 17: ! 18: /* Some global variables */ ! 19: static long flag_msk, psl, slen, r2; ! 20: static char *str1, *str2, *r0, *r1; ! 21: ! 22: cmpstr() ! 23: { ! 24: asm("movl $3,_no_opr"); ! 25: cmps2(); ! 26: cmps3(); ! 27: asm("jmp *return"); ! 28: } ! 29: ! 30: static cmps2() ! 31: { ! 32: long no_op, exp_psw, exp_r2; ! 33: char *exp_r0, *exp_r1; ! 34: ! 35: no_op = 2; ! 36: exp_r2 = 0; ! 37: ! 38: setjmp(); ! 39: asm("c1: movab c1,_stpc"); ! 40: asm("movl $1,_subtst"); ! 41: flag_msk = exp_psw = 0; ! 42: flag_msk = N|V|C; ! 43: exp_psw = Z | C; ! 44: str1 = "abcdefghejk"; ! 45: str2 = "abcdefghejk"; ! 46: exp_r0 = str1 + 11; ! 47: exp_r1 = str2 + 11; ! 48: cmps(no_op,exp_r0,exp_r1,exp_r2,exp_psw); ! 49: ! 50: setjmp(); ! 51: asm("c2: movab c2,_stpc"); ! 52: asm("movl $2,_subtst"); ! 53: flag_msk = exp_psw = 0; ! 54: exp_psw = C; ! 55: flag_msk = Z|N|V|C; ! 56: str1 = "abcdefghejk1"; ! 57: str2 = "abcdefghejk"; ! 58: exp_r0 = str1 + 11; ! 59: exp_r1 = str2 + 11; ! 60: cmps(no_op,exp_r0,exp_r1,exp_r2,exp_psw); ! 61: ! 62: setjmp(); ! 63: asm("c3: movab c3,_stpc"); ! 64: asm("movl $3,_subtst"); ! 65: flag_msk = exp_psw = 0; ! 66: exp_psw = N; ! 67: flag_msk = Z|N|V|C; ! 68: str1 = "12345678abcd"; ! 69: str2 = "12345678abce0"; ! 70: exp_r0 = str1 + 11; ! 71: exp_r1 = str2 + 11; ! 72: cmps(no_op,exp_r0,exp_r1,exp_r2,exp_psw); ! 73: ! 74: setjmp(); ! 75: asm("c4: movab c4,_stpc"); ! 76: asm("movl $4,_subtst"); ! 77: flag_msk = exp_psw = 0; ! 78: exp_psw = N; ! 79: flag_msk = Z|N|V|C; ! 80: str1 = "12345678abcd"; ! 81: str2 = "12345678abcd0"; ! 82: exp_r0 = str1 + 12; ! 83: exp_r1 = str2 + 12; ! 84: cmps(no_op,exp_r0,exp_r1,exp_r2,exp_psw); ! 85: ! 86: setjmp(); ! 87: asm("c5: movab c5,_stpc"); ! 88: asm("movl $5,_subtst"); ! 89: flag_msk = exp_psw = 0; ! 90: flag_msk = Z|V|C; ! 91: exp_psw = N; ! 92: str1 = "abcdefg1234567zz"; ! 93: str2 = "abcdefg123456z89"; ! 94: exp_r0 = str1 + 13; ! 95: exp_r1 = str2 + 13; ! 96: cmps(no_op,exp_r0,exp_r1,exp_r2,exp_psw); ! 97: } ! 98: ! 99: static cmps3() ! 100: { ! 101: long no_op, exp_psw, exp_r2; ! 102: char *exp_r0, *exp_r1; ! 103: ! 104: no_op = 3; ! 105: ! 106: setjmp(); ! 107: asm("c6: movab c6,_stpc"); ! 108: asm("movl $6,_subtst"); ! 109: slen = 11; ! 110: flag_msk = exp_psw = 0; ! 111: flag_msk = N|V|C; ! 112: exp_psw = Z | C; ! 113: str1 = "abcdefghejk"; ! 114: str2 = "abcdefghejk"; ! 115: exp_r0 = str1 + slen; ! 116: exp_r1 = str2 + slen; ! 117: exp_r2 = 0; ! 118: cmps(no_op,exp_r0,exp_r1,exp_r2,exp_psw); ! 119: ! 120: setjmp(); ! 121: asm("c7: movab c7,_stpc"); ! 122: asm("movl $7,_subtst"); ! 123: slen = 15; ! 124: flag_msk = exp_psw = 0; ! 125: flag_msk = Z|N|V|C; ! 126: exp_psw = N; ! 127: str1 = "abcdefghejk1"; ! 128: str2 = "abcdefghejk2"; ! 129: exp_r0 = str1 + 11; ! 130: exp_r1 = str2 + 11; ! 131: exp_r2 = 4; ! 132: cmps(no_op,exp_r0,exp_r1,exp_r2,exp_psw); ! 133: ! 134: setjmp(); ! 135: asm("c8: movab c8,_stpc"); ! 136: asm("movl $8,_subtst"); ! 137: slen = 20; ! 138: flag_msk = exp_psw = 0; ! 139: flag_msk = Z|V|C; ! 140: exp_psw = N; ! 141: str1 = "abcd123456089"; ! 142: str2 = "abcd123456198"; ! 143: exp_r0 = str1 + 10; ! 144: exp_r1 = str2 + 10; ! 145: exp_r2 = 10; ! 146: cmps(no_op,exp_r0,exp_r1,exp_r2,exp_psw); ! 147: ! 148: setjmp(); ! 149: asm("c9: movab c9,_stpc"); ! 150: asm("movl $9,_subtst"); ! 151: slen = 11; ! 152: flag_msk = exp_psw = 0; ! 153: flag_msk = Z|V|C; ! 154: exp_psw = C; ! 155: str1 = "abcd123456289"; ! 156: str2 = "abcd123456198"; ! 157: exp_r0 = str1 + 10; ! 158: exp_r1 = str2 + 10; ! 159: exp_r2 = 1; ! 160: cmps(no_op,exp_r0,exp_r1,exp_r2,exp_psw); ! 161: ! 162: setjmp(); ! 163: asm("c10: movab c10,_stpc"); ! 164: asm("movl $10,_subtst"); ! 165: slen = 4; ! 166: flag_msk = exp_psw = 0; ! 167: flag_msk = Z|V|C; ! 168: exp_psw = Z | C; ! 169: str1 = "abcd1"; ! 170: str2 = "abcd2"; ! 171: exp_r0 = str1 + slen; ! 172: exp_r1 = str2 + slen; ! 173: exp_r2 = 0; ! 174: cmps(no_op,exp_r0,exp_r1,exp_r2,exp_psw); ! 175: ! 176: } ! 177: ! 178: /* THIS ROUTINE EXECUTE CMPS2, CMPS3 INSTRUCTIONS */ ! 179: ! 180: static cmps(no_op,exp_r0,exp_r1,exp_r2, exp_psw) ! 181: char *exp_r0, *exp_r1; ! 182: long exp_r2, exp_psw; ! 183: int no_op; ! 184: { ! 185: char *str, savs1[MAXLINE], savs2[MAXLINE]; ! 186: long op_len, len1 ,len2, ix, ierror, psw; ! 187: ! 188: flag_msk = flag_msk << 16; ! 189: op_len = slen; ! 190: for(;;) ! 191: { ! 192: slen = op_len; ! 193: ! 194: /* SAVE SOURCE STRINGS */ ! 195: ! 196: str = str1; ! 197: len1 = 0; ! 198: for(;;) ! 199: { ! 200: savs1[len1] = *str++; ! 201: if (savs1[len1] == NULL) break; ! 202: len1++; /* len of source string excluding NULL */ ! 203: } ! 204: str = str2; ! 205: len2 = 0; ! 206: for(;;) ! 207: { ! 208: savs2[len2] = *str++; ! 209: if (savs2[len2] == NULL) break; ! 210: len2++; /* len of source string excluding NULL */ ! 211: } ! 212: ! 213: ! 214: /* EXECUTE IT */ ! 215: if (no_op==2) ! 216: { ! 217: asm("movl _str1,r0"); /* R0 : source string */ ! 218: asm("movl _str2,r1"); /* R0 : source string */ ! 219: asm("bicpsw $0xf"); /* clear all flags */ ! 220: asm("bispsw _flag_msk"); ! 221: asm("cmps2"); ! 222: asm("movpsl _psl"); ! 223: asm("movl r0,_r0"); ! 224: asm("movl r1,_r1"); ! 225: } ! 226: else ! 227: { ! 228: asm("movl _str1,r0"); /* R0 : source string */ ! 229: asm("movl _str2,r1"); /* R1 : source string */ ! 230: asm("movl _slen,r2"); /* R2 : counter */ ! 231: asm("bicpsw $0xf"); /* clear all flags */ ! 232: asm("bispsw _flag_msk"); ! 233: asm("cmps3"); ! 234: asm("movpsl _psl"); ! 235: asm("movl r0,_r0"); ! 236: asm("movl r1,_r1"); ! 237: asm("movl r2,_r2"); ! 238: } ! 239: psw = psl & 0xf; ! 240: ! 241: /* check flags */ ! 242: if (psw != exp_psw) ! 243: { ! 244: asm("movl $2,_ercode"); ! 245: if (scoplp) longjmp(); ! 246: error_hdl1s(psw,exp_psw,str1,str2); ! 247: } ! 248: /* CHECK IF SOURCE GET CHANGED */ ! 249: ierror = 0; ! 250: for(ix=0;ix<len1;ix++) ! 251: { if (str1[ix] != savs1[ix]) ! 252: { ierror++; ! 253: break; ! 254: } ! 255: } ! 256: if (ierror) ! 257: { ! 258: asm("movl $3,_ercode"); ! 259: if (scoplp) longjmp(); ! 260: error_str(str1,savs1,str1,str2,slen); ! 261: } ! 262: ierror = 0; ! 263: for(ix=0;ix<len2;ix++) ! 264: { if (str2[ix] != savs2[ix]) ! 265: { ierror++; ! 266: break; ! 267: } ! 268: } ! 269: if (ierror) ! 270: { ! 271: asm("movl $3,_ercode"); ! 272: if (scoplp) longjmp(); ! 273: error_str(str2,savs2,str1,str2,slen); ! 274: } ! 275: /* CHECK R0, R1 */ ! 276: if (r0 != exp_r0) ! 277: { ! 278: asm("movl $3,_ercode"); ! 279: if (scoplp) longjmp(); ! 280: error_str1(r0,exp_r0,str1,str2,slen); ! 281: } ! 282: if (r1 != exp_r1) ! 283: { ! 284: asm("movl $3,_ercode"); ! 285: if (scoplp) longjmp(); ! 286: error_str1(r1,exp_r1,str1,str2,slen); ! 287: } ! 288: if (no_op==3) ! 289: { /* CMPS3 : check R2 */ ! 290: if (r2 != exp_r2) ! 291: { ! 292: asm("movl $3,_ercode"); ! 293: if (scoplp) longjmp(); ! 294: error_str1(r2,exp_r2,str1,str2,slen); ! 295: } ! 296: /* check if length operand get modified */ ! 297: if (slen != op_len) ! 298: { ! 299: asm("movl $3,_ercode"); ! 300: if (scoplp) longjmp(); ! 301: error_str1(slen,op_len,str1,str2,slen); ! 302: } ! 303: if (force_lp) longjmp(); ! 304: } ! 305: break; ! 306: } ! 307: } ! 308:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.