Kernel 0.93+

This commit is contained in:
Rémy GIBERT 2019-12-04 07:56:03 +01:00
parent 434abd3e75
commit 792da70ee8
7 changed files with 22 additions and 18 deletions

Binary file not shown.

View File

@ -3,7 +3,7 @@ NEW
.LIST OFF
.OP 65C02
.OR $2000
.TF DRV/GUI/DHGR.DRV
.TF drv/dhgr.drv
*--------------------------------------
.INB INC/MACROS.I
.INB INC/A2OSX.I

View File

@ -4,7 +4,7 @@ AUTO 4,1
.LIST OFF
.OP 65C02
.OR $2000
.TF DRV/GUI/MOUSE.DRV
.TF drv/mouse.drv
*--------------------------------------
.INB INC/MACROS.I
.INB INC/A2OSX.I

View File

@ -267,18 +267,22 @@ PS.Load.SCRIPT ldx #$ff
.2 lda $ffff,x SELF MODIFIED
sta K.Buf256,x K.Buf256 = "$ROOT"
bne .1
ldy #0
.3 lda K.IOBuf+128,y Check HEADER= "#!/"
cmp PS.Load.HEADER,y
bne PS.Load.IBIN
iny
cpy #3
bne .3
.4 iny
inx
lda K.IOBuf+128-1,y
sta K.Buf256-1,x K.Buf256 = "${ROOT}BIN/SHELL"
beq .5
eor #C.CR
bne .4
@ -295,6 +299,7 @@ PS.Load.SCRIPT ldx #$ff
*--------------------------------------
PS.LoadBIN jsr BIN.Load K.Buf256= "${ROOT}BIN/SHELL\0", K.IOBuf=/.../SCRIPT
bcs .9
>STYA ZPPtr4 save PTR to Code Segment
phy
@ -386,21 +391,19 @@ PS.LoadGetHeader
>PUSHBI S.FI.T.TXT
>PUSHBI O.RDONLY
>LDYAI K.IOBuf
ldx #SYS.fopen
jsr K.SYSCALL2
>SYSCALL2 fopen
bcs .9
sta .1+1
>PUSHWI 128
>PUSHWI K.IOBuf+128
.1 lda #$ff SELF MODIFIED
ldx #SYS.fread
jsr K.SYSCALL2
>SYSCALL2 fread
php
pha
lda .1+1
ldx #SYS.fclose
jsr K.SYSCALL2
>SYSCALL2 fclose
pla
plp
.9 rts

View File

@ -300,22 +300,21 @@ SHARED.Stat.I jsr SHARED.ClrStat
dex
bne .3
* >PUSHWI K.S.STAT+S.STAT.CTIME
* >LDYAI K.MLI.PARAMS+S.FI.CDATE
* >DEBUG
* >SYSCALL2 PTime2Time BANK2
>PUSHWI K.S.STAT+S.STAT.CTIME
>LDYAI K.MLI.PARAMS+S.FI.CDATE
>SYSCALL2 PTime2Time BANK2
* >PUSHWI K.S.STAT+S.STAT.MTIME
* >LDYAI K.MLI.PARAMS+S.FI.MDATE
* >SYSCALL2 PTime2Time BANK2
>PUSHWI K.S.STAT+S.STAT.MTIME
>LDYAI K.MLI.PARAMS+S.FI.MDATE
>SYSCALL2 PTime2Time BANK2
clc
rts
*--------------------------------------
SHARED.DirEnt2Stat
clc
rts
* clc
* rts
*--------------------------------------
SHARED.ClrStat ldx #S.STAT-1

View File

@ -90,6 +90,8 @@ K.ComputeWDAY lda #DAY0-1 Thursday : 4 (-1 for mod 7)
sta ACC32
lda #YEAR0
sta ACC32+1
clc
rts
.1 ldy ACC32
lda ACC32+1

View File

@ -69,7 +69,6 @@ A2osX.D1 .DA #0
.INB USR/SRC/SYS/KERNEL.S.STDLIB
.INB USR/SRC/SYS/KERNEL.S.DEV
.INB USR/SRC/SYS/KERNEL.S.FIO
.INB USR/SRC/SYS/KERNEL.S.PFT
.EP
A2osX.D2 .DA #0
@ -97,6 +96,7 @@ A2osX.E0 .DA #0
********* TMP ***** go to A2osX.D1
.INB USR/SRC/SYS/KERNEL.S.IO
.INB USR/SRC/SYS/KERNEL.S.PIPE
.INB USR/SRC/SYS/KERNEL.S.PFT
********* TMP ***** go to A2osX.D2
.INB USR/SRC/SYS/KERNEL.S.ENV
*--------------------------------------