Kernel 0.94

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"