; Library:	PARMLIB
; Version:	1.0
; Module:	PARCNT
; Version:	1.0
; Author:	Carson Wilson
; Date:		July 10, 1989
; Purpose:	Returns count of CP/M command line parameters.
;

	public	parcnt

	extrn	sksp, sknsp	; SYSLIB

cpmcmd	equ	80h		; CP/M command line location

;
; PARCNT - Counts CP/M command line parameters.
;
;	Entry:	- none.
;	Exit:	<A>  - contains number of parameters.
;		<F>  - Z if no parameters present, else NZ.
;	Uses:	- <AF>.
;
parcnt:
	push	hl
	push	bc

	ld	b,0			; Count
	ld	hl,cpmcmd+1
nxtparm:
	ld	a,(hl)
	or	a			; 00 means end of string
	jr	z,exit
	inc	b
	call	sksp			; Skip spaces
	call	sknsp			; Skip nonspaces
	jr	nxtparm
exit:
	ld	a,b
	or	a			; Set Z flag
	pop	bc
	pop	hl
	ret

	end

; End PARCNT.Z80