diff options
1 files changed, 17 insertions, 7 deletions
| -rw-r--r-- | catalan/catalan.a65 | 24 |
diff --git a/catalan/catalan.a65 b/catalan/catalan.a65 index c51f040..dbc4fd9 100644 --- a/catalan/catalan.a65 +++ b/catalan/catalan.a65 @@ -4,21 +4,31 @@ hello .byt "HELLO, WORLD!",0 +#define store_in_memory(memory, value) .( :\ + pha ; push a :\ + lda value ; a = value :\ + sta memory ; memory = a :\ + pla ; pop a :\ +.) + +#define applya1(subroutine, valuea, arg1, value1) .( :\ + lda valuea :\ + store_in_memory(arg1, value1) :\ + jsr subroutine :\ +.) main .( + applya1(moda, #34, moda_arg, #5) + clc + adc #"0" + putchar() + jsr catalan lda cat_n putchar() rts .) -#define store_in_memory(memory, value) .( :\ - pha ; push a :\ - lda value ; a = value :\ - sta memory ; memory = a :\ - pla ; pop a :\ -.) - /* a = x * a *= 4 * a -= 2 |