GETFN:	MVI		C,READ
		LXI		D,RBLK
		CALL	ISIS
		LDA		STATUS
		ORA		A
		JNZ		ERR
;
		LXI		H,BUFFER
		LXI		D,FILENM
		MVI		C,128
MOVEIT:
		MOV		A,M
		INX		H
		STAX	D
		INX		D
		MOV		A,M
		CPI		20H
		JZ		ZERO
		CPI		CR
		JZ		ZERO
		DCR		C
		JZ		ZERO
		JMP		MOVEIT
;
ZERO:	MVI		A,0
		STAX	D
;
		LXI		H,TRKMSG
		CALL	PRNTMSG
		LXI		H,FILENM
		CALL	PRNTMSG