Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-11-29 17:50:18 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.94

Browse Source
This commit is contained in:
Rémy GIBERT 2020-06-17 21:08:08 +02:00
parent 61bc2d9be8
commit a0960c2150
2 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
LIB/LIBBLKDEV.S.BB.txt
View File

@ -349,7 +349,7 @@ BB.Seek lda BB.HdrTrk get track we're on
.5 lda IO.D2.Ph0On,x .5 lda IO.D2.Ph0On,x
ply ply
jsr BB.WaitPh jsr BB.Wait25600usec
bra .1 bra .1
* Last QTrack * Last QTrack
@ -371,12 +371,10 @@ BB.Seek lda BB.HdrTrk get track we're on
tay tay
lda IO.D2.Ph0On,y lda IO.D2.Ph0On,y
.7 phx .7 jsr BB.Wait25600usec
jsr BB.WaitPh
.80 jsr BB.Wait25600usec .80 jsr BB.Wait25600usec
plx
lda IO.D2.Ph0Off,y lda IO.D2.Ph0Off,y
lda IO.D2.Ph0Off,x lda IO.D2.Ph0Off,x
bra BB.Read bra BB.Read
@ -384,7 +382,7 @@ BB.Seek lda BB.HdrTrk get track we're on
.8 tya .8 tya
beq BB.Read beq BB.Read
pha tax
bra .80 bra .80
*-------------------------------------- *--------------------------------------
@ -392,20 +390,19 @@ BB.WaitPh lda #IO.D2.SeekTime
.HS 2C BIT ABS .HS 2C BIT ABS
BB.Wait25600usec BB.Wait25600usec
lda #0 lda #0
phx
sec (6) JSR (2)
.1 ldx #19 (2) .1 ldx #19 (2)
.2 dex (2) delay 86 usec. .2 dex (2) delay 86 usec.
bne .2 (2+) 2 + 5x16 + 2 + 2 bne .2 (2+) 2 + 5x16 + 2 + 2
* ldx BB.Slotn0 (3) * ldx BB.Slotn0 (3)
* bit IO.D2.DrvOn,x (4) Slow down ACC boards * bit IO.D2.DrvOn,x (4) Slow down ACC boards
sec (6)
sbc #1 (2) sbc #1 (2)
bne .1 (2+) bne .1 (2+)
plx
rts (6) rts (6)
*-------------------------------------- *--------------------------------------
BB.Trk2Qtrk asl x2 BB.Trk2Qtrk asl x2

2
LIB/LIBBLKDEV.S.D2.txt
View File

@ -186,7 +186,7 @@ D2.Wait25600usec
lda #0 lda #0
D2.Wait100usecA phx (3) D2.Wait100usecA phx (3)
.1 ldx #19 (2) .1 ldx #18 (2)
.2 dex (2) .2 dex (2)
bne .2 (3) bne .2 (3)