diff --git a/.Floppies/A2OSX.BUILD.po b/.Floppies/A2OSX.BUILD.po index decb103d..46250cfe 100644 Binary files a/.Floppies/A2OSX.BUILD.po and b/.Floppies/A2OSX.BUILD.po differ diff --git a/BIN/IRC.S.txt b/BIN/IRC.S.txt index cce8d421..7ad29b9d 100644 --- a/BIN/IRC.S.txt +++ b/BIN/IRC.S.txt @@ -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 +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 @@ -859,6 +872,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"