X-Git-Url: https://git.distorted.org.uk/~mdw/zx-fizzbuzz/blobdiff_plain/79f866505582c4e8e6e7ead838bdb7bdc3c31396..64b6fca5f33b619e9c38778000f5192521a57cf6:/spectrum.s

diff --git a/spectrum.s b/spectrum.s
new file mode 100644
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