fizzbuzz.s: Increment `len' in place rather than via register.
[zx-fizzbuzz] / zx81.s
1 ;;; -*-asm-*-
2
3 org 0x7000
4
5 spc: equ 0
6
7 fixdig: macro
8 add a, 0x1c
9 endm
10
11 print_a: macro
12 rst 0x10
13 endm
14
15 endstr: equ 0x7a
16 endstrp: macro
17 cp endstr
18 endm
19
20 jr begin
21
22 fizz: db 0x2b, 0x2e, 0x3f, 0x3f, endstr
23 buzz: db 0x27, 0x3a, 0x3f, 0x3f, endstr
24
25 begin: