This commit is contained in:
Joshua Bell 2018-02-04 10:53:53 -08:00
parent 0bc3ecdbb6
commit 03533a2194

View File

@ -759,6 +759,8 @@ L943E: ldx L8E95
;;; DESKTOP $02 IMPL ;;; DESKTOP $02 IMPL
;; Hilight icon
.proc L9454 .proc L9454
ldx L8E95 ldx L8E95
beq L9466 beq L9466
@ -822,6 +824,8 @@ L949D: ldx L9016
;;; DESKTOP $03 IMPL ;;; DESKTOP $03 IMPL
;; Unhilight icon
.proc L94C0 .proc L94C0
ldx L8E95 ldx L8E95
beq L94D2 beq L94D2
@ -1997,13 +2001,14 @@ L9EB4: asl a
.byte 0 .byte 0
L9EC2: .byte 0 L9EC2: .byte 0
L9EC3: lda L9015 L9EC3: lda L9015
bne L9ECB bne :+
lda #$01 lda #$01
rts rts
L9ECB: ldx L9016 : ldx L9016
ldy #$00 ldy #0
lda ($06),y lda ($06),y
jsr LA324 jsr LA324
ldx L9016 ldx L9016
@ -2014,7 +2019,7 @@ L9ECB: ldx L9016
bne L9EEA bne L9EEA
lda #$00 lda #$00
sta L9015 sta L9015
L9EEA: ldy #$00 L9EEA: ldy #0
lda ($06),y lda ($06),y
sta L9EC2 sta L9EC2
DESKTOP_DIRECT_CALL $3, L9EC2 DESKTOP_DIRECT_CALL $3, L9EC2
@ -2040,6 +2045,7 @@ L9F03: .byte 0
L9F04: .byte 0 L9F04: .byte 0
L9F05: .byte 0 L9F05: .byte 0
L9F06: .byte 0 L9F06: .byte 0
L9F07: ldy #$00 L9F07: ldy #$00
lda ($06),y lda ($06),y
sta L9EFE sta L9EFE
@ -2056,9 +2062,9 @@ L9F10: lda ($06),y
lda L8F15+1,x lda L8F15+1,x
sta $07 sta $07
jsr LA18A jsr LA18A
lda poly::vertices+2 lda poly::v0::ycoord
cmp L9F05 cmp L9F05
lda poly::vertices+3 lda poly::v0::ycoord+1
sbc L9F06 sbc L9F06
bpl L9F8C bpl L9F8C
lda poly::v5::ycoord lda poly::v5::ycoord
@ -2097,12 +2103,15 @@ L9F8C: lda #$00
L9F8F: lda #$01 L9F8F: lda #$01
rts rts
;;; ==================================================
L9F92: .byte 0 L9F92: .byte 0
L9F93: .byte 0 L9F93: .byte 0
L9F94: .byte 0 L9F94: .byte 0
.byte 0 .byte 0
.byte 0 .byte 0
.byte 0 .byte 0
L9F98: lda #$00 L9F98: lda #$00
sta L9F92 sta L9F92
beq L9FA4 beq L9FA4
@ -2141,19 +2150,19 @@ L9FE4: lda ($06),y
iny iny
cpy #$1D cpy #$1D
bne L9FE4 bne L9FE4
L9FEE: lda drawtext_params::textlen : lda drawtext_params::textlen
sta textwidth_params::textlen sta textwidth_params::textlen
MGTK_CALL MGTK::TextWidth, textwidth_params MGTK_CALL MGTK::TextWidth, textwidth_params
lda textwidth_params::result lda textwidth_params::result
cmp paintbits_params2::maprect::x2 cmp paintbits_params2::maprect::x2
bcs LA010 bcs :+
inc drawtext_params::textlen inc drawtext_params::textlen
ldx drawtext_params::textlen ldx drawtext_params::textlen
lda #' ' lda #' '
sta text_buffer-1,x sta text_buffer-1,x
jmp L9FEE jmp :-
LA010: lsr a : lsr a
sta moveto_params2::xcoord+1 sta moveto_params2::xcoord+1
lda paintbits_params2::maprect::x2 lda paintbits_params2::maprect::x2
lsr a lsr a
@ -2301,11 +2310,11 @@ LA191: lda ($06),y
dey dey
dex dex
bpl LA191 bpl LA191
lda poly::vertices+2 lda poly::v0::ycoord
sta poly::v1::ycoord sta poly::v1::ycoord
lda poly::vertices+3 lda poly::v0::ycoord+1
sta poly::v1::ycoord+1 sta poly::v1::ycoord+1
lda poly::vertices lda poly::v0::xcoord
sta poly::v7::xcoord sta poly::v7::xcoord
lda poly::v0::xcoord+1 lda poly::v0::xcoord+1
sta poly::v7::xcoord+1 sta poly::v7::xcoord+1
@ -2318,7 +2327,7 @@ LA191: lda ($06),y
ldy #$08 ldy #$08
lda ($08),y lda ($08),y
clc clc
adc poly::vertices adc poly::v0::xcoord
sta poly::v1::xcoord sta poly::v1::xcoord
sta poly::v2::xcoord sta poly::v2::xcoord
iny iny
@ -2329,11 +2338,11 @@ LA191: lda ($06),y
ldy #$0A ldy #$0A
lda ($08),y lda ($08),y
clc clc
adc poly::vertices+2 adc poly::v0::ycoord
sta poly::v2::ycoord sta poly::v2::ycoord
iny iny
lda ($08),y lda ($08),y
adc poly::vertices+3 adc poly::v0::ycoord+1
sta poly::v2::ycoord+1 sta poly::v2::ycoord+1
lda poly::v2::ycoord lda poly::v2::ycoord
clc clc
@ -2875,7 +2884,7 @@ LA63F: jsr LA18A
sta LA629 sta LA629
sta setportbits_params2::cliprect_y1 sta setportbits_params2::cliprect_y1
sta setportbits_params2::top sta setportbits_params2::top
lda poly::vertices+3 lda poly::v0::ycoord+1
sta LA62A sta LA62A
sta setportbits_params2::cliprect_y1+1 sta setportbits_params2::cliprect_y1+1
sta setportbits_params2::top+1 sta setportbits_params2::top+1