Apple-2-SW
/
A2osX
mirror of https://github.com/A2osX/A2osX.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Kernel 0.94

This commit is contained in:
Rémy GIBERT 2020-09-25 08:02:05 +02:00
parent 020bfcdcbf
commit d5ae40e15e
5 changed files with 39 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

BIN
.Floppies/A2OSX.TEST.po
View File

Binary file not shown.

6
A2osX.S.QC.txt
View File

@ -29,6 +29,7 @@ A2osX.QC.Start1 sei
.1 stz MEMTABL,x Reset ProDOS memory bitmap
dex
bne .1
lda #$CF protect zero page, stack and page 1
sta MEMTABL
@ -178,7 +179,6 @@ MLIREADK .DA #4
MLICLOSEK .DA #1
.BS 1
*--------------------------------------
*SYSKERNEL >PSTR "sys/kernel.PAKED"
SYSKERNEL >PSTR "sys/kernel"
*--------------------------------------
MSG.INIT1 >PSTR "A2osX[Stage1]:Init"
@ -189,7 +189,9 @@ MSG.KLOAD.KO >PSTR " Error While Loading Kernel."
MSG.KLOAD.OK >PSTR "Done."
MSG.INIT1OK >PSTR "A2osX[Stage1]:Complete."
*--------------------------------------
.BS $1300-*
.LIST ON
QC.FREE .EQ $1300-*
.LIST OFF
.EP
*--------------------------------------
MAN

23
A2osX.S.txt
View File

@ -5,14 +5,14 @@ NEW
.OR $2000
.TF A2OSX.SYSTEM,TSYS
*--------------------------------------
.INB INC/MACROS.I
.INB INC/A2OSX.I
.INB INC/IO.I
.INB INC/MONITOR.I
.INB INC/MLI.I
.INB INC/MLI.E.I
.INB INC/ZP.I
.INB INC/GFX.I
.INB inc/macros.i
.INB inc/a2osx.i
.INB inc/io.i
.INB inc/monitor.i
.INB inc/mli.i
.INB inc/mli.e.i
.INB inc/zp.i
.INB inc/gfx.i
*--------------------------------------
TmpPtr1 .EQ $0 main & aux ZP
TmpPtr2 .EQ $2 main & aux ZP
@ -159,6 +159,9 @@ A2osX.SetupQC lda RRAMWRAMBNK2
A2osX.MLIQuit >LDYAI MSG.INIT0OK
jsr PrintFYA
>DEBUGOA
stz $280 Quit to A2osX
jsr MLI
.DA #MLIQUIT
.DA MLIQUIT01
@ -570,7 +573,7 @@ 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
*--------------------------------------
MSG.INIT0 .AZ "A2osX[Stage0]:Init\n"
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.BOOT .EQ *+4
A2osX.QC.B.ROOT .EQ *+4+32
.INB USR/SRC/A2OSX.S.QC
.INB usr/src/a2osx.s.qc
.LIST ON
SYSTEM.END .EQ *
.LIST OFF

25
BIN/SHUTDOWN.S.txt
View File

@ -63,7 +63,7 @@ CS.RUN lda #DEFAULT.TIMEOUT
bcs .8
>STYA ZPPtr1
>DEBUG
lda (ZPPtr1)
cmp #'-'
beq .2
@ -116,11 +116,10 @@ CS.RUN lda #DEFAULT.TIMEOUT
bcs .99
jsr CS.RUN.PS
jsr CS.RUN.DEV
jsr CS.RUN.SYS
>PUSHBI 1
* lda #1 INITD
>SYSCALL Kill
@ -267,6 +266,26 @@ CS.RUN.DEV ldx #1
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
.1 ldy PS.Table.hPS,x