Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-08-14 10:26:07 +00:00
Code Issues Projects Releases Wiki Activity

Kernel version 0.9 : TCP, bugfix in Block device Status

Browse Source
This commit is contained in:
Rémy GIBERT
2017-03-21 22:53:17 +01:00
parent 63883ea19d
commit cbe573c5fa
2 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
SYS/KERNEL.S.GP.txt
View File

@@ -124,9 +124,9 @@ A2osX.DIIDrv.RW jsr A2osX.Blk.GetParam
A2osx.DIIStat .DA #S.DEVSTAT.S.BLOCK+S.DEVSTAT.S.WRITE+S.DEVSTAT.S.READ A2osx.DIIStat .DA #S.DEVSTAT.S.BLOCK+S.DEVSTAT.S.WRITE+S.DEVSTAT.S.READ
.DA 280 .DA 280
.DA #0 .DA #0
>PSTR "DISK II 5.25" >PSTR "Disk II 5.25"
.BS 4 .BS 4
.DA #S.DEVSTAT.TYPE.5.25 .DA #S.DEVSTAT.TYPE.DISKII
.DA #0 .DA #0
.DA #0,#9 .DA #0,#9
*-------------------------------------- *--------------------------------------
@@ -169,9 +169,8 @@ A2osX.BlkDrv.Go ldy #S.DEV.ROM.JMP
*-------------------------------------- *--------------------------------------
A2osX.BlkStat .DA #S.DEVSTAT.S.BLOCK+S.DEVSTAT.S.WRITE+S.DEVSTAT.S.READ A2osX.BlkStat .DA #S.DEVSTAT.S.BLOCK+S.DEVSTAT.S.WRITE+S.DEVSTAT.S.READ
.BS 3 .BS 3
>PSTR "Generic Blk Dev" >PSTR "ProDOS Block Dev"
.BS 1 .DA #S.DEVSTAT.TYPE.PRODOS
.DA #S.DEVSTAT.TYPE.HD
.DA #0 .DA #0
.DA #0,#9 .DA #0,#9
*-------------------------------------- *--------------------------------------

7
SYS/KERNEL.S.INIT3.txt
View File

@@ -275,11 +275,10 @@ DevMgrInit stz ZPPtr1
.3 inc .3 inc
beq .7 $ff, Disk II 13 Sect, ingnore beq .7 $ff, Disk II 13 Sect, ingnore
dec
ldy #7 ldy #7
lda (ZPPtr1),y lda (ZPPtr1),y
bne .4 $Cn07=00 : smartport bne .4 $Cn07=00 : SmartPort
jsr DevMgrInit.SP jsr DevMgrInit.SP
ldy #A2osX.SLOTS.SP ldy #A2osX.SLOTS.SP
@@ -310,7 +309,9 @@ DevMgrInit.DII >LDYAI A2osX.DIIDrv
jsr DevMgrInit.AddDev jsr DevMgrInit.AddDev
rts rts
*-------------------------------------- *--------------------------------------
DevMgrInit.BLK sta DEV.HEADER+S.DEV.ROM.JMP DevMgrInit.BLK ldy #$ff
lda (ZPPtr1),y
sta DEV.HEADER+S.DEV.ROM.JMP
lda ZPPtr1+1 lda ZPPtr1+1
sta DEV.HEADER+S.DEV.ROM.JMP+1 sta DEV.HEADER+S.DEV.ROM.JMP+1