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

DeskTop: more ids

Browse Source
This commit is contained in:
Joshua Bell 2018-01-15 10:08:50 -08:00
parent 33f37b30f3
commit 03fc6e1071
1 changed files with 79 additions and 63 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

142
desktop/desktop.s
View File

@ -1,4 +1,4 @@
.setcpu "6502" .setcpu "6502"
.include "apple2.inc" .include "apple2.inc"
.include "../inc/apple2.inc" .include "../inc/apple2.inc"
@ -4787,10 +4787,26 @@ LD760: PASCAL_STRING "Run list"
.byte $12 .byte $12
.byte $1A,$00,$00,$00,$00,$00,$00,$00 .byte $1A,$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
.byte $00,$00,$00,$14,$00,$00,$00,$00 .byte $00
.byte $01,$06,$00,$00,$00,$00,$00,$00
str_1_null: LD8E7: .byte 0
LD8E8: .byte 0
LD8E9: .byte $14
.byte $00
LD8EB: .byte 0
LD8EC: .byte 0
LD8ED: .byte 0
LD8EE: .byte 1
LD8EF: .byte 6
LD8F0: .byte 0
LD8F1: .byte 0
LD8F2: .byte 0
LD8F3: .byte 0
LD8F4: .byte 0
LD8F5: .byte 0
str_1_char:
PASCAL_STRING {0} PASCAL_STRING {0}
str_2_spaces: str_2_spaces:
@ -16981,17 +16997,17 @@ LA520: sta LA51D
lda LA503+1,x lda LA503+1,x
sta LA565+1 sta LA565+1
lda #$00 lda #$00
sta $D8EB sta LD8EB
sta $D8EC sta LD8EC
sta $D8F0 sta LD8F0
sta $D8F1 sta LD8F1
sta $D8F2 sta LD8F2
sta $D8E8 sta LD8E8
sta $D8F5 sta LD8F5
sta $D8ED sta LD8ED
sta LB3E6 sta LB3E6
lda #$14 lda #$14
sta $D8E9 sta LD8E9
lda #$98 lda #$98
sta LA89A sta LA89A
lda #$A8 lda #$A8
@ -17000,13 +17016,13 @@ LA520: sta LA51D
LA565 := *+1 LA565 := *+1
jmp $0000 ; self-modified jmp $0000 ; self-modified
LA567: lda $D8E8 LA567: lda LD8E8
beq LA579 beq LA579
dec $D8E9 dec LD8E9
bne LA579 bne LA579
jsr LB8F5 jsr LB8F5
lda #$14 lda #$14
sta $D8E9 sta LD8E9
LA579: A2D_RELAY_CALL A2D_GET_INPUT, input_params LA579: A2D_RELAY_CALL A2D_GET_INPUT, input_params
lda input_params_state lda input_params_state
cmp #A2D_INPUT_DOWN cmp #A2D_INPUT_DOWN
@ -17017,7 +17033,7 @@ LA58C: cmp #$03
bne LA593 bne LA593
jmp LA6FD jmp LA6FD
LA593: lda $D8E8 LA593: lda LD8E8
beq LA567 beq LA567
A2D_RELAY_CALL A2D_QUERY_TARGET, input_params_coords A2D_RELAY_CALL A2D_QUERY_TARGET, input_params_coords
lda query_target_params_element lda query_target_params_element
@ -17070,7 +17086,7 @@ LA614: lda winF
sta input_params sta input_params
A2D_RELAY_CALL A2D_MAP_COORDS, input_params A2D_RELAY_CALL A2D_MAP_COORDS, input_params
A2D_RELAY_CALL A2D_SET_POS, $D20D A2D_RELAY_CALL A2D_SET_POS, $D20D
bit $D8E7 bit LD8E7
bvc LA63A bvc LA63A
jmp LA65E jmp LA65E
@ -17116,7 +17132,7 @@ LA6A0: A2D_RELAY_CALL A2D_TEST_BOX, LAE38
lda #$04 lda #$04
LA6C0: rts LA6C0: rts
LA6C1: bit $D8E7 LA6C1: bit LD8E7
bpl LA6C9 bpl LA6C9
lda #$FF lda #$FF
rts rts
@ -17133,7 +17149,7 @@ LA6D9: jsr LB43B
lda #$01 lda #$01
LA6EC: rts LA6EC: rts
LA6ED: bit $D8E8 LA6ED: bit LD8E8
bmi LA6F7 bmi LA6F7
lda #$FF lda #$FF
jmp LA899 jmp LA899
@ -17162,7 +17178,7 @@ LA71A: lda input_params_key
and #$7F and #$7F
cmp #KEY_LEFT cmp #KEY_LEFT
bne LA72E bne LA72E
bit $D8ED bit LD8ED
bpl LA72B bpl LA72B
jmp L0CB8 jmp L0CB8
@ -17170,7 +17186,7 @@ LA72B: jmp LA82B
LA72E: cmp #KEY_RIGHT LA72E: cmp #KEY_RIGHT
bne LA73D bne LA73D
bit $D8ED bit LD8ED
bpl LA73A bpl LA73A
jmp L0CD7 jmp L0CD7
@ -17178,13 +17194,13 @@ LA73A: jmp LA83E
LA73D: cmp #KEY_RETURN LA73D: cmp #KEY_RETURN
bne LA749 bne LA749
bit $D8E7 bit LD8E7
bvs LA717 bvs LA717
jmp LA851 jmp LA851
LA749: cmp #KEY_ESCAPE LA749: cmp #KEY_ESCAPE
bne LA755 bne LA755
bit $D8E7 bit LD8E7
bmi LA717 bmi LA717
jmp LA86F jmp LA86F
@ -17194,7 +17210,7 @@ LA755: cmp #KEY_DELETE
LA75C: cmp #KEY_UP LA75C: cmp #KEY_UP
bne LA76B bne LA76B
bit $D8ED bit LD8ED
bmi LA768 bmi LA768
jmp LA717 jmp LA717
@ -17202,13 +17218,13 @@ LA768: jmp L0D14
LA76B: cmp #KEY_DOWN LA76B: cmp #KEY_DOWN
bne LA77A bne LA77A
bit $D8ED bit LD8ED
bmi LA777 bmi LA777
jmp LA717 jmp LA717
LA777: jmp L0CF9 LA777: jmp L0CF9
LA77A: bit $D8E7 LA77A: bit LD8E7
bvc LA79B bvc LA79B
cmp #'Y' cmp #'Y'
beq LA7E8 beq LA7E8
@ -17224,7 +17240,7 @@ LA77A: bit $D8E7
beq LA806 beq LA806
cmp #KEY_RETURN cmp #KEY_RETURN
beq LA7E8 beq LA7E8
LA79B: bit $D8F5 LA79B: bit LD8F5
bmi LA7C8 bmi LA7C8
cmp #$2E cmp #$2E
beq LA7D8 beq LA7D8
@ -17259,7 +17275,7 @@ LA7CF: cmp #$7E
LA7D8: ldx $D443 LA7D8: ldx $D443
beq LA7E5 beq LA7E5
LA7DD: ldx $D8E8 LA7DD: ldx LD8E8
beq LA7E5 beq LA7E5
jsr LBB0B jsr LBB0B
LA7E5: lda #$FF LA7E5: lda #$FF
@ -17280,21 +17296,21 @@ LA806: jsr LB43B
lda #$04 lda #$04
rts rts
LA815: lda $D8E8 LA815: lda LD8E8
beq LA81D beq LA81D
jsr LBC5E jsr LBC5E
LA81D: lda #$FF LA81D: lda #$FF
rts rts
LA820: lda $D8E8 LA820: lda LD8E8
beq LA828 beq LA828
jsr LBCC9 jsr LBCC9
LA828: lda #$FF LA828: lda #$FF
rts rts
LA82B: lda $D8E8 LA82B: lda LD8E8
beq LA83B beq LA83B
bit $D8ED bit LD8ED
bpl LA838 bpl LA838
jmp L0CD7 jmp L0CD7
@ -17302,9 +17318,9 @@ LA838: jsr LBBA4
LA83B: lda #$FF LA83B: lda #$FF
rts rts
LA83E: lda $D8E8 LA83E: lda LD8E8
beq LA84E beq LA84E
bit $D8ED bit LD8ED
bpl LA84B bpl LA84B
jmp L0CB8 jmp L0CB8
@ -17328,7 +17344,7 @@ LA86F: lda winF
lda #$01 lda #$01
rts rts
LA88D: lda $D8E8 LA88D: lda LD8E8
beq LA895 beq LA895
jsr LBB63 jsr LBB63
LA895: lda #$FF LA895: lda #$FF
@ -17430,7 +17446,7 @@ LA97A: cmp #$05
jmp LAA5A jmp LAA5A
LA981: lda #$00 LA981: lda #$00
sta $D8E8 sta LD8E8
jsr LB53A jsr LB53A
addr_call LB723, str_copy_title addr_call LB723, str_copy_title
axy_call draw_dialog_label, str_copy_copying, $01 axy_call draw_dialog_label, str_copy_copying, $01
@ -17559,7 +17575,7 @@ LAAFD: cmp #$04
jmp LABC8 jmp LABC8
LAB04: lda #$00 LAB04: lda #$00
sta $D8E8 sta LD8E8
jsr LB53A jsr LB53A
addr_call LB723, str_download addr_call LB723, str_download
axy_call draw_dialog_label, str_copy_copying, $01 axy_call draw_dialog_label, str_copy_copying, $01
@ -17736,7 +17752,7 @@ LACF7: cmp #$05
LACFE: sta LAD1F LACFE: sta LAD1F
lda #$00 lda #$00
sta $D8E8 sta LD8E8
jsr LB53A jsr LB53A
addr_call LB723, str_delete_title addr_call LB723, str_delete_title
lda LAD1F lda LAD1F
@ -17839,7 +17855,7 @@ LAE42: cmp #$40
jmp LAF16 jmp LAF16
LAE49: lda #$80 LAE49: lda #$80
sta $D8E8 sta LD8E8
jsr LBD69 jsr LBD69
lda #$00 lda #$00
jsr LB509 jsr LB509
@ -17851,9 +17867,9 @@ LAE49: lda #$80
rts rts
LAE70: lda #$80 LAE70: lda #$80
sta $D8E8 sta LD8E8
lda #$00 lda #$00
sta $D8E7 sta LD8E7
jsr LBD75 jsr LBD75
jsr LB3BF jsr LB3BF
ldy #$01 ldy #$01
@ -17933,7 +17949,7 @@ show_get_info_dialog:
jmp LAFB9 jmp LAFB9
LAF34: lda #$00 LAF34: lda #$00
sta $D8E8 sta LD8E8
lda (L0006),y lda (L0006),y
lsr a lsr a
lsr a lsr a
@ -18049,7 +18065,7 @@ LB048: cmp #$04
jmp LB13A jmp LB13A
LB04F: lda #$00 LB04F: lda #$00
sta $D8E8 sta LD8E8
jsr LB53A jsr LB53A
addr_call LB723, str_lock_title addr_call LB723, str_lock_title
yax_call draw_dialog_label, str_lock_ok, $04 yax_call draw_dialog_label, str_lock_ok, $04
@ -18141,7 +18157,7 @@ LB166: cmp #$04
jmp LB258 jmp LB258
LB16D: lda #$00 LB16D: lda #$00
sta $D8E8 sta LD8E8
jsr LB53A jsr LB53A
addr_call LB723, str_unlock_title addr_call LB723, str_unlock_title
yax_call draw_dialog_label, str_unlock_ok, $04 yax_call draw_dialog_label, str_unlock_ok, $04
@ -18227,7 +18243,7 @@ LB276: cmp #$40
LB27D: jsr LBD75 LB27D: jsr LBD75
jsr LB3BF jsr LB3BF
lda #$80 lda #$80
sta $D8E8 sta LD8E8
jsr LBD69 jsr LBD69
lda #$00 lda #$00
jsr LB509 jsr LB509
@ -18261,9 +18277,9 @@ LB2CA: lda ($08),y
rts rts
LB2ED: lda #$00 LB2ED: lda #$00
sta $D8E7 sta LD8E7
lda #$80 lda #$80
sta $D8E8 sta LD8E8
lda winF lda winF
jsr LB7B9 jsr LB7B9
LB2FD: jsr LA567 LB2FD: jsr LA567
@ -18469,16 +18485,16 @@ LB505: .byte 0
LB506: .byte 0 LB506: .byte 0
LB507: .byte 0 LB507: .byte 0
LB508: .byte 0 LB508: .byte 0
LB509: sta $D8E7 LB509: sta LD8E7
jsr LB53A jsr LB53A
bit $D8E7 bit LD8E7
bvc LB51A bvc LB51A
jsr LB64E jsr LB64E
jmp LB526 jmp LB526
LB51A: A2D_RELAY_CALL A2D_DRAW_RECT, LAE20 LB51A: A2D_RELAY_CALL A2D_DRAW_RECT, LAE20
jsr LB5F9 jsr LB5F9
LB526: bit $D8E7 LB526: bit LD8E7
bmi LB537 bmi LB537
A2D_RELAY_CALL A2D_DRAW_RECT, LAE10 A2D_RELAY_CALL A2D_DRAW_RECT, LAE10
jsr LB60A jsr LB60A
@ -18582,7 +18598,7 @@ LB64E: jsr LB43B
jsr LB63D jsr LB63D
jsr LB60A jsr LB60A
lda #$40 lda #$40
sta $D8E7 sta LD8E7
rts rts
LB687: jsr LBEA7 LB687: jsr LBEA7
@ -18598,7 +18614,7 @@ LB6AF: jsr LB43B
jsr LB5F9 jsr LB5F9
jsr LB60A jsr LB60A
lda #$00 lda #$00
sta $D8E7 sta LD8E7
rts rts
LB6D0: jsr LBEA7 LB6D0: jsr LBEA7
@ -18610,7 +18626,7 @@ LB6E6: jsr LB43B
A2D_RELAY_CALL A2D_DRAW_RECT, LAE20 A2D_RELAY_CALL A2D_DRAW_RECT, LAE20
jsr LB5F9 jsr LB5F9
lda #$80 lda #$80
sta $D8E7 sta LD8E7
rts rts
LB6FB: jsr LBEA7 LB6FB: jsr LBEA7
@ -18844,20 +18860,20 @@ LB8F5: jsr LBD3B
sta $09 sta $09
A2D_RELAY_CALL A2D_SET_POS, $0006 A2D_RELAY_CALL A2D_SET_POS, $0006
A2D_RELAY_CALL A2D_SET_BOX, LD6C7 A2D_RELAY_CALL A2D_SET_BOX, LD6C7
bit $D8EB bit LD8EB
bpl LB92D bpl LB92D
A2D_RELAY_CALL A2D_SET_TEXT_MASK, LAE6C A2D_RELAY_CALL A2D_SET_TEXT_MASK, LAE6C
lda #$00 lda #$00
sta $D8EB sta LD8EB
beq LB93B beq LB93B
LB92D: A2D_RELAY_CALL A2D_SET_TEXT_MASK, LAE6D LB92D: A2D_RELAY_CALL A2D_SET_TEXT_MASK, LAE6D
lda #$FF lda #$FF
sta $D8EB sta LD8EB
LB93B: lda #$EF LB93B: lda #$EF
sta L0006 sta L0006
lda #$D8 lda #$D8
sta L0006+1 sta L0006+1
lda $D8EE lda LD8EE
sta $08 sta $08
A2D_RELAY_CALL A2D_DRAW_TEXT, $0006 A2D_RELAY_CALL A2D_DRAW_TEXT, $0006
A2D_RELAY_CALL A2D_SET_TEXT_MASK, LAE6D A2D_RELAY_CALL A2D_SET_TEXT_MASK, LAE6D
@ -19016,7 +19032,7 @@ LBADE: cpx $D484
jmp LBADE jmp LBADE
LBAEE: sty $D3C1 LBAEE: sty $D3C1
lda $D8EF lda LD8EF
sta $D3C2 sta $D3C2
LBAF7: lda $D3C1,y LBAF7: lda $D3C1,y
sta $D484,y sta $D484,y
@ -19041,7 +19057,7 @@ LBB1A: lda LBB62
ldx $D443 ldx $D443
inx inx
sta $D443,x sta $D443,x
sta $D8F7 sta str_1_char+1
jsr LBD3B jsr LBD3B
inc $D443 inc $D443
sta L0006 sta L0006
@ -19052,7 +19068,7 @@ LBB1A: lda LBB62
sta $09 sta $09
A2D_RELAY_CALL A2D_SET_POS, $0006 A2D_RELAY_CALL A2D_SET_POS, $0006
A2D_RELAY_CALL A2D_SET_BOX, LD6C7 A2D_RELAY_CALL A2D_SET_BOX, LD6C7
addr_call draw_text1, str_1_null addr_call draw_text1, str_1_char
addr_call draw_text1, $D484 addr_call draw_text1, $D484
lda winF lda winF
jsr LB7B9 jsr LB7B9
@ -19160,7 +19176,7 @@ LBC80: lda $D443,x
sta $D485,x sta $D485,x
dex dex
bne LBC80 bne LBC80
lda $D8EF lda LD8EF
sta $D485 sta $D485
inc $D443 inc $D443
lda $D443 lda $D443
@ -19269,7 +19285,7 @@ LBD51: A2D_RELAY_CALL A2D_MEASURE_TEXT, $0006
LBD69: lda #$01 LBD69: lda #$01
sta $D484 sta $D484
lda $D8EF lda LD8EF
sta $D485 sta $D485
rts rts