Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-03 05:29:38 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.93

Browse Source
This commit is contained in:
Rémy GIBERT 2019-03-28 16:48:22 +00:00
parent f6463c9d53
commit c6f7934406
9 changed files with 64 additions and 62 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

2
BIN/ASM.S.DIR.txt
View File

@ -516,7 +516,7 @@ DIR.MA >LDA.G ASM.MA.ON
>LDA.G MAC.hMacroList
>SYSCALL SListNewKey
bcs .99
>STYA MAC.MacroID
>STYA.G MAC.MacroID
.8 lda #$ff
>STA.G ASM.MA.ON

9
BIN/ASM.S.MAC.txt
View File

@ -85,8 +85,7 @@ MAC.AddChar tax
.8 clc
rts
*---------------------------------------
MAC.Lookup >PUSHW ZPMacroBuf
>PUSHW ZPLinePtr
MAC.Lookup >PUSHW ZPLinePtr
>LDA.G MAC.hMacroList
>SYSCALL SListLookup
bcs .9
@ -97,8 +96,10 @@ MAC.Lookup >PUSHW ZPMacroBuf
inc ZPLinePtr+1
clc
.8
.9 rts
.8 rts
.9 >DEBUG
rts
*---------------------------------------
MAC.NewOrGetCtx sec
rts

8
BIN/ASM.S.OUT.txt
View File

@ -32,8 +32,8 @@ OUT.Reset ldx #4
rts
*---------------------------------------
OUT.PrintLineOn
clc
rts
* clc
* rts
>LDA.G ASM.LI.ON
bpl .9
@ -233,8 +233,8 @@ OUT.PrintCR >PUSHBI 0
lda #PAGE.LEN
sta (pData),y
lda #$80
>STA.G bPause
* lda #$80
* >STA.G bPause
.8 rts
*---------------------------------------
MAN

49
BIN/ASM.S.SRC.txt
View File

@ -202,7 +202,7 @@ SRC.ParseLine.Dir
SRC.ParseLine.ExecMacro
jsr SRC.GetNextChar skip '>'
bcs .90
jsr MAC.Lookup
bcs .90
@ -220,7 +220,7 @@ SRC.ParseLine.ExecMacro
>INC.G ASM.MA.StackPtr
* >INC.G ASM.MA.StackPtr
clc
rts
@ -228,7 +228,7 @@ SRC.ParseLine.ExecMacro
sec
rts
.91 lda #E.MACRO.INV
.91 lda #E.MACRO.TOO.MANY
sec
rts
*---------------------------------------
@ -285,7 +285,12 @@ SRC.ParseLine.OpCode
inc ZPLinePtr+1
.5 bra SRC.ParseLine.AM
.5 jsr SRC.GetChar
bcs .8 Nothing after OP ' '
cmp #C.SPACE OP ' ' ?
beq .8
bra SRC.ParseLine.AM
.7 lda ZPOpDefPtr
clc
@ -311,14 +316,8 @@ SRC.ParseLine.OpCode
*---------------------------------------
SRC.ParseLine.AM
stz SRC.AM.StrBuf
.1 jsr SRC.GetChar
bcs .8
.10 cmp #' ' another space ?
beq .8 ignore end of line (comment)
jsr SRC.IsAMReserved
.1 jsr SRC.IsAMReserved
bcs .2
jsr SRC.AddToBuf
@ -343,7 +342,7 @@ SRC.ParseLine.AM
dex
bne .4
bra .1
bra .7
.6 jsr EXP.Eval
bcs .99
@ -352,13 +351,10 @@ SRC.ParseLine.AM
beq .75
jsr SRC.AddToBuf
.75 ldx #2
lda SRC.ACC.F
bit #SYMG.F.FWREF
bne .72 FWREF ...assume 2 bytes...
ldx SRC.ACC.SIZE
.75 ldx SRC.ACC.SIZE
bne .73
ldx #2 FWREF ...assume 2 bytes...
.73 lda SRC.ACC-1,x
bne .72
@ -373,12 +369,19 @@ SRC.ParseLine.AM
.71 jsr SRC.AddToBuf
dex
bne .71
jsr SRC.GetChar
bcs .8
bra .1
cmp #C.SPACE
bne .1
bra .8
.7 jsr SRC.GetNextChar
bcc .10
bcs .8
cmp #C.SPACE
bne .1
.8 jsr SRC.ParseLine.AMCheck
bcs .9
jsr SRC.ParseLine.AMCheck4OP

24
BIN/ASM.S.SYM.txt
View File

@ -177,10 +177,10 @@ SYM.NewGlobal jsr SYM.StoreGlobal
lda #$ff
>STA.G SYM.bInGlobal
>PUSHW.G SYM.GlobalID
>PUSHBI 2
>LDYA L.MSG.WORD
>SYSCALL printf
* >PUSHW.G SYM.GlobalID
* >PUSHBI 2
* >LDYA L.MSG.WORD
* >SYSCALL printf
clc
rts
@ -285,14 +285,14 @@ SYM.StoreGlobal >LDA.G ASM.PASS
bne .1
inc
phy
pha
>PUSHYA
>PUSHBI 2
>LDYA L.MSG.WORD
>SYSCALL printf
pla
ply
* phy
* pha
* >PUSHYA
* >PUSHBI 2
* >LDYA L.MSG.WORD
* >SYSCALL printf
* pla
* ply
.1 >PUSHYA

1
BIN/ASM.S.txt
View File

@ -319,7 +319,6 @@ CS.RUN ldy #S.PS.hStdIn
>LDA.G SRC.COUNT end of root file ?
bne .8 no continue back to previous file
>DEBUG
jsr SYM.StoreGlobal Make sure last Global flushed
>LDA.G ASM.PASS End of pass #2 ??

2
SYS/KERNEL.S.INIT.txt
View File

@ -36,7 +36,7 @@ Kernel.Init2 sei
>STYA A2L Src End Address (MAIN)
>LDYAI X.GUIOSD
>STYA A4L Dst Address (AUX)
sec Main To Aux
sec Main To Aux
jsr AuxMove
>LDYAI A2osX.GP

31
SYS/KERNEL.S.SLIST.txt
View File

@ -302,20 +302,6 @@ SLIST.Free sta .8+1
jmp K.FreeMem
*--------------------------------------
* PRIVATE
*--------------------------------------
SLIST.Select jsr K.GetMemPtr
>STYA ZPSListIBlkPtr
SLIST.Select.I ldy ZPSListKeyID+1
sty SLIST.BlockPtr
lda (ZPSListIBlkPtr),y
jsr K.GetMemPtr
>STYA ZPSListDBlkPtr
lda ZPSListKeyID
sta SLIST.BytePtr
rts
*--------------------------------------
SLIST.Search jsr K.GetMemPtr
>STYA ZPSListIBlkPtr
@ -364,8 +350,7 @@ SLIST.Search jsr K.GetMemPtr
clc
rts
.5 >LDYA ZPSListKeyID
>STYA SLIST.KeyID
.5 jsr SLIST.Select.I move back to ZPSListKeyID
jsr SLIST.Next
bra .2
@ -374,6 +359,20 @@ SLIST.Search jsr K.GetMemPtr
sec
rts
*--------------------------------------
SLIST.Select jsr K.GetMemPtr
>STYA ZPSListIBlkPtr
SLIST.Select.I ldy ZPSListKeyID+1
sty SLIST.BlockPtr
lda (ZPSListIBlkPtr),y
jsr K.GetMemPtr
>STYA ZPSListDBlkPtr
lda ZPSListKeyID
sta SLIST.BytePtr
rts
*--------------------------------------
SLIST.Next jsr SLIST.SkipKey
SLIST.SkipData jsr SLIST.GetDataLen