diff --git a/.Floppies/A2OSX.BOOT.woz b/.Floppies/A2OSX.BOOT.woz
index 10b0d1ee..582f5989 100644
Binary files a/.Floppies/A2OSX.BOOT.woz and b/.Floppies/A2OSX.BOOT.woz differ
diff --git a/.Floppies/A2OSX.BUILD.po b/.Floppies/A2OSX.BUILD.po
index 8a62edbd..d66a3c8d 100644
Binary files a/.Floppies/A2OSX.BUILD.po and b/.Floppies/A2OSX.BUILD.po differ
diff --git a/.Floppies/A2OSX.TEST.po b/.Floppies/A2OSX.TEST.po
index 4a8e93f8..d299e224 100644
Binary files a/.Floppies/A2OSX.TEST.po and b/.Floppies/A2OSX.TEST.po differ
diff --git a/BIN/GROUPADD.S.txt b/BIN/GROUPADD.S.txt
new file mode 100644
index 00000000..e69de29b
diff --git a/BIN/GROUPDEL.S.txt b/BIN/GROUPDEL.S.txt
new file mode 100644
index 00000000..e69de29b
diff --git a/BIN/GROUPMOD.S.txt b/BIN/GROUPMOD.S.txt
new file mode 100644
index 00000000..e69de29b
diff --git a/BIN/IRC.S.txt b/BIN/IRC.S.txt
index 7ad29b9d..29ca304f 100644
--- a/BIN/IRC.S.txt
+++ b/BIN/IRC.S.txt
@@ -972,7 +972,7 @@ CS.QUIT			lda hFile
 .1				lda hSocket
 				beq .2
 
-				>LIBCALL hLIBTCPIP,LIBTCPIP.Shutdown
+*				>LIBCALL hLIBTCPIP,LIBTCPIP.Shutdown
 
 .2				lda hText
 				beq .3
@@ -1028,7 +1028,8 @@ IRC.USER		.AZ "USER %s 0 * :%s\r\n"
 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.PART		.AS	"PART %s\r\n"
+				.AZ "QUIT :Pfff\r\n"
 IRC.NAMES		.AZ "NAMES %s\r\n"
 IRC.PRIVMSG		.AZ "PRIVMSG %s :%s\r\n"
 *--------------------------------------
diff --git a/SYS/KERNEL.S.PWDX.txt b/SYS/KERNEL.S.PWDX.txt
index 686de0c4..c2df909a 100644
--- a/SYS/KERNEL.S.PWDX.txt
+++ b/SYS/KERNEL.S.PWDX.txt
@@ -237,9 +237,17 @@ PWD.GetGR.99	lda #E.IUSR
 PWD.GetGR.RTS	rts
 *--------------------------------------
 PWDX.GetGRName
-
+				lda #E.IPWDDB
+				sec
+				rts
 *--------------------------------------
-PWDX.PutGR
+PWDX.PutGR		lda PWD.hGrpDB
+				beq PWD.GetGR.9
+				
+				jsr K.GetmemPtr
+				>STYA ZPPtr3
+
+
 				lda #E.IPWDDB
 				sec
 				rts
diff --git a/SYS/KM.RAMWORKS.S.txt b/SYS/KM.RAMWORKS.S.txt
index 4e4c2625..0cca856d 100644
--- a/SYS/KM.RAMWORKS.S.txt
+++ b/SYS/KM.RAMWORKS.S.txt
@@ -366,12 +366,13 @@ RWDRV.START		cld						ProDOS will check that byte!!!
 				beq RWDRV.EXITOK		3 = Format : nothing to do, exit with no error
 				bcs RWDRV.IOERR			> 3 = Invalid OP, IO error
 
-				lda DRV.BLKNUM
-				sbc RWDRV.MAXLO+1		Carry is Clear 
+				ldx DRV.BLKNUM
+				cpx RWDRV.MAXLO+1
 				lda DRV.BLKNUM+1
 				sbc RWDRV.MAXHI+1
 				bcs	RWDRV.IOERR			DRV.BLKNUM >= RW.DRV.SIZE, IO error
-				lda DRV.BLKNUM			Get Back DRV.BLKNUM
+
+				txa						Get Back DRV.BLKNUM
 				asl						compute PAGE = blocknumLO *2
 				pha
 				lda DRV.BLKNUM+1		compute BANK = blocknumHI *2
@@ -427,7 +428,7 @@ RWDRV.RW.DST	sta ($FF),y
 				sta CLRREADAUX
 				sta CLRWRITEAUX
 
-				plp
+				plp						restore IRQ
 
 RMDRV.CMDSTATUS
 RWDRV.MAXLO		ldx #$FF				return device block count in X,Y...
@@ -462,6 +463,7 @@ RWDRV.GOAUX		pha						save BANK
 
 				jsr RWDRVX.RESTORE
 				sta CLRREADAUX
+				plp						restore IRQ
 				rts						A & carry setup properly by RWDRVX.RESTORE
 RWDRV.END		.EP
 RWDRV.B.END