Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-05-28 12:41:34 +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
ply
jsr BB.WaitPh
jsr BB.Wait25600usec
bra .1
* Last QTrack
@ -371,12 +371,10 @@ BB.Seek lda BB.HdrTrk get track we're on
tay
lda IO.D2.Ph0On,y
.7 phx
jsr BB.WaitPh
.7 jsr BB.Wait25600usec
.80 jsr BB.Wait25600usec
plx
lda IO.D2.Ph0Off,y
lda IO.D2.Ph0Off,x
bra BB.Read
@ -384,7 +382,7 @@ BB.Seek lda BB.HdrTrk get track we're on
.8 tya
beq BB.Read
pha
tax
bra .80
*--------------------------------------
@ -392,20 +390,19 @@ BB.WaitPh lda #IO.D2.SeekTime
.HS 2C BIT ABS
BB.Wait25600usec
lda #0
sec (6) JSR (2)
phx
.1 ldx #19 (2)
.2 dex (2) delay 86 usec.
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
sec (6)
sbc #1 (2)
bne .1 (2+)
plx
rts (6)
*--------------------------------------
BB.Trk2Qtrk asl x2

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

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