chiark - git - mdw - zx-fizzbuzz/blob - zx81-1k.s

   1 ;;; -*-asm-*-
   2
   3         org     0x4300
   4
   5 spc:    equ     0x76
   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: