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
.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

View File

@ -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

View File

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

View File

@ -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..."
*--------------------------------------