Return to mchio.c CVS log

Up to [Research Unix] / researchv9 / cmd / adb / 68v

Annotation of researchv9/cmd/adb/68v/mchio.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * read or print machine-dependent data structures
                      3:  * stupid version, for vax debugging 68000
                      4:  */
                      5: 
                      6: #include "defs.h"
                      7: 
                      8: /*
                      9:  * read an ASCII expression
                     10:  */
                     11: 
                     12: char lastc;
                     13: 
                     14: WORD
                     15: ascval()
                     16: {
                     17:        TLONG l;
                     18:        register char *p;
                     19:        register int i;
                     20: 
                     21:        l = 0;
                     22:        p = (char *)&l;
                     23:        i = sizeof(l);
                     24:        while (quotchar()) {
                     25:                if (--i >= 0)
                     26:                        *p++ = lastc;
                     27:        }
                     28:        switch (i) {
                     29:        case 4:
                     30:                return (0);
                     31: 
                     32:        case 3:
                     33:                return (l);     /* just the char */
                     34: 
                     35:        case 2:
                     36:                return ((WORD)swab((TSHORT)l));
                     37: 
                     38:        default:
                     39:                return ((WORD)swal(l));
                     40:        }
                     41: }
                     42: 
                     43: /*
                     44:  * read a floating point number in VAX format
                     45:  * the result must fit in a WORD
                     46:  */
                     47: 
                     48: WORD
                     49: fpin(buf)
                     50: char *buf;
                     51: {
                     52:        error("no fp input");
                     53: }
                     54: 
                     55: /*
                     56:  * print a floating point number in VAX format
                     57:  */
                     58: 
                     59: fpout(flag, va)
                     60: char flag;
                     61: char *va;
                     62: {
                     63:        error("no fp output");
                     64: }

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