[zx-fizzbuzz] / spectrum.s

;;; -*-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
Commit	Line	Data
64b6fca5 MW	1	;;; --asm--
	2
	3	org 0x7000
	4
	5	spc: equ ' '
	6
	7	tvflag: equ 0x5c3c
	8
	9	fixdig: macro
	10	or 0x30
	11	endm
	12
	13	print_a: macro
	14	rst 0x10
	15	endm
	16
	17	endstrp: macro
	18	and a
	19	endm
	20
	21	jr setup
	22
	23	fizz: db "fizz", 0
	24	buzz: db "buzz", 0
	25
	26	setup:
	27	;; Use the main screen.
	28	xor a
	29	ld (tvflag), a