emailler/client/inc/common.i

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