mirror of
https://github.com/A2osX/A2osX.git
synced 2025-04-13 19:37:19 +00:00
Kernel 0.92
This commit is contained in:
parent
35c354254d
commit
811b29ebe8
Binary file not shown.
Binary file not shown.
@ -74,6 +74,7 @@ A2osX.S.SP .EQ $C2
|
||||
A2osX.S.COM .EQ $E0
|
||||
A2osX.S.XY .EQ $E1
|
||||
A2osX.S.NIC .EQ $E2
|
||||
A2osX.S.CLK .EQ $E3
|
||||
A2osX.S.DISABLE .EQ $FF
|
||||
*--------------------------------------
|
||||
* ProDOS ERROR CODES : $00->$5F
|
||||
|
@ -53,10 +53,11 @@ T.MSG.SLOT.DESC .DA MSG.SLOT.NODEV
|
||||
.DA MSG.SLOT.ATK
|
||||
.DA MSG.SLOT.DII
|
||||
.DA MSG.SLOT.BLK
|
||||
.DA MSG.SLOT.PRT
|
||||
.DA MSG.SLOT.SP
|
||||
.DA MSG.SLOT.COM
|
||||
.DA MSG.SLOT.XY
|
||||
.DA MSG.SLOT.NET
|
||||
.DA MSG.SLOT.NIC
|
||||
.DA MSG.SLOT.CLK
|
||||
.DA MSG.SLOT.DIS
|
||||
L.MSG.PROMPT .DA MSG.PROMPT
|
||||
.DA 0 End Of Reloc Table
|
||||
@ -350,6 +351,7 @@ SLOTS .DA #0
|
||||
.DA #A2osX.S.COM
|
||||
.DA #A2osX.S.XY
|
||||
.DA #A2osX.S.NIC
|
||||
.DA #A2osX.S.CLK
|
||||
.DA #A2osX.S.DISABLE
|
||||
SLOTS.MAX .EQ *-SLOTS
|
||||
*--------------------------------------
|
||||
@ -372,10 +374,11 @@ MSG.SLOT.VSD .AZ "SSC Shared Driver for VSDRIVE"
|
||||
MSG.SLOT.ATK .AZ "AppleTalk Board"
|
||||
MSG.SLOT.DII .AZ "Disk II Controller"
|
||||
MSG.SLOT.BLK .AZ "Generic Block/SCSI Controller"
|
||||
MSG.SLOT.PRT .AZ "SmartPort Controller"
|
||||
MSG.SLOT.SP .AZ "SmartPort Controller"
|
||||
MSG.SLOT.COM .AZ "Communication Card"
|
||||
MSG.SLOT.XY .AZ "XY Pointing Device"
|
||||
MSG.SLOT.NET .AZ "Network Interface Card"
|
||||
MSG.SLOT.NIC .AZ "Network Interface Card"
|
||||
MSG.SLOT.CLK .AZ "Clock Card"
|
||||
MSG.SLOT.DIS .AZ "<Disabled>"
|
||||
MSG.PROMPT .AZ "\e[24;80H"
|
||||
MSG.QUIT .AZ "\ec"
|
||||
|
@ -102,16 +102,23 @@ Kernel.Init3 sta SETALTZP
|
||||
sta IRQ.InKernel
|
||||
|
||||
jsr SysScrInit
|
||||
lda #"1"
|
||||
sta $427
|
||||
jsr MemMgrInit
|
||||
>LDYAI FD.NULL
|
||||
>SYSCALL MKDev
|
||||
|
||||
inc $427
|
||||
>LDYAI FD.SYS
|
||||
>SYSCALL MKDev
|
||||
|
||||
inc $427
|
||||
jsr PS0.Init
|
||||
bcc .10
|
||||
|
||||
>LDYAI MSG.Init3
|
||||
lda #"D"
|
||||
sta $427
|
||||
bra *
|
||||
|
||||
.10 >LDYAI MSG.Init3
|
||||
>SYSCALL puts
|
||||
|
||||
jsr CPU.Init.6502
|
||||
@ -123,8 +130,6 @@ Kernel.Init3 sta SETALTZP
|
||||
|
||||
jsr EvtMgrInit
|
||||
|
||||
jsr FltMgrInit
|
||||
|
||||
jsr TskMgrInit
|
||||
bcs *
|
||||
|
||||
@ -288,12 +293,14 @@ PS0.Init >LDYAI CORE.S.PS0 Select Process 0 (Kernel)
|
||||
>LDYAI K.STACKTOP
|
||||
>STYA pStack
|
||||
|
||||
>PUSHWI 0
|
||||
>PUSHBI 0
|
||||
>PUSHWI 0 Aux type
|
||||
>PUSHBI S.FI.T.TXT
|
||||
>PUSHBI O.RDWR
|
||||
|
||||
>LDYAI DEV.SYS
|
||||
>SYSCALL fopen
|
||||
bcs .9
|
||||
|
||||
|
||||
ldy #S.PS.hStdIn
|
||||
sta (pPs),y
|
||||
sta CORE.S.PS0+S.PS.hStdIn
|
||||
@ -526,6 +533,10 @@ MemMgrInit >LDYAI Mem.MHiMem
|
||||
.4 stz OF.Table.hPath,x
|
||||
dex
|
||||
bpl .4
|
||||
|
||||
stz Evt.Table
|
||||
stz Flt.Table
|
||||
|
||||
rts
|
||||
*--------------------------------------
|
||||
* Setup AuxLC $FFFE->Kernel IRQ Handler
|
||||
@ -631,13 +642,21 @@ IrqMgrInit.TClock
|
||||
tay get $n0
|
||||
sty IRQ.VBL.n0
|
||||
|
||||
lda #A2osX.S.CLK
|
||||
sta A2osX.S,x
|
||||
|
||||
php
|
||||
sei
|
||||
|
||||
lda #$40 Enable interrupt
|
||||
lda #$40+$20 Enable interrupt + 64Hz
|
||||
sta $c080,y
|
||||
|
||||
lda #$40
|
||||
sta SET80STORE
|
||||
sta CLRPAGE2
|
||||
sta $478,x
|
||||
sta $7f8,x
|
||||
sta CLR80STORE
|
||||
|
||||
lda #64
|
||||
sta CORE.TickPerSec
|
||||
@ -924,13 +943,6 @@ EvtMgrInit >LDYAI MSG.EVT
|
||||
clc
|
||||
rts
|
||||
*--------------------------------------
|
||||
FltMgrInit >LDYAI MSG.FLT
|
||||
>SYSCALL puts
|
||||
|
||||
stz Flt.Table
|
||||
clc
|
||||
rts
|
||||
*--------------------------------------
|
||||
TskMgrInit >LDYAI MSG.TSK
|
||||
>SYSCALL puts
|
||||
|
||||
@ -1036,7 +1048,6 @@ MSG.IRQ.VBL .AZ " Mouse VBL IRQ Activated."
|
||||
MSG.IRQ.CLOCK .AZ " Clock Card IRQ Activated."
|
||||
MSG.IRQ.POLL .AZ " Polling Mode."
|
||||
MSG.EVT .AZ "Event Manager..."
|
||||
MSG.FLT .AZ "Path Filter..."
|
||||
MSG.TSK .AZ "Task Manager..."
|
||||
MSG.Prefix .AZ "Root:%s\r\n"
|
||||
MSG.CTRLD .AZ "Ctrl-D Pressed, entering Maintenance mode..."
|
||||
|
@ -132,8 +132,8 @@ K.IrqH.TCLOCK ldy IRQ.VBL.n0
|
||||
and #$20
|
||||
beq K.IrqH.DEV
|
||||
|
||||
lda $c080,y
|
||||
lda $c088,y
|
||||
lda $c080,y
|
||||
|
||||
bra K.IrqH.Switch
|
||||
*--------------------------------------
|
||||
|
Loading…
x
Reference in New Issue
Block a user