mirror of
https://github.com/A2osX/A2osX.git
synced 2024-10-21 05:24:15 +00:00
Kernel 0.93+
This commit is contained in:
parent
434abd3e75
commit
792da70ee8
Binary file not shown.
@ -3,7 +3,7 @@ NEW
|
|||||||
.LIST OFF
|
.LIST OFF
|
||||||
.OP 65C02
|
.OP 65C02
|
||||||
.OR $2000
|
.OR $2000
|
||||||
.TF DRV/GUI/DHGR.DRV
|
.TF drv/dhgr.drv
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
.INB INC/MACROS.I
|
.INB INC/MACROS.I
|
||||||
.INB INC/A2OSX.I
|
.INB INC/A2OSX.I
|
||||||
|
@ -4,7 +4,7 @@ AUTO 4,1
|
|||||||
.LIST OFF
|
.LIST OFF
|
||||||
.OP 65C02
|
.OP 65C02
|
||||||
.OR $2000
|
.OR $2000
|
||||||
.TF DRV/GUI/MOUSE.DRV
|
.TF drv/mouse.drv
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
.INB INC/MACROS.I
|
.INB INC/MACROS.I
|
||||||
.INB INC/A2OSX.I
|
.INB INC/A2OSX.I
|
||||||
|
@ -267,18 +267,22 @@ PS.Load.SCRIPT ldx #$ff
|
|||||||
.2 lda $ffff,x SELF MODIFIED
|
.2 lda $ffff,x SELF MODIFIED
|
||||||
sta K.Buf256,x K.Buf256 = "$ROOT"
|
sta K.Buf256,x K.Buf256 = "$ROOT"
|
||||||
bne .1
|
bne .1
|
||||||
|
|
||||||
ldy #0
|
ldy #0
|
||||||
|
|
||||||
.3 lda K.IOBuf+128,y Check HEADER= "#!/"
|
.3 lda K.IOBuf+128,y Check HEADER= "#!/"
|
||||||
cmp PS.Load.HEADER,y
|
cmp PS.Load.HEADER,y
|
||||||
bne PS.Load.IBIN
|
bne PS.Load.IBIN
|
||||||
iny
|
iny
|
||||||
cpy #3
|
cpy #3
|
||||||
bne .3
|
bne .3
|
||||||
|
|
||||||
.4 iny
|
.4 iny
|
||||||
inx
|
inx
|
||||||
lda K.IOBuf+128-1,y
|
lda K.IOBuf+128-1,y
|
||||||
sta K.Buf256-1,x K.Buf256 = "${ROOT}BIN/SHELL"
|
sta K.Buf256-1,x K.Buf256 = "${ROOT}BIN/SHELL"
|
||||||
beq .5
|
beq .5
|
||||||
|
|
||||||
eor #C.CR
|
eor #C.CR
|
||||||
bne .4
|
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
|
PS.LoadBIN jsr BIN.Load K.Buf256= "${ROOT}BIN/SHELL\0", K.IOBuf=/.../SCRIPT
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
>STYA ZPPtr4 save PTR to Code Segment
|
>STYA ZPPtr4 save PTR to Code Segment
|
||||||
|
|
||||||
phy
|
phy
|
||||||
@ -386,21 +391,19 @@ PS.LoadGetHeader
|
|||||||
>PUSHBI S.FI.T.TXT
|
>PUSHBI S.FI.T.TXT
|
||||||
>PUSHBI O.RDONLY
|
>PUSHBI O.RDONLY
|
||||||
>LDYAI K.IOBuf
|
>LDYAI K.IOBuf
|
||||||
ldx #SYS.fopen
|
>SYSCALL2 fopen
|
||||||
jsr K.SYSCALL2
|
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
sta .1+1
|
sta .1+1
|
||||||
|
|
||||||
>PUSHWI 128
|
>PUSHWI 128
|
||||||
>PUSHWI K.IOBuf+128
|
>PUSHWI K.IOBuf+128
|
||||||
.1 lda #$ff SELF MODIFIED
|
.1 lda #$ff SELF MODIFIED
|
||||||
ldx #SYS.fread
|
>SYSCALL2 fread
|
||||||
jsr K.SYSCALL2
|
|
||||||
php
|
php
|
||||||
pha
|
pha
|
||||||
lda .1+1
|
lda .1+1
|
||||||
ldx #SYS.fclose
|
>SYSCALL2 fclose
|
||||||
jsr K.SYSCALL2
|
|
||||||
pla
|
pla
|
||||||
plp
|
plp
|
||||||
.9 rts
|
.9 rts
|
||||||
|
@ -300,22 +300,21 @@ SHARED.Stat.I jsr SHARED.ClrStat
|
|||||||
dex
|
dex
|
||||||
bne .3
|
bne .3
|
||||||
|
|
||||||
* >PUSHWI K.S.STAT+S.STAT.CTIME
|
>PUSHWI K.S.STAT+S.STAT.CTIME
|
||||||
* >LDYAI K.MLI.PARAMS+S.FI.CDATE
|
>LDYAI K.MLI.PARAMS+S.FI.CDATE
|
||||||
* >DEBUG
|
>SYSCALL2 PTime2Time BANK2
|
||||||
* >SYSCALL2 PTime2Time BANK2
|
|
||||||
|
|
||||||
* >PUSHWI K.S.STAT+S.STAT.MTIME
|
>PUSHWI K.S.STAT+S.STAT.MTIME
|
||||||
* >LDYAI K.MLI.PARAMS+S.FI.MDATE
|
>LDYAI K.MLI.PARAMS+S.FI.MDATE
|
||||||
* >SYSCALL2 PTime2Time BANK2
|
>SYSCALL2 PTime2Time BANK2
|
||||||
|
|
||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
SHARED.DirEnt2Stat
|
SHARED.DirEnt2Stat
|
||||||
|
|
||||||
clc
|
* clc
|
||||||
rts
|
* rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
SHARED.ClrStat ldx #S.STAT-1
|
SHARED.ClrStat ldx #S.STAT-1
|
||||||
|
|
||||||
|
@ -90,6 +90,8 @@ K.ComputeWDAY lda #DAY0-1 Thursday : 4 (-1 for mod 7)
|
|||||||
sta ACC32
|
sta ACC32
|
||||||
lda #YEAR0
|
lda #YEAR0
|
||||||
sta ACC32+1
|
sta ACC32+1
|
||||||
|
clc
|
||||||
|
rts
|
||||||
|
|
||||||
.1 ldy ACC32
|
.1 ldy ACC32
|
||||||
lda ACC32+1
|
lda ACC32+1
|
||||||
|
@ -69,7 +69,6 @@ A2osX.D1 .DA #0
|
|||||||
.INB USR/SRC/SYS/KERNEL.S.STDLIB
|
.INB USR/SRC/SYS/KERNEL.S.STDLIB
|
||||||
.INB USR/SRC/SYS/KERNEL.S.DEV
|
.INB USR/SRC/SYS/KERNEL.S.DEV
|
||||||
.INB USR/SRC/SYS/KERNEL.S.FIO
|
.INB USR/SRC/SYS/KERNEL.S.FIO
|
||||||
.INB USR/SRC/SYS/KERNEL.S.PFT
|
|
||||||
.EP
|
.EP
|
||||||
|
|
||||||
A2osX.D2 .DA #0
|
A2osX.D2 .DA #0
|
||||||
@ -97,6 +96,7 @@ A2osX.E0 .DA #0
|
|||||||
********* TMP ***** go to A2osX.D1
|
********* TMP ***** go to A2osX.D1
|
||||||
.INB USR/SRC/SYS/KERNEL.S.IO
|
.INB USR/SRC/SYS/KERNEL.S.IO
|
||||||
.INB USR/SRC/SYS/KERNEL.S.PIPE
|
.INB USR/SRC/SYS/KERNEL.S.PIPE
|
||||||
|
.INB USR/SRC/SYS/KERNEL.S.PFT
|
||||||
********* TMP ***** go to A2osX.D2
|
********* TMP ***** go to A2osX.D2
|
||||||
.INB USR/SRC/SYS/KERNEL.S.ENV
|
.INB USR/SRC/SYS/KERNEL.S.ENV
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
Loading…
Reference in New Issue
Block a user