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

Kernel version 0.9 : BugFix in KM.NSC preventing MLI.CREATE to work properly when using a buffer at $200

Browse Source
This commit is contained in:
Rémy GIBERT 2017-02-21 08:52:27 +01:00
parent 0ca506566b
commit d0da32942b
8 changed files with 17 additions and 71 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
A2OSX.BOOT.po
View File

Binary file not shown.

BIN
A2OSX.SRC.po
View File

Binary file not shown.

4
BIN/X.CPMV.S.txt
View File

@ -327,12 +327,12 @@ CS.RUN.CopyFile ldy #S.STAT.P.AUXTYPE
ldy #hDstFile
sta (pData),y
lda (pData),y
>SYSCALL FCloseA
ldy #hSrcFile
sta (pData),y
lda (pData),y
>SYSCALL FCloseA

50
INC/A2osX.I.txt
View File

@ -330,56 +330,6 @@ S.MEMSTAT.DH .EQ 20
*
S.MEMSTAT .EQ 24
*--------------------------------------
* DEVMGR (old API)
*--------------------------------------
*S.DEV.CODE .EQ 0 cld,jmp...
*S.DEV.JMP .EQ 2 ...(code,x)
*S.DEV.ID .EQ 4
*S.DEV.F .EQ 5
*S.DEV.F.INUSE .EQ %10000000
*S.DEV.F.BUSY .EQ %01000000
*S.DEV.F.SHARE .EQ %00100000 Device is shareable
*S.DEV.F.IRQ .EQ %00010000 Device is irq driven
*S.DEV.F.EVENT .EQ %00001000 Device is event driven
*S.DEV.F.COUT .EQ %00000100 Device supports Char OUT
*S.DEV.F.BLOCK .EQ %00000010
*S.DEV.F.CHAR .EQ %00000001
*S.DEV.NAME .EQ 6 5 Bytes : LEN+NUL KBD CON COMx LPTx ETHx
*
*S.DEV .EQ 16
*--------------------------------------
*S.DEVINFO.TYPE .EQ 0
*S.DEVINFO.TYPE.CHAR .EQ %00000001
*S.DEVINFO.TYPE.XY .EQ %00000010
*S.DEVINFO.TYPE.NET .EQ %00000011
*S.DEVINFO.TYPE.GFX .EQ %00000100
*S.DEVINFO.FLAGS .EQ 1
*S.DEVINFO.NET.FLAGS.ARPOFFLOAD .EQ %00000001
*S.DEVINFO.NET.FLAGS.IPOFFLOAD .EQ %00000010
*S.DEVINFO.NET.MAC .EQ 2
*S.DEVINFO.NET.STATUS .EQ 8
*S.DEVINFO.NET.STATUS.OK .EQ $80
*S.DEVINFO.NET.STATUS.FD .EQ $40
*S.DEVINFO.NET.STATUS.10 .EQ $01
*S.DEVINFO.NET.STATUS.100 .EQ $02
*S.DEVINFO.NET.STATUS.1000 .EQ $03
*--------------------------------------
* Generic Driver Functions
*--------------------------------------
*DEVMGR.OPEN .EQ 0
*DEVMGR.GETEVENT .EQ 2
*DEVMGR.COUT .EQ 4
*DEVMGR.CLOSE .EQ 6
*DEVMGR.GETINFO .EQ 8
*DEVMGR.IRQ .EQ 10
*--------------------------------------
*DEVMGR.SELECT .EQ 12
*--------------------------------------
* 'NET' Class Driver Functions
*--------------------------------------
*DEVMGR.NET.SEND .EQ 12
*DEVMGR.SETIPCFG .EQ 14
*--------------------------------------
* 'GFX' Class Driver Functions
*--------------------------------------
*DEVMGR.GFX.SETPIXEL .EQ 14

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

@ -1,6 +1,6 @@
PR#3
PREFIX /A2OSX.SRC
NEW
LOMEM $900
INC 1
AUTO 6
.LIST OFF
@ -53,7 +53,7 @@ K.FOpen jsr PFT.CheckPathSTK
sta MLICALL.PARAMS+8,x
dex
bpl .1
>DEBUG
>MLICALL MLICREATE
bcc K.FOpen.10
K.FOpen.9 rts
@ -68,7 +68,7 @@ K.FOpen.10 >PUSHWI S.NODE.REG
jsr FILE.SetIOBUF
bcs .98
>MLICALL MLIOPEN
bcs .98
@ -116,6 +116,7 @@ K.FOpen.10 >PUSHWI S.NODE.REG
rts CC
.98 pha save MLI error
lda hFILE
jsr K.FCloseA.1
pla get back MLI error
sec

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

@ -212,12 +212,12 @@ IrqMgrInit php
bit RROMBNK2 Renable ROM to allow MOUSE II firmware works properly
lda #8
ldy #SETMOUSE
ldy #INITMOUSE Reset
jsr GOMOUSE
bcs *
ldy #INITMOUSE Reset
lda #8
ldy #SETMOUSE
jsr GOMOUSE
bcs *

2
SYS/KERNEL.S.RUN.txt
View File

@ -99,7 +99,7 @@ RUN.DumpEvent ldy #S.EVT-1
*--------------------------------------
MSG.DumpEvent >CSTR "!Evt:F=%b,Dev=$%h,LO=$%h,HI=$%h,W1=$%H,W2=$%H\n"
SYS.CPULOADI .BS 1
SYS.CPULOADC .AS -"|/-\"
SYS.CPULOADC .AS "|/-\"
*--------------------------------------
MAN
SAVE SYS/KERNEL.S.RUN

19
SYS/KM.NSC.S.txt
View File

@ -15,7 +15,6 @@ AUTO 6
*--------------------------------------
TmpPtr1 .EQ $0
TmpPtr2 .EQ $2
DS1216E.DATA .EQ $200
*--------------------------------------
NSC.Init >LDAXI NSC.MSG0
jsr NSC.Print
@ -174,7 +173,6 @@ NSC.Install lda DATETIME+1
*--------------------------------------
NSCDRV.OFFSET .BS 2
NSCDRV.RELOC .DA NSCDRV.R1+1
.DA 0
.DA NSCDRV.R2+1
.DA NSCDRV.R3+1
.DA NSCDRV.R4+1
@ -206,8 +204,7 @@ NSC.MSG3 >CSTR "DS1216E Driver Successfully Installed."
NSCDRV.B.START .EQ *
NSCDRV php
sei
lda $CFFF Make cards release $C8xx space
pha
sta $CFFF Make cards release $C8xx space
sta $C300
@ -285,22 +282,20 @@ NSCDRV.R9 lda DS1216E.DATA Get YY
rol
sta DATELO+1
pla
bmi .99
sta $CFFF
.99 plp
plp
rts
*--------------------------------------
DS1216E.PATTERN .HS 5CA33AC55CA33AC5 Reverted 7->0
*DS1216E.DATA .BS 8 Reverted YY MM DD Day HH mm SS CS
DS1216E.DATA .BS 8 Reverted YY MM DD Day HH mm SS CS
*--------------------------------------
NSCDRV.B.END .EQ *
NSCDRV.SIZE .EQ NSCDRV.B.END-NSCDRV.B.START
.LIST ON
NSCDRV.SIZE .EQ *-NSCDRV.B.START
.LIST OFF
*--------------------------------------
* CONTROL SECTION :
*--------------------------------------
.DO NSCDRV.SIZE>125
ERROR:NSCDRV.SIZE too big
* ERROR:NSCDRV.SIZE too big
.FIN
*--------------------------------------
MAN