1/*- 2 * Copyright (c) 1991 The Regents of the University of California. 3 * All rights reserved. 4 * 5 * This code is derived from software contributed to Berkeley by 6 * Computer Consoles Inc. 7 * 8 * %sccs.include.proprietary.c% 9 */ 10 11#ifndef lint 12 .asciz "@(#)system_s.s 5.2 (Berkeley) 04/12/91" 13#endif /* not lint */ 14 15.data 16.text 17LL0:.align 1 18.globl _system_ 19.set MASK__,0x04 20.data 21.text 22_system_:.word MASK__ 23subl3 $1056,fp,sp 24movl 4(fp),r0 /* s */ 25subl3 $1056,fp,r1 /* buf */ 26cmpl 8(fp),$1000 /* if (n < 1000) */ 27jgeq L9999 28movl 8(fp),r2 /* length = n */ 29jbr L1000 30L9999: 31movl $1000,r2 /* else length = 1000 */ 32L1000: 33movs3 /* copy string */ 34clrb (r1) /* add end-of-str */ 35subl3 $1056,fp,-(sp) /* push &buf */ 36callf $8,_system 37ret#2 38 39