Kernel 0.94

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"
 *--------------------------------------

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

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