;
;	THIS FILE IS USED TO PATCH CPSYS0 & CPSYS1.
;	IT INCLUDES ALL PATCHES DISTRIBUTED BY
;	DIGITAL RESEARCH (THERE ARE CURRENTLY 
;	THREE) AND THE PATCHES TO CHANGE CP/M'S
;	ERROR HANDLING.
;
;	4/24/84 PATCHES ADDED TO IMPROVE CONTROL S
;	HANDLING.
;
CPM	EQU 0
;
	MACLIB Z80
;
;	CP/M 2.2 PATCH 01 3/31/81
;
	ORG CPM + 12D2H
	NOP
	NOP
	LXI H,CPM
;
;	CP/M 2.2 APP. NOTE 2 2/20/82
;
	ORG CPM + 0A1BH
	MVI A,8
	JMP 0A07H + CPM
;
;	THIS PATCH IMPROVES CTL-S HANDLING
;
	ORG CPM + 930H
	CALL 1609H + CPM
	CPI 11H
	JZ 940H + CPM
	CPI 13H
	JNZ 942H + CPM
	CALL 15F2H + CPM
;
	ORG CPM + 15F2H
	CALL 1606H + CPM
	ORA A
	JZ 15F2H + CPM
	CALL 1609H + CPM
	CPI 3
	RNZ
	RST 0
;
;	THIS SET OF PATCHES ARE FOR ERROR HANDLING
;
	ORG CPM + 809H
	DW 0
	DW SELERR
	DW DROERR
	DW FROERR
;
	ORG CPM + 899H
SELERR:	LXI H,SELMSG
	JR ERROR
;
DROERR:	LXI H,DROMSG
	JR ERROR
;
FROERR:	LXI H,FROMSG
ERROR:	MVI A,1
	STA CPM + 0B0EH
	CALL CPM + 8E5H
	RST 0
;
ERRMSG:	DB 'CP/M error: Drive '
DRIVE:	DB 'A $'
SELMSG:	DB 'invalid.$'
FROMSG:	DB 'file '
DROMSG	DB 'read only.$'
;
	ORG CPM + 8EEH
	STA DRIVE
;
	ORG CPM + 8F1H
	LXI B,ERRMSG
;
	END