|
|
1.1 root 1: # Copyright (c) 1979 Regents of the University of California
2: #
3: # sccsid[] = "@(#)NARGCHK.s 1.1 10/29/80";
4: #
5: .align 1
6: .globl _NARGCHK
7: _NARGCHK:
8: .word 0
9: cmpl 4(ap),*AP(fp)
10: bneq L1
11: ret
12: L1:
13: subl3 4(ap),*AP(fp),-(sp)
14: pushl $ENARGS
15: calls $2,_ERROR
16: ret
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.