;	CCP.MAC
;
;	DIENT ALS AUTOLOAD-FILE FUER UMTAST.
;
;	DAS PROGRAMM MELDET SICH MIT CCP>.
;	ES WIRD EINE CP/M COMMAND ZEILE EINGEGEBEN
;	UND FUER DEN CCP IN DEN EINGABEPUFFER AB ADRESSE CCPBUF ABGELEGT.
;	DA DER CCP AUS UNERFINDLICHEN GRUENDEN DIE EINGABE ERST
;	AB DEM 4.ZEICHEN VERARBEITET, MUSS DIE EINGABEZEILE
;	UM DREI ZEICHEN VERSCHOBEN WERDEN.
;	DANN WIRD ZUR CCP-EINSPRUNGSADRESSE GESPRUNGEN.
;
;	03.11.83	A.HERRMANN
;
	.Z80
BDOS	EQU 0005H
CCPBUF	EQU 0C806H
CCP	EQU 0C800H
;
	JP WMU
PROMPT:	DB 'CCP>$'
;
WMU:	LD DE,PROMPT
	LD C,09H
	CALL BDOS	; DISPLAY PROMPT
	LD DE,CCPBUF
	LD C,0AH
	CALL BDOS	; READ CONSOLE BUFFER
	LD A,(CCPBUF+1)
	LD C,A		; GET INPUT LENGTH
	LD B,0
	LD HL,CCPBUF+1
	ADD HL,BC	; SOURCE ADDRESS
	EX DE,HL
	LD HL,4
	ADD HL,DE	; DEST ADDRESS+1
	XOR A
	LD (HL),A	; NULL BEHIND INPUT STRING
	DEC HL
	EX DE,HL
	LDDR
	LD C,0		; USER 0, DRIVE A
	JP CCP
	END





