mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-03 05:29:38 +00:00
Kernel 0.93
This commit is contained in:
parent
60c8709bdb
commit
3b2644c338
Binary file not shown.
|
@ -27,10 +27,10 @@ SRC.ParseLine jsr OUT.Reset
|
||||||
jsr SRC.ParseLine.LABEL
|
jsr SRC.ParseLine.LABEL
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
>LDA.G SYM.bNewGlobal
|
* >LDA.G SYM.bNewGlobal
|
||||||
bpl .8
|
* bpl .8
|
||||||
|
|
||||||
jmp SYM.StoreGlobal
|
* jmp SYM.StoreGlobal
|
||||||
|
|
||||||
.8 clc
|
.8 clc
|
||||||
.9 rts
|
.9 rts
|
||||||
|
|
|
@ -82,7 +82,7 @@ SYM.Dump >LDA.G ASM.LI.ON
|
||||||
|
|
||||||
.1 >LDYA ZPPtr2
|
.1 >LDYA ZPPtr2
|
||||||
>STYA ZPPtr1
|
>STYA ZPPtr1
|
||||||
|
|
||||||
>PUSHW ZPNameBuf
|
>PUSHW ZPNameBuf
|
||||||
>PUSHW ZPPtr1
|
>PUSHW ZPPtr1
|
||||||
>LDA.G SYM.hGlobalList
|
>LDA.G SYM.hGlobalList
|
||||||
|
@ -91,19 +91,13 @@ SYM.Dump >LDA.G ASM.LI.ON
|
||||||
|
|
||||||
>STYA ZPPtr2 Save Next ID
|
>STYA ZPPtr2 Save Next ID
|
||||||
|
|
||||||
>PUSHW ZPNameBuf Label (PString)
|
|
||||||
>PUSHBI 2
|
|
||||||
>LDYA L.MSG.PSTR
|
|
||||||
>SYSCALL printf
|
|
||||||
.9 bcs SYM.Quit.RTS
|
|
||||||
|
|
||||||
>PUSHWI 0 Start
|
>PUSHWI 0 Start
|
||||||
>PUSHWI $ffff End
|
>PUSHWI $ffff End
|
||||||
>PUSHW ZPGlobalBuf
|
>PUSHW ZPGlobalBuf
|
||||||
>PUSHW ZPPtr1 KeyID
|
>PUSHW ZPPtr1 KeyID
|
||||||
>LDA.G SYM.hGlobalList
|
>LDA.G SYM.hGlobalList
|
||||||
>SYSCALL SListGetData
|
>SYSCALL SListGetData
|
||||||
bcs .9
|
bcs SYM.Quit.RTS
|
||||||
|
|
||||||
ldy #SYMG.SIZE Get Symbol Size
|
ldy #SYMG.SIZE Get Symbol Size
|
||||||
lda (ZPGlobalBuf),y
|
lda (ZPGlobalBuf),y
|
||||||
|
@ -129,6 +123,11 @@ SYM.Dump >LDA.G ASM.LI.ON
|
||||||
lda L.MSG.EQU0+1,x
|
lda L.MSG.EQU0+1,x
|
||||||
>SYSCALL printf
|
>SYSCALL printf
|
||||||
|
|
||||||
|
>PUSHW ZPNameBuf Label
|
||||||
|
>PUSHBI 2
|
||||||
|
>LDYA L.MSG.LABEL
|
||||||
|
>SYSCALL printf
|
||||||
|
|
||||||
lda (ZPGlobalBuf)
|
lda (ZPGlobalBuf)
|
||||||
bit #SYMG.F.LOCALS
|
bit #SYMG.F.LOCALS
|
||||||
beq .7
|
beq .7
|
||||||
|
@ -162,7 +161,7 @@ SYM.Dump >LDA.G ASM.LI.ON
|
||||||
.7 >PUSHBI 0
|
.7 >PUSHBI 0
|
||||||
>LDYA L.MSG.CRLF
|
>LDYA L.MSG.CRLF
|
||||||
>SYSCALL printf
|
>SYSCALL printf
|
||||||
jmp .1
|
jmp .1
|
||||||
*---------------------------------------
|
*---------------------------------------
|
||||||
SYM.NewOrGetGlobal
|
SYM.NewOrGetGlobal
|
||||||
>LDA.G ASM.PASS
|
>LDA.G ASM.PASS
|
||||||
|
@ -260,7 +259,7 @@ SYM.LookupGlobal
|
||||||
SYM.StoreGlobal >LDA.G ASM.PASS
|
SYM.StoreGlobal >LDA.G ASM.PASS
|
||||||
bne .8
|
bne .8
|
||||||
|
|
||||||
>LDA.G SYM.StoreGlobal
|
>LDA.G SYM.bNewGlobal
|
||||||
bpl .8
|
bpl .8
|
||||||
|
|
||||||
>LDA.G SYM.GlobalPtr
|
>LDA.G SYM.GlobalPtr
|
||||||
|
@ -337,7 +336,7 @@ SYM.Lookup2Acc ldy #SYMG.F+4
|
||||||
*---------------------------------------
|
*---------------------------------------
|
||||||
SYM.NewOrGetLocalA
|
SYM.NewOrGetLocalA
|
||||||
tax Save ID
|
tax Save ID
|
||||||
|
>DEBUG
|
||||||
>LDA.G SYM.bNewGlobal not in a global label
|
>LDA.G SYM.bNewGlobal not in a global label
|
||||||
bpl .91
|
bpl .91
|
||||||
|
|
||||||
|
|
|
@ -124,8 +124,7 @@ L.MSG.LSYMBOL .DA MSG.LSYMBOL
|
||||||
L.MSG.SRCLINE .DA MSG.SRCLINE
|
L.MSG.SRCLINE .DA MSG.SRCLINE
|
||||||
L.MSG.ERROR .DA MSG.ERROR
|
L.MSG.ERROR .DA MSG.ERROR
|
||||||
L.MSG.SYMBOLS .DA MSG.SYMBOLS
|
L.MSG.SYMBOLS .DA MSG.SYMBOLS
|
||||||
L.MSG.PSTRCRLF .DA MSG.PSTRCRLF
|
L.MSG.LABEL .DA MSG.LABEL
|
||||||
L.MSG.PSTR .DA MSG.PSTR
|
|
||||||
L.MSG.CRLF .DA MSG.CRLF
|
L.MSG.CRLF .DA MSG.CRLF
|
||||||
L.MSG.SUMMARY .DA MSG.SUMMARY
|
L.MSG.SUMMARY .DA MSG.SUMMARY
|
||||||
L.MSG.PASS .DA MSG.PASS
|
L.MSG.PASS .DA MSG.PASS
|
||||||
|
@ -345,6 +344,7 @@ CS.RUN ldy #S.PS.hStdIn
|
||||||
|
|
||||||
.9 pha
|
.9 pha
|
||||||
jsr OUT.PrintLineErr
|
jsr OUT.PrintLineErr
|
||||||
|
|
||||||
jsr SYM.Dump
|
jsr SYM.Dump
|
||||||
pla
|
pla
|
||||||
sec
|
sec
|
||||||
|
@ -463,8 +463,7 @@ MSG.LSYMBOL .AZ ", .%d=%h%h%h%h"
|
||||||
MSG.SRCLINE .AZ " %05D %s\r\n"
|
MSG.SRCLINE .AZ " %05D %s\r\n"
|
||||||
MSG.ERROR .AZ "*** Fatal Error $%h "
|
MSG.ERROR .AZ "*** Fatal Error $%h "
|
||||||
MSG.SYMBOLS .AZ "Symbol Table:"
|
MSG.SYMBOLS .AZ "Symbol Table:"
|
||||||
MSG.PSTRCRLF .AZ " %S\r\n"
|
MSG.LABEL .AZ " %s "
|
||||||
MSG.PSTR .AZ " %S"
|
|
||||||
MSG.CRLF .AZ " \r\n"
|
MSG.CRLF .AZ " \r\n"
|
||||||
MSG.SUMMARY .AZ "\r\nSymbol Table Size : %5D Bytes.\r\nEnd Of Assembly.\r\n"
|
MSG.SUMMARY .AZ "\r\nSymbol Table Size : %5D Bytes.\r\nEnd Of Assembly.\r\n"
|
||||||
SRC.MOD.RESERVED >PSTR "#/^<>"
|
SRC.MOD.RESERVED >PSTR "#/^<>"
|
||||||
|
|
|
@ -196,7 +196,9 @@ SLIST.GetByID jsr SLIST.Select
|
||||||
|
|
||||||
ldy #0
|
ldy #0
|
||||||
|
|
||||||
.1 jsr SLIST.GetNextByte
|
.1 phy
|
||||||
|
jsr SLIST.GetNextByte
|
||||||
|
ply
|
||||||
jsr MEM.SetKeyCharY
|
jsr MEM.SetKeyCharY
|
||||||
iny
|
iny
|
||||||
dex
|
dex
|
||||||
|
|
Loading…
Reference in New Issue
Block a user