 .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
 LDA JOBNUM ;RETRIEVE JOB
 JSR SETH ;SO CAN SET RESTORE ALL
 RTS ;SAME ID
CATID1 JMP INITDR ;DIFF SO INIT
;
.END
