diff options
| Commit | 9a0030d051bbfe54a987bf3628d9e87779276241 (patch) | |
|---|---|---|
| Author | 2025-08-03 11:41:07 +0300 | |
| Committer | 2025-08-03 11:41:07 +0300 | |
| Files | b1c492ec603896d6f246977bcde6a89405d17bb1 | |
| c64-programs-9a0030d051bbfe54a987bf3628d9e87779276241.tar c64-programs-9a0030d051bbfe54a987bf3628d9e87779276241.tar.gz c64-programs-9a0030d051bbfe54a987bf3628d9e87779276241.zip | ||
| Parent | 10fca1f3fb363e81a8b737a690bb2752bfe61a60 (diff) | |
chore(catalan): Move print function from kernal to print file
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\:\ \ |