Kernel 0.94

This commit is contained in:
Rémy GIBERT 2020-05-19 22:53:03 +02:00
parent d1967faf4a
commit 690455160e
7 changed files with 17 additions and 6 deletions

Binary file not shown.

Binary file not shown.

View File

@ -555,38 +555,48 @@ CMD.FUNCTION lda (ZPArgVBufPtr)
*-------------------------------------- *--------------------------------------
.10 jsr CORE.GetCharNB .10 jsr CORE.GetCharNB
bcs .9 bcs .9
cmp #'{' cmp #'{'
bne .9 bne .9
jsr CORE.GetNextCharNB jsr CORE.GetNextCharNB
bcs .9 bcs .9
.11 stz M32.ACC '{' counter .11 stz M32.ACC '{' counter
>LDYA ZPInputBufPtr >LDYA ZPInputBufPtr
>STYA ZPPtr1 >STYA ZPPtr1
ldy #0 ldy #0
ldx #0 ldx #0
lda (ZPInputBufPtr) lda (ZPInputBufPtr)
beq .6 beq .6
.12 cmp #'{' .12 cmp #'{'
bne .13 bne .13
inc M32.ACC inc M32.ACC
bra .14 bra .14
.13 cmp #'}' .13 cmp #'}'
bne .14 bne .14
dec M32.ACC dec M32.ACC
bmi .7 bmi .7
.14 iny .14 iny
bne .15 bne .15
inx inx
.15 jsr CORE.GetNextChar .15 jsr CORE.GetNextChar
bne .12 bne .12
.6 lda M32.ACC .6 lda M32.ACC
bpl .9 bpl .9
.7 jsr CORE.GetNextChar skip ending '}' .7 jsr CORE.GetNextChar skip ending '}'
txa phx
pha
phy phy
>PUSHB.G hFuncList >PUSHB.G hFuncList
>PUSHW ZPTmpW KeyID >PUSHW ZPTmpW KeyID
@ -614,6 +624,7 @@ CMD.CALL jsr CMD.CALL.GETFUNC
>LDYA ZPArgVBufPtr FUNC PARAM1 PARAM2... >LDYA ZPArgVBufPtr FUNC PARAM1 PARAM2...
jsr CORE.Load.YAX Exec FUNC jsr CORE.Load.YAX Exec FUNC
bcs CMD.CALL.RTS bcs CMD.CALL.RTS
lda #$C0+C.CALL lda #$C0+C.CALL
jmp CORE.StkPush jmp CORE.StkPush
*-------------------------------------- *--------------------------------------

View File

@ -323,7 +323,7 @@ seek lda BB.HdrTrk get track we're on
jsr BB.PhaseOn jsr BB.PhaseOn
lda #60 lda #35
jsr BB.MSWait Trash X jsr BB.MSWait Trash X
ldx slotz ldx slotz

View File

@ -47,7 +47,7 @@ D2MoveHead >PULLB MoveTo
sta MoveFrom sta MoveFrom
jsr D2.PhaseOn jsr D2.PhaseOn
lda #60 lda #30
jsr D2.Wait100msA Trash X jsr D2.Wait100msA Trash X
ldx Slotn0 ldx Slotn0

View File

@ -760,7 +760,7 @@ XRW.Seek ldx XRW.UnitIndex
jsr XRW.PhaseOn jsr XRW.PhaseOn
lda #90 wait 9.000 usec lda #35 wait 3.500 usec
jsr XRW.Wait100msA Trash X jsr XRW.Wait100msA Trash X
jsr XRW.AllPhaseOff jsr XRW.AllPhaseOff

View File

@ -76,7 +76,7 @@ SLISTX.SListGetData
.2 inc SLIST.nDataCnt .2 inc SLIST.nDataCnt
bne .3 bne .3
inc SLIST.nDataCnt+1 inc SLIST.nDataCnt+1
beq .80 beq .81
.3 bit SLIST.bStringMode .3 bit SLIST.bStringMode
bmi .4 String mode : until CR bmi .4 String mode : until CR