mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-14 18:29:32 +00:00
Kernel 0.94
This commit is contained in:
parent
020bfcdcbf
commit
d5ae40e15e
Binary file not shown.
Binary file not shown.
|
@ -29,6 +29,7 @@ A2osX.QC.Start1 sei
|
||||||
.1 stz MEMTABL,x Reset ProDOS memory bitmap
|
.1 stz MEMTABL,x Reset ProDOS memory bitmap
|
||||||
dex
|
dex
|
||||||
bne .1
|
bne .1
|
||||||
|
|
||||||
lda #$CF protect zero page, stack and page 1
|
lda #$CF protect zero page, stack and page 1
|
||||||
sta MEMTABL
|
sta MEMTABL
|
||||||
|
|
||||||
|
@ -178,7 +179,6 @@ MLIREADK .DA #4
|
||||||
MLICLOSEK .DA #1
|
MLICLOSEK .DA #1
|
||||||
.BS 1
|
.BS 1
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
*SYSKERNEL >PSTR "sys/kernel.PAKED"
|
|
||||||
SYSKERNEL >PSTR "sys/kernel"
|
SYSKERNEL >PSTR "sys/kernel"
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
MSG.INIT1 >PSTR "A2osX[Stage1]:Init"
|
MSG.INIT1 >PSTR "A2osX[Stage1]:Init"
|
||||||
|
@ -189,7 +189,9 @@ MSG.KLOAD.KO >PSTR " Error While Loading Kernel."
|
||||||
MSG.KLOAD.OK >PSTR "Done."
|
MSG.KLOAD.OK >PSTR "Done."
|
||||||
MSG.INIT1OK >PSTR "A2osX[Stage1]:Complete."
|
MSG.INIT1OK >PSTR "A2osX[Stage1]:Complete."
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
.BS $1300-*
|
.LIST ON
|
||||||
|
QC.FREE .EQ $1300-*
|
||||||
|
.LIST OFF
|
||||||
.EP
|
.EP
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
MAN
|
MAN
|
||||||
|
|
23
A2osX.S.txt
23
A2osX.S.txt
|
@ -5,14 +5,14 @@ NEW
|
||||||
.OR $2000
|
.OR $2000
|
||||||
.TF A2OSX.SYSTEM,TSYS
|
.TF A2OSX.SYSTEM,TSYS
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
.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/MONITOR.I
|
.INB inc/monitor.i
|
||||||
.INB INC/MLI.I
|
.INB inc/mli.i
|
||||||
.INB INC/MLI.E.I
|
.INB inc/mli.e.i
|
||||||
.INB INC/ZP.I
|
.INB inc/zp.i
|
||||||
.INB INC/GFX.I
|
.INB inc/gfx.i
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
TmpPtr1 .EQ $0 main & aux ZP
|
TmpPtr1 .EQ $0 main & aux ZP
|
||||||
TmpPtr2 .EQ $2 main & aux ZP
|
TmpPtr2 .EQ $2 main & aux ZP
|
||||||
|
@ -159,6 +159,9 @@ A2osX.SetupQC lda RRAMWRAMBNK2
|
||||||
A2osX.MLIQuit >LDYAI MSG.INIT0OK
|
A2osX.MLIQuit >LDYAI MSG.INIT0OK
|
||||||
jsr PrintFYA
|
jsr PrintFYA
|
||||||
>DEBUGOA
|
>DEBUGOA
|
||||||
|
|
||||||
|
stz $280 Quit to A2osX
|
||||||
|
|
||||||
jsr MLI
|
jsr MLI
|
||||||
.DA #MLIQUIT
|
.DA #MLIQUIT
|
||||||
.DA MLIQUIT01
|
.DA MLIQUIT01
|
||||||
|
@ -570,7 +573,7 @@ LoadKM.VERSION .BS 1
|
||||||
LoadKM.MVERSION .BS 1
|
LoadKM.MVERSION .BS 1
|
||||||
LoadKM.Bits .HS 8040201008040201
|
LoadKM.Bits .HS 8040201008040201
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
.INB USR/SRC/SHARED/X.PRINTF.S
|
.INB usr/src/shared/x.printf.s
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
MSG.INIT0 .AZ "A2osX[Stage0]:Init\n"
|
MSG.INIT0 .AZ "A2osX[Stage0]:Init\n"
|
||||||
MSG.SYSMEM .AZ "Checking System Memory..."
|
MSG.SYSMEM .AZ "Checking System Memory..."
|
||||||
|
@ -661,7 +664,7 @@ PALETTE.AUX .HS 00.01.02.03.04.05.06.07
|
||||||
A2osX.QC.B.Start
|
A2osX.QC.B.Start
|
||||||
A2osX.QC.B.BOOT .EQ *+4
|
A2osX.QC.B.BOOT .EQ *+4
|
||||||
A2osX.QC.B.ROOT .EQ *+4+32
|
A2osX.QC.B.ROOT .EQ *+4+32
|
||||||
.INB USR/SRC/A2OSX.S.QC
|
.INB usr/src/a2osx.s.qc
|
||||||
.LIST ON
|
.LIST ON
|
||||||
SYSTEM.END .EQ *
|
SYSTEM.END .EQ *
|
||||||
.LIST OFF
|
.LIST OFF
|
||||||
|
|
|
@ -63,7 +63,7 @@ CS.RUN lda #DEFAULT.TIMEOUT
|
||||||
bcs .8
|
bcs .8
|
||||||
|
|
||||||
>STYA ZPPtr1
|
>STYA ZPPtr1
|
||||||
>DEBUG
|
|
||||||
lda (ZPPtr1)
|
lda (ZPPtr1)
|
||||||
cmp #'-'
|
cmp #'-'
|
||||||
beq .2
|
beq .2
|
||||||
|
@ -116,11 +116,10 @@ CS.RUN lda #DEFAULT.TIMEOUT
|
||||||
bcs .99
|
bcs .99
|
||||||
|
|
||||||
jsr CS.RUN.PS
|
jsr CS.RUN.PS
|
||||||
|
|
||||||
jsr CS.RUN.DEV
|
jsr CS.RUN.DEV
|
||||||
|
jsr CS.RUN.SYS
|
||||||
|
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
|
|
||||||
* lda #1 INITD
|
* lda #1 INITD
|
||||||
>SYSCALL Kill
|
>SYSCALL Kill
|
||||||
|
|
||||||
|
@ -267,6 +266,26 @@ CS.RUN.DEV ldx #1
|
||||||
|
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
CS.RUN.SYS stz $280
|
||||||
|
|
||||||
|
>LDYA ArgPtr
|
||||||
|
beq .9
|
||||||
|
|
||||||
|
>PUSHYA
|
||||||
|
>PUSHWI $281
|
||||||
|
>SYSCALL RealPath
|
||||||
|
bcs .9
|
||||||
|
|
||||||
|
ldx #0
|
||||||
|
|
||||||
|
.1 inx
|
||||||
|
lda $280,x
|
||||||
|
bne .1
|
||||||
|
|
||||||
|
stx $280
|
||||||
|
|
||||||
|
.9 rts
|
||||||
|
*--------------------------------------
|
||||||
CS.GetPSByID ldx #0
|
CS.GetPSByID ldx #0
|
||||||
|
|
||||||
.1 ldy PS.Table.hPS,x
|
.1 ldy PS.Table.hPS,x
|
||||||
|
|
Loading…
Reference in New Issue
Block a user