Apple-2-SW
/
A2osX
mirror of https://github.com/A2osX/A2osX.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Kernel 0.93+

This commit is contained in:
Rémy GIBERT 2019-11-21 16:59:09 +01:00
parent 09aff03dc7
commit cf54cc26b4
4 changed files with 128 additions and 15 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.

2
BIN/EDIT.S.CTRL.txt
View File

@ -437,6 +437,8 @@ Ctrl.Q lda #$FF
*--------------------------------------
Ctrl.S >LDYA L.DLG.SAVE
jsr DLG.Open
jsr DLG.Run
jsr DLG.Close
clc
rts

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

@ -110,6 +110,43 @@ DLG.Open >STYA ZPPTR2
>STYA LineBufPtr
jmp (J.DLG.DrawCtrls,x)
*--------------------------------------
DLG.Run >SYSCALL getchar
bcs .9
cmp #3
beq .8
cmp #C.CR
beq .8
cmp #C.TAB
beq DLG.NextFocus
bra DLG.Run
.8 clc
.9 rts
*--------------------------------------
DLG.NextFocus
*--------------------------------------
DLG.SetFocus
clc
rts
*--------------------------------------
DLG.Close ldy #S.DLG.H
lda (ZPPTR1),y
tax
ldy #S.DLG.Y
lda (ZPPTR1),y
clc
rts
*--------------------------------------
DLG.DrawCtrls.L jsr DLG.DrawCtrls.GotoXY
bcs .9
@ -142,7 +179,9 @@ DLG.DrawCtrls.TB
iny
iny
iny
iny
iny
lda (ZPPTR1),y
@ -152,21 +191,96 @@ DLG.DrawCtrls.TB
>SYSCALL getmemptr
>STYA ZPPTR2
lda #"["
jsr SCRN.ToLineBuf
ldy #0
.1 lda (ZPPTR2),y
beq .8
beq .2
jsr SCRN.ToLineBuf
iny
bra .1
.8 jmp SCRN.LineBufOut
.2 tya
tax
ldy TmpByte
lda (ZPPTR1),y
tay
iny
iny
iny
iny
.3 txa
cmp (ZPPTR1),y MAXCHAR
beq .8
lda #C.SPACE
jsr SCRN.ToLineBuf
inx
bra .3
.8 lda #"]"
jsr SCRN.ToLineBuf
jmp SCRN.LineBufOut
.9 rts
*--------------------------------------
DLG.DrawCtrls.OL
clc
rts
jsr DLG.DrawCtrls.GotoXY
bcs .9
ldy TmpByte
lda (ZPPTR1),y
tay
iny
iny
iny
iny
lda (ZPPTR1),y value
sta TmpCount
iny
ldx #0
.1 lda #"("
jsr SCRN.ToLineBuf
lda #"o"
cpx TmpCount
beq .2
lda #C.SPACE
.2 jsr SCRN.ToLineBuf
lda #")"
jsr SCRN.ToLineBuf
lda #C.SPACE
jsr SCRN.ToLineBuf
.3 lda (ZPPTR1),y
beq .4
jsr SCRN.ToLineBuf
iny
bra .3
.4 lda #C.SPACE
jsr SCRN.ToLineBuf
inx
iny
lda (ZPPTR1),y
bne .1
.8 jmp SCRN.LineBufOut
.9 rts
*--------------------------------------
DLG.DrawCtrls.GotoXY
ldy TmpByte CtrlID

19
BIN/EDIT.S.txt
View File

@ -450,28 +450,25 @@ DLG.SAVE .DA #DLG.SAVE.LEN Size
.DA #DLG.SAVE.4-DLG.SAVE
.DA #0
DLG.SAVE.1 .DA #S.DLG.Ctrl.LBL,#3,#2
DLG.SAVE.1 .DA #S.DLG.Ctrl.LBL,#2,#2
.AZ "Filename :"
DLG.SAVE.2 .DA #S.DLG.Ctrl.TB,#4,#3
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,#3,#4
DLG.SAVE.3 .DA #S.DLG.Ctrl.LBL,#2,#4
.AZ "Filetype :"
DLG.SAVE.4 .DA #S.DLG.Ctrl.OL,#3,#5
DLG.SAVE.4 .DA #S.DLG.Ctrl.OL,#2,#5
.DA #20 Ctrl-T
.DA #0 Value
.DA #3 Count
.DA #DLG.SAVE.OL.CR
.DA #DLG.SAVE.OL.LF
.DA #DLG.SAVE.OL.ASM
.AZ "TXT/CR"
.AZ "TXT/CRLF"
.AZ "S-C/ASM"
.DA #0
DLG.SAVE.T .AZ "Save As..." Title
DLG.SAVE.S .AZ "CR:Save, Ctrl-T:Change Type, Ctrl-C:Cancel"
DLG.SAVE.OL.CR .AZ "TXT/CR"
DLG.SAVE.OL.LF .AZ "TXT/CRLF"
DLG.SAVE.OL.ASM .AZ "S-C/ASM"
DLG.SAVE.LEN .EQ *-DLG.SAVE
*--------------------------------------
.DUMMY