Kernel 0.94

This commit is contained in:
Rémy GIBERT 2020-07-09 22:46:05 +02:00
parent a171b75a89
commit 0958a37b76
2 changed files with 8 additions and 1 deletions

Binary file not shown.

View File

@ -874,7 +874,7 @@ CS.RUN.CHARIN.CTRL
>PUSHW L.SEQ.PRIVMSG >PUSHW L.SEQ.PRIVMSG
lda #4 channel lda #3 nickname
>SYSCALL ArgV >SYSCALL ArgV
>PUSHYA >PUSHYA
>PUSHW ZPTextPtr >PUSHW ZPTextPtr
@ -907,9 +907,13 @@ CS.RUN.CHARIN.CTRL
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
CS.RUN.CHARIN.LEFT CS.RUN.CHARIN.LEFT
clc
lda TextPtr lda TextPtr
beq .9 beq .9
dec TextPtr dec TextPtr
lda #C.BS lda #C.BS
>SYSCALL PutChar >SYSCALL PutChar
.9 rts .9 rts
@ -920,10 +924,13 @@ CS.RUN.CHARIN.UP
CS.RUN.CHARIN.RIGHT CS.RUN.CHARIN.RIGHT
lda TextPtr lda TextPtr
cmp TextLen cmp TextLen
clc
beq .9 beq .9
inc inc
sta TextPtr sta TextPtr
lda #C.FS lda #C.FS
>SYSCALL PutChar >SYSCALL PutChar
.9 rts .9 rts