Kernel 0.9.2

This commit is contained in:
Rémy GIBERT 2018-07-18 08:02:43 +02:00
parent a2d0b52982
commit 0a8f2a8a01
5 changed files with 17 additions and 16 deletions

Binary file not shown.

Binary file not shown.

View File

@ -385,17 +385,14 @@ CORE.ScrSel and #$0F
lda A2osX.SCRNDEVS-1,x
beq .8 No device claimed this screen
tay
>PUSHBI 0
lda #IOCTL.CONTROL
>DEBUG
jsr K.IOCTL
jsr K.GetDevByID x unmodified.....
bcs .8 ???
stx A2osX.ASCREEN
>STYA .1+1
ldx #IOCTL.CONTROL
.1 jmp $ffff SELF MODIFED
.8 rts
*--------------------------------------

View File

@ -58,7 +58,7 @@ K.GetDevByName >STYA ZPPtr1
bne .2 no....loop
ldy ZPPtr2
lda ZPPtr3+1
lda ZPPtr2+1
clc
rts

View File

@ -189,9 +189,8 @@ IO.WRITE.FIFO ldy #S.FD.FIFO.S
* **Out:**
* Y,A = ...
*\--------------------------------------
K.IOCTL tax op
>PULLB .1+1 param LO
>PULLB .2+1 param HI
K.IOCTL sta .7+1 op
>PULLW pIOCTL
tya id
@ -199,11 +198,16 @@ K.IOCTL tax op
bcs K.IOCTL.9
>STYA pFD
.1 ldy #$ff SELF MODIFIED
.2 lda #$ff SELF MODIFIED
jmp (pFD) x = op
ldy #S.FD.DEV.DRVPTR
lda (pFD),y
sta .8+1
iny
lda (pFD),y
sta .8+2
.7 ldx #$ff SELF MODIFIED
.8 jmp $ffff SELF MODIFIED x = op
K.IOCTL.9 rts
*/--------------------------------------