mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-26 09:29:30 +00:00
Kernel 0.93+
This commit is contained in:
parent
3e7d70ffe6
commit
85102b35d7
Binary file not shown.
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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"
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue
Block a user