Return to cm4defs CVS log

Up to [Research Unix] / researchv9 / jerq / sgs / as

Annotation of researchv9/jerq/sgs/as/cm4defs, revision 1.1.1.1

1.1       root        1: define(ID_VERSION,`#@(#) cm4defs: 1.1 1/9/82')dnl
                      2: define(_SCR1,r0)dnl
                      3: define(_SCR2,r1)dnl
                      4: define(_SCR3,r2)dnl
                      5: define(_1STREG,r8)dnl
                      6: define(_2NDREG,r7)dnl
                      7: define(_3RDREG,r6)dnl
                      8: define(_4THREG,r5)dnl
                      9: define(_5THREG,r4)dnl
                     10: define(_6THREG,r3)dnl
                     11: define(_1STARG,0(%ap))dnl
                     12: define(_2NDARG,4(%ap))dnl
                     13: define(_3RDARG,8(%ap))dnl
                     14: define(_4THARG,12(%ap))dnl
                     15: define(_5THARG,16(%ap))dnl
                     16: define(C_PROLOGUE,`define(`_RET_NO',incr(_RET_NO))define(`_F_NAME',$1)dnl
                     17:        .text;dnl
                     18:        .def    $1;     .val    $1;     .scl    2;      .type   040;    .endef;dnl
                     19:        .globl  $1;dnl
                     20: $1:    save    &ifelse($2,,6,$2)')dnl
                     21: define(A_PROLOGUE,`define(`_RET_NO',incr(_RET_NO))define(`_F_NAME',$1)dnl
                     22:        .text;dnl
                     23:        .def    $1;     .val    $1;     .scl    2;      .type   040;    .endef;dnl
                     24:        .globl  $1;dnl
                     25: $1:')dnl
                     26: define(I_RETURN,`define(`_RET_LAB',.RET`'_RET_NO)      jmp     _RET_LAB')dnl
                     27: define(C_RETURN,`ifelse(_RET_LAB,`_RET_LAB',,_RET_LAB:undefine(`_RET_LAB'))dnl
                     28:        ret     &ifelse($1,,6,$1);dnl
                     29:        .def    _F_NAME;        .val    .;      .scl    -1;     .endef')dnl
                     30: define(A_EPILOGUE,`ifelse(_RET_LAB,`_RET_LAB',,_RET_LAB:undefine(`_RET_LAB'))dnl
                     31:        .def    _F_NAME;        .val    .;      .scl    -1;     .endef')dnl
                     32: define(C_CALL,`ifelse($2,,,`   pushw   $2;')ifelse($3,,,`      pushw   $3;')ifelse($4,,,`      pushw   $4;')ifelse($5,,,`      pushw   $5;')ifelse($6,,,`      pushw   $6;')   call    &eval(0+ifelse($2,,0,1)+ifelse($3,,0,1)+ifelse($4,,0,1)+ifelse($5,,0,1)+ifelse($6,,0,1)),$1')dnl
                     33: define(A_CALL,`        call    &$2,$1')dnl
                     34: define(_RESULT,r0)dnl
                     35: define(_TARGET,r2)dnl

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