Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-11-29 02:49:54 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.92

Browse Source
This commit is contained in:
Rémy GIBERT 2018-11-30 08:42:49 +01:00
parent e4beee51d0
commit e4f5303e2e
5 changed files with 25 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
A2osX.S.QC.txt
View File

@ -117,12 +117,15 @@ A2osX.QC.KLoad >LDYAI MSG.KLOAD
pla
plp
bcc .9
bcc .8
.9 pha
>LDYAI MSG.KLOAD.KO
jsr A2osX.QC.PrintAX
pla
jsr PRBYTE
.9 rts
.8 rts
*--------------------------------------
A2osX.QC.PrintAX
sta TmpPtr1
@ -172,6 +175,6 @@ MSG.INIT1OK >PSTR "A2osX[Stage1]:Complete."
.EP
*--------------------------------------
MAN
SAVE USR/SRC/BIN/A2OSX.S.QC
LOAD USR/SRC/BIN/A2OSX.S
SAVE USR/SRC/A2OSX.S.QC
LOAD USR/SRC/A2OSX.S
ASM

6
A2osX.S.txt
View File

@ -365,7 +365,7 @@ LoadKM ldx Boot.Prefix
.DA MLICLOSE02
.99 rts
*--------------------------------------
.INB USR/SRC/BIN/X.PRINTF.S
.INB USR/SRC/X.PRINTF.S
*--------------------------------------
MSG.INIT0 .AZ "A2osX[Stage0]:Init\n"
MSG.SYSMEM .AZ "Checking System Memory..."
@ -427,8 +427,8 @@ KM.PREFIX >PSTR "KM."
.EP
*--------------------------------------
A2osX.QC.B.Start
.INB USR/SRC/BIN/A2OSX.S.QC
.INB USR/SRC/A2OSX.S.QC
*--------------------------------------
MAN
SAVE USR/SRC/BIN/A2OSX.S
SAVE USR/SRC/A2OSX.S
ASM

9
BIN/SHELL.S.txt
View File

@ -174,9 +174,15 @@ L.ERR.Messages .DA ERR.Messages
CS.INIT clc
CS.INIT.RTS rts
*--------------------------------------
CS.RUN jsr CMD.Init
CS.RUN lda #'1'
>SYSCALL putchar
jsr CMD.Init
bcs CS.INIT.RTS
lda #'2'
>SYSCALL putchar
ldy #S.PS.ARGC
lda (pPS),y
beq .1 no arg, continue starting interactive
@ -669,7 +675,6 @@ Sleep .BS 4
CL.Ptr .BS 1
CL.Len .BS 1
CL.bExec .BS 1
CL.bInQuote .BS 1
CMD.hCLBuf .BS 1

8
SYS/KERNEL.S.PS.txt
View File

@ -15,10 +15,12 @@ PS.ArgV .BS 2
* ## RETURN VALUE
* A = Child PSID
*\--------------------------------------
K.ExecL sty .1+1
K.ExecL >DEBUG
sty .1+1
sta .2+1
>PULLB PS.Flags
lda #'1'
>SYSCALL putchar
>LDYAI 256
jsr K.GetMem
bcs .99
@ -32,6 +34,8 @@ K.ExecL sty .1+1
jsr K.Args2ArgV
bcs .9
lda #'2'
>SYSCALL putchar
jsr PS.Exec