Apple-2-SW
/
A2osX
mirror of https://github.com/A2osX/A2osX.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Kernel 0.94

This commit is contained in:
Rémy GIBERT 2020-07-26 21:16:13 +02:00
parent e0190c4c93
commit 3ba28d1911
8 changed files with 20 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BOOT.woz
View File

Binary file not shown.

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

BIN
.Floppies/A2OSX.TEST.po
View File

Binary file not shown.

7
A2osX.S.txt
View File

@ -506,19 +506,19 @@ LoadKM ldx Boot.Prefix
sta KM.Filename
tax
.2 bit LoadKM.VERSION
.2 bit LoadKM.MVERSION
bpl .6
cpy #8
bcs .3
lda LoadKM.Bits,y
bit LoadKM.VERSION
bit LoadKM.MVERSION
beq .6
bra .4
.3 lda LoadKM.Bits-8,y
bit LoadKM.MVERSION
bit LoadKM.VERSION
beq .6
.4 lda (TmpPtr1),y
@ -535,6 +535,7 @@ LoadKM ldx Boot.Prefix
pha
lda /KM.Filename
pha
>LDYAI MSG.KMLOAD
jsr PrintFYA

2
INC/IO.D2.I.txt
View File

@ -2,7 +2,7 @@ NEW
AUTO 3,1
.LIST OFF
*--------------------------------------
IO.D2.SeekTime .EQ 200
IO.D2.SeekTime .EQ 75
*--------------------------------------
IO.D2.Ph0Off .EQ $C080
IO.D2.Ph0On .EQ $C081

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

@ -329,7 +329,7 @@ BB.Seek lda BB.HdrTrk get track we're on
and #6
ora BB.Slotn0
tax
tay
pla
@ -347,10 +347,10 @@ BB.Seek lda BB.HdrTrk get track we're on
and #6
ora BB.Slotn0
tay
tax
lda IO.D2.Ph0On,x
lda IO.D2.Ph0On,y
lda IO.D2.Ph0On,x
jsr BB.WaitSeekTime
bra .1

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

@ -46,6 +46,9 @@ D2Recalibrate >PULLB DrvSlt
lda #IO.D2.SeekTime
jsr D2.Wait100usecA
lda #IO.D2.SeekTime
jsr D2.Wait100usecA
tya
bne .1
@ -97,7 +100,7 @@ D2MoveHead.1 ldx Slotn0
and #6
ora Slotn0
tax
tay
pla
@ -115,10 +118,10 @@ D2MoveHead.1 ldx Slotn0
and #6
ora Slotn0
tay
tax
lda IO.D2.Ph0On,x
lda IO.D2.Ph0On,y
lda IO.D2.Ph0On,x
lda #IO.D2.SeekTime
jsr D2.Wait100usecA

9
ProDOS.FX/ProDOS.S.XRW.txt
View File

@ -774,7 +774,7 @@ XRW.Seek ldx XRW.UnitIndex
and #6
ora A2L
tax
tay
pla
@ -792,15 +792,18 @@ XRW.Seek ldx XRW.UnitIndex
and #6
ora A2L
tay
tax
lda IO.D2.Ph0On,x
lda IO.D2.Ph0On,y
lda IO.D2.Ph0On,x
jsr XRW.WaitSeekTime
bra .1
.7 jsr XRW.Wait25600usec
lda IO.D2.Ph0On,y
lda IO.D2.Ph0On,x
rts
*--------------------------------------
XRW.AllPhasesOff
ldx A2L