Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-01-25 12:30:06 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.93+

Browse Source
This commit is contained in:
Rémy GIBERT 2019-11-22 15:05:37 +01:00
parent c5a6a86afc
commit fef666df2c
4 changed files with 69 additions and 7 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.

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

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

20
BIN/EDIT.S.txt
View File

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

1
SYS/KERNEL.S.STDIO.txt
View File

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