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

   1 ;;; -*-asm-*-
   2 ;;; (c) 2021 Mark Wooding
   3
   4 ;;;----- Licensing notice ---------------------------------------------------
   5 ;;;
   6 ;;; This file is part of ZX Fizzbuzz.
   7 ;;;
   8 ;;; ZX Fizzbuzz is free software: you can redistribute it and/or modify it
   9 ;;; under the terms of the GNU Lesser General Public License as published
  10 ;;; by the Free Software Foundation; either version 3 of the License, or
  11 ;;; (at your option) any later version.
  12 ;;;
  13 ;;; ZX Fizzbuzz is distributed in the hope that it will be useful, but
  14 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  15 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16 ;;; Lesser General Public License for more details.
  17 ;;;
  18 ;;; You should have received a copy of the GNU Lesser General Public
  19 ;;; License along with ZX Fizzbuzz.  If not, see
  20 ;;; <https://www.gnu.org/licenses/>.
  21
  22         org     0x7000
  23
  24 spc:    equ     ' '
  25
  26 tvflag: equ     0x5c3c
  27
  28 fixdig: macro
  29         or      0x30
  30         endm
  31
  32 print_a: macro
  33         rst     0x10
  34         endm
  35
  36 endstrp: macro
  37         and     a
  38         endm
  39
  40         jr      setup
  41
  42 fizz:   db      "fizz", 0
  43 buzz:   db      "buzz", 0
  44
  45 setup:
  46         ;; Use the main screen.
  47         xor     a
  48         ld      (tvflag), a