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

;
;  F$WRITE -- WRITE BLOCK TO FILE WHOSE FCB IS PTED TO BY DE
;	RET W/A=0 IF OK
;
	EXT	BDOS

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

B$RECW	EQU	21	; WRITE RECORD

	END
