autoit

.PAGE 'AUTOIT'
;RSR TEST SUBROUTINES
;
; THIS AUTO INIT SUBROUTINE WILL
; CHECK IF DRVNUM DRIVE IS INITED
;
; IF CATALOG CALLS THIS ROUTINE
; BEFORE ANY HEADER INFO IS TRANSFERED
; THIS ROUTINE WORKS.
;
; THIS ROUTINE WILL END IN ERROR
; IF ANY ERROR BUT DISK ID OCCURS
;
AUTOIT	LDX #$FF        ;FLAG FOR ERROR RTN
	STX JOBRTN
	JSR INITSU      ;.A=DRVNUM< >=ERROR
	CMP #03         ;CHK MISSING DISK
	BEQ CATID3
CATID5	CMP #2          ;CHK FOR OKAY
	BCC CATID4
CATID2	JMP ERROR       ;MUST BE AN ERROR
CATID3	LDY DRVCNT      ;CHK FOR SINGLE
	BEQ CATID2
	LDA #0          ;ONLY ONE GOOD DRIVE?
	STA DRVCNT
	LDA DRVNUM      ;FLIP TO CHK OTHER DRV
	EOR #1
	STA DRVNUM
	JMP AUTOIT
;
CATID4	TXA             ;X PRESERVED
	ASL A           ;MULT *8
	ASL A
	ASL A
	TAY
	LDA DRVNUM
	ASL A
	TAX
	LDA HDRS,Y      ;CHK DISK ID
	CMP DSKID,X     ;AGAINST OLD ID
	BNE CATID1
	LDA HDRS+1,Y
	CMP DSKID+1,X
	BNE CATID1
	RTS             ;SAME ID
CATID1	JMP INITDR      ;DIFF SO INIT
;
.END