Kernel 0.94

This commit is contained in:
Rémy GIBERT 2020-07-02 17:40:42 +02:00
parent 60a70cc84b
commit a226caca95
2 changed files with 19 additions and 14 deletions

Binary file not shown.

View File

@ -1,17 +1,16 @@
NEW NEW
PREFIX AUTO 4,1
AUTO 4,1
.LIST OFF .LIST OFF
.OP 65C02 .OP 65C02
.OR $2000 .OR $2000
.TF drv/mouse.drv .TF drv/mouse.drv
*-------------------------------------- *--------------------------------------
.INB INC/MACROS.I .INB inc/macros.i
.INB INC/A2OSX.I .INB inc/a2osx.i
.INB INC/IO.I .INB inc/io.i
.INB INC/MLI.E.I .INB inc/mli.e.i
.INB INC/XY.MOUSE.I .INB inc/xy.mouse.i
.INB INC/LIBGUI.I .INB inc/libgui.i
*-------------------------------------- *--------------------------------------
ZPSlotPtr .EQ ZPBIN ZPSlotPtr .EQ ZPBIN
*-------------------------------------- *--------------------------------------
@ -38,7 +37,7 @@ L.FD.DEV.NAME .DA FD.DEV.NAME
.DA 0 End Of Reloc Table .DA 0 End Of Reloc Table
*-------------------------------------- *--------------------------------------
Dev.Detect >LDYA L.MSG.DETECT Dev.Detect >LDYA L.MSG.DETECT
>SYSCALL PrintF >SYSCALL PutS
stz ZPSlotPtr stz ZPSlotPtr
lda #$C1 lda #$C1
@ -49,19 +48,24 @@ Dev.Detect >LDYA L.MSG.DETECT
lda (ZPSlotPtr),y lda (ZPSlotPtr),y
cmp DEVSIG.Value,x cmp DEVSIG.Value,x
bne .3 bne .3
dex dex
bpl .2 bpl .2
bra .8 bra .8
.3 lda ZPSlotPtr+1 no match, try next slot.... .3 lda ZPSlotPtr+1 no match, try next slot....
inc inc
cmp #$C8 cmp #$C8
bne .1 bne .1
>LDYA L.MSG.DETECT.KO >LDYA L.MSG.DETECT.KO
>SYSCALL PrintF >SYSCALL PutS
.9 lda #MLI.E.NODEV .9 lda #MLI.E.NODEV
sec sec
rts rts
.8 lda ZPSlotPtr+1 .8 lda ZPSlotPtr+1
sta GOMOUSE+2 sta GOMOUSE+2
sta GOMOUSE.Cn+1 sta GOMOUSE.Cn+1
@ -75,9 +79,10 @@ Dev.Detect >LDYA L.MSG.DETECT
asl asl
asl asl
sta GOMOUSE.n0+1 sta GOMOUSE.n0+1
>PUSHW L.MSG.DETECT.OK
>PUSHW L.FD.DEV.NAME >PUSHW L.FD.DEV.NAME
>PUSHBI 2 >PUSHBI 2
>LDYA L.MSG.DETECT.OK
>SYSCALL PrintF >SYSCALL PrintF
>PUSHWI DRV.END >PUSHWI DRV.END
@ -96,9 +101,9 @@ Dev.Detect >LDYA L.MSG.DETECT
rts rts
*-------------------------------------- *--------------------------------------
CS.END CS.END
MSG.DETECT .AZ "Apple Mouse Driver.\r\n" MSG.DETECT .AZ "Apple Mouse Driver."
MSG.DETECT.OK .AZ "Mouse Installed As Device : %s\r\n" MSG.DETECT.OK .AZ "Mouse Installed As Device : %s\r\n"
MSG.DETECT.KO .AZ "No Mouse Found.\r\n" MSG.DETECT.KO .AZ "No Mouse Found."
DEVSIG.Offset .HS 05070B0CFB DEVSIG.Offset .HS 05070B0CFB
DEVSIG.Value .HS 38180120D6 DEVSIG.Value .HS 38180120D6
*-------------------------------------- *--------------------------------------
@ -335,5 +340,5 @@ DIB .DA #0
*-------------------------------------- *--------------------------------------
DRV.END DRV.END
MAN MAN
SAVE USR/SRC/DRV/MOUSE.DRV.S SAVE usr/src/drv/mouse.drv.s
ASM ASM