mirror of
https://github.com/A2osX/A2osX.git
synced 2024-10-01 07:56:43 +00:00
96 lines
1.3 KiB
Plaintext
96 lines
1.3 KiB
Plaintext
|
NEW
|
|||
|
AUTO 3,1
|
|||
|
*--------------------------------------
|
|||
|
MBAR.Init >STYA ZPMENUPtr
|
|||
|
>STYA ZPPtr1
|
|||
|
|
|||
|
ldy #S.MBITEM.S
|
|||
|
lda (ZPPtr1),y
|
|||
|
bmi .80
|
|||
|
|
|||
|
stz DX
|
|||
|
stz DX+1
|
|||
|
|
|||
|
.1 lda (ZPPtr1)
|
|||
|
beq .8
|
|||
|
|
|||
|
lda #S.MBITEM.TEXT
|
|||
|
clc
|
|||
|
adc ZPPtr1
|
|||
|
tay
|
|||
|
lda ZPPtr1+1
|
|||
|
adc #0
|
|||
|
|
|||
|
ldx hSYSFONB
|
|||
|
jsr FON.GetTextSize
|
|||
|
|
|||
|
ldy #S.MBITEM.X1
|
|||
|
|
|||
|
lda DX
|
|||
|
sta (ZPPtr1),y
|
|||
|
|
|||
|
iny
|
|||
|
|
|||
|
lda DX+1
|
|||
|
sta (ZPPtr1),y
|
|||
|
|
|||
|
iny #S.MBITEM.XT
|
|||
|
|
|||
|
lda DX
|
|||
|
clc
|
|||
|
adc PREFS.MBARXMARGIN
|
|||
|
sta DX
|
|||
|
sta (ZPPtr1),y
|
|||
|
|
|||
|
iny
|
|||
|
|
|||
|
lda DX+1
|
|||
|
adc #0
|
|||
|
sta DX+1
|
|||
|
sta (ZPPtr1),y
|
|||
|
|
|||
|
lda DX
|
|||
|
clc
|
|||
|
adc CB.CACHE+S.CB.SrcW
|
|||
|
sta DX
|
|||
|
|
|||
|
lda DX+1
|
|||
|
adc CB.CACHE+S.CB.SrcW+1
|
|||
|
sta DX+1
|
|||
|
|
|||
|
iny #S.MBITEM.X2
|
|||
|
|
|||
|
lda DX
|
|||
|
clc
|
|||
|
adc PREFS.MBARXMARGIN
|
|||
|
sta DX
|
|||
|
sta (ZPPtr1),y
|
|||
|
|
|||
|
iny
|
|||
|
|
|||
|
lda DX+1
|
|||
|
adc #0
|
|||
|
sta DX+1
|
|||
|
sta (ZPPtr1),y
|
|||
|
|
|||
|
lda (ZPPtr1)
|
|||
|
clc
|
|||
|
adc ZPPtr1
|
|||
|
sta ZPPtr1
|
|||
|
bcc .1
|
|||
|
inc ZPPtr1+1
|
|||
|
bra .1
|
|||
|
|
|||
|
.8 lda #$80
|
|||
|
|
|||
|
ldy #S.MBITEM.S
|
|||
|
sta (ZPMENUPtr),y
|
|||
|
|
|||
|
.80 clc
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
MAN
|
|||
|
SAVE usr/src/lib/libgui.s.mbar
|
|||
|
LOAD usr/src/lib/libgui.s
|
|||
|
ASM
|