.z80
	aseg

;Modified CCP for CP/M version 3.1
;
;This CCP is intended to overcome some of the shortfalls of the
;CCP supplied with CP/M Plus.  It is especially useful in an RCPM
;environment.  See CCP+.DOC for more details.
;
;This is the modified dissasembled version of the CCP.
;
;Jim Lopushinsky,  Edmonton, Alberta, Canada
;403-435-6579 @ 300/1200 bps
;
;Feb 3/85	Released to public domain
;Feb 8/85	Incorporated DRI CCP patch #2
;Feb 20/85	Fixed ZCPR maxdrv compare variable
;Feb 20/85	Init MAXDRV,MAXUSR, and WHEEL bytes on cold boot.
;May 21/85	Converted Select drive to BDOS calls
;Sep 8/85	Added Library Command run facility (Thanks to Richard Saeks)

no		equ	0
yes		equ	0ffffh

;-----------------------------------------------------------------
;The following equate determines weather the CCP or CMDRUN 
;library processor is assembled.

ccp		equ	no	;yes=CCP, no=CMDRUN

;------------------------------------------------------------------------------
;The following equate determines whether the CCP has UNIX (tm of AT&T) csh-like
;history handling enabled.

ccphistory  	equ	no		;yes=history, no=lrun-loader


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

TPA 		EQU	100H	;Tpa programs get loaded here

		org	tpa	;start at tpa

		jp	start	;jump over variables

;----------------------------------------------------------------
;The EXDRV and EXUSR values determine which drive/user area is
;excluded when searching for COMMAND.LBR.  The purpose of these
;values is to prevent callers from uploading a COMMAND.LBR and
;invoking CMDRUN to execute .COM files from it.  These 2 values
;should be the UPLOAD area of your system.  If you do not wish
;to exclude any drive/user, use 0 for EXDRV.

EXDRV:		db	1	;Exclude drive.  A=1, B=2, etc
				;0 = do not exclude any drive/user

EXUSR:		db	4	;Exclude user number.

;----------------------------------------------------------------
;Do not modify the following equates.

WHLLBR		EQU	NO
EXPAND		EQU	NO
TIME		EQU	NO
BYECHK		EQU	NO
NOXOFF		EQU	NO
YESPRL		EQU	NO
YESLBR		EQU	NO
TIMEON		EQU	NO

	include	CCP105.MAC