mirror of
https://github.com/mi57730/a2d.git
synced 2024-11-29 07:49:20 +00:00
DeskTop Seg 1: Jump table labels
This commit is contained in:
Joshua Bell
parent
602c6ae635
commit
5d0722eae7
@ -138,42 +138,42 @@ L40CA: lda $D0,y
|
|||||||
|
|
||||||
L40D3: .byte 0
|
L40D3: .byte 0
|
||||||
L40D4: dec L40D3
|
L40D4: dec L40D3
|
||||||
jmp L625A
|
jmp HIDE_CURSOR_IMPL
|
||||||
|
|
||||||
L40DA: bit L40D3
|
L40DA: bit L40D3
|
||||||
bpl L40BC
|
bpl L40BC
|
||||||
inc L40D3
|
inc L40D3
|
||||||
jmp L6233
|
jmp SHOW_CURSOR_IMPL
|
||||||
|
|
||||||
;; Jump table for A2D entry point calls
|
;; Jump table for A2D entry point calls
|
||||||
a2d_jump_table:
|
a2d_jump_table:
|
||||||
.addr jt_rts ; $00
|
.addr jt_rts ; $00
|
||||||
.addr L5E51 ; $01
|
.addr L5E51 ; $01
|
||||||
.addr L5E7B ; $02
|
.addr L5E7B ; $02
|
||||||
.addr L5EC4 ; $03 QUERY_SCREEN
|
.addr QUERY_SCREEN_IMPL ; $03 QUERY_SCREEN
|
||||||
.addr L5E9C ; $04 SET_STATE
|
.addr SET_STATE_IMPL ; $04 SET_STATE
|
||||||
.addr L5EB4 ; $05
|
.addr L5EB4 ; $05
|
||||||
.addr L508E ; $06 SET_BOX
|
.addr SET_BOX_IMPL ; $06 SET_BOX
|
||||||
.addr L4DAF ; $07 SET_FILL_MODE
|
.addr SET_FILL_MODE_IMPL ; $07 SET_FILL_MODE
|
||||||
.addr L4F8F ; $08 SET_PATTERN
|
.addr SET_PATTERN_IMPL ; $08 SET_PATTERN
|
||||||
.addr jt_rts ; $09
|
.addr jt_rts ; $09
|
||||||
.addr jt_rts ; $0A SET_THICKNESS ???
|
.addr jt_rts ; $0A SET_THICKNESS ???
|
||||||
.addr L586A ; $0B
|
.addr L586A ; $0B
|
||||||
.addr jt_rts ; $0C SET_TEXT_MASK ???
|
.addr jt_rts ; $0C SET_TEXT_MASK ???
|
||||||
.addr L5742 ; $0D
|
.addr L5742 ; $0D
|
||||||
.addr jt_rts ; $0E SET_POS ???
|
.addr jt_rts ; $0E SET_POS ???
|
||||||
.addr L5763 ; $0F DRAW_LINE
|
.addr DRAW_LINE_IMPL ; $0F DRAW_LINE
|
||||||
.addr L5776 ; $10
|
.addr L5776 ; $10
|
||||||
.addr L5040 ; $11 FILL_RECT
|
.addr FILL_RECT_IMPL ; $11 FILL_RECT
|
||||||
.addr L4FE5 ; $12 DRAW_RECT
|
.addr DRAW_RECT_IMPL ; $12 DRAW_RECT
|
||||||
.addr L5051 ; $13 TEST_BOX
|
.addr TEST_BOX_IMPL ; $13 TEST_BOX
|
||||||
.addr L516A ; $14 DRAW_BITMAP
|
.addr DRAW_BITMAP_IMPL ; $14 DRAW_BITMAP
|
||||||
.addr L537E ; $15
|
.addr L537E ; $15
|
||||||
.addr L56D6 ; $16
|
.addr L56D6 ; $16
|
||||||
.addr L537A ; $17
|
.addr L537A ; $17
|
||||||
.addr L58DC ; $18 MEASURE_TEXT
|
.addr MEASURE_TEXT_IMPL ; $18 MEASURE_TEXT
|
||||||
.addr L5938 ; $19 DRAW_TEXT
|
.addr DRAW_TEXT_IMPL ; $19 DRAW_TEXT
|
||||||
.addr L5ECF ; $1A CONFIGURE_ZP_USE
|
.addr CONFIGURE_ZP_IMPL ; $1A CONFIGURE_ZP_USE
|
||||||
.addr L5EDE ; $1B
|
.addr L5EDE ; $1B
|
||||||
.addr L5F0A ; $1C
|
.addr L5F0A ; $1C
|
||||||
.addr L6341 ; $1D
|
.addr L6341 ; $1D
|
||||||
@ -183,16 +183,16 @@ a2d_jump_table:
|
|||||||
.addr L8427 ; $21
|
.addr L8427 ; $21
|
||||||
.addr L7D61 ; $22
|
.addr L7D61 ; $22
|
||||||
.addr L6747 ; $23
|
.addr L6747 ; $23
|
||||||
.addr L607B ; $24 SET_CURSOR
|
.addr SET_CURSOR_IMPL ; $24 SET_CURSOR
|
||||||
.addr L6233 ; $25 SHOW_CURSOR
|
.addr SHOW_CURSOR_IMPL ; $25 SHOW_CURSOR
|
||||||
.addr L625A ; $26 HIDE_CURSOR
|
.addr HIDE_CURSOR_IMPL ; $26 HIDE_CURSOR
|
||||||
.addr L624E ; $27
|
.addr L624E ; $27
|
||||||
.addr L630A ; $28
|
.addr L630A ; $28
|
||||||
.addr L6663 ; $29
|
.addr L6663 ; $29
|
||||||
.addr L65D7 ; $2A GET_INPUT
|
.addr GET_INPUT_IMPL ; $2A GET_INPUT
|
||||||
.addr L67D8 ; $2B
|
.addr L67D8 ; $2B
|
||||||
.addr L65D4 ; $2C
|
.addr L65D4 ; $2C
|
||||||
.addr L660F ; $2D SET_INPUT
|
.addr SET_INPUT_IMPL ; $2D SET_INPUT
|
||||||
.addr L6814 ; $2E
|
.addr L6814 ; $2E
|
||||||
.addr L6ECD ; $2F
|
.addr L6ECD ; $2F
|
||||||
.addr L6926 ; $30
|
.addr L6926 ; $30
|
||||||
@ -203,26 +203,26 @@ a2d_jump_table:
|
|||||||
.addr L6BA9 ; $35
|
.addr L6BA9 ; $35
|
||||||
.addr L6BB5 ; $36
|
.addr L6BB5 ; $36
|
||||||
.addr L6F1C ; $37
|
.addr L6F1C ; $37
|
||||||
.addr L747B ; $38 CREATE_WINDOW
|
.addr CREATE_WINDOW_IMPL ; $38 CREATE_WINDOW
|
||||||
.addr L7815 ; $39 DESTROY_WINDOW
|
.addr DESTROY_WINDOW_IMPL ; $39 DESTROY_WINDOW
|
||||||
.addr L7836 ; $3A
|
.addr L7836 ; $3A
|
||||||
.addr L7500 ; $3B
|
.addr L7500 ; $3B
|
||||||
.addr L759C ; $3C QUERY_STATE
|
.addr QUERY_STATE_IMPL ; $3C QUERY_STATE
|
||||||
.addr L761F ; $3D
|
.addr L761F ; $3D
|
||||||
.addr L7532 ; $3E
|
.addr L7532 ; $3E
|
||||||
.addr L758C ; $3F
|
.addr L758C ; $3F
|
||||||
.addr L73F9 ; $40 QUERY_TARGET
|
.addr QUERY_TARGET_IMPL ; $40 QUERY_TARGET
|
||||||
.addr L7639 ; $41
|
.addr L7639 ; $41
|
||||||
.addr L74AC ; $42
|
.addr L74AC ; $42
|
||||||
.addr L764A ; $43 CLOSE_CLICK
|
.addr CLOSE_CLICK_IMPL ; $43 CLOSE_CLICK
|
||||||
.addr L76AC ; $44 DRAG_WINDOW
|
.addr DRAG_WINDOW_IMPL ; $44 DRAG_WINDOW
|
||||||
.addr L76A8 ; $45 DRAG_RESIZE
|
.addr DRAG_RESIZE_IMPL ; $45 DRAG_RESIZE
|
||||||
.addr L78F9 ; $46 MAP_COORDS
|
.addr MAP_COORDS_IMPL ; $46 MAP_COORDS
|
||||||
.addr L78E1 ; $47
|
.addr L78E1 ; $47
|
||||||
.addr L7AC1 ; $48 QUERY_CLIENT
|
.addr QUERY_CLIENT_IMPL ; $48 QUERY_CLIENT
|
||||||
.addr L7B75 ; $49 RESIZE_WINDOW
|
.addr RESIZE_WINDOW_IMPL ; $49 RESIZE_WINDOW
|
||||||
.addr L7BAA ; $4A DRAG_SCROLL
|
.addr DRAG_SCROLL_IMPL ; $4A DRAG_SCROLL
|
||||||
.addr L7D24 ; $4B UPDATE_SCROLL
|
.addr UPDATE_SCROLL_IMPL ; $4B UPDATE_SCROLL
|
||||||
.addr L7965 ; $4C
|
.addr L7965 ; $4C
|
||||||
.addr L51B3 ; $4D
|
.addr L51B3 ; $4D
|
||||||
.addr L7D69 ; $4E
|
.addr L7D69 ; $4E
|
||||||
@ -648,7 +648,9 @@ L4D9F: .byte $BA
|
|||||||
L4DA0: .byte $4B,$E2,$4B,$08,$4C,$30,$4C,$BA
|
L4DA0: .byte $4B,$E2,$4B,$08,$4C,$30,$4C,$BA
|
||||||
.byte $4B,$E2,$4B,$08,$4C,$30,$4C
|
.byte $4B,$E2,$4B,$08,$4C,$30,$4C
|
||||||
|
|
||||||
L4DAF: lda $F0
|
;;; ==================================================
|
||||||
|
|
||||||
|
SET_FILL_MODE_IMPL: lda $F0
|
||||||
ldx #$00
|
ldx #$00
|
||||||
cmp #$04
|
cmp #$04
|
||||||
bcc L4DB9
|
bcc L4DB9
|
||||||
@ -916,7 +918,9 @@ L4F7D: ror a
|
|||||||
dey
|
dey
|
||||||
L4F8E: rts
|
L4F8E: rts
|
||||||
|
|
||||||
L4F8F: lda #$00
|
;;; ==================================================
|
||||||
|
|
||||||
|
SET_PATTERN_IMPL: lda #$00
|
||||||
sta $8E
|
sta $8E
|
||||||
lda $F9
|
lda $F9
|
||||||
and #$07
|
and #$07
|
||||||
@ -967,8 +971,10 @@ L4FDD: dex
|
|||||||
sta $C054
|
sta $C054
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
;;; ==================================================
|
||||||
|
|
||||||
L4FE4: .byte 0
|
L4FE4: .byte 0
|
||||||
L4FE5:
|
DRAW_RECT_IMPL:
|
||||||
ldy #$03
|
ldy #$03
|
||||||
L4FE7: ldx #$07
|
L4FE7: ldx #$07
|
||||||
L4FE9: lda $9F,x
|
L4FE9: lda $9F,x
|
||||||
@ -1013,16 +1019,19 @@ L502F: lda $EF
|
|||||||
beq L5015
|
beq L5015
|
||||||
adc $98
|
adc $98
|
||||||
sta $98
|
sta $98
|
||||||
bcc L5040
|
bcc FILL_RECT_IMPL
|
||||||
inc $99
|
inc $99
|
||||||
L5040: jsr L514C
|
;; Fall through...
|
||||||
|
FILL_RECT_IMPL: jsr L514C
|
||||||
L5043: jsr L50A9
|
L5043: jsr L50A9
|
||||||
bcc L5015
|
bcc L5015
|
||||||
jsr L4DBC
|
jsr L4DBC
|
||||||
jsr L4EA9
|
jsr L4EA9
|
||||||
jmp L4CED
|
jmp L4CED
|
||||||
|
|
||||||
L5051: jsr L514C
|
;;; ==================================================
|
||||||
|
|
||||||
|
TEST_BOX_IMPL: jsr L514C
|
||||||
lda $EA
|
lda $EA
|
||||||
ldx $EB
|
ldx $EB
|
||||||
cpx $93
|
cpx $93
|
||||||
@ -1054,7 +1063,10 @@ L5088: lda #$80
|
|||||||
|
|
||||||
L508D: rts
|
L508D: rts
|
||||||
|
|
||||||
L508E: lda $D0
|
;;; ==================================================
|
||||||
|
|
||||||
|
SET_BOX_IMPL:
|
||||||
|
lda $D0
|
||||||
sec
|
sec
|
||||||
sbc $D8
|
sbc $D8
|
||||||
sta $F7
|
sta $F7
|
||||||
@ -1180,10 +1192,12 @@ L514C: sec
|
|||||||
L5163: lda #$81
|
L5163: lda #$81
|
||||||
jmp L40B1
|
jmp L40B1
|
||||||
|
|
||||||
|
;;; ==================================================
|
||||||
|
|
||||||
L5168: .byte 0
|
L5168: .byte 0
|
||||||
L5169: .byte 0
|
L5169: .byte 0
|
||||||
|
|
||||||
L516A:
|
DRAW_BITMAP_IMPL:
|
||||||
ldx #$03
|
ldx #$03
|
||||||
L516C: lda $8A,x
|
L516C: lda $8A,x
|
||||||
sta $9B,x
|
sta $9B,x
|
||||||
@ -1732,7 +1746,7 @@ L55B5: lda $A9
|
|||||||
sta $99
|
sta $99
|
||||||
bit $BA
|
bit $BA
|
||||||
bpl L55CB
|
bpl L55CB
|
||||||
jsr L5051
|
jsr TEST_BOX_IMPL
|
||||||
jmp L55CE
|
jmp L55CE
|
||||||
|
|
||||||
L55CB: jsr L5043
|
L55CB: jsr L5043
|
||||||
@ -1945,7 +1959,9 @@ L5758: clc
|
|||||||
sta $EB
|
sta $EB
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L5763:
|
;;; ==================================================
|
||||||
|
|
||||||
|
DRAW_LINE_IMPL:
|
||||||
ldx #$02
|
ldx #$02
|
||||||
L5765: lda $A1,x
|
L5765: lda $A1,x
|
||||||
clc
|
clc
|
||||||
@ -2128,7 +2144,10 @@ L58BC: .byte 0
|
|||||||
L58CC: .byte $00,$00,$00,$00,$00,$00,$00,$00
|
L58CC: .byte $00,$00,$00,$00,$00,$00,$00,$00
|
||||||
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
||||||
|
|
||||||
L58DC: jsr L58E8
|
;;; ==================================================
|
||||||
|
|
||||||
|
MEASURE_TEXT_IMPL:
|
||||||
|
jsr L58E8
|
||||||
ldy #$03
|
ldy #$03
|
||||||
sta ($80),y
|
sta ($80),y
|
||||||
txa
|
txa
|
||||||
@ -2186,7 +2205,10 @@ L5933: sta $94
|
|||||||
stx $95
|
stx $95
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L5938: jsr L5EFA
|
;;; ==================================================
|
||||||
|
|
||||||
|
DRAW_TEXT_IMPL:
|
||||||
|
jsr L5EFA
|
||||||
jsr L58E8
|
jsr L58E8
|
||||||
sta $A4
|
sta $A4
|
||||||
stx $A5
|
stx $A5
|
||||||
@ -2794,7 +2816,7 @@ L5E5A: lda L5F1E,x
|
|||||||
jsr L5EA0
|
jsr L5EA0
|
||||||
lda #$7F
|
lda #$7F
|
||||||
sta $F6
|
sta $F6
|
||||||
jsr L5040
|
jsr FILL_RECT_IMPL
|
||||||
lda #$00
|
lda #$00
|
||||||
sta $F6
|
sta $F6
|
||||||
rts
|
rts
|
||||||
@ -2818,7 +2840,9 @@ L5E94: dex
|
|||||||
|
|
||||||
L5E98: .byte $28,$29,$2A,$2B
|
L5E98: .byte $28,$29,$2A,$2B
|
||||||
|
|
||||||
L5E9C:
|
;;; ==================================================
|
||||||
|
|
||||||
|
SET_STATE_IMPL:
|
||||||
lda $80
|
lda $80
|
||||||
ldx $81
|
ldx $81
|
||||||
L5EA0: sta $F4
|
L5EA0: sta $F4
|
||||||
@ -2826,9 +2850,9 @@ L5EA0: sta $F4
|
|||||||
L5EA4: lda $F3
|
L5EA4: lda $F3
|
||||||
beq L5EAB
|
beq L5EAB
|
||||||
jsr L5872
|
jsr L5872
|
||||||
L5EAB: jsr L508E
|
L5EAB: jsr SET_BOX_IMPL
|
||||||
jsr L4F8F
|
jsr SET_PATTERN_IMPL
|
||||||
jmp L4DAF
|
jmp SET_FILL_MODE_IMPL
|
||||||
|
|
||||||
L5EB4:
|
L5EB4:
|
||||||
jsr L40C8
|
jsr L40C8
|
||||||
@ -2841,7 +2865,9 @@ L5EBD: sta ($80),y
|
|||||||
sta ($80),y
|
sta ($80),y
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L5EC4:
|
;;; ==================================================
|
||||||
|
|
||||||
|
QUERY_SCREEN_IMPL:
|
||||||
ldy #$23
|
ldy #$23
|
||||||
L5EC6: lda L5F1E,y
|
L5EC6: lda L5F1E,y
|
||||||
sta ($80),y
|
sta ($80),y
|
||||||
@ -2849,7 +2875,9 @@ L5EC6: lda L5F1E,y
|
|||||||
bpl L5EC6
|
bpl L5EC6
|
||||||
L5ECE: rts
|
L5ECE: rts
|
||||||
|
|
||||||
L5ECF:
|
;;; ==================================================
|
||||||
|
|
||||||
|
CONFIGURE_ZP_IMPL:
|
||||||
lda L0082
|
lda L0082
|
||||||
cmp L5F1B
|
cmp L5F1B
|
||||||
beq L5ECE
|
beq L5ECE
|
||||||
@ -2961,7 +2989,10 @@ L6067: lda #$FF
|
|||||||
lda L6066
|
lda L6066
|
||||||
sta $81
|
sta $81
|
||||||
|
|
||||||
L607B: php
|
;;; ==================================================
|
||||||
|
|
||||||
|
SET_CURSOR_IMPL:
|
||||||
|
php
|
||||||
sei
|
sei
|
||||||
lda $80
|
lda $80
|
||||||
ldx $81
|
ldx $81
|
||||||
@ -3181,7 +3212,10 @@ L622E: bbs7 $C0,L61F1
|
|||||||
plp
|
plp
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L6233: php
|
;;; ==================================================
|
||||||
|
|
||||||
|
SHOW_CURSOR_IMPL:
|
||||||
|
php
|
||||||
sei
|
sei
|
||||||
lda L5FF3
|
lda L5FF3
|
||||||
beq L624C
|
beq L624C
|
||||||
@ -3204,7 +3238,10 @@ L624E:
|
|||||||
plp
|
plp
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L625A: php
|
;;; ==================================================
|
||||||
|
|
||||||
|
HIDE_CURSOR_IMPL:
|
||||||
|
php
|
||||||
sei
|
sei
|
||||||
jsr L61C6
|
jsr L61C6
|
||||||
dec L5FF3
|
dec L5FF3
|
||||||
@ -3492,7 +3529,7 @@ L6539: .byte $00
|
|||||||
L653A: .byte $00
|
L653A: .byte $00
|
||||||
L653B: .byte $00
|
L653B: .byte $00
|
||||||
|
|
||||||
L653C: jsr L625A
|
L653C: jsr HIDE_CURSOR_IMPL
|
||||||
L653F: lda $80
|
L653F: lda $80
|
||||||
sta L6539
|
sta L6539
|
||||||
lda $81
|
lda $81
|
||||||
@ -3502,7 +3539,7 @@ L653F: lda $80
|
|||||||
lsr L5F1B
|
lsr L5F1B
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L6553: jsr L6233
|
L6553: jsr SHOW_CURSOR_IMPL
|
||||||
L6556: asl L5F1B
|
L6556: asl L5F1B
|
||||||
lda L6539
|
lda L6539
|
||||||
sta $80
|
sta $80
|
||||||
@ -3573,7 +3610,10 @@ L65D3: .byte $5F
|
|||||||
L65D4:
|
L65D4:
|
||||||
clc
|
clc
|
||||||
bcc L65D8
|
bcc L65D8
|
||||||
L65D7:
|
|
||||||
|
;;; ==================================================
|
||||||
|
|
||||||
|
GET_INPUT_IMPL:
|
||||||
sec
|
sec
|
||||||
L65D8: php
|
L65D8: php
|
||||||
bit L6339
|
bit L6339
|
||||||
@ -3605,7 +3645,9 @@ L6607: plp
|
|||||||
cli
|
cli
|
||||||
L660E: rts
|
L660E: rts
|
||||||
|
|
||||||
L660F:
|
;;; ==================================================
|
||||||
|
|
||||||
|
SET_INPUT_IMPL:
|
||||||
php
|
php
|
||||||
sei
|
sei
|
||||||
lda L0082
|
lda L0082
|
||||||
@ -3957,13 +3999,13 @@ L68F0: sta $EA
|
|||||||
rts
|
rts
|
||||||
|
|
||||||
L68F5: sta $F0
|
L68F5: sta $F0
|
||||||
jmp L4DAF
|
jmp SET_FILL_MODE_IMPL
|
||||||
|
|
||||||
L68FA: jsr L6906
|
L68FA: jsr L6906
|
||||||
jmp L58E8
|
jmp L58E8
|
||||||
|
|
||||||
L6900: jsr L6906
|
L6900: jsr L6906
|
||||||
jmp L5938
|
jmp DRAW_TEXT_IMPL
|
||||||
|
|
||||||
L6906: sta L0082
|
L6906: sta L0082
|
||||||
stx L0083
|
stx L0083
|
||||||
@ -4359,7 +4401,7 @@ L6C2C: lda L6BDA
|
|||||||
jsr L6D23
|
jsr L6D23
|
||||||
jmp L6C40
|
jmp L6C40
|
||||||
|
|
||||||
L6C37: jsr L625A
|
L6C37: jsr HIDE_CURSOR_IMPL
|
||||||
jsr L657E
|
jsr L657E
|
||||||
jsr L6CF4
|
jsr L6CF4
|
||||||
L6C40: jsr L6556
|
L6C40: jsr L6556
|
||||||
@ -4473,7 +4515,7 @@ L6D0E: lda ($8E),y
|
|||||||
cpx L0083
|
cpx L0083
|
||||||
bcc L6CF7
|
bcc L6CF7
|
||||||
beq L6CF7
|
beq L6CF7
|
||||||
jmp L6233
|
jmp SHOW_CURSOR_IMPL
|
||||||
|
|
||||||
L6D22: rts
|
L6D22: rts
|
||||||
|
|
||||||
@ -4485,7 +4527,7 @@ L6D27: lda L6BD9
|
|||||||
php
|
php
|
||||||
sta L00C7
|
sta L00C7
|
||||||
jsr L6A94
|
jsr L6A94
|
||||||
jsr L625A
|
jsr HIDE_CURSOR_IMPL
|
||||||
jsr L6B35
|
jsr L6B35
|
||||||
plp
|
plp
|
||||||
bcc L6CF4
|
bcc L6CF4
|
||||||
@ -4587,7 +4629,7 @@ L6E18: ldx $A9
|
|||||||
beq L6E22
|
beq L6E22
|
||||||
jmp L6D8A
|
jmp L6D8A
|
||||||
|
|
||||||
L6E22: jmp L6233
|
L6E22: jmp SHOW_CURSOR_IMPL
|
||||||
|
|
||||||
L6E25: ldx $A9
|
L6E25: ldx $A9
|
||||||
ldy L6848,x
|
ldy L6848,x
|
||||||
@ -4668,11 +4710,11 @@ L6EAA: ldx L6BDA
|
|||||||
sty fill_rect_params4::top
|
sty fill_rect_params4::top
|
||||||
ldy L6847,x
|
ldy L6847,x
|
||||||
sty fill_rect_params4::bottom
|
sty fill_rect_params4::bottom
|
||||||
jsr L625A
|
jsr HIDE_CURSOR_IMPL
|
||||||
lda #$02
|
lda #$02
|
||||||
jsr L68F5
|
jsr L68F5
|
||||||
A2D_CALL A2D_FILL_RECT, fill_rect_params4
|
A2D_CALL A2D_FILL_RECT, fill_rect_params4
|
||||||
jmp L6233
|
jmp SHOW_CURSOR_IMPL
|
||||||
|
|
||||||
L6ECD:
|
L6ECD:
|
||||||
ldx #$03
|
ldx #$03
|
||||||
@ -5064,7 +5106,7 @@ L723E: sta $96
|
|||||||
sta $98
|
sta $98
|
||||||
lda $CE
|
lda $CE
|
||||||
sta $99
|
sta $99
|
||||||
jsr L5040
|
jsr FILL_RECT_IMPL
|
||||||
L7255: lda $AC
|
L7255: lda $AC
|
||||||
and #$01
|
and #$01
|
||||||
bne L72C9
|
bne L72C9
|
||||||
@ -5105,7 +5147,7 @@ L7280: tya
|
|||||||
sta $96
|
sta $96
|
||||||
bcs L72A0
|
bcs L72A0
|
||||||
dec $97
|
dec $97
|
||||||
L72A0: jsr L5040
|
L72A0: jsr FILL_RECT_IMPL
|
||||||
lda $CB
|
lda $CB
|
||||||
clc
|
clc
|
||||||
adc #$0A
|
adc #$0A
|
||||||
@ -5121,7 +5163,7 @@ L72A0: jsr L5040
|
|||||||
lda $CC
|
lda $CC
|
||||||
sbc #$00
|
sbc #$00
|
||||||
sta $97
|
sta $97
|
||||||
jsr L5040
|
jsr FILL_RECT_IMPL
|
||||||
A2D_CALL A2D_SET_PATTERN, white_pattern
|
A2D_CALL A2D_SET_PATTERN, white_pattern
|
||||||
L72C9: jsr L703E
|
L72C9: jsr L703E
|
||||||
bit $B0
|
bit $B0
|
||||||
@ -5274,7 +5316,9 @@ L73F0: sta $EC
|
|||||||
ldx L0083
|
ldx L0083
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L73F9:
|
;;; ==================================================
|
||||||
|
|
||||||
|
QUERY_TARGET_IMPL:
|
||||||
jsr L653F
|
jsr L653F
|
||||||
A2D_CALL A2D_TEST_BOX, test_box_params
|
A2D_CALL A2D_TEST_BOX, test_box_params
|
||||||
beq L7416
|
beq L7416
|
||||||
@ -5334,8 +5378,10 @@ L7472: ldx $AB
|
|||||||
L7476: lda #$02
|
L7476: lda #$02
|
||||||
bne L7472
|
bne L7472
|
||||||
|
|
||||||
|
;;; ==================================================
|
||||||
|
|
||||||
L747A: .byte 0
|
L747A: .byte 0
|
||||||
L747B:
|
CREATE_WINDOW_IMPL:
|
||||||
lda $80
|
lda $80
|
||||||
sta $A9
|
sta $A9
|
||||||
lda $81
|
lda $81
|
||||||
@ -5455,14 +5501,16 @@ L7585: lda #$A3
|
|||||||
|
|
||||||
L758A: .byte $0E
|
L758A: .byte $0E
|
||||||
L758B: .byte $75
|
L758B: .byte $75
|
||||||
L758C: jsr L6233
|
L758C: jsr SHOW_CURSOR_IMPL
|
||||||
lda L750C
|
lda L750C
|
||||||
ldx L750D
|
ldx L750D
|
||||||
sta $F4
|
sta $F4
|
||||||
stx $F5
|
stx $F5
|
||||||
jmp L6567
|
jmp L6567
|
||||||
|
|
||||||
L759C:
|
;;; ==================================================
|
||||||
|
|
||||||
|
QUERY_STATE_IMPL:
|
||||||
jsr L40C8
|
jsr L40C8
|
||||||
jsr L7074
|
jsr L7074
|
||||||
lda L0083
|
lda L0083
|
||||||
@ -5558,8 +5606,10 @@ L7644: ldy #$00
|
|||||||
sta ($80),y
|
sta ($80),y
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
;;; ==================================================
|
||||||
|
|
||||||
L7649: .byte 0
|
L7649: .byte 0
|
||||||
L764A:
|
CLOSE_CLICK_IMPL:
|
||||||
jsr L7013
|
jsr L7013
|
||||||
beq L7697
|
beq L7697
|
||||||
jsr L7157
|
jsr L7157
|
||||||
@ -5569,9 +5619,9 @@ L764A:
|
|||||||
L765A: sta L7649
|
L765A: sta L7649
|
||||||
lda #$02
|
lda #$02
|
||||||
jsr L68F5
|
jsr L68F5
|
||||||
jsr L625A
|
jsr HIDE_CURSOR_IMPL
|
||||||
A2D_CALL A2D_FILL_RECT, L00C7
|
A2D_CALL A2D_FILL_RECT, L00C7
|
||||||
jsr L6233
|
jsr SHOW_CURSOR_IMPL
|
||||||
L766E: jsr L691B
|
L766E: jsr L691B
|
||||||
cmp #$02
|
cmp #$02
|
||||||
beq L768B
|
beq L768B
|
||||||
@ -5602,11 +5652,15 @@ L76A3: .byte $00
|
|||||||
L76A4: .byte $00,$00,$00
|
L76A4: .byte $00,$00,$00
|
||||||
L76A7: .byte $00
|
L76A7: .byte $00
|
||||||
|
|
||||||
L76A8:
|
;;; ==================================================
|
||||||
|
|
||||||
|
DRAG_RESIZE_IMPL:
|
||||||
lda #$80
|
lda #$80
|
||||||
bmi L76AE
|
bmi L76AE
|
||||||
|
|
||||||
L76AC:
|
;;; ==================================================
|
||||||
|
|
||||||
|
DRAG_WINDOW_IMPL:
|
||||||
lda #$00
|
lda #$00
|
||||||
L76AE: sta L76A7
|
L76AE: sta L76A7
|
||||||
jsr L7ECD
|
jsr L7ECD
|
||||||
@ -5631,7 +5685,7 @@ L76E2: jsr L703E
|
|||||||
jsr L7749
|
jsr L7749
|
||||||
jsr L70B7
|
jsr L70B7
|
||||||
jsr L707F
|
jsr L707F
|
||||||
jsr L6233
|
jsr SHOW_CURSOR_IMPL
|
||||||
L76F1: jsr L691B
|
L76F1: jsr L691B
|
||||||
cmp #$02
|
cmp #$02
|
||||||
bne L773B
|
bne L773B
|
||||||
@ -5655,7 +5709,7 @@ L7716: lda $A3,y
|
|||||||
iny
|
iny
|
||||||
cpy #$24
|
cpy #$24
|
||||||
bne L7716
|
bne L7716
|
||||||
jsr L625A
|
jsr HIDE_CURSOR_IMPL
|
||||||
lda $AB
|
lda $AB
|
||||||
jsr L7872
|
jsr L7872
|
||||||
jsr L653C
|
jsr L653C
|
||||||
@ -5668,7 +5722,7 @@ L7733: jsr L6553
|
|||||||
|
|
||||||
L773B: jsr L77E0
|
L773B: jsr L77E0
|
||||||
beq L76F1
|
beq L76F1
|
||||||
jsr L625A
|
jsr HIDE_CURSOR_IMPL
|
||||||
jsr L707F
|
jsr L707F
|
||||||
jmp L76E2
|
jmp L76E2
|
||||||
|
|
||||||
@ -5777,7 +5831,9 @@ L77F4: sta L769F,x
|
|||||||
lda set_input_params_unk
|
lda set_input_params_unk
|
||||||
L7814: rts
|
L7814: rts
|
||||||
|
|
||||||
L7815:
|
;;; ==================================================
|
||||||
|
|
||||||
|
DESTROY_WINDOW_IMPL:
|
||||||
jsr L7074
|
jsr L7074
|
||||||
jsr L653C
|
jsr L653C
|
||||||
jsr L784C
|
jsr L784C
|
||||||
@ -5889,7 +5945,10 @@ L78E6: lda L0083,x
|
|||||||
dex
|
dex
|
||||||
bpl L78E6
|
bpl L78E6
|
||||||
bmi L790F
|
bmi L790F
|
||||||
L78F9:
|
|
||||||
|
;;; ==================================================
|
||||||
|
|
||||||
|
MAP_COORDS_IMPL:
|
||||||
jsr L7074
|
jsr L7074
|
||||||
ldx #$02
|
ldx #$02
|
||||||
L78FE: lda L0083,x
|
L78FE: lda L0083,x
|
||||||
@ -6131,7 +6190,9 @@ L7AA4: pha
|
|||||||
sta $CC,x
|
sta $CC,x
|
||||||
jmp L70B2
|
jmp L70B2
|
||||||
|
|
||||||
L7AC1:
|
;;; ==================================================
|
||||||
|
|
||||||
|
QUERY_CLIENT_IMPL:
|
||||||
jsr L653F
|
jsr L653F
|
||||||
jsr L7013
|
jsr L7013
|
||||||
bne L7ACE
|
bne L7ACE
|
||||||
@ -6218,7 +6279,9 @@ L7B64: jsr L708D
|
|||||||
L7B70: lda #$03
|
L7B70: lda #$03
|
||||||
L7B72: jmp L7408
|
L7B72: jmp L7408
|
||||||
|
|
||||||
L7B75:
|
;;; ==================================================
|
||||||
|
|
||||||
|
RESIZE_WINDOW_IMPL:
|
||||||
lda L0082
|
lda L0082
|
||||||
cmp #$01
|
cmp #$01
|
||||||
bne L7B81
|
bne L7B81
|
||||||
@ -6247,7 +6310,9 @@ L7BA2: lda L0083
|
|||||||
sta $AB,y
|
sta $AB,y
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L7BAA:
|
;;; ==================================================
|
||||||
|
|
||||||
|
DRAG_SCROLL_IMPL:
|
||||||
lda L0082
|
lda L0082
|
||||||
cmp #$01
|
cmp #$01
|
||||||
bne L7BB6
|
bne L7BB6
|
||||||
@ -6281,15 +6346,15 @@ L7BE0: jsr L7A73
|
|||||||
lda #$02
|
lda #$02
|
||||||
jsr L68F5
|
jsr L68F5
|
||||||
A2D_CALL A2D_SET_PATTERN, light_speckles_pattern
|
A2D_CALL A2D_SET_PATTERN, light_speckles_pattern
|
||||||
jsr L625A
|
jsr HIDE_CURSOR_IMPL
|
||||||
L7BF7: jsr L707F
|
L7BF7: jsr L707F
|
||||||
jsr L6233
|
jsr SHOW_CURSOR_IMPL
|
||||||
L7BFD: jsr L691B
|
L7BFD: jsr L691B
|
||||||
cmp #$02
|
cmp #$02
|
||||||
beq L7C66
|
beq L7C66
|
||||||
jsr L77E0
|
jsr L77E0
|
||||||
beq L7BFD
|
beq L7BFD
|
||||||
jsr L625A
|
jsr HIDE_CURSOR_IMPL
|
||||||
jsr L707F
|
jsr L707F
|
||||||
jsr L7013
|
jsr L7013
|
||||||
jsr L7A73
|
jsr L7A73
|
||||||
@ -6331,7 +6396,7 @@ L7C53: sta $C8,x
|
|||||||
sta $CC,x
|
sta $CC,x
|
||||||
jmp L7BF7
|
jmp L7BF7
|
||||||
|
|
||||||
L7C66: jsr L625A
|
L7C66: jsr HIDE_CURSOR_IMPL
|
||||||
jsr L707F
|
jsr L707F
|
||||||
jsr L6553
|
jsr L6553
|
||||||
jsr L7CBA
|
jsr L7CBA
|
||||||
@ -6431,7 +6496,9 @@ L7D1D: sta L7CB6
|
|||||||
sty L7CB7
|
sty L7CB7
|
||||||
rts
|
rts
|
||||||
|
|
||||||
L7D24:
|
;;; ==================================================
|
||||||
|
|
||||||
|
UPDATE_SCROLL_IMPL:
|
||||||
lda $8C
|
lda $8C
|
||||||
cmp #$01
|
cmp #$01
|
||||||
bne L7D30
|
bne L7D30
|
||||||
@ -6601,7 +6668,7 @@ L7EAD: jsr L7F30
|
|||||||
sta $80
|
sta $80
|
||||||
lda L7F2F
|
lda L7F2F
|
||||||
sta $81
|
sta $81
|
||||||
jsr L607B
|
jsr SET_CURSOR_IMPL
|
||||||
jsr L7F3B
|
jsr L7F3B
|
||||||
lda #$00
|
lda #$00
|
||||||
sta L7D74
|
sta L7D74
|
||||||
@ -6655,7 +6722,7 @@ L7F0F: jsr L7F30
|
|||||||
sta $80
|
sta $80
|
||||||
lda L6066
|
lda L6066
|
||||||
sta $81
|
sta $81
|
||||||
jsr L607B
|
jsr SET_CURSOR_IMPL
|
||||||
jmp L7F3B
|
jmp L7F3B
|
||||||
|
|
||||||
L7F2E: .byte 0
|
L7F2E: .byte 0
|
||||||
@ -10103,10 +10170,11 @@ LA49D: ldy #$00
|
|||||||
LA4AC: jsr L93BC
|
LA4AC: jsr L93BC
|
||||||
ora LA3AE
|
ora LA3AE
|
||||||
beq LA4BA
|
beq LA4BA
|
||||||
|
|
||||||
jsr L93BC
|
jsr L93BC
|
||||||
.byte $03
|
.byte $03
|
||||||
.byte $AE
|
.addr $A3AE
|
||||||
.byte $A3
|
|
||||||
LA4BA: bit LA3B7
|
LA4BA: bit LA3B7
|
||||||
bpl LA4C5
|
bpl LA4C5
|
||||||
lda LA3AE
|
lda LA3AE
|
||||||
@ -10117,6 +10185,7 @@ LA4C5: pla
|
|||||||
jmp LA44D
|
jmp LA44D
|
||||||
|
|
||||||
LA4CB: .byte 0
|
LA4CB: .byte 0
|
||||||
|
|
||||||
LA4CC: lda #$80
|
LA4CC: lda #$80
|
||||||
sta LA4CB
|
sta LA4CB
|
||||||
bmi LA4E2
|
bmi LA4E2
|
||||||
@ -10301,7 +10370,8 @@ LA629: .byte $00
|
|||||||
LA62A: .byte $00
|
LA62A: .byte $00
|
||||||
LA62B: .byte $00
|
LA62B: .byte $00
|
||||||
LA62C: .byte $00,$00,$00
|
LA62C: .byte $00,$00,$00
|
||||||
set_box_params2: .byte $00
|
set_box_params2:
|
||||||
|
.byte $00
|
||||||
LA630: .byte $00
|
LA630: .byte $00
|
||||||
LA631: .byte $00
|
LA631: .byte $00
|
||||||
LA632: .byte $00,$00,$20,$80,$00
|
LA632: .byte $00,$00,$20,$80,$00
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user