mirror of
https://github.com/A2osX/A2osX.git
synced 2025-04-06 18:37:12 +00:00
Kernel 0.94
This commit is contained in:
parent
28dac6c780
commit
a32778bff2
Binary file not shown.
@ -56,9 +56,11 @@ SRC.ParseLine.LABEL
|
||||
beq SRC.ParseLine.InvLbl illegal OUTSIDE macro
|
||||
|
||||
.2 >LDA.G SYM.bInGlobal Not relative to Global label...
|
||||
bpl SRC.ParseLine.InvLbl
|
||||
bmi .3
|
||||
>DEBUG
|
||||
bra SRC.ParseLine.InvLbl
|
||||
|
||||
jsr SRC.GetNextChar
|
||||
.3 jsr SRC.GetNextChar
|
||||
bcs SRC.ParseLine.InvLbl
|
||||
|
||||
jsr SRC.GetDecimal
|
||||
|
@ -211,12 +211,10 @@ SYM.NewGlobal jsr SYM.StoreGlobal
|
||||
tay
|
||||
lda #0
|
||||
sta (ZPSymbolBuf),y
|
||||
|
||||
lda #$ff
|
||||
>STA.G SYM.bInGlobal
|
||||
* >PUSHW.G SYM.GlobalID
|
||||
* >PUSHBI 2
|
||||
* >LDYA L.MSG.WORD
|
||||
* >SYSCALL printf
|
||||
|
||||
clc
|
||||
rts
|
||||
|
||||
@ -236,15 +234,7 @@ SYM.GetGlobal >PUSHB.G SYM.hList
|
||||
bcc .1
|
||||
inc ZPLinePtr+1
|
||||
|
||||
.1
|
||||
* txa
|
||||
* ora #$30
|
||||
* >SYSCALL putchar
|
||||
* >LDYA ZPLinePtr
|
||||
* >SYSCALL puts
|
||||
* >DEBUG
|
||||
|
||||
>PUSHB.G SYM.hList
|
||||
.1 >PUSHB.G SYM.hList
|
||||
>PUSHW.G SYM.GlobalID
|
||||
>PUSHW ZPSymbolBuf
|
||||
>PUSHWI $ffff all
|
||||
@ -364,6 +354,7 @@ SYM.PC2Acc ldy #ASM.PC+3
|
||||
rts
|
||||
*---------------------------------------
|
||||
SYM.Acc2Global ldy #SYMG-1
|
||||
|
||||
.2 lda SRC.ACC.F,y
|
||||
sta (ZPSymbolBuf),y
|
||||
dey
|
||||
|
@ -354,7 +354,7 @@ CS.RUN ldy #S.PS.hStdIn
|
||||
|
||||
.9 pha
|
||||
jsr OUT.PrintLineErr
|
||||
|
||||
jsr SYM.Dump
|
||||
pla
|
||||
sec
|
||||
rts
|
||||
|
@ -1,9 +1,8 @@
|
||||
NEW
|
||||
PREFIX
|
||||
AUTO 4,1 Enable MASM3 auto line num
|
||||
AUTO 3,1
|
||||
.LIST OFF
|
||||
.OP 65C02 Target CPU, must match CPU level in header
|
||||
.OR $2000 usualy $2000, but any value > $100 allowed
|
||||
.OP 65C02
|
||||
.OR $2000
|
||||
.TF sbin/initd
|
||||
*--------------------------------------
|
||||
.INB INC/MACROS.I
|
||||
@ -14,7 +13,6 @@ AUTO 4,1 Enable MASM3 auto line num
|
||||
.DUMMY
|
||||
.OR ZPBIN
|
||||
ZS.START
|
||||
* MyPtr .BS 2
|
||||
ZS.END
|
||||
.ED
|
||||
*--------------------------------------
|
||||
@ -58,16 +56,20 @@ CS.RUN ldy #S.PS.PID
|
||||
lda (pPS),y
|
||||
cmp #1
|
||||
bne .9
|
||||
|
||||
>SYSCALL getchar
|
||||
bcs .1
|
||||
|
||||
cmp #$12 CTRL-R for Root mode
|
||||
bne .1
|
||||
|
||||
>LDYA L.MSG.CTRLR
|
||||
>SYSCALL puts
|
||||
>PUSHW L.BINSHELL
|
||||
>PUSHBI S.PS.F.HOLD
|
||||
>SYSCALL ExecL
|
||||
>SLEEP
|
||||
|
||||
.1 >LDYA L.MSG.ETCINIT
|
||||
>SYSCALL puts
|
||||
>PUSHW L.ETCINIT
|
||||
@ -76,13 +78,16 @@ CS.RUN ldy #S.PS.PID
|
||||
>SLEEP
|
||||
>LDYA L.MSG.RUNNING
|
||||
>SYSCALL puts
|
||||
|
||||
ldy #S.PS.F.HOLD
|
||||
ora (pPS),y
|
||||
sta (pPS),y
|
||||
>SLEEP
|
||||
|
||||
lda #0
|
||||
sec
|
||||
rts
|
||||
|
||||
.9 lda #E.SYN
|
||||
sec
|
||||
rts
|
||||
@ -105,8 +110,8 @@ CS.END
|
||||
*--------------------------------------
|
||||
MSG.CTRLR .AZ "INITD:Ctrl-R Pressed, entering ROOT mode..."
|
||||
MSG.ETCINIT .AS "INITD:Executing ETC/INIT Script:"
|
||||
ETCINIT .AZ "${ROOT}etc/init"
|
||||
BINSHELL .AZ "${ROOT}bin/sh"
|
||||
ETCINIT .AZ "${ROOT}etc/init"
|
||||
MSG.RUNNING .AZ "INITD:Running..."
|
||||
MSH.SHUTDOWN .AZ "INITD:Shutting down..."
|
||||
*--------------------------------------
|
||||
|
Loading…
x
Reference in New Issue
Block a user