chiark - git - mdw - zx-fizzbuzz/blob - spectrum.s

   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