mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-06 10:29:30 +00:00
Kernel 0.92+
This commit is contained in:
parent
3c951c73bb
commit
d19060c13b
Binary file not shown.
|
@ -131,7 +131,6 @@ CORE.Run >LDYA ZPInputBufPtr Save Actual cmd for looping
|
|||
>STA.G CORE.IntCmd
|
||||
cmp #C.EXIT
|
||||
bne .42
|
||||
>DEBUG
|
||||
|
||||
.42 jsr CORE.StkGet
|
||||
bcs .7 no particular context, exec...
|
||||
|
@ -150,14 +149,18 @@ CORE.Run >LDYA ZPInputBufPtr Save Actual cmd for looping
|
|||
asl
|
||||
bmi .7 parent context is true, exec
|
||||
|
||||
.43 jsr CORE.GetNextCharNB
|
||||
.43 jsr CORE.GetCharNB
|
||||
|
||||
bcs .44 EOF
|
||||
|
||||
cmp #C.CR
|
||||
beq .44
|
||||
|
||||
cmp #';' TODO ";"
|
||||
bne .43
|
||||
beq .44
|
||||
|
||||
jsr CORE.GetNextChar
|
||||
bra .43
|
||||
|
||||
.44 jsr CORE.GetNextCharNB Skip EoL char
|
||||
clc
|
||||
|
@ -281,6 +284,7 @@ CORE.Lookup >STYA ZPPtr2
|
|||
bne .4
|
||||
|
||||
tya Keyword Len
|
||||
dey
|
||||
clc
|
||||
.8 rts
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user