diff options
3 files changed, 22 insertions, 11 deletions
| -rw-r--r-- | catalan/catalan.a65 | 2 | ||||
| -rw-r--r-- | catalan/kernal.a65 | 14 | ||||
| -rw-r--r-- | catalan/print.a65 | 17 |
diff --git a/catalan/catalan.a65 b/catalan/catalan.a65 index dbc4fd9..e7aeace 100644 --- a/catalan/catalan.a65 +++ b/catalan/catalan.a65 @@ -1,5 +1,5 @@ #include "basic_starter.a65" -#include "kernal.a65" +#include "print.a65" #include "math.a65" hello .byt "HELLO, WORLD!",0 diff --git a/catalan/kernal.a65 b/catalan/kernal.a65 index 40db36f..dc3b2ef 100644 --- a/catalan/kernal.a65 +++ b/catalan/kernal.a65 @@ -1,13 +1,7 @@ -#define putchar() jsr $FFD2 +#ifndef CATALAN_KERNAL +#define CATALAN_KERNAL -#define print(str) .( :\ - ldx #0 ; x = 0 :\ -loop lda str, x ; while (_1[x] != 0) :\ - beq end :\ - putchar() ; putchar(_1[x]) :\ - inx ; ++x :\ - bne loop ; if (x == 0) break :\ -end :\ -.) +#define putchar() jsr $FFD2 +#endif /* CATALAN_KERNAL */ // vim: noet ts=8 sw=0 lcs=tab\:\ \ diff --git a/catalan/print.a65 b/catalan/print.a65 new file mode 100644 index 0000000..f2038db --- /dev/null +++ b/catalan/print.a65 @@ -0,0 +1,17 @@ +#ifndef CATALAN_PRINT +#define CATALAN_PRINT + +#include "kernal.a65" + +#define print(str) .( :\ + ldx #0 ; x = 0 :\ +loop lda str, x ; while (_1[x] != 0) :\ + beq end :\ + putchar() ; putchar(_1[x]) :\ + inx ; ++x :\ + bne loop ; if (x == 0) break :\ +end :\ +.) + +#endif /* CATALAN_PRINT */ +// vim: noet ts=8 sw=0 lcs=tab\:\ \ |