;
DONE:	MVI		C,CLOSE
		LXI		D,CBLK
		CALL	ISIS
DONE0:
		CALL	DTRLO
		LXI		H,DONEMSG
		CALL	PRNTMSG
;
		MVI		C,EXIT
		LXI		D,XBLK
		CALL	ISIS
ERR:
		MVI		C,ERROR
		LXI		D,EBLK
		CALL	ISIS
		JMP		DONE0
;
		DSEG
OBLK:
		DW		WAFT
		DW		BUFFER
		DW		2
		DW		0
		DW		STATUS
;
CBLK:
CAFT:	DS		2
		DW		STATUS
;
RBLK:
OAFT:
RAFT:	DW		1
		DW		BUFFER
		DW		128
		DW		ACTUAL
		DW		STATUS
;
ACTUAL:	DS		2
;
WBLK:
WAFT:	DS		2
		DW		BUFFER
WCNT:	DS		2
		DW		STATUS
;
XBLK:		DW		STATUS
EBLK:
STATUS:		DS		2
			DW		STATUS
;
BUFFER:		DB		'NEW.IMG',0
			DS		120
;
FILENM:		DS		128
;
FIRSTNM:	DS		2
DIGITS:		DS		1
BYTECNT:	DS		2
;
RESPONSE:	DS		128
;
IOPB:		DB		0		; INTERRUPTS ON
			DB		14H
			DB		52
TRACK:		DB		0
			DB		1
IOPB5:
			DW		TRKBUFF
;
			DS		128
;
TRKBUFF:	DS	6656
;
BUFFTOP:
;
STCKA:		DS	4
;
			END		BEGIN