Return to system_s.s CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / usr.lib / libF77 / CCI

Annotation of 43BSDTahoe/usr.lib/libF77/CCI/system_s.s, revision 1.1.1.1

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

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