Kernel 0.94

This commit is contained in:
Rémy GIBERT
2020-02-26 08:28:45 +01:00
parent 28dac6c780
commit a32778bff2
5 changed files with 20 additions and 22 deletions

Binary file not shown.

View File

@@ -56,9 +56,11 @@ SRC.ParseLine.LABEL
beq SRC.ParseLine.InvLbl illegal OUTSIDE macro beq SRC.ParseLine.InvLbl illegal OUTSIDE macro
.2 >LDA.G SYM.bInGlobal Not relative to Global label... .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 bcs SRC.ParseLine.InvLbl
jsr SRC.GetDecimal jsr SRC.GetDecimal

View File

@@ -211,12 +211,10 @@ SYM.NewGlobal jsr SYM.StoreGlobal
tay tay
lda #0 lda #0
sta (ZPSymbolBuf),y sta (ZPSymbolBuf),y
lda #$ff lda #$ff
>STA.G SYM.bInGlobal >STA.G SYM.bInGlobal
* >PUSHW.G SYM.GlobalID
* >PUSHBI 2
* >LDYA L.MSG.WORD
* >SYSCALL printf
clc clc
rts rts
@@ -236,15 +234,7 @@ SYM.GetGlobal >PUSHB.G SYM.hList
bcc .1 bcc .1
inc ZPLinePtr+1 inc ZPLinePtr+1
.1 .1 >PUSHB.G SYM.hList
* txa
* ora #$30
* >SYSCALL putchar
* >LDYA ZPLinePtr
* >SYSCALL puts
* >DEBUG
>PUSHB.G SYM.hList
>PUSHW.G SYM.GlobalID >PUSHW.G SYM.GlobalID
>PUSHW ZPSymbolBuf >PUSHW ZPSymbolBuf
>PUSHWI $ffff all >PUSHWI $ffff all
@@ -364,6 +354,7 @@ SYM.PC2Acc ldy #ASM.PC+3
rts rts
*--------------------------------------- *---------------------------------------
SYM.Acc2Global ldy #SYMG-1 SYM.Acc2Global ldy #SYMG-1
.2 lda SRC.ACC.F,y .2 lda SRC.ACC.F,y
sta (ZPSymbolBuf),y sta (ZPSymbolBuf),y
dey dey

View File

@@ -354,7 +354,7 @@ CS.RUN ldy #S.PS.hStdIn
.9 pha .9 pha
jsr OUT.PrintLineErr jsr OUT.PrintLineErr
jsr SYM.Dump
pla pla
sec sec
rts rts

View File

@@ -1,9 +1,8 @@
NEW NEW
PREFIX AUTO 3,1
AUTO 4,1 Enable MASM3 auto line num
.LIST OFF .LIST OFF
.OP 65C02 Target CPU, must match CPU level in header .OP 65C02
.OR $2000 usualy $2000, but any value > $100 allowed .OR $2000
.TF sbin/initd .TF sbin/initd
*-------------------------------------- *--------------------------------------
.INB INC/MACROS.I .INB INC/MACROS.I
@@ -14,7 +13,6 @@ AUTO 4,1 Enable MASM3 auto line num
.DUMMY .DUMMY
.OR ZPBIN .OR ZPBIN
ZS.START ZS.START
* MyPtr .BS 2
ZS.END ZS.END
.ED .ED
*-------------------------------------- *--------------------------------------
@@ -58,16 +56,20 @@ CS.RUN ldy #S.PS.PID
lda (pPS),y lda (pPS),y
cmp #1 cmp #1
bne .9 bne .9
>SYSCALL getchar >SYSCALL getchar
bcs .1 bcs .1
cmp #$12 CTRL-R for Root mode cmp #$12 CTRL-R for Root mode
bne .1 bne .1
>LDYA L.MSG.CTRLR >LDYA L.MSG.CTRLR
>SYSCALL puts >SYSCALL puts
>PUSHW L.BINSHELL >PUSHW L.BINSHELL
>PUSHBI S.PS.F.HOLD >PUSHBI S.PS.F.HOLD
>SYSCALL ExecL >SYSCALL ExecL
>SLEEP >SLEEP
.1 >LDYA L.MSG.ETCINIT .1 >LDYA L.MSG.ETCINIT
>SYSCALL puts >SYSCALL puts
>PUSHW L.ETCINIT >PUSHW L.ETCINIT
@@ -76,13 +78,16 @@ CS.RUN ldy #S.PS.PID
>SLEEP >SLEEP
>LDYA L.MSG.RUNNING >LDYA L.MSG.RUNNING
>SYSCALL puts >SYSCALL puts
ldy #S.PS.F.HOLD ldy #S.PS.F.HOLD
ora (pPS),y ora (pPS),y
sta (pPS),y sta (pPS),y
>SLEEP >SLEEP
lda #0 lda #0
sec sec
rts rts
.9 lda #E.SYN .9 lda #E.SYN
sec sec
rts rts
@@ -105,8 +110,8 @@ CS.END
*-------------------------------------- *--------------------------------------
MSG.CTRLR .AZ "INITD:Ctrl-R Pressed, entering ROOT mode..." MSG.CTRLR .AZ "INITD:Ctrl-R Pressed, entering ROOT mode..."
MSG.ETCINIT .AS "INITD:Executing ETC/INIT Script:" MSG.ETCINIT .AS "INITD:Executing ETC/INIT Script:"
ETCINIT .AZ "${ROOT}etc/init"
BINSHELL .AZ "${ROOT}bin/sh" BINSHELL .AZ "${ROOT}bin/sh"
ETCINIT .AZ "${ROOT}etc/init"
MSG.RUNNING .AZ "INITD:Running..." MSG.RUNNING .AZ "INITD:Running..."
MSH.SHUTDOWN .AZ "INITD:Shutting down..." MSH.SHUTDOWN .AZ "INITD:Shutting down..."
*-------------------------------------- *--------------------------------------