Kernel 0.93+

This commit is contained in:
Rémy GIBERT 2019-12-13 17:06:23 +01:00
parent 890eba262b
commit ce645607b9
3 changed files with 11 additions and 6 deletions

Binary file not shown.

View File

@ -224,8 +224,7 @@ DLG.CTRL.Draw.LBL
iny
bra .1
.8 jsr SCRN.LineBufOut
* >DEBUG
.8 jmp SCRN.LineBufOut
.9 rts
*--------------------------------------
@ -297,7 +296,7 @@ DLG.CTRL.Draw.TB
.9 rts
*--------------------------------------
DLG.CTRL.Draw.OL
jsr SCRN.LineBufInitDlg
jsr SCRN.LineBufInitLbl
jsr DLG.CTRL.GotoOrg
bcs .9
@ -340,7 +339,9 @@ DLG.CTRL.Draw.OL
.4 lda #C.SPACE
jsr SCRN.ToLineBuf
.8 jmp SCRN.LineBufOut
.8 jsr SCRN.LineBufOut
* >DEBUG
.9 rts
*--------------------------------------
DLG.CTRL.Draw.BUT
@ -461,7 +462,7 @@ DLG.CTRL.Focus.TB
jmp SCRN.GotoXY
DLG.CTRL.Focus.OL
jsr SCRN.LineBufInitNorm
jsr SCRN.LineBufInitLbl
jsr DLG.CTRL.GotoOrg
@ -489,6 +490,9 @@ DLG.CTRL.Focus.OL
lda #']'
.4 jsr SCRN.ToLineBuf
lda #C.BS
jsr SCRN.ToLineBuf
jsr SCRN.ToLineBuf
jmp SCRN.LineBufOut
DLG.CTRL.Focus.BUT
@ -638,6 +642,7 @@ DLG.CTRL.GetWitdh.TB
iny
iny
lda (ZPPTR1),y
inc
rts
DLG.CTRL.GetWitdh.OL

View File

@ -605,7 +605,7 @@ SCRN.LineBufSprintf
.9 rts
*--------------------------------------
SCRN.LineBufOut lda #0
jsr SCRN.ToLineBuf
sta (LineBufPtr)
>PUSHBI 0
>LDYA.G LineBufBase