Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-01-16 13:31:26 +00:00
Code Issues Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
burniouf 2021-07-11 12:10:06 +02:00
parent 422da82da1
commit 82546dfd9b
2 changed files with 24 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

48
BIN/EDIT.S.DLG.txt
View File

@ -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