Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2025-02-20 02:29:11 +00:00
Code Issues Projects Releases Wiki Activity

DeskTop: macros for LA500 calls

Browse Source
This commit is contained in:
Joshua Bell 2018-01-16 21:06:20 -07:00
parent f36a10ae74
commit 66baa3719e
1 changed files with 23 additions and 92 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

115
desktop/desktop.s
View File

@ -6553,10 +6553,7 @@ L48C2: lda $E196,x
rts rts
L48CC: sta $D2AC L48CC: sta $D2AC
ldy #$0C yax_call LA500, $D2AC, $0C
lda #$AC
ldx #$D2
jsr LA500
rts rts
lda #$88 lda #$88
@ -6909,10 +6906,7 @@ L4B9C: inx
L4BB0: .byte 0 L4BB0: .byte 0
L4BB1: .byte 0 L4BB1: .byte 0
ldy #$00 yax_call LA500, $0000, $00
lda #$00
ldx #$00
jsr LA500
jmp L4523 jmp L4523
L4BBE: .byte $80,$20 ; ??? L4BBE: .byte $80,$20 ; ???
@ -7341,10 +7335,7 @@ L4F76: .res 64
lda desktop_winid lda desktop_winid
sta L4F67 sta L4F67
ldy #$03 yax_call LA500, $4F67, $03
lda #$67
ldx #$4F
jsr LA500
L4FC6: lda desktop_winid L4FC6: lda desktop_winid
beq L4FD4 beq L4FD4
jsr L86FB jsr L86FB
@ -7352,10 +7343,7 @@ L4FC6: lda desktop_winid
stx L4F69 stx L4F69
L4FD4: lda #$80 L4FD4: lda #$80
sta L4F67 sta L4F67
ldy #$03 yax_call LA500, $4F67, $03
lda #$67
ldx #$4F
jsr LA500
beq L4FE7 beq L4FE7
jmp L504B jmp L504B
@ -7388,10 +7376,7 @@ L5000: lda DATELO,x
L5027: lda #$40 L5027: lda #$40
sta L4F67 sta L4F67
ldy #$03 yax_call LA500, $4F67, $03
lda #$67
ldx #$4F
jsr LA500
lda #$76 lda #$76
ldx #$4F ldx #$4F
jsr L6F90 jsr L6F90
@ -15170,10 +15155,7 @@ L9534: lda #$00
rts rts
L953A: PASCAL_STRING " VOL" L953A: PASCAL_STRING " VOL"
L953F: ldy #$06 L953F: yax_call LA500, $92E3, $06
lda #$E3
ldx #$92
jsr LA500
rts rts
L9549: ldx #$00 L9549: ldx #$00
@ -15377,10 +15359,7 @@ L96EB: lda (L0006),y
jmp L9576 jmp L9576
L96F8: sta L956E L96F8: sta L956E
ldy #$09 yax_call LA500, $956E, $09
lda #$6E
ldx #$95
jsr LA500
rts rts
.byte $00 .byte $00
@ -15633,20 +15612,14 @@ L9984: lda #$00
sta L9180 sta L9180
lda #$99 lda #$99
sta L9180+1 sta L9180+1
ldy #$0A yax_call LA500, $9937, $0A
lda #$37
ldx #$99
jsr LA500
rts rts
sta L9938 sta L9938
stx L9939 stx L9939
lda #$01 lda #$01
sta L9937 sta L9937
ldy #$0A yax_call LA500, $9937, $0A
lda #$37
ldx #$99
jsr LA500
rts rts
L99BC: lda #$80 L99BC: lda #$80
@ -15666,18 +15639,12 @@ L99C3: lda L9931,y
lda #$03 lda #$03
sta L9937 sta L9937
ldy #$0A yax_call LA500, $9937, $0A
lda #$37
ldx #$99
jsr LA500
rts rts
lda #$04 lda #$04
sta L9937 sta L9937
ldy #$0A yax_call LA500, $9937, $0A
lda #$37
ldx #$99
jsr LA500
cmp #$02 cmp #$02
bne L99FE bne L99FE
rts rts
@ -15875,10 +15842,7 @@ L9BAA: jsr LA322
L9BBB: jsr LA360 L9BBB: jsr LA360
L9BBE: rts L9BBE: rts
L9BBF: ldy #$01 L9BBF: yax_call LA500, $9937, $01
lda #$37
ldx #$99
jsr LA500
rts rts
L9BC9: yax_call L4021, $9787, $C4 L9BC9: yax_call L4021, $9787, $C4
@ -16124,10 +16088,7 @@ L9E26: yax_call L4021, $975A, $C0
bmi L9E60 bmi L9E60
lda #$03 lda #$03
sta L9937 sta L9937
ldy #$01 yax_call LA500, $9937, $01
lda #$37
ldx #$99
jsr LA500
pha pha
lda #$02 lda #$02
sta L9937 sta L9937
@ -16304,10 +16265,7 @@ L9FC2: yax_call L4021, $973B, $C1
bmi LA001 bmi LA001
lda #$04 lda #$04
sta L9E79 sta L9E79
ldy #$02 yax_call LA500, $9E79, $02
lda #$79
ldx #$9E
jsr LA500
pha pha
lda #$03 lda #$03
sta L9E79 sta L9E79
@ -16351,10 +16309,7 @@ LA02E: yax_call L4021, $973B, $C1
LA043: rts LA043: rts
LA044: ldy #$02 LA044: yax_call LA500, $9E79, $02
lda #$79
ldx #$9E
jsr LA500
rts rts
LA04E: .byte $70,$A1,$E3,$97,$E3,$97 LA04E: .byte $70,$A1,$E3,$97,$E3,$97
@ -16442,16 +16397,10 @@ LA0E6: lda LA04E,y
sta LA054 sta LA054
jmp LA10A jmp LA10A
LA100: ldy #$07 LA100: yax_call LA500, $A054, $07
lda #$54
ldx #$A0
jsr LA500
rts rts
LA10A: ldy #$08 LA10A: yax_call LA500, $A054, $08
lda #$54
ldx #$A0
jsr LA500
rts rts
LA114: lda #$03 LA114: lda #$03
@ -16552,10 +16501,7 @@ LA1E4: lda #$00
sta L917D sta L917D
lda #$A2 lda #$A2
sta L917D+1 sta L917D+1
ldy #$0B yax_call LA500, $A1DF, $0B
lda #$DF
ldx #$A1
jsr LA500
lda #$33 lda #$33
sta L9180 sta L9180
lda #$A2 lda #$A2
@ -16564,27 +16510,18 @@ LA1E4: lda #$00
lda #$01 lda #$01
sta LA1DF sta LA1DF
ldy #$0B yax_call LA500, $A1DF, $0B
lda #$DF
ldx #$A1
jsr LA500
LA21F: rts LA21F: rts
lda #$02 lda #$02
sta LA1DF sta LA1DF
ldy #$0B yax_call LA500, $A1DF, $0B
lda #$DF
ldx #$A1
jsr LA500
beq LA21F beq LA21F
jmp LA39F jmp LA39F
lda #$03 lda #$03
sta LA1DF sta LA1DF
ldy #$0B yax_call LA500, $A1DF, $0B
lda #$DF
ldx #$A1
jsr LA500
LA241: rts LA241: rts
LA242: .byte $AE,$A2,$E3,$97,$E3,$97 LA242: .byte $AE,$A2,$E3,$97,$E3,$97
@ -16799,10 +16736,7 @@ LA3EF: lda LA2ED
lda LA2EE lda LA2EE
sbc #$00 sbc #$00
sta L9E7B sta L9E7B
ldy #$02 yax_call LA500, $9E79, $02
lda #$79
ldx #$9E
jsr LA500
rts rts
LA40A: lda LA2ED LA40A: lda LA2ED
@ -16812,10 +16746,7 @@ LA40A: lda LA2ED
lda LA2EE lda LA2EE
sbc #$00 sbc #$00
sta L9939 sta L9939
ldy #$01 yax_call LA500, $9937, $01
lda #$37
ldx #$99
jsr LA500
rts rts
LA425: .byte 0 LA425: .byte 0