Kernel 0.93+

This commit is contained in:
Rémy GIBERT 2019-12-11 08:38:45 +01:00
parent e9baba35fa
commit 5a5efd626d
2 changed files with 34 additions and 4 deletions

Binary file not shown.

View File

@ -355,7 +355,7 @@ EnumKM ldx #0
pha pha
>LDYAI MSG.KMSYSDIR >LDYAI MSG.KMSYSDIR
jsr PrintFYA jsr PrintFYA
jsr MLI jsr MLI
.DA #MLIOPEN .DA #MLIOPEN
.DA MLIOPEN01 .DA MLIOPEN01
@ -404,7 +404,7 @@ EnumKM ldx #0
ldy KM.PREFIX ldy KM.PREFIX
.4 lda (TmpPtr1),y .4 lda (TmpPtr1),y KM.* ?
cmp KM.PREFIX,y cmp KM.PREFIX,y
bne .5 bne .5
@ -451,6 +451,13 @@ LoadKM ldx Boot.Prefix
dex dex
bne .1 bne .1
ldy #$1c
lda (TmpPtr1),y
sta LoadKM.VERSION
iny
lda (TmpPtr1),y
sta LoadKM.MVERSION
ldx Boot.Prefix ldx Boot.Prefix
lda (TmpPtr1) lda (TmpPtr1)
and #$0F and #$0F
@ -460,7 +467,26 @@ LoadKM ldx Boot.Prefix
sta KM.Filename sta KM.Filename
tax tax
.2 lda (TmpPtr1),y .2 bit LoadKM.VERSION
bpl .6
cpy #8
bcs .3
lda LoadKM.Bits,y
bit LoadKM.VERSION
beq .6
bra .4
.3 lda LoadKM.Bits-8,y
bit LoadKM.MVERSION
beq .6
.4 lda (TmpPtr1),y
eor #$20
.HS 2C BIT ABS
.6 lda (TmpPtr1),y
sta KM.Filename,x sta KM.Filename,x
dex dex
dey dey
@ -501,6 +527,10 @@ LoadKM ldx Boot.Prefix
.DA #MLICLOSE .DA #MLICLOSE
.DA MLICLOSE02 .DA MLICLOSE02
.99 rts .99 rts
*--------------------------------------
LoadKM.VERSION .BS 1
LoadKM.MVERSION .BS 1
LoadKM.Bits .HS 8040201008040201
*-------------------------------------- *--------------------------------------
.INB USR/SRC/SHARED/X.PRINTF.S .INB USR/SRC/SHARED/X.PRINTF.S
*-------------------------------------- *--------------------------------------
@ -521,7 +551,7 @@ MSG.RAMDRV.KO1 .AZ "Uninstall Failed !!!\n"
MSG.BOOTPREFIX .AZ "Boot Prefix:%S\n" MSG.BOOTPREFIX .AZ "Boot Prefix:%S\n"
MSG.KMENUM .AZ "Looking For Kernel Modules...\n" MSG.KMENUM .AZ "Looking For Kernel Modules...\n"
MSG.KMSYSDIR .AZ "SYS dir is %S\n" MSG.KMSYSDIR .AZ "SYS dir is %S\n"
MSG.KMSYSDIR.KO .AZ "***Error : $%h\n" MSG.KMSYSDIR.KO .AZ "***Error : $%h\n"
MSG.KMLOAD .AZ "***Loading KM : %S\n" MSG.KMLOAD .AZ "***Loading KM : %S\n"
MSG.INIT0OK .AZ "A2osX[Stage0]:Complete.\n" MSG.INIT0OK .AZ "A2osX[Stage0]:Complete.\n"