DeskTop: more ids

This commit is contained in:
Joshua Bell 2018-01-15 20:33:32 -08:00
parent 03fc6e1071
commit a0a581ea7e

View File

@ -4364,8 +4364,15 @@ query_client_params_scroll:
query_target_params_id: query_target_params_id:
.byte 0 .byte 0
.byte $00,$00,$00,$00 LD20F: .byte 0
LD210: .byte 0
LD211: .byte 0
.proc query_state_params2
id: .byte 0
.addr buffer .addr buffer
.endproc
.proc buffer .proc buffer
.res 56, $0 .res 56, $0
@ -4785,9 +4792,10 @@ LD760: PASCAL_STRING "Run list"
PASCAL_STRING "the disk in slot drive ?" PASCAL_STRING "the disk in slot drive ?"
.byte $12 .byte $12
.byte $1A,$00,$00,$00,$00,$00,$00,$00 .byte $1A
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00 buf_filename:
.res 16, 0
LD8E7: .byte 0 LD8E7: .byte 0
LD8E8: .byte 0 LD8E8: .byte 0
@ -4949,9 +4957,12 @@ window_address_table:
.addr window_path_table+i*65 .addr window_path_table+i*65
.endrepeat .endrepeat
.byte $00,$00,$00,$00,$00 LDFC5: .byte 0
LDFC6: .byte 0
LDFC7: .byte 0
LDFC8: .byte 0
.res 144, 0 LDFC9: .res 145, 0
.byte $00,$00,$00,$00,$0D,$00,$00,$00 .byte $00,$00,$00,$00,$0D,$00,$00,$00
@ -5744,7 +5755,7 @@ L415B: sta desktop_winid
lda #$80 lda #$80
sta L4152 sta L4152
lda bufnum lda bufnum
sta $D212 sta query_state_params2::id
jsr L4505 jsr L4505
jsr L78EF jsr L78EF
lda desktop_winid lda desktop_winid
@ -5796,7 +5807,7 @@ L41CB: ldx bufnum
jmp L8874 jmp L8874
L41E2: lda bufnum L41E2: lda bufnum
sta $D212 sta query_state_params2::id
jsr L44F2 jsr L44F2
jsr L6E52 jsr L6E52
ldx #$07 ldx #$07
@ -5821,7 +5832,7 @@ L4221: inc L4241
L4227: lda #$00 L4227: lda #$00
sta L4152 sta L4152
lda bufnum lda bufnum
sta $D212 sta query_state_params2::id
jsr L44F2 jsr L44F2
jsr L6E6E jsr L6E6E
lda desktop_winid lda desktop_winid
@ -5842,7 +5853,7 @@ L424A: lda #$00
cmp desktop_winid cmp desktop_winid
bne L4249 bne L4249
lda desktop_winid lda desktop_winid
sta $D212 sta query_state_params2::id
jsr L4505 jsr L4505
jsr L6E8E jsr L6E8E
ldx #$07 ldx #$07
@ -6069,11 +6080,11 @@ L44B8: jsr DESKTOP_COPY_TO_BUF
A2D_RELAY_CALL $36, LE267 ; ??? A2D_RELAY_CALL $36, LE267 ; ???
rts rts
L44F2: A2D_RELAY_CALL A2D_QUERY_STATE, $D212 L44F2: A2D_RELAY_CALL A2D_QUERY_STATE, query_state_params2
A2D_RELAY_CALL A2D_SET_STATE, $D215 A2D_RELAY_CALL A2D_SET_STATE, $D215
rts rts
L4505: A2D_RELAY_CALL A2D_QUERY_STATE, $D212 L4505: A2D_RELAY_CALL A2D_QUERY_STATE, query_state_params2
rts rts
rts rts
@ -6972,7 +6983,7 @@ L4CD6: pha
bpl L4CE0 bpl L4CE0
jmp L4523 jmp L4523
L4CE0: addr_call L6FAF, $DFC9 L4CE0: addr_call L6FAF, LDFC9
beq L4CF1 beq L4CF1
pha pha
jsr L6F0D jsr L6F0D
@ -6981,18 +6992,18 @@ L4CE0: addr_call L6FAF, $DFC9
L4CF1: ldy #$01 L4CF1: ldy #$01
L4CF3: iny L4CF3: iny
lda $DFC9,y lda LDFC9,y
cmp #$2F cmp #$2F
beq L4D01 beq L4D01
cpy $DFC9 cpy LDFC9
bne L4CF3 bne L4CF3
iny iny
L4D01: dey L4D01: dey
sty $DFC9 sty LDFC9
addr_call L6FB7, $DFC9 addr_call L6FB7, LDFC9
lda #$C9 lda #$C9
ldx #$DF ldx #$DF
ldy $DFC9 ldy LDFC9
jsr L6F4B jsr L6F4B
jmp L4523 jmp L4523
@ -7007,7 +7018,7 @@ L4D1E: lda (L0006),y
lda ($08),y lda ($08),y
tay tay
L4D2B: lda ($08),y L4D2B: lda ($08),y
sta $DFC9,y sta LDFC9,y
dey dey
bpl L4D2B bpl L4D2B
lda #$C9 lda #$C9
@ -7016,20 +7027,20 @@ L4D2B: lda ($08),y
ldx #$01 ldx #$01
iny iny
iny iny
L4D3E: lda $DFC9,y L4D3E: lda LDFC9,y
sta $E04B,x sta $E04B,x
cpy $DFC9 cpy LDFC9
beq L4D4E beq L4D4E
iny iny
inx inx
jmp L4D3E jmp L4D3E
L4D4E: stx $E04B L4D4E: stx $E04B
lda $DFC9 lda LDFC9
sec sec
sbc $E04B sbc $E04B
sta $DFC9 sta LDFC9
dec $DFC9 dec LDFC9
rts rts
jsr L488A jsr L488A
@ -7435,7 +7446,7 @@ L511E: sta buf3len
sta LE6D1,x sta LE6D1,x
jsr L52DF jsr L52DF
lda desktop_winid lda desktop_winid
sta $D212 sta query_state_params2::id
jsr L4505 jsr L4505
jsr L6E8E jsr L6E8E
jsr L4904 jsr L4904
@ -7465,7 +7476,7 @@ L516D: lda L51EB,x
lda desktop_winid lda desktop_winid
jsr L763A jsr L763A
lda desktop_winid lda desktop_winid
sta $D212 sta query_state_params2::id
jsr L44F2 jsr L44F2
jsr L6E52 jsr L6E52
lda #$00 lda #$00
@ -7518,7 +7529,7 @@ L51F0: ldx desktop_winid
jsr L7D9C jsr L7D9C
jsr DESKTOP_COPY_FROM_BUF jsr DESKTOP_COPY_FROM_BUF
lda desktop_winid lda desktop_winid
sta $D212 sta query_state_params2::id
jsr L4505 jsr L4505
jsr L6E8E jsr L6E8E
jsr L4904 jsr L4904
@ -7991,13 +8002,13 @@ L55F0: ldx L544A
ldy #$02 ldy #$02
lda (L0006),y lda (L0006),y
and #$0F and #$0F
sta $D212 sta query_state_params2::id
beq L5614 beq L5614
jsr L56F9 jsr L56F9
lda LE22F lda LE22F
jsr L8915 jsr L8915
L5614: DESKTOP_RELAY_CALL $02, LE22F L5614: DESKTOP_RELAY_CALL $02, LE22F
lda $D212 lda query_state_params2::id
beq L562B beq L562B
lda LE22F lda LE22F
jsr L8893 jsr L8893
@ -8011,13 +8022,13 @@ L562C: lda LE22F
ldy #$02 ldy #$02
lda (L0006),y lda (L0006),y
and #$0F and #$0F
sta $D212 sta query_state_params2::id
beq L564A beq L564A
jsr L56F9 jsr L56F9
lda LE22F lda LE22F
jsr L8915 jsr L8915
L564A: DESKTOP_RELAY_CALL $0B, LE22F L564A: DESKTOP_RELAY_CALL $0B, LE22F
lda $D212 lda query_state_params2::id
beq L5661 beq L5661
lda LE22F lda LE22F
jsr L8893 jsr L8893
@ -8083,7 +8094,7 @@ L56F0: lda #$00
jmp DESKTOP_COPY_TO_BUF jmp DESKTOP_COPY_TO_BUF
L56F8: .byte 0 L56F8: .byte 0
L56F9: sta $D212 L56F9: sta query_state_params2::id
jsr L4505 jsr L4505
jmp L6E8E jmp L6E8E
@ -8716,7 +8727,7 @@ L5C54: lda $D20D
bmi L5C71 bmi L5C71
jsr L6E6E jsr L6E6E
L5C71: lda desktop_winid L5C71: lda desktop_winid
sta $D212 sta query_state_params2::id
jsr L44F2 jsr L44F2
A2D_RELAY_CALL A2D_FILL_RECT, $D21D A2D_RELAY_CALL A2D_FILL_RECT, $D21D
jsr L4510 jsr L4510
@ -8784,7 +8795,7 @@ L5D0B: ldx is_file_selected
lda desktop_winid lda desktop_winid
sta selected_window_index sta selected_window_index
lda desktop_winid lda desktop_winid
sta $D212 sta query_state_params2::id
jsr L44F2 jsr L44F2
lda L5CD9 lda L5CD9
sta LE22F sta LE22F
@ -8792,7 +8803,7 @@ L5D0B: ldx is_file_selected
jsr L6E8E jsr L6E8E
DESKTOP_RELAY_CALL $02, LE22F DESKTOP_RELAY_CALL $02, LE22F
lda desktop_winid lda desktop_winid
sta $D212 sta query_state_params2::id
jsr L44F2 jsr L44F2
lda L5CD9 lda L5CD9
jsr L8893 jsr L8893
@ -8841,7 +8852,7 @@ L5DA6: cpx #$02
L5DAD: cpx #$FF L5DAD: cpx #$FF
beq L5DF7 beq L5DF7
lda desktop_winid lda desktop_winid
sta $D212 sta query_state_params2::id
jsr L44F2 jsr L44F2
jsr L6E52 jsr L6E52
jsr L6E8E jsr L6E8E
@ -8857,7 +8868,7 @@ L5DC4: txa
dex dex
bpl L5DC4 bpl L5DC4
lda desktop_winid lda desktop_winid
sta $D212 sta query_state_params2::id
jsr L44F2 jsr L44F2
jsr L6DB1 jsr L6DB1
jsr L6E6E jsr L6E6E
@ -8944,7 +8955,7 @@ L5E78: sta L5F0A
sta $D20E sta $D20E
jsr L4459 jsr L4459
L5E8F: lda desktop_winid L5E8F: lda desktop_winid
sta $D212 sta query_state_params2::id
jsr L44F2 jsr L44F2
jsr L4904 jsr L4904
A2D_RELAY_CALL A2D_FILL_RECT, $D21D A2D_RELAY_CALL A2D_FILL_RECT, $D21D
@ -8978,7 +8989,7 @@ L5ECB: lda (L0006),y
sta bufnum sta bufnum
jsr DESKTOP_COPY_TO_BUF jsr DESKTOP_COPY_TO_BUF
lda desktop_winid lda desktop_winid
sta $D212 sta query_state_params2::id
jsr L4505 jsr L4505
jsr L78EF jsr L78EF
lda #$00 lda #$00
@ -9022,7 +9033,7 @@ L5F3E: rts
L5F3F: jsr L6D2B L5F3F: jsr L6D2B
lda desktop_winid lda desktop_winid
sta $D212 sta query_state_params2::id
jsr L4505 jsr L4505
jsr L6E8E jsr L6E8E
ldx #$03 ldx #$03
@ -10214,7 +10225,7 @@ L6AA7: stx bufnum
ldy #$02 ldy #$02
lda (L0006),y lda (L0006),y
and #$0F and #$0F
sta $D212 sta query_state_params2::id
beq L6AD8 beq L6AD8
cmp desktop_winid cmp desktop_winid
bne L6AEF bne L6AEF
@ -10222,7 +10233,7 @@ L6AA7: stx bufnum
lda LE6BE lda LE6BE
jsr L8915 jsr L8915
L6AD8: DESKTOP_RELAY_CALL $03, LE6BE L6AD8: DESKTOP_RELAY_CALL $03, LE6BE
lda $D212 lda query_state_params2::id
beq L6AEF beq L6AEF
lda LE6BE lda LE6BE
jsr L8893 jsr L8893
@ -10293,7 +10304,7 @@ L6B68: lda #$01
ldy #$02 ldy #$02
lda (L0006),y lda (L0006),y
and #$0F and #$0F
sta $D212 sta query_state_params2::id
beq L6BA1 beq L6BA1
cmp desktop_winid cmp desktop_winid
bne L6BB8 bne L6BB8
@ -10302,7 +10313,7 @@ L6B68: lda #$01
lda LE6BE lda LE6BE
jsr L8915 jsr L8915
L6BA1: DESKTOP_RELAY_CALL $03, LE6BE L6BA1: DESKTOP_RELAY_CALL $03, LE6BE
lda $D212 lda query_state_params2::id
beq L6BB8 beq L6BB8
lda LE6BE lda LE6BE
jsr L8893 jsr L8893
@ -10313,7 +10324,7 @@ L6BB8: jsr L744B
ldy #$38 ldy #$38
jsr A2D_RELAY jsr A2D_RELAY
lda desktop_winid lda desktop_winid
sta $D212 sta query_state_params2::id
jsr L44F2 jsr L44F2
jsr L78EF jsr L78EF
jsr L6E52 jsr L6E52
@ -10352,13 +10363,13 @@ L6C19: ldx bufnum
L6C25: jsr push_zp_addrs L6C25: jsr push_zp_addrs
lda bufnum lda bufnum
sta $D212 sta query_state_params2::id
jsr L44F2 jsr L44F2
bit L4152 bit L4152
bmi L6C39 bmi L6C39
jsr L78EF jsr L78EF
L6C39: lda bufnum L6C39: lda bufnum
sta $D212 sta query_state_params2::id
jsr L4505 jsr L4505
L6C42: bit L4152 L6C42: bit L4152
bmi L6C4A bmi L6C4A
@ -10422,7 +10433,7 @@ L6CC5: jsr L4510
L6CCC: .byte 0 L6CCC: .byte 0
L6CCD: lda bufnum L6CCD: lda bufnum
sta $D212 sta query_state_params2::id
jsr L44F2 jsr L44F2
bit L4152 bit L4152
bmi L6CDE bmi L6CDE
@ -10442,7 +10453,7 @@ L6CF3: cpx buf3len
pla pla
jsr L4510 jsr L4510
lda bufnum lda bufnum
sta $D212 sta query_state_params2::id
jsr L44F2 jsr L44F2
jsr L6E6E jsr L6E6E
rts rts
@ -10474,7 +10485,7 @@ L6D31: lda #$00
lda #$00 lda #$00
sta LE230 sta LE230
beq L6D56 beq L6D56
L6D4D: sta $D212 L6D4D: sta query_state_params2::id
jsr L44F2 jsr L44F2
jsr L6E8E jsr L6E8E
L6D56: lda L6DB0 L6D56: lda L6DB0
@ -10522,7 +10533,7 @@ L6DC0: jsr L6E52
jsr L7B6B jsr L7B6B
jsr L6E6E jsr L6E6E
L6DC9: lda desktop_winid L6DC9: lda desktop_winid
sta $D212 sta query_state_params2::id
jsr L44F2 jsr L44F2
lda L7B5F lda L7B5F
cmp $D21D cmp $D21D
@ -12858,7 +12869,7 @@ L8228: lda $EC43,x
L8241: lda $EC53 L8241: lda $EC53
jsr L8707 jsr L8707
ldx #$04 ldx #$04
L8249: lda $DFC5,x L8249: lda LDFC5,x
sta text_buffer2::data-1,x sta text_buffer2::data-1,x
dex dex
bpl L8249 bpl L8249
@ -13403,20 +13414,20 @@ L8726: tya
sta L0006+1 sta L0006+1
ldx #$00 ldx #$00
L8736: lda (L0006),y L8736: lda (L0006),y
sta $DFC6,x sta LDFC6,x
iny iny
inx inx
cpx #$04 cpx #$04
bne L8736 bne L8736
stx $DFC5 stx LDFC5
rts rts
L8745: lda #$04 L8745: lda #$04
sta $DFC5 sta LDFC5
lda #$20 lda #$20
sta $DFC6 sta LDFC6
lda #$24 lda #$24
sta $DFC7 sta LDFC7
lda L877F lda L877F
lsr a lsr a
lsr a lsr a
@ -13429,7 +13440,7 @@ L8745: lda #$04
bne L8767 bne L8767
L8764: clc L8764: clc
adc #$37 adc #$37
L8767: sta $DFC8 L8767: sta LDFC8
lda L877F lda L877F
and #$0F and #$0F
cmp #$0A cmp #$0A
@ -13439,7 +13450,7 @@ L8767: sta $DFC8
bne L877B bne L877B
L8778: clc L8778: clc
adc #$37 adc #$37
L877B: sta $DFC9 L877B: sta LDFC9
rts rts
L877F: .byte 0 L877F: .byte 0
@ -14550,12 +14561,12 @@ L906D: .byte 0
L9076: ldy #$FF L9076: ldy #$FF
L9078: iny L9078: iny
lda $E00A,y lda $E00A,y
sta $DFC9,y sta LDFC9,y
cpy $E00A cpy $E00A
bne L9078 bne L9078
lda $DFC9 lda LDFC9
beq L908C beq L908C
dec $DFC9 dec LDFC9
L908C: lda #$00 L908C: lda #$00
sta L97E4 sta L97E4
jsr LA248 jsr LA248
@ -15060,7 +15071,7 @@ L9491: lda $E6EC,y
sta $0220 sta $0220
ldx $0220 ldx $0220
L94A9: lda $0220,x L94A9: lda $0220,x
sta $DFC9,x sta LDFC9,x
dex dex
bpl L94A9 bpl L94A9
lda #$C9 lda #$C9
@ -15098,7 +15109,7 @@ L94A9: lda $0220,x
bne L9519 bne L9519
ldx L953A ldx L953A
L950E: lda L953A,x L950E: lda L953A,x
sta $DFC5,x sta LDFC5,x
dex dex
bpl L950E bpl L950E
bmi L951F bmi L951F
@ -15114,7 +15125,7 @@ L952E: inc L92E6
jmp L92F5 jmp L92F5
L9534: lda #$00 L9534: lda #$00
sta $DFC9 sta LDFC9
rts rts
L953A: PASCAL_STRING " VOL" L953A: PASCAL_STRING " VOL"
@ -16811,8 +16822,8 @@ LA37F: iny
LA38A: sta $0220,y LA38A: sta $0220,y
cpy $E00A cpy $E00A
bne LA37F bne LA37F
ldy $DFC9 ldy LDFC9
LA395: lda $DFC9,y LA395: lda LDFC9,y
sta $1FC0,y sta $1FC0,y
dey dey
bpl LA395 bpl LA395
@ -16828,7 +16839,7 @@ LA3A7: ldy #$CC
jsr L4021 jsr L4021
lda selected_window_index lda selected_window_index
beq LA3CA beq LA3CA
sta $D212 sta query_state_params2::id
ldy #$3C ldy #$3C
lda #$12 lda #$12
ldx #$D2 ldx #$D2
@ -18266,10 +18277,10 @@ LB27D: jsr LBD75
lda ($08),y lda ($08),y
tay tay
LB2CA: lda ($08),y LB2CA: lda ($08),y
sta $D8D7,y sta buf_filename,y
dey dey
bpl LB2CA bpl LB2CA
yax_call draw_dialog_label, $D8D7, $02 yax_call draw_dialog_label, buf_filename, $02
yax_call draw_dialog_label, str_rename_new, $04 yax_call draw_dialog_label, str_rename_new, $04
lda #$00 lda #$00
sta $D443 sta $D443
@ -18726,8 +18737,8 @@ LB7A3: iny
LB7B5: dey LB7B5: dey
jmp LB78D jmp LB78D
LB7B9: sta $D212 LB7B9: sta query_state_params2::id
A2D_RELAY_CALL A2D_QUERY_STATE, $D212 A2D_RELAY_CALL A2D_QUERY_STATE, query_state_params2
ldy #$04 ldy #$04
lda #$15 lda #$15
LB7CA := *+1 LB7CA := *+1