chiark - git - mdw - zx-fizzbuzz/blob - zx81.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     0
  25
  26 fixdig: macro
  27         add     a, 0x1c
  28         endm
  29
  30 print_a: macro
  31         rst     0x10
  32         endm
  33
  34 endstr: equ     0x7a
  35 endstrp: macro
  36         cp      endstr
  37         endm
  38
  39         jr      begin
  40
  41 fizz:   db      0x2b, 0x2e, 0x3f, 0x3f, endstr
  42 buzz:   db      0x27, 0x3a, 0x3f, 0x3f, endstr
  43
  44 begin: