Return to sigs.c CVS log

Up to [Research Unix] / researchv10no / cmd / spitbol / cint

Annotation of researchv10no/cmd/spitbol/cint/sigs.c, revision 1.1.1.1

1.1       root        1: 
                      2: #define I_ADDF2        0x40
                      3: #define I_ADDF3        0x41
                      4: #define I_DIVF2        0x46
                      5: #define I_DIVF3        0x47
                      6: #define I_MULF2        0x44
                      7: #define I_MULF3        0x45
                      8: #define I_SUBF2        0x42
                      9: #define I_SUBF3        0x43
                     10: 
                     11: #define PC 15
                     12: 
                     13: #include <signal.h>
                     14: 
                     15: void setsigs();
                     16: 
                     17: static void
                     18: ovfltrap (signo, param, xx, pc, psl)
                     19:        unsigned char *pc;
                     20: {
                     21:        register int operands = 2;
                     22:        register unsigned char *rpc = pc;
                     23: 
                     24:        setsigs();              /* trap overflow again */
                     25:        psl |= 02;              /* set the overflow bit */
                     26: 
                     27:        /* Adjust the PC if this is an op code we know about */
                     28:        switch (*rpc) {
                     29: 
                     30:        case I_ADDF3:
                     31:        case I_SUBF3:
                     32:        case I_MULF3:
                     33:        case I_DIVF3:
                     34:                operands++;
                     35: 
                     36:        case I_ADDF2:
                     37:        case I_SUBF2:
                     38:        case I_MULF2:
                     39:        case I_DIVF2:
                     40: 
                     41:                rpc++;
                     42: 
                     43:                do {
                     44: 
                     45:                        /* Fetch and step past the first operand byte */
                     46:                        register int mode = (*rpc & 0xf0) >> 4;
                     47:                        register int reg = *rpc++ & 0xf;
                     48: 
                     49:                        switch (mode) {
                     50: 
                     51:                        case 0:         /* literal */
                     52:                        case 1:         /* literal */
                     53:                        case 2:         /* literal */
                     54:                        case 3:         /* literal */
                     55:                                break;
                     56: 
                     57:                        case 4:         /* [reg] */
                     58:                                operands++;
                     59:                                break;
                     60: 
                     61:                        case 5:         /* reg */
                     62:                        case 6:         /* (reg) */
                     63:                        case 7:         /* -(reg) */
                     64:                                break;
                     65: 
                     66:                        case 8:         /* (reg)+ */
                     67:                                if (reg == PC)
                     68:                                        rpc += sizeof (float);
                     69:                                break;
                     70: 
                     71:                        case 9:         /* autoincrement deferred or absolute */
                     72: 
                     73:                                if (reg == PC)
                     74:                                        rpc += 4;
                     75:                                break;
                     76: 
                     77:                        case 10:        /* byte displacement */
                     78:                        case 11:        /* byte displacement deferred */
                     79:                                rpc++;
                     80:                                break;
                     81: 
                     82:                        case 12:        /* word displacement */
                     83:                        case 13:        /* word displacement deferred */
                     84:                                rpc += 2;
                     85:                                break;
                     86: 
                     87:                        case 14:        /* longword displacement */
                     88:                        case 15:        /* longword displacement deferred */
                     89:                                rpc += 4;
                     90:                                break;
                     91:                        }
                     92:                } while (--operands);
                     93: 
                     94:        }
                     95:        pc = rpc;
                     96: }
                     97: 
                     98: void
                     99: setsigs()
                    100: {
                    101:        signal (SIGFPE, ovfltrap);
                    102: }
                    103: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.