Compucolor.org – Virtual Media

Listing of file='MARK.MAC;05' on disk='vmedia/asm_utility_4-sideB-sector.ccvf'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;	MARK A DISKETTE WITH A COPYRIGHT NOTICE
;

	EXTRN	JMPVEC,OSTR
	EXTRN	FILVEC,FCS
	EXTRN	HEXOUT

ESC	EQU	27
KBCHA	EQU	81FEH

MARK:	CALL	JMPVEC
	CALL	FILVEC

	LXI	D,NOTICE
	MOV	A,D
	LXI	H,ADDR
	CALL	HEXOUT
	MOV	A,E
	LXI	H,ADDR+2
	CALL	HEXOUT

MARK10:	XRA	A
	STA	KBCHA
	LXI	H,DRVMSG
	CALL	OSTR
GETDIG:	LDA	KBCHA
	ORA	A
	JZ	GETDIG
	CPI	'0'
	JZ	OKDRV
	CPI	'1'
	JZ	OKDRV
	CPI	ESC
	JZ	EXIT
	JMP	MARK10

OKDRV:	STA	DRIVE

	LXI	H,WRITE
	CALL	FCS
	JMP	MARK10

EXIT:	MVI	B,0
	RET

DRVMSG:	DB	11,6,3,'DRIVE: ',6,2,239

WRITE:	DB	'WRITE CD'
DRIVE:	DB	'0'
	DB	': 18F,'
ADDR:	DB	'A000'
	DB	',80',0

NOTICE:	DB	15,6,6,'COPYRIGHT (C) ',6,5,'1980 ',6,6,'BY '
	DB	6,4,'TREVOR TAYLOR',13,10,239
	DS	100

	END	MARK