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