OTADD	EQU	900H

	LD	(CCPSP),SP
	LD	SP,STACK
	LD	HL,(WBOOT+1)
	LD	DE,24
	ADD	HL,DE
	LD	DE,JPVEC
	LD	BC,18
	LDIR
	LD	A,(TFCB)
	OR	A
	JR	Z,USEDLT
	DEC	A
	JR	SELECT
USEDLT: LD	A,(CURDSK)
SELECT: LD	C,A
	CALL	SELDSK
	LD	C,0
	CALL	SETTRK
	LD	C,1
	CALL	SETSEC
	LD	BC,BOTADD
	CALL	SETDMA
	CALL	WRITE
	LD	A,(CURDSK)
	AND	0FH
	LD	C,A
	CALL	SELDSK
	LD	SP,(CCPSP)
	RET

END:
CCPSP:	DEFS	2
	DEFS	48
STACK:
JPVEC:
SELDSK	EQU	JPVEC
SETTRK	EQU	JPVEC+3
SETSEC	EQU	JPVEC+6
SETDMA	EQU	JPVEC+9
WRITE	EQU	JPVEC+0FH

	ORG	END
	END