mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-09-01 05:29:18 +00:00
29 lines
409 B
OpenEdge ABL
29 lines
409 B
OpenEdge ABL
; load A/X macro
|
|
.macro ldax arg
|
|
.if (.match (.left (1, arg), #)) ; immediate mode
|
|
lda #<(.right (.tcount (arg)-1, arg))
|
|
ldx #>(.right (.tcount (arg)-1, arg))
|
|
.else ; assume absolute or zero page
|
|
lda arg
|
|
ldx 1+(arg)
|
|
.endif
|
|
.endmacro
|
|
|
|
; store A/X macro
|
|
.macro stax arg
|
|
sta arg
|
|
stx 1+(arg)
|
|
.endmacro
|
|
|
|
|
|
.macro phax
|
|
pha
|
|
txa
|
|
pha
|
|
.endmacro
|
|
|
|
.macro plax
|
|
pla
|
|
tax
|
|
pla
|
|
.endmacro |