mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-12 20:29:41 +00:00
Kernel 0.94
This commit is contained in:
parent
fa5062e4a3
commit
975a731fa9
Binary file not shown.
|
@ -91,6 +91,7 @@ L.IRC.JOIN .DA IRC.JOIN
|
|||
L.IRC.JOINKEY .DA IRC.JOINKEY
|
||||
L.IRC.PONG .DA IRC.PONG
|
||||
L.IRC.PART .DA IRC.PART
|
||||
L.IRC.NAMES .DA IRC.NAMES
|
||||
L.IRC.PRIVMSG .DA IRC.PRIVMSG
|
||||
L.SEQ.INIT .DA SEQ.INIT
|
||||
L.SEQ.BAR .DA SEQ.BAR
|
||||
|
@ -101,6 +102,7 @@ L.SEQ.DUMPMSG .DA SEQ.DUMPMSG
|
|||
L.SEQ.RESET .DA SEQ.RESET
|
||||
L.IRC.CMDS .DA IRC.CMDS
|
||||
J.IRC.CMDS .DA CS.RUN.CMD.JOIN
|
||||
.DA CS.RUN.CMD.PART
|
||||
.DA CS.RUN.CMD.PING
|
||||
.DA CS.RUN.CMD.PRIVMSG
|
||||
.DA CS.RUN.CMD.MODE
|
||||
|
@ -590,14 +592,25 @@ CS.RUN.REQ jsr CS.RUN.SplitMsg
|
|||
.8 clc
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
CS.RUN.CMD.JOIN sec
|
||||
ror bJoin
|
||||
CS.RUN.CMD.JOIN lda bJoin
|
||||
bmi .1
|
||||
|
||||
sec
|
||||
ror bJoin
|
||||
clc
|
||||
rts
|
||||
.1
|
||||
*--------------------------------------
|
||||
CS.RUN.CMD.PART >PUSHB hFile
|
||||
>PUSHW L.IRC.NAMES
|
||||
lda #4 channel
|
||||
>SYSCALL ArgV
|
||||
>PUSHYA
|
||||
>PUSHBI 2
|
||||
>SYSCALL FPrintF
|
||||
rts
|
||||
*--------------------------------------
|
||||
CS.RUN.CMD.PING >PUSHB hFile
|
||||
|
||||
>PUSHW L.IRC.PONG
|
||||
>PUSHW ZPMsgExtPtr
|
||||
>PUSHBI 2
|
||||
|
@ -628,7 +641,7 @@ CS.RUN.CMD.MODE
|
|||
clc
|
||||
rts
|
||||
*--------------------------------------
|
||||
CS.RUN.CMD.353 >LDYA ZPMsgExtPtr
|
||||
CS.RUN.CMD.353 >LDYA ZPMsgExtPtr RPL_NAMREPLY
|
||||
jmp CS.RUN.STATUSPDATE
|
||||
|
||||
CS.RUN.CMD.375
|
||||
|
@ -661,7 +674,7 @@ CS.RUN.SplitMsg >LDYA pData
|
|||
ldx #0
|
||||
|
||||
lda (ZPMsgPtr)
|
||||
cmp #':'
|
||||
cmp #':' do we have a prefix ?
|
||||
bne .2
|
||||
|
||||
lda ZPMsgPtr
|
||||
|
@ -680,7 +693,7 @@ CS.RUN.SplitMsg >LDYA pData
|
|||
bne .1
|
||||
|
||||
lda #0
|
||||
sta (ZPMsgPtr),y
|
||||
sta (ZPMsgPtr),y End Of prefix
|
||||
|
||||
iny Skip blank
|
||||
|
||||
|
@ -692,11 +705,11 @@ CS.RUN.SplitMsg >LDYA pData
|
|||
lda (ZPMsgPtr),y
|
||||
beq .4
|
||||
|
||||
.3 cmp #C.SPACE
|
||||
.3 cmp #C.SPACE scan until end of CMD
|
||||
bne .2
|
||||
|
||||
lda #0
|
||||
sta (ZPMsgPtr),y
|
||||
sta (ZPMsgPtr),y End of CMD
|
||||
|
||||
iny Skip blank
|
||||
|
||||
|
@ -719,20 +732,20 @@ CS.RUN.SplitMsg >LDYA pData
|
|||
|
||||
lda (ZPMsgPtr),y
|
||||
cmp #':'
|
||||
beq .71 not arg....ext
|
||||
beq .71 no arg....ext
|
||||
|
||||
.6 iny
|
||||
|
||||
lda (ZPMsgPtr),y
|
||||
beq .7
|
||||
|
||||
cmp #C.SPACE
|
||||
cmp #':' ARGS could be "ARG1 ARG2 ARG3"
|
||||
bne .6
|
||||
|
||||
lda #0
|
||||
sta (ZPMsgPtr),y
|
||||
|
||||
iny Skip blank
|
||||
iny Skip :
|
||||
|
||||
.7 php
|
||||
|
||||
|
@ -860,6 +873,9 @@ CS.RUN.CHARIN.CTRL
|
|||
bit bJoin
|
||||
bpl CS.RUN.CHARIN.INS.8
|
||||
|
||||
lda TextLen
|
||||
beq CS.RUN.CHARIN.INS.8
|
||||
|
||||
>PUSHB hFile
|
||||
>PUSHW L.IRC.PRIVMSG
|
||||
|
||||
|
@ -997,6 +1013,7 @@ IRC.REP.001 .AZ "001"
|
|||
IRC.REP.JOIN .AZ "JOIN"
|
||||
*--------------------------------------
|
||||
IRC.CMDS .AZ "JOIN"
|
||||
.AZ "PART"
|
||||
.AZ "PING"
|
||||
.AZ "PRIVMSG"
|
||||
.AZ "MODE"
|
||||
|
@ -1012,6 +1029,7 @@ IRC.JOIN .AZ "JOIN %s\r\n"
|
|||
IRC.JOINKEY .AZ "JOIN %s %s\r\n"
|
||||
IRC.PONG .AZ "PONG %s\r\n"
|
||||
IRC.PART .AZ "PART %s\r\n"
|
||||
IRC.NAMES .AZ "NAMES %s\r\n"
|
||||
IRC.PRIVMSG .AZ "PRIVMSG %s :%s\r\n"
|
||||
*--------------------------------------
|
||||
SEQ.INIT .AZ "\ec\e(B\e)0\e[?7l\e[2;20r\e[22;1H\e[?7h"
|
||||
|
|
Loading…
Reference in New Issue
Block a user