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