Kernel 0.93++

BIN/CHMOD.S.txt

@@ -73,9 +73,9 @@ CS.RUN			>INC.G ArgIndex
 				dex
 				bpl .2
 
-.9				>PUSHBI 0
+.9				>PUSHW L.MSG.USAGE
-				>LDYA L.MSG.USAGE
+				>PUSHBI 0
-				>SYSCALL printf
+				>SYSCALL printf2
 				lda #E.SYN
 				sec
 .99				rts
@@ -168,12 +168,14 @@ CS.RUN.DIR		>LDA.G bRecurse
 				lda (ZPFileName)
 				cmp #'.'
 				beq .8
+				
 				jsr CS.RUN.GetFilePath
+				>PUSHW L.MSG.DIR
 				>PUSHW ZPFullPath
 				>PUSHBI 2
-				>LDYA L.MSG.DIR
+				>SYSCALL printf2
-				>SYSCALL printf
 				bcs .9
+				
 				>PUSHW ZPMode
 				>LDYA ZPFullPath
 				>SYSCALL chmod
@@ -187,12 +189,15 @@ CS.RUN.DIR		>LDA.G bRecurse
 *--------------------------------------
 CS.RUN.FILE		jsr FilterMatch
 				bcs .8					no match, skip....
+
 				jsr CS.RUN.GetFilePath
+
+				>PUSHW L.MSG.FILE
 				>PUSHW ZPFullPath
 				>PUSHBI 2
-				>LDYA L.MSG.FILE
+				>SYSCALL printf2
-				>SYSCALL printf
 				bcs .9
+
 				>PUSHW ZPMode
 				>LDYA ZPFullPath
 				>SYSCALL chmod
@@ -241,10 +246,12 @@ CS.RUN.CheckErr	bcs .1
 				>SYSCALL puts
 				rts
 .1				pha
+				>PUSHW L.MSG.ERR
+				pla
+				pha
 				>PUSHA
 				>PUSHBI 1
-				>LDYA L.MSG.ERR
+				>SYSCALL printf2
-				>SYSCALL printf
 				>LDA.G bContinue
 				eor #$80
 				asl

BIN/CHTYP.S.txt

@@ -64,9 +64,9 @@ CS.INIT
 				dex
 				bne .2
 
-.99				>PUSHBI 0
+.99				>PUSHW L.MSG.USAGE
-				>LDYA L.MSG.USAGE
+				>PUSHBI 0
-				>SYSCALL printf
+				>SYSCALL printf2
 				lda #E.SYN
 				sec
 				rts
@@ -156,11 +156,12 @@ CS.RUN.DEV
 				rts
 *--------------------------------------
 CS.RUN.FILE		jsr CS.RUN.GetFilePath
+				>PUSHW L.MSG.FILE
 				>PUSHW ZPFullPath
 				>PUSHBI 2
-				>LDYA L.MSG.FILE
+				>SYSCALL printf2
-				>SYSCALL printf
 				bcs .9
+				
 				ldy #HexFileType
 				>PUSHB (pData),y
 
@@ -184,10 +185,12 @@ CS.RUN.CheckErr	bcs .1
 				>SYSCALL puts
 				rts
 .1				pha
+				>PUSHW L.MSG.ERR
+				pla
+				pha
 				>PUSHA
 				>PUSHBI 1
-				>LDYA L.MSG.ERR
+				>SYSCALL printf2
-				>SYSCALL printf
 				>LDA.G bContinue
 				eor #$80
 				asl

BIN/CSH.S.txt

@@ -76,10 +76,10 @@ CS.INIT.RTS		rts
 * Called until exit with CS
 * if RUN exits with CC, RN entered again
 *--------------------------------------
-CS.RUN			>PUSHWI K.VER
+CS.RUN			>PUSHW L.MSG.GREETINGS
+				>PUSHWI K.VER
 				>PUSHBI 2
-				>LDYA L.MSG.GREETINGS
+				>SYSCALL printf2
-				>SYSCALL printf
 				bcs CS.INIT.RTS
 
 				jsr CS.RUN.ARGS
@@ -165,9 +165,9 @@ CS.RUN.ARGS		inc ArgIndex
 				clc
 .9				rts
 
-.90				>PUSHBI 0
+.90				>PUSHW L.MSG.USAGE
-				>LDYA L.MSG.USAGE
+				>PUSHBI 0
-				>SYSCALL printf
+				>SYSCALL printf2
 
 				lda #E.SYN
 				sec						QUIT Process
@@ -240,10 +240,10 @@ PrintErrMsg		lda ZPhMacro
 
 				rts
 *--------------------------------------
-PrintDebugMsg	>PUSHW pStack
+PrintDebugMsg	>PUSHW L.MSG.DEBUG
+				>PUSHW pStack
 				>PUSHBI 2
-				>LDYA L.MSG.DEBUG
+				>SYSCALL printf2
-				>SYSCALL printf
 				rts
 *--------------------------------------
 PrintTraceMsg	>STYA ZPPtr3

SBIN/INSDRV.S.txt

@@ -40,13 +40,17 @@ CS.RUN			ldy #S.PS.ARGC
 				lda (pPs),y
 				cmp #1
 				bcc .9
+				
+				>PUSHW L.MSG.LOAD
+				
 				lda #1					get PTR to ARG[1] (Driver name)
 				>SYSCALL ArgV
 				>PUSHYA
 
 				>PUSHBI 2
-				>LDYA L.MSG.LOAD
+				>SYSCALL printf2
-				>SYSCALL printf
+				bcs .99
+				
 				lda #1					get PTR to ARG[1] (Driver name)
 				>SYSCALL ArgV
 

SBIN/LOGIN.S.txt

@@ -388,10 +388,9 @@ CS.RUN.GetLine	sta ZPGetLineMax
 				clc
 .9				rts	
 *--------------------------------------
-CS.RUN.StrOut	pha
+CS.RUN.StrOut	>PUSHYA
 				>PUSHBI 0
-				pla
+				>SYSCALL printf2
-				>SYSCALL printf
 				rts
 *--------------------------------------
 CS.RUN.DumpFile	pha

SBIN/TELNETD.S.txt

@@ -164,19 +164,20 @@ CS.RUN.CLIENT	>SLEEP					give some time for TCPIP SYN/ACK
 				>SYSCALL GetMemPtr
 				>STYA ZPSktPtr
 
-				ldx #3
+				>PUSHW L.MSG.INCOMING
-				ldy #S.SOCKET.REM.ADDR+3
-
-.3				>PUSHB (ZPSktPtr),y
-				dey
-				dex
-				bpl .3
 
 				>PUSHB hClientSocket
 
+				ldx #3
+				ldy #S.SOCKET.REM.ADDR
+
+.3				>PUSHB (ZPSktPtr),y
+				iny
+				dex
+				bpl .3
+
 				>PUSHBI 5
-				>LDYA L.MSG.INCOMING
+				>SYSCALL printf2
-				>SYSCALL printf
 
 				>PUSHB hClientSocket
 				>PUSHBI 1
@@ -202,10 +203,12 @@ CS.RUN.CLIENT	>SLEEP					give some time for TCPIP SYN/ACK
 				>SYSCALL execl
 				bcc .8
 
+				pha
+				>PUSHW L.MSG.EXECERR
+				pla
 				>PUSHA
 				>PUSHBI 1
-				>LDYA L.MSG.EXECERR
+				>SYSCALL printf2
-				>SYSCALL printf
 
 .8				clc
 .9				rts

SYS/KERNEL.S.MD5.txt

@@ -70,12 +70,13 @@ K.MD5Init		sta SETREADAUX
 K.MD5Update		>PULLW ZPDataLen		get LEN
 				>PULLW TXTPTR			get DATA
 				>PULLA
-				>SYSCALL2 GetMemPtr	get MD5 Context
-				>STYA ZPCtxPtr
 
 				sta SETREADAUX
 				sta SETWRITEAUX
 				
+				>SYSCALL2 GetMemPtr	get MD5 Context
+				>STYA ZPCtxPtr
+
 				jsr MD5X.Update
 				
 				sta CLRREADAUX
@@ -94,12 +95,13 @@ K.MD5Update		>PULLW ZPDataLen		get LEN
 K.MD5Finalize	>PULLW FORPNT
 				>PULLA
 				sta .8+1
-				>SYSCALL2 GetMemPtr
-				>STYA ZPCtxPtr			get MD5 Context
 
 				sta SETREADAUX
 				sta SETWRITEAUX
 
+				>SYSCALL2 GetMemPtr
+				>STYA ZPCtxPtr			get MD5 Context
+
 				jsr MD5X.Finalize
 
 .8				lda #$ff				SELF MODIFIED

SYS/KERNEL.S.MD5X.txt

@@ -101,7 +101,6 @@ MD5X.Init		>LDYAI S.MD5
 				cpy #S.MD5
 				bne .2
 
-
 				txa
 
 				clc
@@ -179,7 +178,9 @@ MD5X.Finalize	ldy #S.MD5.FINALIZED
 
 				lda (ZPCtxPtr),y
 				bne .11
+				
 				jsr MD5ExtraChunk
+				
 .11				ldy #S.MD5.ABCD0
 
 .1				lda (ZPCtxPtr),y