Kernel 0.93++

BIN/EDIT.S.BUF.txt

@@ -8,7 +8,9 @@ BUF.InsertA		sta TmpByte
 				cpy #255
 				beq .8
 
+				>LDYAI 1
 				jsr BUF.BufPtrSetup
+				bcs .9
 				
 				lda BufPtr
 				clc
@@ -46,7 +48,10 @@ BUF.InsertTAB	>LDA.G FileX
 				adc TmpByte
 				bcs .8
 				
+				ldy TmpByte
+				lda #0
 				jsr BUF.BufPtrSetup
+				bcs .9
 				
 				lda BufPtr
 				clc
@@ -125,21 +130,10 @@ BUF.InsertClipboard
 
 				jsr BUF.ComputeCOffset
 
-				lda FileLen
-				clc
-				>ADC.G ClipboardLen
-				pha
-				lda FileLen+1
-				iny
-				adc (pData),y
-				ply
-
-				cpy BufLen
-				sbc BufLen+1
-				bcs .8
-
+				>LDYA.G ClipboardLen 
 				jsr BUF.BufPtrSetup
-				
+				bcs .9
+
 				lda BufPtr
 				clc
 				>ADC.G ClipboardLen
@@ -188,8 +182,8 @@ BUF.InsertClipboard
 				adc FileLen+1
 				sta FileLen+1
 		
+				jsr BUF.ResetSel
 				jsr SCRN.UpdateStatusBar
-				
 				jmp SCRN.Unsaved
 				
 .8				clc	
@@ -563,7 +557,23 @@ BUF.GetSelLen	ldy #SelEnd
 *--------------------------------------
 * in : Y,A = cnt to insert at COffset 
 *--------------------------------------
-BUF.BufPtrSetup	lda BUF.COffset
+BUF.BufPtrSetup	pha
+				tya
+				clc
+				
+				adc FileLen
+				tay
+				
+				pla
+				adc FileLen+1
+
+				cpy BufLen
+				sbc BufLen+1
+				bcs .9
+
+
+
+				lda BUF.COffset
 				clc
 				>ADC.G BufBase
 				sta BufPtr
@@ -572,6 +582,12 @@ BUF.BufPtrSetup	lda BUF.COffset
 				>ADC.G BufBase+1
 				sta BufPtr+1
 
+				
+				clc
+				rts
+				
+.9				lda #E.BUF
+				sec
 				rts
 *--------------------------------------
 MAN

SBIN/LOGIN.S.txt

@@ -9,7 +9,6 @@ NEW
 				.INB INC/A2OSX.I
 				.INB INC/KERNEL.I
 				.INB INC/MLI.I
-				.INB INC/LIBCRYPT.I
 *--------------------------------------
 				.DUMMY
 				.OR ZPBIN
@@ -61,7 +60,6 @@ CS.START		cld
 				.DA CS.DOEVENT
 				.DA	CS.QUIT
 L.MSG.NOAUTH	.DA MSG.NOAUTH
-L.LIBCRYPT		.DA LIBCRYPT
 L.MSG.LOGIN		.DA MSG.LOGIN
 L.MSG.PASSWORD	.DA MSG.PASSWORD
 L.MSG.BAD		.DA MSG.BAD
@@ -101,12 +99,7 @@ CS.RUN.NOAUTH	>LDYA L.MSG.NOAUTH
 				jmp CS.RUN.EXEC
 .9				rts
 *--------------------------------------
-CS.RUN.AUTH		>LDYA L.LIBCRYPT
-				>SYSCALL LoadLib
-				bcs CS.INIT.RTS
-				sta hLIBCRYPT
-
-				lda #3
+CS.RUN.AUTH		lda #3
 				sta ZPRetryCnt
 
 .1				>LDYA L.MSG.LOGIN
@@ -247,7 +240,7 @@ CS.RUN.CHECKPWD	rol ZPbValidUser
 
 				>PUSHW ZPGetlinePtr
 				>PUSHW ZPGetlinePtr
-				>LIBCALL hLIBCRYPT,LIBCRYPT.MD5
+				>SYSCALL MD5
 				
 				lda ZPPWPtr
 				clc
@@ -452,10 +445,7 @@ CS.DOEVENT
 				sec
 				rts		
 *--------------------------------------
-CS.QUIT			lda hLIBCRYPT
-				beq CS.CLEANUP
-				>SYSCALL UnloadLib
-
+CS.QUIT			
 CS.CLEANUP		lda ZPhGetLine
 				beq CS.CLEANUP.hPW
 
@@ -473,8 +463,6 @@ CS.CLEANUP.hPW	lda ZPhPW
 *--------------------------------------
 CS.END
 *--------------------------------------
-LIBCRYPT		.AZ "libcrypt"
-hLIBCRYPT		.BS 1
 MSG.NOAUTH		.AS "\r\n\r\nA2osX-Login:No ETC/PASSWD file present, Logged as ROOT.\r\n"
 				.AS "Consider adding ROOT password with USERADD command.\r\n"
 MSG.CRLF		.AZ "\r\n"