Kernel 0.93+

This commit is contained in:
Rémy GIBERT 2019-12-12 08:09:44 +01:00
parent 3e7d70ffe6
commit 85102b35d7
5 changed files with 20 additions and 8 deletions

Binary file not shown.

View File

@ -83,12 +83,12 @@ DLG.Open >STYA ZPPTR2
ldy #S.DLG.Status
jsr DLG.DrawBar
bcs .9
ldy #S.DLG.Ctrls
.5 lda (ZPPTR1),y
beq .8
phy
tya
jsr DLG.CTRL.Draw
@ -204,7 +204,7 @@ DLG.CTRL.Draw sta TmpByte A=CtrlID
jmp (J.DLG.CTRL.Draw,x)
*--------------------------------------
DLG.CTRL.Draw.LBL
jsr SCRN.LineBufInitDlg
jsr SCRN.LineBufInitLbl
jsr DLG.CTRL.GotoOrg
bcs .9
@ -224,7 +224,9 @@ DLG.CTRL.Draw.LBL
iny
bra .1
.8 jmp SCRN.LineBufOut
.8 jsr SCRN.LineBufOut
* >DEBUG
.9 rts
*--------------------------------------
DLG.CTRL.Draw.TB
@ -296,7 +298,7 @@ DLG.CTRL.Draw.TB
*--------------------------------------
DLG.CTRL.Draw.OL
jsr SCRN.LineBufInitDlg
jsr DLG.CTRL.GotoOrg
bcs .9
@ -380,6 +382,7 @@ DLG.CTRL.Focus sta TmpByte A=CtrlID
tay
lda (ZPPTR1),y Ctrl Type
tax
jmp (J.DLG.CTRL.Focus,x)
*--------------------------------------
DLG.CTRL.Focus.LBL

View File

@ -545,6 +545,10 @@ SCRN.LineBufInitDlg
phx
ldx #SEQ.DLG-SEQS
bra SCRN.LineBufInit
SCRN.LineBufInitLBL
phx
ldx #SEQ.DLG.LBL-SEQS
bra SCRN.LineBufInit
SCRN.LineBufInitTB
phx
ldx #SEQ.DLG.TB-SEQS

View File

@ -413,8 +413,9 @@ SEQ.DLG .AS "\e[30;46m"
SEQ.DLG.RIGHT .AS "\e[37;40m"
.DA #C.SO,#'x',#C.SI
.DA #0
SEQ.DLG.BUT .AZ "\e[7m\e[93;44m"
SEQ.DLG.LBL .AZ "\e[0m\e[30;46m"
SEQ.DLG.TB .AZ "\e[0m\e[93;44m"
SEQ.DLG.BUT .AZ "\e[7m\e[93;44m"
SEQ.INV .AZ "\e[7m"
SEQ.EDIT .AS "\e[0m\e[93;44m" +CEOL
SEQ.CEOL .AZ "\e[K"

View File

@ -15,9 +15,13 @@ CMD.. lda (ZPArgVBufPtr)
lda #$C0+C..
jmp CORE.StkPush
.9 jmp CMD.E.CSYN
.9
CMD...9 jmp CMD.E.CSYN
*--------------------------------------
CMD.NOHUP lda #S.PS.F.NOHUP
CMD.NOHUP lda (ZPArgVBufPtr)
beq CMD...9
lda #S.PS.F.NOHUP
tsb CORE.PSFlags
>LDYA ZPArgVBuf
jmp CORE.ExecExtCmd