;---------------T-------T---------------T------------------------------------T ;»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»» ;»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»» ; This source is © Copyright 1992-1995, Jesper Skov. ; Read "GhostRiderSource.ReadMe" for a description of what you may do with ; this source! ;»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»» ; Please do not abuse! Thanks. Jesper ;»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»» ;»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»» ;---------------------------------------------------- ;- Name : DiskLibrary ;- Description : Contains all lowlevel disk commands. ;---------------------------------------------------- ; Assemble, then save binary image from "s" to "e" to file ; "gri:disklibrary.bin". ;---------------------------------------------------- ;- 291192.0000 First version with EntryDisk,ExitDisk and GetBlock. ;- Should support the development of simple disk routines. ;- Only read-routines. No error code/handler included. ;- 270893.0001 Included in routine index. ;- 280893.0002 All routines shined up. Now all should work 100% ;- Removed bug in SeekTrack. ;- Added InitDriveDOS to be used by DOSroutines (eg dir) ;- Fixed bug in SeekTrack (CurrentTrack was not updated) ;- All errors now cause call to PEMO. Relay on pre-call stack! ;- 280893.0003 Sets DiskChanged bit, forcing the system to update diskinfo. ;- 300893.0004 Added Low level savers. ;- Added RAW write. SyncWord now fetched from BSS area. ;- 310893.0005 Fixed bug in datachecksummer. ;- 081093 Added support for HD disks. Added diskdrive-check. Now ;- complaints if invalid drive or unknown drivetype. ;- 280794.0010 Put in external library. Now works 100%. ;---------------------------------------------------- LocalAssembly set 2 b equr a5 h equr a6 BASEREG B,b incdir include: include hardware/custom.i include hardware/dmabits.i include hardware/intbits.i include gr:includes/GRConstants.0003.s include gr:includes/GRStructures.0001.s include gr:includes/GRData.0016.s section NeedfulThings,code Push macro ;push all or selected regs ifc all,\1 ;on the stack movem.l d0-a6,-(a7) else movem.l \1,-(a7) endc endm Pull macro ;pull all or selected regs ifc all,\1 ;from the stack movem.l (a7)+,d0-a6 else movem.l (a7)+,\1 endc endm grcall MACRO jsr _LVO\1(b) ENDM grgo MACRO jmp _LVO\1(b) ENDM s ;_LVOInitDrive jmp InitDrive ;_LVOInitDriveW jmp InitDriveW ;_LVOInitDriveDOS jmp InitDriveDOS ;_LVOInitDriveDOSW jmp InitDriveDOSW ;_LVOUpdateDisk jmp UpdateDisk ;_LVOMotorOff jmp MotorOff ;_LVOExitDisk jmp ExitDisk ;_LVOLoadTrack jmp LoadTrack ;_LVOLoadTrackNDec jmp LoadTrackNDec ;_LVOSaveTrack jmp SaveTrack ;_LVOSaveTrackAdd jmp SaveTrackAdd ;_LVOSaveRawTrack jmp SaveRawTrack ;_LVOSaveBlock jmp SaveBlock ;_LVOSaveBlockAdd jmp SaveBlockAdd ;_LVOGetBlock jmp GetBlock ;_LVOGetBlockToAdd jmp GetBlockToAdd ; ReadBatClock ; Amiga2Date ; TimerWait0.1ms ;w; bra.w InitDrive bra.w InitDriveW bra.w InitDriveDOS bra.w InitDriveDOSW bra.w UpdateDisk bra.w MotorOff bra.w ExitDisk bra.w LoadTrack bra.w LoadTrackNDec bra.w SaveTrack bra.w SaveTrackAdd bra.w SaveRawTrack bra.w SaveBlock bra.w SaveBlockAdd bra.w GetBlock bra.w GetBlockToAdd bra.w ReadBatClock bra.w Amiga2Date bra.w TimerWait0.1ms DL_PrintErrorMO jmp _LVOPrintErrorMO(b) DL_PrintError jmp _LVOPrintError(b) ;---- Reset disk to pre-entry status ;-- Only takes care of selected drive (DF0:) ;---- ExitDisk moveq #3,d2 ;reset DF0-3 to entry pos lea SystemTracks(b),a2 clr.b SelectedDrive(b);start with df0 .exitdiskloop moveq #0,d0 move.w (a2)+,d0 ;been fiddled with? bmi.b .notused bsr.w SelectDrive btst #2,CIAA_PRA ;skip if disk has been removed beq.b .notused move.l d0,-(a7) bsr.w MotorOn ;but reposition for scumbag coders bsr.w SeekTrackZero move.l (a7)+,d0 bsr.w SeekTrack bsr.w MotorOff .notused addq.b #1,SelectedDrive(b);goto next drive dbra d2,.exitdiskloop rts ;---- Initialize selected drive for DOS disk action and turn motor on InitDriveDOSW moveq #1,d0 bra.b InitDriveDOSM InitDriveDOS: moveq #0,d0 InitDriveDOSM Push d2-d4/d6/d7/a0 moveq #-1,d6 ;signal DOS check bra.b InitDriveMain ;---- Initialize selected drive for disk action and turn motor on ;-- Returns status in d0 ;---- InitDriveW moveq #1,d0 bra.b InitDriveM InitDrive: moveq #0,d0 InitDriveM Push d2-d4/d6/d7/a0 moveq #0,d6 ;signal no DOS check InitDriveMain moveq #0,d2 move.b SelectedDrive(b),d2 moveq #0,d4 ;check diskID moveq #31,d1 and.b #$7f,CIAB_PRB move.w d2,d4 moveq #0,d3 addq.b #3,d2 bset d2,d3 moveq #-1,d2 eor.w d3,d2 and.b d2,CIAB_PRB or.b d3,CIAB_PRB or.b #$80,CIAB_PRB and.b d2,CIAB_PRB or.b d3,CIAB_PRB .getid and.b d2,CIAB_PRB add.l d4,d4 btst #5,CIAA_PRA beq.b .no bset #0,d4 .no or.b d3,CIAB_PRB dbra d1,.getid ;$00000000 DD ;$AAAAAAAA HD ;$FFFFFFFF N/A moveq #11,d1 tst.l d4 beq.b .secsok moveq #22,d1 cmp.l #$aaaaaaaa,d4 beq.b .secsok moveq #EV_NOTAVALIDDRIVENO,d1;drive not present cmp.l #-1,d4 beq.w .TrackError moveq #EV_UNKNOWNDRIVETYPE,d1;unknown type bra.w .TrackError .secsok move.b d1,DiskSectors(b) lea DiskSectorsTab(b),a0 move.b d1,(a0,d4.w) moveq #0,d2 move.b SelectedDrive(b),d2 add.w d2,d2 lea TrackLenTab(b),a0 cmp.b #11,d1 beq.b .dddisk lea TrackLenHTab(b),a0 .dddisk move.w (a0,d2.w),TrackLen(b) add.w d2,d2 lea DiskSyncTab(b),a0 move.l (a0,d2.w),DiskSyncs(b) move.w #880,d2 ;calc ROOT-block cmp.b #11,d1 beq.b .dddisk2 add.w d2,d2 .dddisk2 move.w d2,ROOTBlock(b) add.w d2,d2 ;and the highest block# move.w d2,MaxBlock(b) bsr.w SelectDrive moveq #0,d2 move.b SelectedDrive(b),d2 btst #2,CIAA_PRA ;have disk been removed beq.w .CheckNewDisk .DiskInDrive tst.w d0 ;check WP? beq.b .NoWPCheck btst #3,CIAA_PRA ;write protected? bne.b .NoWPCheck moveq #EV_DISKWRITEPROTECTED,d1 bra.w .TrackError .NoWPCheck bsr.w MotorOn move.w CurrentTrack(b),d1 bmi.b .ExamineDisk tst.w d6 ;system? beq.w .TrackOK ;if not simply exit tst.b DOSFormat(b) ;else check DOS format bpl.w .TrackOK ;and exit if OK. Else try to read ;bootblock again .ExamineDisk st.b DOSFormat(b) bsr.w SeekTrackZero lea FirstAccess(b),a0;check for first access tst.b (a0,d2.w) bne.b .first st.b (a0,d2.w) ;flag not first access add.w d2,d2 ;if first access, save system track lea SystemTracks(b),a0 move.w d7,(a0,d2.w) .first tst.w d6 ;exit if not a system call beq.b .TrackOK moveq #0,d0 move.b SelectedDrive(b),d0 add.w d0,d0 lea CDTable(b),a0 move.w ROOTBlock(b),(a0,d0.w);set default CD to ROOT move.w ROOTBlock(b),8(a0,d0.w);set backup CD to ROOT ; move.w ROOTBlock(b),CurrentDir(b) moveq #0,d0 bsr.w LoadTrack ;get track 0 (bootblock) bmi.b .TrackError moveq #0,d1 move.l _LSOTrackBuffer(b),a0 move.l (a0),d0 clr.b FastFileSystem(b);clr FFS flag btst #0,d0 ;FFS? beq.b .OFS st.b FastFileSystem(b);flag FFS .OFS move.b d0,DOSFormat(b) ;set DOS format move.b d0,d2 bmi.b .illegalDOS clr.b d0 cmp.l #'DOS'<<8,d0 ;check DOSx bne.b .illegalDOS cmp.b #5,d2 ;check DOS0-5 ble.b .TrackOK .illegalDOS st.b DOSFormat(b) ;signal illegal format moveq #EV_NOTAMIGADOSFORMAT,d1 .TrackError tst.b DiskInfoFlag(b) bne.b .TrackExit Pull d2-d4/d6/d7/a0 addq.w #4,a7 ;skip caller bra.w DL_PrintErrorMO ;kill motor if not a valid DOS .TrackOK moveq #0,d1 ;let motor run .TrackExit Pull d2-d4/d6/d7/a0 tst.w d1 rts .CheckNewDisk movem.l d0/a0,-(a7) move.w #10,CurrentTrack(b);fool stepper to allow step btst #4,CIAA_PRA ;check for new disk by stepping heads beq.b .trackzero ;if not over trk0 moveq #-1,d0 bsr.w StepHeads ;step out (towards trk0) moveq #0,d0 bsr.w StepHeads bra.b .stepped .trackzero moveq #0,d0 bsr.w StepHeads ;if trk0 step in and out moveq #-1,d0 bsr.w StepHeads .stepped moveq #0,d0 move.b SelectedDrive(b),d0 add.w d0,d0 lea CDTable(b),a0 move.w ROOTBlock(b),(a0,d0.w);set default CD to ROOT move.w ROOTBlock(b),8(a0,d0.w);set backup CD to ROOT ; move.w ROOTBlock(b),CurrentDir(b) movem.l (a7)+,d0/a0 move.w #-1,CurrentTrack(b);Clear all disk flags clr.b TrackInBuffer(b) clr.b TrackModified(b) btst #2,CIAA_PRA ;check for no-disk bne.w .DiskInDrive moveq #EV_NODISK,d1 bra.w .TrackError ;return error ;---- Turn ON the selected drive MotorOn ;Do some (gaining rotation speed) flash :) st.b CurrentSector(b);sector display inactive st.b HeaderDiskInfo(b);start header updates st.b IRQSecPos(b) bsr.b SelectDrive Push d0/d1 moveq #500/5-1,d1 ;motor guaranteed to be spinning after 500ms .MotorWait moveq #5,d0 ;test motor spin signal each 5ms bsr.w TimerWaitMS btst #5,CIAA_PRA ;wait for full spin beq.b .spinning dbra d1,.MotorWait .spinning Pull d0/d1 rts ;---- Select selected drive SelectDrive Push d0/d1 move.b SelectedDrive(b),d1;get selected drive number addq.b #3,d1 move.b #$87,d0 bset d1,d0 or.b #$f9,CIAB_PRB ;motor=off,deselect df0-3 and.b d0,CIAB_PRB ;select all but selected so they see motor or.b #$78,CIAB_PRB ;deselect df0-3 and.b #$7f,CIAB_PRB ;motor=on moveq #-1,d0 bclr d1,d0 ;fix mask and.b d0,CIAB_PRB ;select selected drive Pull d0/d1 rts ;---- Turn OFF all drives MotorOff or.b #$f8,CIAB_PRB ;motor=off, deselect df0-3 and.b #$87,CIAB_PRB ;select df0-3 so they see motor or.b #$f8,CIAB_PRB ;deselect df0-3 clr.b HeaderDiskInfo(b);stop header updates st.b ReprintHeader(b);and request header reprint rts ;---- Step Heads ;-- Input: D0 0=step inward (inc). -1=step outward (dec) (track 0) ;-- If track -1 or 160 is reached -> Freeze (RED) ;---- StepHeads moveq #2,d1 and.w d0,d1 beq.b .TrackInc subq.w #2,CurrentTrack(b) bpl.b .StepOK addq.w #2,CurrentTrack(b);return without stepping! .IllegalStep moveq #DE_ILLEGALTRACK,d1 bra.w DL_PrintErrorMO .TrackInc cmp.w #158,CurrentTrack(b);Ok to step in? bge.b .IllegalStep addq.w #2,CurrentTrack(b);yeah .StepOK cmp.b LastStepDir(b),d1;last direction=request beq.b .continue move.b d1,LastStepDir(b);no, set last direction=req moveq #SettleDelay,d0 bsr.b TimerWaitMS ;and wait for settle delay .continue bclr #1,CIAB_PRB ;set direction or.b d1,CIAB_PRB bclr #0,CIAB_PRB ;and send step pulse bset #0,CIAB_PRB moveq #StepDelay,d0 bsr.b TimerWaitMS ;wait for step-delay moveq #0,d1 rts ;---- Wait specified time ;-- INPUT: d0.w - Time in miliseconds ;---- TimerWaitMS mulu #10,d0 TimerWaitMS10 subq.w #1,d0 .WaitLoop bsr.b TimerWait0.1ms ;only 1/10 ms at a time to prevent dbra d0,.WaitLoop ;too much conflict with vblank rts TimerWait0.1ms move.w d0,-(a7) move.w #$4000,intena(h) move.b #$7f,CIAB_ICR ;clr irq requests and.b #~(5<<1!1<<1),CIAB_CRA;count full cycles (2pi <> 1pi) ! No CPU output or.b #1<<3,CIAB_CRA ;oneshot move.w Delay0.1ms(b),d0 move.b d0,CIAB_TALO lsr.w #8,d0 move.b d0,CIAB_TAHI .HangOn btst #0,CIAB_ICR ;wait for timer beq.b .HangOn move.b #$7f,CIAB_ICR move.w #$c000,intena(h) move.w (a7)+,d0 rts ;---- Seek outwards until Track Zero is found ;-- Output: D7 - Previous position (track 0-159) ;---- SeekTrackZero move.b #'S',DiskDMADirection(b) moveq #0,d7 move.w #200,CurrentTrack(b);fool StepHeads to OK step out .SeekTZLoop btst #4,CIAA_PRA beq.b .TrackZeroFound moveq #-1,d0 ;step outwards bsr.w StepHeads addq.w #2,d7 ;count the steps (=2*track) bra.b .SeekTZLoop .TrackZeroFound move.b CIAB_PRB,d0 btst #2,d0 ;also find side bne.b .side0 bset #0,d7 .side0 bset #2,d0 ;and then force side to 0 move.b d0,CIAB_PRB ;(track 0) clr.w CurrentTrack(b) clr.b TrackInBuffer(b) move.b #2,LastStepDir(b);signal last step waz outwards rts ;---- Seek Track ;-- Input: D0 - Track to seek (0-159) ;---- SeekTrack move.b #'S',DiskDMADirection(b) Push d0-d3 move.b CIAB_PRB,d1 lsr.w #1,d0 scc.b d2 moveq #%100,d3 and.w d3,d2 ;wanted bit state and.w d1,d3 ;actual bit state cmp.w d2,d3 ;equal? beq.b .SelectSide bchg #2,d1 ;if not, change side move.l d0,d3 moveq #13,d0 bsr.w TimerWaitMS10 ;wait 1.3 ms as stated in RKM move.b d1,CIAB_PRB ;change side moveq #1,d0 bsr.w TimerWaitMS10 ;wait 0.1 ms as stated in RKM move.l d3,d0 ;Above actually only needed when writing data, but what the hell? ; bset #2,d1 ;head 0 ; lsr.w #1,d0 ; bcc.b .SelectSide ; bclr #2,d1 ;change head .SelectSide moveq #0,d3 ;seek inwards (inc) move.w CurrentTrack(b),d2 lsr.w #1,d2 sub.b d2,d0 beq.b .TrackFound ;exit if equ tracknumbers! bpl.b .SeekDirOk ;if CT