Compucolor.org – Virtual Media

Listing of file='STORE.MAC;01' on disk='vmedia/disasm-sideA-sector.ccvf'

;
;	COMPUCOLOR FILE STORE ROUTINE
;
	EXTRN	EMESS,PTBYT
	EXTRN	FPBO

STORE:	PUSH	H	;SAVE <HL>
	LXI	H,FPBO	;POINT TO FPB
	CALL	PTBYT	;PUT A BYTE TO DISK
	POP	H	;RESTORE <HL>
	RNC		;RETURN IF NO ERROR
ERROR:	CALL	EMESS	;PRINT ERROR MESSAGE
	STC
	RET

	END