Return to system_s.s CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.lib / libF77

Annotation of cci/usr/src/usr.lib/libF77/system_s.s, revision 1.1.1.1

1.1       root        1: .data
                      2: .text
                      3: LL0:.align     1
                      4: .globl _system_
                      5: .set   MASK__,0x04
                      6: .data
                      7: .text
                      8: _system_:.word MASK__
                      9: subl3  $1056,fp,sp
                     10: movl   4(fp),r0                /* s */
                     11: subl3  $1056,fp,r1             /* buf */
                     12: cmpl   8(fp),$1000             /* if (n < 1000) */
                     13: jgeq   L9999
                     14: movl   8(fp),r2                /* length = n */
                     15: jbr    L1000
                     16: L9999:
                     17: movl   $1000,r2                /* else length = 1000 */
                     18: L1000:
                     19: movs3                          /* copy string */
                     20: clrb   (r1)                    /* add end-of-str */
                     21: subl3  $1056,fp,-(sp)          /* push &buf */
                     22: callf  $8,_system
                     23: ret#2
                     24: 

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