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

View File

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

View File

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

View File

@ -15,9 +15,13 @@ CMD.. lda (ZPArgVBufPtr)
lda #$C0+C.. lda #$C0+C..
jmp CORE.StkPush 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 tsb CORE.PSFlags
>LDYA ZPArgVBuf >LDYA ZPArgVBuf
jmp CORE.ExecExtCmd jmp CORE.ExecExtCmd