Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-12-01 05:50:24 +00:00
Code Issues Projects Releases Wiki Activity

ids

Browse Source
This commit is contained in:
Joshua Bell 2018-02-06 15:42:18 -08:00
parent c178c4763f
commit 4b0669bf25
1 changed files with 33 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

65
desktop/desktop.s
View File

@ -5357,19 +5357,19 @@ str_k_available:
str_6_spaces: str_6_spaces:
PASCAL_STRING " " PASCAL_STRING " "
LEBE3: .byte $00,$00,$00,$00 point10: DEFINE_POINT 0, 0, point10
LEBE7: .byte $00,$00,$00,$00 point11: DEFINE_POINT 0, 0, point11
point2: DEFINE_POINT 0, 0, point2 point2: DEFINE_POINT 0, 0, point2
point3: DEFINE_POINT 0, 0, point3 point3: DEFINE_POINT 0, 0, point3
LEBF3: .byte $00,$00,$00,$00 point12: DEFINE_POINT 0, 0, point12
LEBF7: .byte $00,$00,$00,$00 point13: DEFINE_POINT 0, 0, point13
LEBFB: .byte 0 LEBFB: .byte 0
LEBFC: .byte 0 ; flag of some sort ??? LEBFC: .byte 0 ; flag of some sort ???
.byte $00,$00,$00,$00 point14: DEFINE_POINT 0, 0
;; Used by DESKTOP_COPY_*_BUF ;; Used by DESKTOP_COPY_*_BUF
table1: .addr $1B00,$1B80,$1C00,$1C80,$1D00,$1D80,$1E00,$1E80,$1F00 table1: .addr $1B00,$1B80,$1C00,$1C80,$1D00,$1D80,$1E00,$1E80,$1F00
@ -9070,7 +9070,7 @@ L5B1B: .byte 0
lda win_buf_table,x lda win_buf_table,x
sta L5B1B sta L5B1B
ldx #$03 ldx #$03
L5B31: lda $EBFD,x L5B31: lda point14,x
sta event_params_coords,x sta event_params_coords,x
dex dex
bpl L5B31 bpl L5B31
@ -12017,28 +12017,28 @@ L79A7: jsr L79F7
rts rts
L79F7: sub16 grafport2::cliprect::x2, grafport2::cliprect::x1, L7ADE L79F7: sub16 grafport2::cliprect::x2, grafport2::cliprect::x1, L7ADE
sub16 L7ADE, LEBF3, L7ADE sub16 L7ADE, point12::xcoord, L7ADE
bpl L7A22 bpl L7A22
jmp L7A86 jmp L7A86
L7A22: sub16 L7ADE, $EBF9, L7ADE L7A22: sub16 L7ADE, point13::ycoord, L7ADE
bpl L7A3A bpl L7A3A
jmp L7A86 jmp L7A86
L7A3A: add16 LEBE7, L7ADE, point3::xcoord L7A3A: add16 point11::xcoord, L7ADE, point3::xcoord
lda L7ADF lda L7ADE+1
beq L7A59 beq L7A59
lda L7ADE lda L7ADE
cmp #$18 cmp #$18
bcc L7A6A bcc L7A6A
L7A59: sub16 point3::xcoord, #$0C, point3::xcoord L7A59: sub16 point3::xcoord, #$0C, point3::xcoord
L7A6A: lsr L7ADF L7A6A: lsr L7ADE+1
ror L7ADE ror L7ADE
add16 LEBE3, L7ADE, point2::xcoord add16 point10::xcoord, L7ADE, point2::xcoord
jmp L7A9E jmp L7A9E
L7A86: copy16 LEBE3, point2::xcoord L7A86: copy16 point10::xcoord, point2::xcoord
copy16 LEBE7, point3::xcoord copy16 point11::xcoord, point3::xcoord
L7A9E: lda point2::xcoord L7A9E: lda point2::xcoord
clc clc
adc grafport2::cliprect::x1 adc grafport2::cliprect::x1
@ -12063,15 +12063,16 @@ L7A9E: lda point2::xcoord
L7AD7: addr_jump draw_text2, str_6_spaces L7AD7: addr_jump draw_text2, str_6_spaces
L7ADE: .byte 0 L7ADE: .word 0
L7ADF: .byte 0
L7AE0: stax L7B5B L7AE0: stax L7B5B
ldx #$06 ldx #6
lda #$20 lda #' '
L7AEA: sta str_6_spaces,x : sta str_6_spaces,x
dex dex
bne L7AEA bne :-
lda #$00
lda #0
sta L7B5E sta L7B5E
ldy #$00 ldy #$00
ldx #$00 ldx #$00
@ -13213,7 +13214,7 @@ L85FA: .word 0
ldx #3 ldx #3
: lda event_params_coords,x : lda event_params_coords,x
sta coords,x sta coords,x
sta $EBFD,x sta point14,x
dex dex
bpl :- bpl :-
@ -19751,28 +19752,28 @@ L0B09: addr_call desktop_main::measure_text1, str_6_spaces
addr_call desktop_main::measure_text1, str_items addr_call desktop_main::measure_text1, str_items
clc clc
adc L0BA0 adc L0BA0
sta LEBF3 sta point12::xcoord
txa txa
adc L0BA1 adc L0BA1
sta $EBF4 sta point12::xcoord+1
addr_call desktop_main::measure_text1, str_k_in_disk addr_call desktop_main::measure_text1, str_k_in_disk
clc clc
adc L0BA0 adc L0BA0
sta $EBF5 sta point12::ycoord
txa txa
adc L0BA1 adc L0BA1
sta $EBF6 sta point12::ycoord+1
addr_call desktop_main::measure_text1, str_k_available addr_call desktop_main::measure_text1, str_k_available
clc clc
adc L0BA0 adc L0BA0
sta LEBF7 sta point13::xcoord
txa txa
adc L0BA1 adc L0BA1
sta $EBF8 sta point13::xcoord+1
add16 $EBF5, LEBF7, $EBF9 add16 point12::ycoord, point13::xcoord, point13::ycoord
add16 LEBF3, #$05, LEBE3 add16 point12::xcoord, #$05, point10::xcoord
add16 LEBE3, $EBF5, LEBE7 add16 point10::xcoord, point12::ycoord, point11::xcoord
add16 LEBE7, #$03, LEBE7 add16 point11::xcoord, #$03, point11::xcoord
jmp L0BA2 jmp L0BA2
L0BA0: .byte 0 L0BA0: .byte 0