emailler/client/inc/common.i

.ifndef COMMON__I__
COMMON__I__ = 1
; 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

.endif
git-svn-id: http://svn.code.sf.net/p/netboot65/code@174 93682198-c243-4bdb-bd91-e943c89aac3b 2009-08-11 11:32:06 +00:00			`.ifndef COMMON__I__`
			`COMMON__I__ = 1`
git-svn-id: http://svn.code.sf.net/p/netboot65/code@15 93682198-c243-4bdb-bd91-e943c89aac3b 2009-01-22 01:27:03 +00:00			`; 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`

git-svn-id: http://svn.code.sf.net/p/netboot65/code@116 93682198-c243-4bdb-bd91-e943c89aac3b 2009-04-17 01:50:21 +00:00
			`.macro phax`
			`pha`
			`txa`
			`pha`
			`.endmacro`

			`.macro plax`
			`pla`
			`tax`
			`pla`
git-svn-id: http://svn.code.sf.net/p/netboot65/code@174 93682198-c243-4bdb-bd91-e943c89aac3b 2009-08-11 11:32:06 +00:00			`.endmacro`

			`.endif`