; IDE Interface utility library¢; Return:C = 1 on error¢¢ide.id=$d800¢pstats=$de00¢pindex=$de10¢pbeglo=$de20¢pbegmd=$de30¢pbeghi=$de40¢plenlo=$de50¢plenmd=$de60¢plenhi=$de70¢pmagic=$de80¢pretries =$de9b¢bootdrv =$dea6¢bootmod =$dea7¢redir=$deab¢pclsize =$deac¢pcl.lo=$dec6¢pcl.hi=$ded6¢¢_ide=*¢¢; Check partition number range¢?rangejsr?enab¢bcs?ext¢cpx#$01¢bneide.rom.enable?clc¢ldxredir¢cpx#$80¢?extrts¢¢?enabcpx#$00¢beq?ext¢cpx#$11¢bcs?ext¢¢; Enable the IDE ROM¢¢ide.rom.enable¢lda#$01¢?lpbit$0247; PDVMSK¢beq?nxt¢sta$0248; PDVRS¢sta$d1ff; PDVREG¢ldy#$02¢?chkldaide.id,y¢cmp?tab,y¢bne?abr¢dey¢bpl?chk¢?clcclc¢?extrts¢¢?tab.he28 07 70¢¢?abrlda$0248¢?nxtasl¢bcc?lp¢¢; Disable the IDE ROM¢¢ide.rom.disable¢pha¢lda#$00¢sta$0248¢sta$d1ff¢pla¢?extrts¢¢; Get the IDE partition status¢¢ide.get.status¢jsr_ide?range¢ldapstats,x¢jmpide.rom.disable¢¢; Set/Remove write protection¢¢ide.lock¢lda#$ff¢bmiide.unlock?sav¢¢ide.unlock¢lda#$df¢?savsta?neg+1¢jsr_ide?range¢bcside.rom.disable?ext¢ldapstats,x¢bpl?sec¢ora#$20¢?negand#$00¢sta$ddff,x¢.he24¢?secsec¢jmpide.rom.disable¢¢; Findfirst IDE partition¢¢ide.find.first¢ldx#$01¢?lpjsride.get.status¢bcs?nxt¢tay¢bmi?ext¢?nxtcpx#$80¢bcc?skp¢ldx#$01¢?skpinx¢cpx#$11¢bcc?lp¢?extrts¢¢; Redirection to D1:¢¢ide.redirect¢jsr_ide?enab¢bcc?skp¢txa¢bmi?str¢bcside.find.first?ext¢?skpldapstats,x¢bplide.unlock?sec¢?strstxredir¢bccide.rom.disable¢¢; Set longsectors¢¢ide.set.512¢jsr_ide?range¢bcside.find.first?ext¢lda#$ff¢cmppclsize-1,x¢clc¢beqide.rom.disable¢stapclsize-1,x¢lsrplenhi-1,x¢rorplenmd-1,x¢rorplenlo-1,x¢incpcl_hi-1,x¢bneide.rom.disable¢¢; Returns partition length in AXY¢¢ide.get.len¢jsr_ide?range¢bcside.find.first?ext¢ldaplenlo-1,x¢pha¢ldaplenmd-1,x¢pha¢ldyplenhi-1,x¢pla¢tax¢pla¢jmpide.rom.disable¢¢; Force media change¢¢ide.media.change¢jsride.find.first¢bcs?ext¢lda#$31¢sta$0300; DDEVIC¢stx$0301; DUNIT¢lda#$ee; Media Change¢sta$0302; DCMND¢jmp$e459; JSIOINT¢?extldy#$82; Error: 130¢rts¢
