;START OF PREFIX
	DB	0,0,0,0,0,0	;SERIAL NUMBER
	JP	START
NEXT	JP	$-$
PREV	DW	0
REMOVE	DB	0
NONBNK	DB	0
RSXNAME	DB	'TRACE EM'
	DB	0,0,0

;START OF RSX CODE
START
	LD	A,C
	CP	21H
	JR	NZ,NEXT		;SKIP IF NOT RANDOM READ
START2
;
;	DO READ, BUT IF IT RETURNS AN ERROR CODE 1
;	SEEK SECTOR 0 BEFORE GOING ON, THANK-YOU
;
	LD	(USERSAVE),SP
	LD	SP,MYSTACK
	PUSH	DE
	CALL	NEXT
	;WELL, PRESERVE RESULTS.......
	CP	1
	JR	NZ,START8
	;OK, GET AND SAVE EVERYTHING PLEASE.......
	EX	(SP),HL		;save hl
	LD	DE,33
	EX	DE,HL
	ADD	HL,DE
	PUSH	HL
	XOR	A
	LD	C,(HL)
	LD	(HL),A
	INC	HL
	LD	B,(HL)
	PUSH	BC
	LD	(HL),A
	INC	HL
	LD	B,(HL)
	PUSH	BC
	LD	(HL),A
	LD	C,21H
	CALL	NEXT
	;NOW RESTORE RANDOM #
	POP	AF
	POP	BC
	POP	HL
	LD	(HL),C
	INC	HL
	LD	(HL),B
	INC	HL
	LD	(HL),A
	LD	A,1
	POP	HL		;H COUNT...
START8
	LD	SP,(USERSAVE)
	RET
USERSAVE DW	0
	DS	64
MYSTACK
	END