;;==========================================================================;; ;; Joe Zbiciak's Space Patrol for Intellivision. ;; ;; Copyright 2006, Joe Zbiciak, intvnut AT gmail.com. ;; ;; http://spatula-city.org/~im14u2c/intv/ ;; ;;==========================================================================;; RCS1 PROC @@nosc EQU $8000 + (0 SHL 9) @@sc500 EQU $8000 + (1 SHL 9) @@sc750 EQU $8000 + (2 SHL 9) @@sc1K EQU $8000 + (3 SHL 9) @@rock1 DECLE ($0800 + (RCARD + 0) * 8 + X_ROCK) + @@nosc ; small rock DECLE ($0800 + (RCARD + 1) * 8 + X_ROCK) + @@sc500 ; DECLE $0001 @@rock2 DECLE ($0800 + (RCARD + 2) * 8 + X_ROCK) + @@nosc ; midsize rock DECLE ($0800 + (RCARD + 3) * 8 + X_ROCK) + @@sc750 ; DECLE $0001 @@rock3 DECLE ($0800 + (RCARD + 4) * 8 + X_ROCK) + @@nosc ; super rock DECLE ($0800 + (RCARD + 5) * 8 + X_ROCK) + @@nosc ; DECLE ($0800 + (RCARD + 6) * 8 + X_ROCK) + @@sc1K ; DECLE $0001 @@crat1 DECLE $0800 + @@nosc ; small crater DECLE $0800 + @@sc500 ; DECLE $0001 @@crat3 DECLE $0800 + @@nosc ; small crater DECLE $0800 + @@sc500 ; @@crat2 DECLE $0800 + @@nosc ; large crater DECLE $0800 + @@nosc ; DECLE $0800 + @@sc1K ; DECLE $0001 @@crat4 DECLE $0800 + @@nosc ; large crater DECLE $0800 + @@nosc ; DECLE $0800 + @@nosc ; DECLE $0800 + @@sc500 ; small crater DECLE $0800 + @@sc1K ; @@blank DECLE $0001 @@cratz DECLE $0001 ENDP RCS2 PROC @@nosc EQU $8000 + (0 SHL 9) @@sc500 EQU $8000 + (1 SHL 9) @@sc750 EQU $8000 + (2 SHL 9) @@sc1K EQU $8000 + (3 SHL 9) @@rock1 DECLE GCARDx ; small rock DECLE GCARDx ; DECLE GCARDx @@rock2 DECLE GCARDx ; midsize rock DECLE GCARDx ; DECLE GCARDx @@rock3 DECLE GCARDx ; super rock DECLE GCARDx ; DECLE GCARDx ; DECLE GCARDx @@crat1 DECLE ($1802 + (RCARD + 7) * 8) + @@nosc ; small crater DECLE ($1802 + (RCARD + 8) * 8) + @@nosc ; DECLE GCARDx @@crat3 DECLE ($1802 + (RCARD + 7) * 8) + @@nosc ; small crater DECLE ($1802 + (RCARD + 8) * 8) + @@nosc ; @@crat2 DECLE ($1802 + (RCARD + 9) * 8) + @@nosc ; super crater DECLE ($1802 + (RCARD +10) * 8) + @@nosc ; DECLE ($1802 + (RCARD +11) * 8) + @@nosc ; DECLE GCARDx @@crat4 DECLE ($1802 + (RCARD + 9) * 8) + @@nosc ; super crater DECLE ($1802 + (RCARD +10) * 8) + @@nosc ; DECLE ($1802 + (RCARD +11) * 8) + @@nosc ; DECLE ($1802 + (RCARD + 7) * 8) + @@nosc ; small crater DECLE ($1802 + (RCARD + 8) * 8) + @@nosc ; @@blank DECLE GCARDx DECLE 0 ENDP __ ;* ======================================================================== *; ;* This program is free software; you can redistribute it and/or modify *; ;* it under the terms of the GNU General Public License as published by *; ;* the Free Software Foundation; either version 2 of the License, or *; ;* (at your option) any later version. *; ;* *; ;* This program is distributed in the hope that it will be useful, *; ;* but WITHOUT ANY WARRANTY; without even the implied warranty of *; ;* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *; ;* General Public License for more details. *; ;* *; ;* You should have received a copy of the GNU General Public License *; ;* along with this program; if not, write to the Free Software *; ;* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. *; ;* ======================================================================== *; ;* Copyright (c) 2007, Joseph Zbiciak *; ;* ======================================================================== *; _