Kernel 0.93+

BIN/SH.S.EXP.txt

@@ -140,6 +140,7 @@ EXP.OP.UNARY.ESYN
 				lda #E.ESYN
 				sec
 				rts
+
 EXP.OP.UNARY.D	jsr EXP.OP.UNARY.STAT
 				bcs EXP.OP.UNARY.DEF.9
 				>LDA.G StatBuf+S.STAT.P.TYPE
@@ -177,6 +178,24 @@ EXP.OP.UNARY.DEF.9
 				clc
 				rts
 *--------------------------------------
+EXP.OP.UNARY.I	>PUSHBI 10
+				>PUSHWI ZPPtr1
+				>LDYA ZPArgVBufPtr
+				>SYSCALL strtol
+				php
+				jsr CORE.ArgV.Next
+				plp
+				bcs EXP.OP.UNARY.DEF.9
+
+				inc pStack				Discard Long
+				inc pStack
+				inc pStack
+				inc pStack
+				
+				lda (ZPPtr1)
+				beq EXP.OP.UNARY.DEF.8
+				bne EXP.OP.UNARY.DEF.9
+*--------------------------------------
 EXP.OP.UNARY.N	lda (ZPArgVBufPtr)		[ -N ] ?
 				cmp #']'
 				beq EXP.OP.UNARY.DEF.9	FALSE
@@ -189,7 +208,7 @@ EXP.OP.UNARY.Z	lda (ZPArgVBufPtr)		[ -Z ] ?
 				cmp #']'
 				beq EXP.OP.UNARY.DEF.8	TRUE
 				jsr CORE.ArgV.Next
-				beq EXP.OP.UNARY.ESYN
+				beq EXP.TEST.BINARY.ESYN
 				bra EXP.OP.UNARY.DEF.9	FALSE
 *--------------------------------------
 EXP.TEST.BINARY	lda CORE.Operator

BIN/SH.S.txt

@@ -177,6 +177,7 @@ L.EXP.OP.UNARY	.DA EXP.OP.UNARY
 J.EXP.OP.UNARY	.DA EXP.OP.UNARY.D
 				.DA EXP.OP.UNARY.E
 				.DA EXP.OP.UNARY.F
+				.DA EXP.OP.UNARY.I
 				.DA EXP.OP.UNARY.N
 				.DA EXP.OP.UNARY.Z
 L.EXP.OP.BINARY	.DA EXP.OP.BINARY
@@ -590,6 +591,7 @@ EXP.BEGIN		.AT "!["
 EXP.OP.UNARY	.AT "-D"
 				.AT "-E"
 				.AT "-F"
+				.AT "-I"
 				.AT "-N"
 				.AT "-Z"
 				.HS 00

SBIN/LOGIN.S.txt

@@ -91,9 +91,8 @@ CS.RUN			>LDYAI 33				Enough for HASH
 				>SYSCALL GetPWUID
 				bcc CS.RUN.AUTH			
 *--------------------------------------
-CS.RUN.NOAUTH	>PUSHBI 0
+CS.RUN.NOAUTH	>LDYA L.MSG.NOAUTH
-				>LDYA L.MSG.NOAUTH
+				jsr CS.RUN.StrOut
-				>SYSCALL printf
 				bcs .9
 
 				jsr CS.RUN.SetRootSession
@@ -110,10 +109,10 @@ CS.RUN.AUTH		>LDYA L.LIBCRYPT
 				lda #3
 				sta ZPRetryCnt
 
-.1				>PUSHBI 0
+.1				>LDYA L.MSG.LOGIN
-				>LDYA L.MSG.LOGIN
+				jsr CS.RUN.StrOut
-				>SYSCALL printf
 				bcs .9
+
 				lda #16
 				clc
 				jsr CS.RUN.GetLine
@@ -124,18 +123,17 @@ CS.RUN.AUTH		>LDYA L.LIBCRYPT
 				>SYSCALL GetPWName
 				ror ZPbValidUser
 				sta ZPUID
-				>PUSHBI 0
+
 				>LDYA L.MSG.PASSWORD
-				>SYSCALL printf
+				jsr CS.RUN.StrOut
 				bcs .9
 				lda #32
 				sec
 				jsr CS.RUN.GetLine
 				bcs .9
 
-				>PUSHBI 0
 				>LDYA L.MSG.CRLF
-				>SYSCALL printf
+				jsr CS.RUN.StrOut
 				bcs .9
 
 				jsr CS.RUN.CHECKPWD
@@ -263,9 +261,7 @@ CS.RUN.CHECKPWD	rol ZPbValidUser
 				>SYSCALL strcmp
 				bcc CS.RUN.CHECK.9
 				
-				lda ZPhPW
+				jsr CS.CLEANUP.hPW
-				stz ZPhPW
-				>SYSCALL freemem
 				
 				sec
 
@@ -389,9 +385,8 @@ CS.RUN.GetLine	sta ZPGetLineMax
 				bit ZPbGetLineSecret
 				bmi .1
 
-				>PUSHBI 0
 				>LDYA L.MSG.BS
-				>SYSCALL printf
+				jsr CS.RUN.StrOut
 				bra .1
 
 .8				ldy ZPGetLineLen
@@ -400,6 +395,12 @@ CS.RUN.GetLine	sta ZPGetLineMax
 				clc
 .9				rts	
 *--------------------------------------
+CS.RUN.StrOut	pha
+				>PUSHBI 0
+				pla
+				>SYSCALL printf
+				rts
+*--------------------------------------
 CS.RUN.DumpFile	pha
 
 				>PUSHWZ				Aux type
@@ -408,6 +409,7 @@ CS.RUN.DumpFile	pha
 				pla
 				>SYSCALL FOpen
 				bcs .9
+
 				stx ZPhFile		
 				>LDYAI 256
 				>SYSCALL getmem
@@ -415,11 +417,13 @@ CS.RUN.DumpFile	pha
 
 				>STYA ZPBufPtr
 				stx ZPhBuf
+
 .1				>PUSHWI	256
 				>PUSHW ZPBufPtr
 				lda ZPhFile
 				>SYSCALL fgets
 				bcs .7
+
 				>LDYA ZPBufPtr
 				>SYSCALL ExpandStr
 				bcc .2
@@ -453,12 +457,12 @@ CS.QUIT			lda hLIBCRYPT
 				>SYSCALL UnloadLib
 
 CS.CLEANUP		lda ZPhGetLine
-				beq .1
+				beq CS.CLEANUP.hPW
 
 				stz ZPhGetLine
 				>SYSCALL freemem
 
-.1				lda ZPhPW
+CS.CLEANUP.hPW	lda ZPhPW
 				beq .8
 				
 				stz ZPhPW

SYS/KERNEL.S.MEM.txt

@@ -120,7 +120,7 @@ MEM.GetMem.YAX	stx MEM.ReqFlags
 
 				lda ZPMemMgrSize+1		> 255, not applicable
 				bne .52					Align to page if $100
-				
+
 				lda Mem.Free			target PTR will be in same page ?
 				cmp ZPMemMgrSize
 				bcs .6					yes, allocate