fizzbuzz.s: Abstract out a number of system dependencies.

[zx-fizzbuzz] / spectrum.s

diff --git a/spectrum.s b/spectrum.s
new file mode 100644 (file)
index 0000000..01c29f8
--- /dev/null
+++ b/spectrum.s
@@ -0,0 +1,29 @@
+;;; -*-asm-*-
+
+       org     0x7000
+
+spc:   equ     ' '
+
+tvflag:        equ     0x5c3c
+
+fixdig:        macro
+       or      0x30
+       endm
+
+print_a: macro
+       rst     0x10
+       endm
+
+endstrp: macro
+       and     a
+       endm
+
+       jr      setup
+
+fizz:  db      "fizz", 0
+buzz:  db      "buzz", 0
+
+setup:
+       ;; Use the main screen.
+       xor     a
+       ld      (tvflag), a