Kernel 0.93++

BIN/EDIT.S.CTRL.txt

@@ -452,7 +452,8 @@ Ctrl.Q			>LDA.G bUnSaved
 .8				lda #$ff
 				>STA.G bExit
 
-.80				jmp SCRN.UpdateStatusBar
+.80				jsr SCRN.UpdateStatusBar
+				jmp SCRN.GotoCurXCurY
 
 .9				rts
 *--------------------------------------

SYS/KERNEL.S.ENV.txt

@@ -382,25 +382,7 @@ K.GetEnv		>PULLW FORPNT			value
 K.GetEnv.I		ldy #S.PS.hENV
 				lda (pPs),y
 				
-				ldy TXTPTR+1
-				bne	.10
-
-				tax
-				
-				jsr MEM.GetMemByID
-				
 				sta SETREADAUX
-				ldy #S.MEM.LEN
-				lda (ZPMemMgrSPtr),y
-				pha
-				iny
-				lda (ZPMemMgrSPtr),y
-				ply
-				sta CLRREADAUX
-
-				jmp MEM.CopyToMain
-
-.10				sta SETREADAUX
 				sta SETWRITEAUX
 				jsr ENVX.GetEnv
 				sta CLRREADAUX
@@ -432,7 +414,7 @@ K.UnsetEnv.I	ldy #S.PS.hENV
 ENV.NextEnvP3	jsr ENV.GetP3LenY
 *--------------------------------------
 ENV.NextEnvP3Y	tya
-ENV.NextEnvP3A	sec
+				sec
 				adc ZPPtr3
 				sta ZPPtr3
 				bcc .8

SYS/KERNEL.S.ENVX.txt

@@ -113,7 +113,23 @@ ENVX.SetEnv		jsr ENVX.UnsetEnv
 
 .9				rts
 *--------------------------------------
-ENVX.GetEnv		sta ENVX.hEnv
+ENVX.GetEnv		ldy TXTPTR+1
+				bne	.10
+
+				tax						hMem for CopyToMain
+				
+				jsr MEM.GetMemByID
+				
+				ldy #S.MEM.LEN
+				lda (ZPMemMgrSPtr),y
+				pha
+				iny
+				lda (ZPMemMgrSPtr),y
+				ply						YA = Len
+
+				jmp MEM.CopyToMain
+
+.10				sta ENVX.hEnv
 
 				jsr ENVX.FindVar
 				bcs .9

SYS/KERNEL.S.MEM.txt

@@ -553,7 +553,8 @@ MEM.MoveToMain	sec
 				stx .2+1				Save AUX hMem
 				>STYA A2L				Save LEN to copy/move
 
-				jsr K.GetMem
+				ldx #SYS.GetMem
+				jsr K.SYSCALL2.MAIN
 				bcs .9
 
 				stx .8+1				Save MAIN hMem

SYS/KERNEL.S.TERM.txt

@@ -21,66 +21,39 @@ DRV.TERM.STATUS.LC
 				
 				ldy #S.IOCTL.STATCODE
 				lda (ZPIOCTL),y
-				
+				bra DRV.TERM.TOAUX
-				sta SETREADAUX
-				sta SETWRITEAUX
-				jsr DRV.TERM.STATUS
-				sta CLRREADAUX
-				sta CLRWRITEAUX
-				rts
 
 DRV.TERM.CONTROL.LC
-				jsr DRV.TERM.GetDCB
-				
-				sta SETREADAUX
-				sta SETWRITEAUX
-				jsr DRV.TERM.CONTROL
-				sta CLRREADAUX
-				sta CLRWRITEAUX
-				rts
-				
 DRV.TERM.OPEN.LC
-				tax						DEV.ID in A
-
-				jsr DRV.TERM.GetDCB
-				
-				sta SETREADAUX
-				sta SETWRITEAUX
-				jsr DRV.TERM.OPEN
-				sta CLRREADAUX
-				sta CLRWRITEAUX
-				rts
-				
 DRV.TERM.CLOSE.LC
+				pha						DEV.ID in A for OPEN
 				jsr DRV.TERM.GetDCB
-
+				pla
-				sta SETREADAUX
+				bra DRV.TERM.TOAUX
-				sta SETWRITEAUX
-				jsr DRV.TERM.CLOSE
-				sta CLRREADAUX
-				sta CLRWRITEAUX
-				rts
 				
 DRV.TERM.READ.LC
-				jsr DRV.TERM.GetIOCTLBufCntDCB
-				
-				sta SETREADAUX
-				sta SETWRITEAUX
-				jsr DRV.TERM.READ
-				sta CLRREADAUX
-				sta CLRWRITEAUX
-				rts
-				
 DRV.TERM.WRITE.LC
 				jsr DRV.TERM.GetIOCTLBufCntDCB
-
+*--------------------------------------
-				sta SETREADAUX
+DRV.TERM.TOAUX	sta SETREADAUX
 				sta SETWRITEAUX
-				jsr DRV.TERM.WRITE
+				jsr .1
 				sta CLRREADAUX
 				sta CLRWRITEAUX
 				rts
 				
+.1				jmp (.2,x)
+
+.2				.DA DRV.TERM.STATUS
+				.DA A2osX.BADCALL
+				.DA A2osX.BADCALL
+				.DA A2osX.BADCALL
+				.DA DRV.TERM.CONTROL
+				.DA A2osX.BADCALL
+				.DA DRV.TERM.OPEN
+				.DA DRV.TERM.CLOSE
+				.DA DRV.TERM.READ
+				.DA DRV.TERM.WRITE
 *--------------------------------------
 DRV.TERM.GetIOCTLBufCntDCB
 				>STYA ZPIOCTL

SYS/KERNEL.S.TERMX.txt

@@ -83,7 +83,8 @@ DRV.TERM.OPEN.E	lda #MLI.E.OPEN
 				sec
 				rts
 *--------------------------------------
-DRV.TERM.OPEN	jsr DRV.TERM.ISOPENED
+DRV.TERM.OPEN	tax
+				jsr DRV.TERM.ISOPENED
 				bne DRV.TERM.OPEN.E
 
 DRV.TERM.OPEN.1	txa