EDIT:Fixed Save DLG, now can be used to convert file TXT <-> ASM

BIN/EDIT.S.DLG.txt

@@ -84,25 +84,8 @@ DLG.Open		>STYA ZPPTR2
 				jsr DLG.DrawBar
 				bcs .9
 
-				ldy #S.DLG.Ctrls
-				
-.5				lda (ZPPTR1),y
-				beq .8
-	
-				phy
-				tya
-				jsr DLG.CTRL.Draw
-				ply
-				bcs .9
+				jmp DLG.CTRL.DrawAll
 
-				iny
-				bra .5
-
-.8				ldy #S.DLG.Focus
-				lda (ZPPTR1),y
-				jsr DLG.CTRL.Focus
-				
-				clc				
 .9				rts				
 *--------------------------------------
 DLG.Run			jsr GetCh
@@ -192,6 +175,27 @@ DLG.Close		ldy #S.DLG.Y
 				clc
 .9				rts				
 *--------------------------------------
+DLG.CTRL.DrawAll
+				ldy #S.DLG.Ctrls
+				
+.5				lda (ZPPTR1),y
+				beq .8
+	
+				phy
+				tya
+				jsr DLG.CTRL.Draw
+				ply
+				bcs .9
+
+				iny
+				bra .5
+
+.8				ldy #S.DLG.Focus
+				lda (ZPPTR1),y
+				jmp DLG.CTRL.Focus
+				
+.9				rts
+*--------------------------------------
 DLG.CTRL.Draw	sta TmpByte				A=CtrlID
 				tay
 				lda (ZPPTR1),y			Ctrl Definition
@@ -574,8 +578,7 @@ DLG.CTRL.GotoEnd
 				
 				tay
 				
-DLG.CTRL.GotoXY
-				>PUSHW LineBufPtr
+DLG.CTRL.GotoXY	>PUSHW LineBufPtr
 				>PUSHW L.MSG.GOTOXY
 				tya
 				inc
@@ -780,8 +783,6 @@ DLG.CTRL.CharIn.OL
 				cmp #C.SPACE
 				bne .8
 
-				phy
-				
 				iny						X
 				iny						Y
 				iny						shortcut
@@ -797,8 +798,7 @@ DLG.CTRL.CharIn.OL
 				ply
 				sta (pData),y
 				
-				pla
-				jsr DLG.CTRL.Draw
+				jmp DLG.CTRL.DrawAll
 				
 .8				clc
 				rts