local

;unsigned short wario(unsigned short a, unsigned short b, unsigned short c, unsigned short d) {
    code
    xdef    __wario
    func
__wario:
    longa   on
    longi   on
    tsc
    sec
    sbc #L2
    tcs
    phd
    tcd
a_0 set 3
b_0 set 5
c_0 set 7
d_0 set 9
;  return a+b+c+d;
    lda <L2+a_0
    clc
    adc <L2+b_0
    clc
    adc <L2+c_0
    clc
    adc <L2+d_0
    tay
    lda <L2+1
    sta <L2+1+8
    pld
    tsc
    clc
    adc #L2+8
    tcs
    tya
    rts
;}