src/example/spectrum.asm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

	; Simple example spectrum code
	;
	; To use:
	;
	; LOAD "" CODE
	; RANDOMIZE USR 32768
	;

	option	output-file,spectrum.tap
	option	output-format,spectrum
	option	+spectrum-loader
	option	spectrum-start,start

start:	org 32768

	xor	a
loop:
	out	($fe), a

	ld	hl,0x5800
	ld	bc,32*24

loop1:
	ld	(hl),a
	inc	hl
	dec	c
	jr	nz,loop1
	djnz	loop1

	inc	a
	jr	loop