|
|
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.