Kernel 0.93+

BIN/EDIT.S.DLG.txt

@@ -137,17 +137,40 @@ DLG.SetFocus
 DLG.Close		ldy #S.DLG.H
 				lda (ZPPTR1),y
 				
-				tax
+				sta TmpCount
 				
 				ldy #S.DLG.Y
 				lda (ZPPTR1),y
 				
+				sta TmpIndex
 				
-				
+				>LDA.G ScreenY
 				clc
+				ldy #S.DLG.Y
+				adc (ZPPTR1),y
+				sta TmpIndex
+				
+				>LDA.G ScreenY+1
+				adc #0
+				sta TmpIndex+1
+				
+.1				lda TmpIndex
+				ldx TmpIndex+1
+				jsr BUF.GetLineAX
+				bcs .8
+				
+				lda TmpIndex
+				jsr SCRN.UpdateLineAtALenY
+				
+				inc TmpIndex
+				dec TmpCount
+				bne .1
+				
+.8				clc
 				rts
 *--------------------------------------
-DLG.DrawCtrls.L	jsr DLG.DrawCtrls.GotoXY
+DLG.DrawCtrls.LBL
+				jsr DLG.DrawCtrls.GotoXY
 				bcs .9
 				
 				ldy TmpByte				CtrlID
@@ -279,6 +302,32 @@ DLG.DrawCtrls.OL
 				lda (ZPPTR1),y
 				bne .1
 				
+.8				jmp SCRN.LineBufOut
+.9				rts
+*--------------------------------------
+DLG.DrawCtrls.BUT
+				jsr SCRN.LineBufInitInv
+
+				jsr DLG.DrawCtrls.GotoXY
+				bcs .9
+				
+				ldy TmpByte				CtrlID
+				lda (ZPPTR1),y
+				tay
+				
+				iny
+				iny
+				iny
+				
+				iny
+
+.1				lda (ZPPTR1),y
+				beq .8
+				
+				jsr SCRN.ToLineBuf
+				iny
+				bra .1
+				
 .8				jmp SCRN.LineBufOut
 .9				rts
 *--------------------------------------

BIN/EDIT.S.txt

@@ -134,9 +134,10 @@ J.CTRL			.DA Ctrl.Invalid
 				.DA Ctrl.Invalid
 				.DA Ctrl.Invalid
 L.DLG.SAVE		.DA DLG.SAVE
-J.DLG.DrawCtrls	.DA DLG.DrawCtrls.L
+J.DLG.DrawCtrls	.DA DLG.DrawCtrls.LBL
 				.DA DLG.DrawCtrls.TB
 				.DA DLG.DrawCtrls.OL
+				.DA DLG.DrawCtrls.BUT
 				.DA 0
 *--------------------------------------
 CS.INIT			clc
@@ -434,12 +435,13 @@ S.DLG.Ctrls		.EQ 8
 S.DLG.Ctrl.LBL		.EQ 0
 S.DLG.Ctrl.TB		.EQ 2
 S.DLG.Ctrl.OL		.EQ 4
+S.DLG.Ctrl.BUT		.EQ 6
 *--------------------------------------
 DLG.SAVE		.DA #DLG.SAVE.LEN		Size
 				.DA #0					X
 				.DA #0					Y
 				.DA #70					W
-				.DA #8					H
+				.DA #11					H
 				.DA #DLG.SAVE.T-DLG.SAVE	Title
 				.DA #DLG.SAVE.S-DLG.SAVE	Status
 
@@ -448,6 +450,8 @@ DLG.SAVE		.DA #DLG.SAVE.LEN		Size
 				.DA #DLG.SAVE.2-DLG.SAVE
 				.DA #DLG.SAVE.3-DLG.SAVE
 				.DA #DLG.SAVE.4-DLG.SAVE
+				.DA #DLG.SAVE.5-DLG.SAVE
+				.DA #DLG.SAVE.6-DLG.SAVE
 				.DA #0
 
 DLG.SAVE.1		.DA #S.DLG.Ctrl.LBL,#2,#2
@@ -456,10 +460,10 @@ DLG.SAVE.1		.DA #S.DLG.Ctrl.LBL,#2,#2
 DLG.SAVE.2		.DA #S.DLG.Ctrl.TB,#2,#3
 				.DA #0,#64,#hFileName	CURPOS,MAXCHAR,hMem
 				
-DLG.SAVE.3		.DA #S.DLG.Ctrl.LBL,#2,#4
+DLG.SAVE.3		.DA #S.DLG.Ctrl.LBL,#2,#5
 				.AZ "Filetype :"
 				
-DLG.SAVE.4		.DA #S.DLG.Ctrl.OL,#2,#5
+DLG.SAVE.4		.DA #S.DLG.Ctrl.OL,#2,#6
 				.DA #20					Ctrl-T
 				.DA #0					Value
 				.AZ "TXT/CR"
@@ -467,6 +471,14 @@ DLG.SAVE.4		.DA #S.DLG.Ctrl.OL,#2,#5
 				.AZ "S-C/ASM"
 				.DA #0
 				
+DLG.SAVE.5		.DA #S.DLG.Ctrl.BUT,#40,#8
+				.DA #C.CR
+				.AZ "  Save  "
+
+DLG.SAVE.6		.DA #S.DLG.Ctrl.BUT,#50,#8
+				.DA #3					Ctrl-C
+				.AZ " Cancel "				
+				
 DLG.SAVE.T		.AZ "Save As..."		Title
 DLG.SAVE.S		.AZ "CR:Save, Ctrl-T:Change Type, Ctrl-C:Cancel"
 DLG.SAVE.LEN	.EQ *-DLG.SAVE

SYS/KERNEL.S.STDIO.txt

@@ -330,6 +330,7 @@ K.PrintF.1		stz PrintF.Cnt
 				jsr SHARED.AddYToPtr2
 .14				lda ACC32
 				bra .20
+				
 .19				lda	PrintFTBL2.OUT,x
 
 .20				jsr	PrintF.COut