page

; Library:	RCPID for Z34RCP
; Author:	Carson Wilson
; Version:	1.0
; Date:		September 29, 1989
; Changes:	ID appended with 'C' if CLED is present
;
; Author:	Carson Wilson
; Version:	1.0
; Date:		September 14, 1988
;
; Function:	Build the name of the RCP and append it at the end of the 
;		file at label RCPID.  This serves two purposes: first it
;		allows the 'H' command to describe which RCP is active, 
;		second, the string identifies the actual end of the RCP
;		in memory.
;
; ------------------------------------------------------------------------

; Macros to build RCP ID for Help command

; Under SLR and compatible assemblers, the RCP name reflects the
; RCP size, e.g., "RCP-21F" means the RCP occupies 21 records.  

	 if	SLR
rcpid	macro
rcplen	defl	RCPend - RCPbegin
fulrecs	equ	rcplen / 128			; Full records
lastr	equ	[rcplen mod 128 + 127]/128	; Last record, if any
ttlrecs	equ	fulrecs + lastr

	db	'RCP-'
	db	ttlrecs  /  10 + '0'		; Tens of records
	db	ttlrecs mod 10 + '0'		; Ones
	db	rcptype				; 'F', 'H', etc. from RCP.LIB
	 if	cledon
	db	'C'				; Distinguish CLED versions
	 endif
	db	0				; ID string terminator
	endm

	 else					; Non-SLR
rcpid	macro
	db	'RCP-'
	db	rcptype
	db	0
	endm
	 endif					; SLR

; -----------------------------------------------------------------------

; Name of RCP

; This block allows the 'H' command and/or the SHOW utility to display a name
; and version number for this RCP as well as the commands that are supported.
; It also generates a unique string marking the end of the RCP module.

rcpname:
	rcpid

; End of RCPID.LIB