Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-07 01:29:33 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.93+

Browse Source
This commit is contained in:
Rémy GIBERT 2019-11-21 08:01:46 +01:00
parent 7d37e7cfad
commit 09aff03dc7
3 changed files with 15 additions and 16 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.

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

@ -91,18 +91,16 @@ DLG.Open >STYA ZPPTR2
.5 lda (ZPPTR1),y
beq .8
tay
lda (ZPPTR1),y Ctrl Type
tax
>DEBUG
jsr .6
bcs .9
inc TmpByte
ldy TmpByte
iny
bra .5
.8 clc
@ -119,11 +117,9 @@ DLG.DrawCtrls.L jsr DLG.DrawCtrls.GotoXY
lda (ZPPTR1),y
tay
lda (ZPPTR1),y
inc
inc
inc
tay
iny
iny
iny
.1 lda (ZPPTR1),y
beq .8
@ -141,14 +137,16 @@ DLG.DrawCtrls.TB
ldy TmpByte
lda (ZPPTR1),y
inc
inc
inc
inc
inc
tay
iny
iny
iny
iny
iny
lda (ZPPTR1),y
tay
lda (pData),y
>SYSCALL getmemptr
@ -156,7 +154,7 @@ DLG.DrawCtrls.TB
ldy #0
.1 lda (TmpLen),y
.1 lda (ZPPTR2),y
beq .8
jsr SCRN.ToLineBuf
@ -269,6 +267,7 @@ DLG.VBarToLineBuf
lda #'x'
jsr SCRN.ToLineBuf
lda #C.SI
jmp SCRN.ToLineBuf
*--------------------------------------
MAN
SAVE USR/SRC/BIN/EDIT.S.DLG

2
BIN/EDIT.S.txt
View File

@ -453,7 +453,7 @@ DLG.SAVE .DA #DLG.SAVE.LEN Size
DLG.SAVE.1 .DA #S.DLG.Ctrl.LBL,#3,#2
.AZ "Filename :"
DLG.SAVE.2 .DA #S.DLG.Ctrl.TB,4,#3,#3
DLG.SAVE.2 .DA #S.DLG.Ctrl.TB,#4,#3
.DA #0,#64,#hFileName CURPOS,MAXCHAR,hMem
DLG.SAVE.3 .DA #S.DLG.Ctrl.LBL,#3,#4