mirror of
https://github.com/A2osX/A2osX.git
synced 2025-02-19 07:30:41 +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
|
||||
|
||||
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
|
||||
|
Loading…
x
Reference in New Issue
Block a user