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

DeskTop S4: Wrap A2D_RELAY use in macros

Browse Source
This commit is contained in:
Joshua Bell 2017-12-30 19:59:27 -08:00
parent 8343a38c4b
commit c20eeb4b3e
3 changed files with 284 additions and 1092 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
a2d.inc
View File

@ -588,3 +588,11 @@ end:
A2D_GLYPH_RETURN := $0D A2D_GLYPH_RETURN := $0D
A2D_GLYPH_OAPPLE := $1F A2D_GLYPH_OAPPLE := $1F
A2D_GLYPH_CAPPLE := $1E A2D_GLYPH_CAPPLE := $1E
;; Relay for main>aux A2D call (Y=call, X,A=params addr)
.macro A2D_RELAY_CALL call, addr
ldy #(call)
lda #<(addr)
ldx #>(addr)
jsr desktop_A2D_RELAY
.endmacro

8
desktop/s123_aux.s
View File

@ -8860,14 +8860,6 @@ L859C: sta $D409,x
sta $D40D sta $D40D
sta $D40F sta $D40F
;; Relay for main>aux A2D call (Y=call, X,A=params addr)
.macro A2D_RELAY_CALL call, addr
ldy #(call)
lda #<(addr)
ldx #>(addr)
jsr desktop_A2D_RELAY
.endmacro
A2D_RELAY_CALL A2D_SET_STATE, $D401 A2D_RELAY_CALL A2D_SET_STATE, $D401
rts rts

1360
desktop/s4_main1.s
View File

File diff suppressed because it is too large Load Diff