;
; SYSLIB Module Name:  SFDEL
; Author:  Richard Conn
; SYSLIB Version Number:  2.0
; Module Version Number:  1.0
; Module Entry Points:
;	F$DELETE
; Module External References:
;	BDOS
;

;
;  F$DELETE -- DELETE FILE WHOSE FCB IS PTED TO BY DE
;
	EXT	BDOS

F$DELETE::
	PUSH	H	; SAVE HL
	PUSH	B	; SAVE BC
	MVI	C,B$DEL
	CALL	BDOS
	POP	B	; RESTORE BC
	POP	H	; RESTORE HL
	RET

B$DEL	EQU	19	; DELETE FILE

	END
