Kernel 0.92+

This commit is contained in:
Rémy GIBERT 2019-03-04 22:20:26 +00:00
parent 3c951c73bb
commit d19060c13b
2 changed files with 7 additions and 3 deletions

Binary file not shown.

View File

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