mirror of
https://github.com/A2osX/A2osX.git
synced 2025-02-20 15:29:07 +00:00
Kernel 0.94
This commit is contained in:
parent
a171b75a89
commit
0958a37b76
Binary file not shown.
@ -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
|
||||||
|
Loading…
x
Reference in New Issue
Block a user