mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-11-18 21:07:03 +00:00
18 lines
317 B
OpenEdge ABL
18 lines
317 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
|
||
|
|
|