Kernel 0.92

BIN/SHELL.S.CL.txt

@@ -54,7 +54,7 @@ CL.CHARIN		tax
 
 .1				cpx #$7f
 				bne .2
-				jmp CL.SUPPR
+				jmp CL.DEL
 
 .2				jmp CL.Insert
 
@@ -89,7 +89,7 @@ CL.CHARIN.CTRL	cpx #C.CR
 .12				cpx #24					Ctrl-X
 				bne .13
 				
-				jmp CL.DEL
+				jmp CL.SUPPR
 				
 .13				clc				
 				rts

BIN/SHELL.S.CMD.txt

@@ -559,11 +559,12 @@ Cmd.INT.EXIT	ldx #1
 				>STA.G bExit
 				
 				>LDA.G M32.ACC
-				sec
+				clc
 				rts
 				
 .8				lda #$FF
 				>STA.G bExit
+				inc
 				clc
 .9				rts
 *--------------------------------------

SBIN/INITD.S.txt

@@ -0,0 +1,125 @@
+NEW
+PREFIX
+AUTO 4,1								Enable MASM3 auto line num
+				.LIST OFF
+				.OP	65C02				Target CPU, must match CPU level in header
+				.OR	$2000				usualy $2000, but any value > $100 allowed
+				.TF SBIN/INITD
+*--------------------------------------
+				.INB INC/MACROS.I
+				.INB INC/A2OSX.I
+*--------------------------------------
+* Zero Page Segment, up to 32 bytes
+*--------------------------------------
+				.DUMMY
+				.OR ZPBIN
+ZS.START
+* MyPtr			.BS 2
+ZS.END
+				.ED
+*--------------------------------------
+*			File Header (16 Bytes)
+*--------------------------------------
+CS.START		cld
+				jmp (.1,x)
+				.DA #$61				6502,Level 1 (65c02)
+				.DA #1					BIN Layout Version 1
+				.DA #S.PS.F.EVENT
+				.DA #0
+				.DA CS.END-CS.START		Code Size (without Constants)
+				.DA DS.END-DS.START		Data SegmentSize
+				.DA #16					Stack Size
+				.DA #ZS.END-ZS.START	Zero Page Size
+				.DA 0
+*--------------------------------------
+* Relocation Table
+*--------------------------------------				
+.1				.DA CS.INIT
+				.DA CS.RUN
+				.DA CS.DOEVENT		
+				.DA	CS.QUIT
+L.MSG.CTRLR		.DA MSG.CTRLR
+L.MSG.ETCINIT	.DA MSG.ETCINIT				
+L.BINSHELL		.DA BINSHELL
+L.ETCINIT		.DA ETCINIT				
+				.DA 0
+*--------------------------------------
+* Called once at process creation
+* Put code for loading LIB here
+*--------------------------------------
+CS.INIT			clc
+				rts
+*--------------------------------------
+* Called until exit with CS
+* if RUN exits with CC, RN entered again
+*--------------------------------------
+CS.RUN			ldy #S.PS.PID
+				lda (pPS),y
+				cmp #1
+				bne .9
+				
+				>SYSCALL getchar
+				bcs .1
+				
+				cmp #$12					CTRL-R for Root mode
+				bne .1
+				
+				>LDYA L.MSG.CTRLR
+				>SYSCALL puts
+				
+				>PUSHBI S.PS.F.HOLD
+				>LDYA L.BINSHELL
+				>SYSCALL ExecL
+				
+				>SLEEP
+				
+.1				>LDYA L.MSG.ETCINIT
+				>SYSCALL puts
+				
+				>PUSHBI S.PS.F.HOLD
+				>LDYA L.ETCINIT
+				
+				>SYSCALL ExecL
+				
+				>SLEEP
+				
+				lda #0
+				sec
+				rts
+				
+.9				lda #E.SYN
+				sec
+				rts
+*--------------------------------------
+* Called if option S.PS.F.EVENT enabled in Header
+* Timer Event : every 10th seconds
+*--------------------------------------
+CS.DOEVENT		sec
+				rts
+*--------------------------------------
+* Called once, when RUN exited with CS
+* Put code for unloading LIB here
+*--------------------------------------
+CS.QUIT			clc
+				rts
+*--------------------------------------
+CS.END
+*--------------------------------------
+* Initialized DATA
+*--------------------------------------
+MSG.CTRLR		.AZ "Ctrl-R Pressed, entering ROOT mode..."
+MSG.ETCINIT		.AS "Executing ETC/INIT Script:"
+ETCINIT			.AZ "${ROOT}ETC/INIT"
+BINSHELL		.AZ "${ROOT}BIN/SHELL"
+*--------------------------------------
+* Per Process DATA segement (0 filled before INIT)
+*--------------------------------------
+				.DUMMY
+				.OR 0
+DS.START
+DS.END
+				.ED
+*--------------------------------------
+MAN
+SAVE USR/SRC/SBIN/INITD
+ASM