Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-02-16 18:30:26 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.94

Browse Source
This commit is contained in:
Rémy GIBERT 2020-04-24 10:25:31 +02:00
parent acd8b6c943
commit 548facfad6
6 changed files with 12 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BOOT.po
View File

Binary file not shown.

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.

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

@ -862,20 +862,23 @@ XRW.Seek asl transform into 1/4 tracks
.2 cmp #$fe A<curtrk, must move out
bcs .3
* >DEBUG
lda #$fe
.3 tax save move direction
.3 bit #1 remember 1/4 or 2/4
php
clc
adc XRW.CurrentTrack
sta XRW.CurrentTrack
jsr XRW.PhaseOn
lda #28
jsr XRW.Wait100msA Trash X
lda #18
plp
beq .4
lsr only 1/4
.4 jsr XRW.Wait100msA Trash X
jsr XRW.AllPhaseOff
@ -885,10 +888,7 @@ XRW.Seek asl transform into 1/4 tracks
lsr XRW.CurrentTrack
rts
XRW.PhaseOn dex
bmi .1
pha
XRW.PhaseOn pha
jsr .7
pla
@ -896,15 +896,6 @@ XRW.PhaseOn dex
beq .8
inc
bra .7
.1 bit #1 1,3,5,7 ?
beq .7
pha
inc
jsr .7
pla
.7 and #6 mask for 0,2,4,6
ora A2L Slot $n0

3
SYS/KERNEL.S.DIRENT.txt
View File

@ -93,7 +93,8 @@ K.ReadDir.ROOT ldy #S.FD.DIR.FC did we already returned something ?
>MLICALL MLIONLINE
bcs K.ReadDir.RTS
>LDYAI 16*16+16*S.STAT+1 16 (Vols+Stat) + \0
>LDYAI 16*S.STAT+257 16 (Vols+Stat) + \0
jsr K.ReadDir.GetBufYA
bcs K.ReadDir.RTS