a2d/macros.inc

;;; ==================================================
;;; Generic Macros
;;; ==================================================

.define is_immediate(arg)       (.match (.mid (0, 1, {arg}), #))
.define is_register(arg)        (.match ({arg}, x) .or .match ({arg}, y))
.define immediate_value(arg)    (.right (.tcount ({arg})-1, {arg}))

;;; ==================================================
;;; Pad with zeros to the given address

.macro PAD_TO addr
        .res    addr - *, 0
.endmacro

;;; ==================================================
;;; Common patterns

.macro  return arg
        lda     arg
        rts
.endmacro

;;; ==================================================
;;; Calls with one parameter (address in A,X)

.macro addr_call target, addr
        lda     #<addr
        ldx     #>addr
        jsr     target
.endmacro

.macro addr_call_indirect target, addr
        lda     addr
        ldx     addr+1
        jsr     target
.endmacro

.macro addr_jump target, addr
        lda     #<addr
        ldx     #>addr
        jmp     target
.endmacro

;;; ==================================================
;;; Calls with two paramters (call # in y, address in A,X)
;;; (various output orders to match original binary)

.macro axy_call target, yparam, addr
        lda     #<addr
        ldx     #>addr
        ldy     #yparam
        jsr     target
.endmacro

.macro yax_call target, yparam, addr
        ldy     #yparam
        lda     #<addr
        ldx     #>addr
        jsr     target
.endmacro

.macro yxa_call target, yparam, addr
        ldy     #yparam
        ldx     #>addr
        lda     #<addr
        jsr     target
.endmacro

.macro yxa_jump target, yparam, addr
        ldy     #yparam
        ldx     #>addr
        lda     #<addr
        jmp     target
.endmacro


;;; ==================================================
;;; 16-bit pseudo-ops

;;; Load A,X
;;;    ldax #$1234      ; immediate
;;;    ldax $1234       ; absolute
.macro ldax arg
    .if is_immediate {arg}
        lda     #<immediate_value {arg}
        ldx     #>immediate_value {arg}
    .else
        lda     arg
        ldx     arg+1
    .endif
.endmacro

;;; Load X,Y
;;;    ldxy #$1234      ; immediate
;;;    ldxy $1234       ; absolute
.macro ldxy arg
    .if is_immediate {arg}
        ldx     #<immediate_value {arg}
        ldy     #>immediate_value {arg}
    .else
        ldx     arg
        ldy     arg+1
    .endif
.endmacro

;;; Store A,X
;;;    stax $1234       ; absolute
.macro stax arg
        sta     arg
        stx     arg+1
.endmacro

;;; Add arg1 to arg2, store to arg3
;;;    add16 $1111, $2222, $3333        ; absolute, absolute, absolute
;;;    add16 $1111, #$2222, $3333       ; absolute, immediate, absolute
;;;    add16 $1111,x, $2222, $3333      ; indexed, absolute, absolute
;;;    add16 $1111,y, $2222, $3333      ; indexed, absolute, absolute
;;;    add16 $1111, $2222,x, $3333      ; absolute, indexed, absolute
;;;    add16 $1111, $2222,y, $3333      ; absolute, indexed, absolute
;;;    add16 $1111, $2222, $3333,x      ; absolute, absolute, indexed
;;;    add16 $1111, $2222, $3333,y      ; absolute, absolute, indexed
;;;    add16 $1111,x, $2222, $3333,x    ; indexed, absolute, indexed
;;;    add16 $1111,y, $2222, $3333,y    ; indexed, absolute, indexed
;;;    add16 $1111,x, $2222,x, $3333,x  ; indexed, indexed, indexed
;;;    add16 $1111,y, $2222,y, $3333,y  ; indexed, indexed, indexed
.macro add16 arg1, arg2, arg3, arg4, arg5, arg6
    .if is_register {arg2} && is_register {arg4} && is_register {arg6}
        lda     arg1,arg2
        clc
        adc     arg3,arg4
        sta     arg5,arg6
        lda     arg1+1,arg2
        adc     arg3+1,arg4
        sta     arg5+1,arg6
    .elseif is_register {arg2} && is_register {arg5}
        lda     arg1,arg2
        clc
        adc     arg3
        sta     arg4,arg5
        lda     arg1+1,arg2
        adc     arg3+1
        sta     arg4+1,arg5
    .elseif is_register {arg2}
        lda     arg1,arg2
        clc
        adc     arg3
        sta     arg4
        lda     arg1+1,arg2
        adc     arg3+1
        sta     arg4+1
    .elseif is_register {arg3}
        lda     arg1
        clc
        adc     arg2,arg3
        sta     arg4
        lda     arg1+1
        adc     arg2+1,arg3
        sta     arg4+1
    .elseif is_register {arg4}
        lda     arg1
        clc
        adc     arg2
        sta     arg3,arg4
        lda     arg1+1
        adc     arg2+1
        sta     arg3+1,arg4
    .elseif is_immediate {arg2}
        lda     arg1
        clc
        adc     #<immediate_value {arg2}
        sta     arg3
        lda     arg1+1
        adc     #>immediate_value {arg2}
        sta     arg3+1
    .else
        lda     arg1
        clc
        adc     arg2
        sta     arg3
        lda     arg1+1
        adc     arg2+1
        sta     arg3+1
    .endif
.endmacro

;;; Add arg1 (absolute) to arg2 (8-bit absolute), store to arg3
;;;    add16_8 $1111, #$22, $3333       ; absolute, immediate, absolute
;;;    add16_8 $1111, $22, $3333        ; absolute, absolute, absolute
.macro add16_8 arg1, arg2, arg3
        lda     arg1
        clc
        adc     arg2
        sta     arg3
        lda     arg1+1
        adc     #0
        sta     arg3+1
.endmacro

;;; Subtract arg2 from arg1, store to arg3
;;;    sub16 #$1111, $2222, $3333       ; immediate, absolute, absolute
;;;    sub16 $1111, #$2222, $3333       ; absolute, immediate, absolute
;;;    sub16 $1111, $2222, $3333        ; absolute, absolute, absolute
;;;    sub16 $1111, $2222,x, $3333      ; absolute, indexed, absolute
;;;    sub16 $1111, $2222,y, $3333      ; absolute, indexed, absolute
;;;    sub16 $1111, $2222, $3333,x      ; absolute, absolute, indexed
;;;    sub16 $1111, $2222, $3333,y      ; absolute, absolute, indexed
;;;    sub16 $1111,x, $2222,x, $3333    ; indexed, indexed, absolute
;;;    sub16 $1111,y, $2222,y, $3333    ; indexed, indexed, absolute
;;;    sub16 $1111,x, $2222, $3333,x    ; indexed, absolute, indexed
;;;    sub16 $1111,y, $2222, $3333,y    ; indexed, absolute, indexed
.macro sub16 arg1, arg2, arg3, arg4, arg5
    .if is_register {arg2} && is_register {arg4}
        lda     arg1,arg2
        sec
        sbc     arg3,arg4
        sta     arg5
        lda     arg1+1,arg2
        sbc     arg3+1,arg4
        sta     arg5+1
    .elseif is_register {arg2} && is_register {arg5}
        lda     arg1,arg2
        sec
        sbc     arg3
        sta     arg4,arg5
        lda     arg1+1,arg2
        sbc     arg3+1
        sta     arg4+1,arg5
    .elseif is_register {arg3}
        lda     arg1
        sec
        sbc     arg2,arg3
        sta     arg4
        lda     arg1+1
        sbc     arg2+1,arg3
        sta     arg4+1
    .elseif is_register {arg4}
        lda     arg1
        sec
        sbc     arg2
        sta     arg3,arg4
        lda     arg1+1
        sbc     arg2+1
        sta     arg3+1,arg4
    .elseif is_immediate {arg1}
        lda     #<immediate_value {arg1}
        sec
        sbc     arg2
        sta     arg3
        lda     #>immediate_value {arg1}
        sbc     arg2+1
        sta     arg3+1
    .elseif is_immediate {arg2}
        lda     arg1
        sec
        sbc     #<immediate_value {arg2}
        sta     arg3
        lda     arg1+1
        sbc     #>immediate_value {arg2}
        sta     arg3+1
    .else
        lda     arg1
        sec
        sbc     arg2
        sta     arg3
        lda     arg1+1
        sbc     arg2+1
        sta     arg3+1
    .endif
.endmacro

;;; Subtract arg2 from arg1, store to arg3
;;;    sub16_8 $1111, #$22, $3333       ; absolute, immediate, absolute
;;;    sub16_8 $1111, $22, $3333        ; absolute, absolute, absolute
.macro sub16_8 arg1, arg2, arg3
        lda     arg1
        sec
        sbc     arg2
        sta     arg3
        lda     arg1+1
        sbc     #0
        sta     arg3+1
.endmacro

;;; Copy 16-bit value
;;;    copy16 #$1111, $2222     ; immediate, absolute
;;;    copy16 $1111, $2222      ; absolute, absolute
;;;    copy16 $1111,x, $2222    ; indirect load, absolute store
;;;    copy16 $1111,y, $2222    ; indirect load, absolute store
;;;    copy16 $1111, $2222,x    ; absolute load, indirect store
;;;    copy16 $1111, $2222,y    ; absolute load, indirect store
.macro copy16 arg1, arg2, arg3
    .if is_register {arg2}
        ;; indexed load variant (arg2 is x or y)
        lda     arg1,arg2
        sta     arg3
        lda     arg1+1,arg2
        sta     arg3+1
    .elseif is_register {arg3}
        ;; indexed store variant (arg3 is x or y)
        lda     arg1
        sta     arg2,arg3
        lda     arg1+1
        sta     arg2+1,arg3
    .elseif is_immediate {arg1}
        ;; immediate load variant (arg1 is #nnnn)
        lda     #<immediate_value {arg1}
        sta     arg2
        lda     #>immediate_value {arg1}
        sta     arg2+1
    .else
        lda     arg1
        sta     arg2
        lda     arg1+1
        sta     arg2+1
    .endif
.endmacro

;;; Compare 16-bit values
;;;    cmp16 #$1111, $2222     ; immediate, absolute
;;;    cmp16 $1111, #$2222     ; absolute, immediate
;;;    cmp16 $1111, $2222      ; absolute, absolute
;;;    cmp16 $1111,x, $2222    ; indirect, absolute
;;;    cmp16 $1111,y, $2222    ; indirect, absolute
;;;    cmp16 $1111, $2222,x    ; absolute, indirect
;;;    cmp16 $1111, $2222,y    ; absolute indirect
.macro cmp16 arg1, arg2, arg3
    .if is_register {arg2}
        ;; indexed variant (arg2 is x or y)
        lda     arg1,arg2
        cmp     arg3
        lda     arg1+1,arg2
        sbc     arg3+1
    .elseif is_register {arg3}
        ;; indexed variant (arg3 is x or y)
        lda     arg1
        cmp     arg2,arg3
        lda     arg1+1
        sbc     arg2+1,arg3
    .elseif is_immediate {arg1}
        ;; immediate variant (arg1 is #nnnn)
        lda     #<immediate_value {arg1}
        cmp     arg2
        lda     #>immediate_value {arg1}
        sbc     arg2+1
    .elseif is_immediate {arg2}
        ;; immediate variant (arg2 is #nnnn)
        lda     arg1
        cmp     #<immediate_value {arg2}
        lda     arg1+1
        sbc     #>immediate_value {arg2}
    .else
        lda     arg1
        cmp     arg2
        lda     arg1+1
        sbc     arg2+1
    .endif
.endmacro

;;; Shift 16-bit values
;;;    lsr16 $1111      ; absolute
.macro lsr16 arg1
        lsr     arg1+1
        ror     arg1
.endmacro