;;==========================================================================;;
;; Joe Zbiciak's Bouncing Pixels demo                                       ;;
;; This is a somewhat revised version of the demo I created in 1999.        ;;
;; Copyright 2002, Joe Zbiciak, intvnut AT gmail.com.                       ;;
;; http://spatula-city.org/~im14u2c/intv/                                   ;;
;;==========================================================================;;

;* ======================================================================== *;
;*  TO BUILD IN BIN+CFG FORMAT:                                             *;
;*      as1600 -o bncpix.bin -l bncpix.lst bncpix.asm                       *;
;*                                                                          *;
;*  TO BUILD IN ROM FORMAT:                                                 *;
;*      as1600 -o bncpix.rom -l bncpix.lst bncpix.asm                       *;
;* ======================================================================== *;

;* ======================================================================== *;
;*  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) 2002, Joseph Zbiciak                     *;
;* ======================================================================== *;

    CFGVAR  "name" = "SDK-1600 Bouncing Pixels"
    CFGVAR  "short_name" = "Bouncing Pixels"
    CFGVAR  "author" = "Joe Zbiciak"
    CFGVAR  "year" = 2002
    CFGVAR  "license" = "GPLv2+"
    CFGVAR  "description" = "Simple colored squares demo with bouncing colors."
    CFGVAR  "publisher" = "SDK-1600"

            ROMW    16              ; Use 16-bit ROM

;------------------------------------------------------------------------------
; Include system information
;------------------------------------------------------------------------------
            INCLUDE "../library/gimini.asm"

;------------------------------------------------------------------------------
; Allocate some variables in System RAM and Scratch RAM
;------------------------------------------------------------------------------
SCRATCH     ORG     $100, $100, "-RWBN"
ISRVEC      RMB     2               ; Always at $100 / $101
_SCRATCH    EQU     $               ; end of scratch area

SYSTEM      ORG     $2F0, $2F0, "-RWBN"
STACK       RMB     32              ; Reserve 32 words for the stack
VECSAV      RMB     1               ; Place to save ISR vector.
PIXREC      RMB     10*5            ; Room for 10 pixels
EOPIXREC    EQU     $               ; End of pixel records 
XSAVE       RMB     1               ; \
YSAVE       RMB     1               ;  |-- Needed by colored-squares routines
CSAVE       RMB     1               ; /    (PUTPIXELS/GETPIXELS)
BNCTMP      RMB     7               ; BOUNCEPIX temporary storage
_SYSTEM     EQU     $               ; end of system area

           
            ORG     $5000           ; Use default memory map
;------------------------------------------------------------------------------
; EXEC-friendly ROM header.
;------------------------------------------------------------------------------
ROMHDR:     BIDECLE ZERO            ; MOB picture base   (points to NULL list)
            BIDECLE ZERO            ; Process table      (points to NULL list)
            BIDECLE MAIN            ; Program start address
            BIDECLE ZERO            ; Bkgnd picture base (points to NULL list)
            BIDECLE ONES            ; GRAM pictures      (points to NULL list)
            BIDECLE TITLE           ; Cartridge title/date
            DECLE   $03C0           ; No ECS title, run code after title,
                                    ; ... no clicks
ZERO:       DECLE   $0000           ; Screen border control
            DECLE   $0000           ; 0 = color stack, 1 = f/b mode
            DECLE   C_BLK, C_BLK    ; Initial color stack 0 and 1: Black
            DECLE   C_BLK, C_BLK    ; Initial color stack 2 and 3: Black
            DECLE   C_BLK           ; Initial border color: Black
ONES:       DECLE   1, 0
;------------------------------------------------------------------------------




;; ======================================================================== ;;
;;  TITLE  -- Display our modified title screen & copyright date.           ;;
;; ======================================================================== ;;
TITLE:      PROC
            BYTE    102, 'Bouncing Pixels!', 0
            BEGIN
           
            ; Hook up an ISR that will set the screen to Cyan, and then
            ; restore the original interrupt handler.
            MVII    #ISRVEC,R4      ; Point to ISR Vector
            SDBD
            MVI@    R4,     R0      ; Get old vector into R0
            MVO     R0,     VECSAV  ; Save old vector 

            SUBI    #2,     R4      ;\
            MVII    #@@isr, R0      ; |
            MVO@    R0,     R4      ; |-- Set the vector to the title-
            SWAP    R0              ; |   screen ISR.
            MVO@    R0,     R4      ;/
        
           
            ; Patch the title string to say '=JRMZ=' instead of Mattel.
            CALL    PRINT.FLS       ; Write string (ptr in R5)
            DECLE   C_YEL, $23D     ; Yellow, Point to 'Mattel' in top-left
            STRING   '=JRMZ= Productions '  ; Guess who?
            STRING  '      presents'
            BYTE    0
           
            CALL    PRINT.FLS       ; Write string (ptr in R1)
            DECLE   C_YEL, $2C9     ; Yellow, Point to 'Mattel' in lower-right
            STRING  'Copr @ 2002 '  ; 
            STRING  '=JRMZ='        ; Guess who?  :-)
            BYTE    0

            ; Patch up the blue color bar to be yellow.
            MVI     $223,   R0
            XORI    #7,     R0
            MVO     R0,     $223

            ; Done.
            RETURN                  ; Return to EXEC for title screen display


            ; Title-screen ISR -- Set up colorstack and leave.
@@isr:      MVO     R0,     $20     ; Enable display

            MVII    #C_BLU, R0      ;\
            MVII    #$28,   R4      ; |
            MVO@    R0,     R4      ; |   Set color stack and border      
            MVO@    R0,     R4      ; |-- to Blue.  Don't need to worry   
            MVO@    R0,     R4      ; |   about interruptible here because
            MVO@    R0,     R4      ; |   we are in the start of an ISR.
            MVO@    R0,     R4      ;/

            MVI     VECSAV, R0      ;\
            MVO     R0,     ISRVEC  ; |__ Restore original ISR.
            SWAP    R0,     1       ; |
            MVO     R0,     ISRVEC+1;/

            JR      R5              ; Return from Interrupt

            ENDP

;; ======================================================================== ;;
;;  MAIN:  Here's our main program code.                                    ;;
;; ======================================================================== ;;
MAIN        PROC

            ;; ------------------------------------------------------------ ;;
            ;;  Set up our ISR and stack frame.  Do w/ interrupts off.      ;;
            ;; ------------------------------------------------------------ ;;
            DIS                     ; Disable interrupts while we set up

            MVII    #ISR,   R0      ; Set up a simple stub ISR.
            MVO     R0,     ISRVEC
            SWAP    R0
            MVO     R0,     ISRVEC+1

            MVII    #STACK, R6      ; Set up a new stack pointer

            EIS                     ; We're good to go now.


            ;; ------------------------------------------------------------ ;;
            ;;  Fill display with colored-square mode characters.           ;;
            ;; ------------------------------------------------------------ ;;
            MVII    #$00F0, R1      ;\
            MVII    #$1000, R0      ; |__ Initialize screen to colored-
            MVII    #$0200, R4      ; |   squares mode.
            CALL    FILLMEM         ;/



            ;; ------------------------------------------------------------ ;;
            ;;  Draw the 'playfield'... the place where the pixels will do  ;;
            ;;  their bouncing.  The screen coordinates go from (0,0) to    ;;
            ;;  (39,23).                                                    ;;
            ;;                                                              ;;
            ;;                  (5,3)                  (34,3)               ;;
            ;;                   ########################                   ;;
            ;;                   #   (11,8)      (28,8) #                   ;;
            ;;                   #    #            #    #                   ;;
            ;;                   #    #            #    #                   ;;
            ;;                   #    #            #    #                   ;;
            ;;                   #    #            #    #                   ;;
            ;;                   #    ##############    #                   ;;
            ;;                   #  (11,16)     (28,16) #                   ;;
            ;;                  (5,19)                 (34,19)              ;;
            ;; ------------------------------------------------------------ ;;
                                                                            
            ;; ------------------------------------------------------------ ;;
            ;;  Draw horizontal lines                                       ;;
            ;; ------------------------------------------------------------ ;;
            MVII    #5,     R1

@@hloop:    MVII    #1,     R0      ; Blue
            MVII    #3,     R2      ; y = 3
            CALL    PUTPIXELS       ; Draw upper row

            ; Are we in the range for the second horizontal line?
            CMPI    #11,    R1      
            BLT     @@skiph
            CMPI    #28,    R1
            BGT     @@skiph

            MVII    #2,     R0      ; Red
            MVII    #16,    R2      ; y = 16
            CALL    PUTPIXELS       ; Draw lower row

@@skiph:    INCR    R1
            CMPI    #34,    R1         
            BLE     @@hloop
            ; End of horizontal line loop.



            ;; ------------------------------------------------------------ ;;
            ;;  Draw vertical lines.  There are four of these.              ;;
            ;; ------------------------------------------------------------ ;;
            MVII    #4,     R2
@@vloop:
            ; Far left side
            MVII    #5,     R1      ; x = 5
            MVII    #1,     R0      ; Blue

            CALL    PUTPIXELS       ; pixel(5, y) = blue

            ; Far right side
            MVII    #34,    R1      ; x = 34
            MVII    #1,     R0      ; Blue
            CALL    PUTPIXELS       ; pixel(34, y) = blue

            ; Are we in the row range for the inner to columns?
            CMPI    #8,     R2
            BLT     @@skipv
            CMPI    #15,    R2
            BGT     @@skipv

            ; Inner left side
            MVII    #11,    R1      ; x = 11
            MVII    #2,     R0      ; Red
            CALL    PUTPIXELS       ; pixel (11, y) = red

            ; Inner right side
            MVII    #28,    R1      ; x = 28
            MVII    #2,     R0      ; Red
            CALL    PUTPIXELS       ; pixel (28, y) = red

@@skipv:    INCR    R2
            CMPI    #19,    R2
            BLE     @@vloop
            ; End of vertical line loop.

            ;; ------------------------------------------------------------ ;;
            ;;  The main event:  Launch a bunch of bouncing pixels.         ;;
            ;; ------------------------------------------------------------ ;;

            MVII    #PIXREC,R4      ; 10 Pixel records, 5 words apiece
            MVII    #10,    R0      ; 10 bouncing pixels
            MVII    #1,     R1      ; All blue
            MVII    #5,     R2      ; Start at x = 5
            MVII    #1,     R3      ; This toggles between +/- 1
            MVII    #22,    R5      ; Row 22 
@@mkpixlp:  MVO@    R2,     R4      ; x = 5 + 3*k
            MVO@    R5,     R4      ; y = 22
            MVO@    R3,     R4      ; xvel = +/- 1
            NEGR    R3
            MVO@    R3,     R4      ; yvel = -/+ 1
            MVO@    R1,     R4      ; color = 1
            ADDI    #3,     R2
            DECR    R0
            BNEQ    @@mkpixlp


            ;; ------------------------------------------------------------ ;;
            ;;  Main loop:  Cycle through the pixels and bounce them!       ;;
            ;; ------------------------------------------------------------ ;;
@@mainlp:   MVII    #$3FF,  R3      ; Delay constant.

@@dly:      DECR    R3
            TSTR    R3
            BNEQ    @@dly

            MVII    #PIXREC,R4      ; Start of list of pixel records
@@drawpix:  CALL    BOUNCEPIX       ; Update current pixel, point to next
            CMPI    #EOPIXREC, R4   ; Are we at end yet?
            BLT     @@drawpix       ; No?  Keep going.

            B       @@mainlp        ; Go around the main loop again.

            ENDP


;; ======================================================================== ;;
;;  BOUNCEPIX -- Handle movement and bounce calculations for a single pix.  ;;
;; ======================================================================== ;;
BOUNCEPIX   PROC

@@xsv       EQU     BNCTMP + 0      ;\
@@ysv       EQU     BNCTMP + 1      ; |
@@xvsv      EQU     BNCTMP + 2      ; |
@@yvsv      EQU     BNCTMP + 3      ; |-- Temporary local storage for pixel
@@csv       EQU     BNCTMP + 4      ; |   updates. 
@@nxsv      EQU     BNCTMP + 5      ; |
@@nysv      EQU     BNCTMP + 6      ;/

            BEGIN                   ; Save return address
            PSHR    R4              ; Save pixel record pointer


            ;; ------------------------------------------------------------ ;;
            ;;  Update pixel position, and detect whether we hit something. ;;
            ;; ------------------------------------------------------------ ;;
            MVII    #@@xsv, R5

            MVI@    R4,     R1      ; Load X position
            MVI@    R4,     R2      ; Load Y position
            MVO@    R1,     R5      ; Store X in temp. local storage (@@xsv)
            MVO@    R2,     R5      ; Store Y in temp. local storage (@@ysv)

            MVI@    R4,     R0      ; Load X velocity
            ADDR    R0,     R1      ; Add XVEL to X position
            MVO@    R0,     R5      ; Store XVEL to local storage: @@xvsv

            MVI@    R4,     R0      ; Load Y velocity
            ADDR    R0,     R2      ; Add YVEL to Y position
            MVO@    R0,     R5      ; Store YVEL in local storage: @@yvsv

            MVI@    R4,     R0      ; Load COLOR
            MVO@    R0,     R5      ; Store COLOR to local storage: @@csv

            MVO@    R1,     R5      ; Store candidate X coordinate: @@nxsv
            MVO@    R2,     R5      ; Store candidate Y coordinate: @@nysv

            CLRR    R3              ; Clear 'hit flags'

            ;; ------------------------------------------------------------ ;;
            ;;  Did we hit a screen border?                                 ;;
            ;; ------------------------------------------------------------ ;;
@@ytst:     
            TSTR    R2
            BMI     @@yhit          ; hit top
            CMPI    #23,    R2
            BLE     @@xtst          ; didn't hit bottom

@@yhit:     MVII    #2,     R3      ; Mark yvel to be inverted

@@xtst:     TSTR    R1
            BMI     @@xhit          ; hit left
            CMPI    #39,    R1
            BLE     @@btst          ; didn't hit right

@@xhit:     INCR    R3              ; Mark xvel to be inverted
            B       @@hits

            ;; ------------------------------------------------------------ ;;
            ;;  Did we already hit a border?  If so, then don't test for    ;;
            ;;  barriers.                                                   ;;
            ;; ------------------------------------------------------------ ;;
@@btst:     
            TSTR    R3
            BNEQ    @@hits

            ;; ------------------------------------------------------------ ;;
            ;;  Did we hit an interior barrier?                             ;;
            ;; ------------------------------------------------------------ ;;
            CALL    GETPIXELS
            CLRR    R3
            TSTR    R0
            BEQ     @@nohits        ; didn't hit barrier

            INCR    R0              ;\
            ANDI    #7,     R0      ; |
            BNEQ    @@putit         ; |-- Hit a barrier, so change its color
            INCR    R0              ; |
@@putit:    CALL    PUTPIXEL        ;/

            ;; ------------------------------------------------------------ ;;
            ;;  Did we hit it on x, y or both?                              ;;
            ;;  This works by testing whether there was a barrier along     ;;
            ;;  just X, just Y, both X and Y, or on just a corner.          ;;
            ;;                                                              ;;
            ;;  We accumulate collision status into the two LSBs of R3.     ;;
            ;;  Bit 0 means "need to invert X velocity", and bit 1 means    ;;
            ;;  "need to invert Y velocity."                                ;;
            ;; ------------------------------------------------------------ ;;

            MVI     @@xsv,  R1      ; Undo X movement, see if we still hit
            MVI     @@nysv, R2      ; Retain Y movement
            CALL    GETPIXEL
            CLRR    R3
    
            TSTR    R0
            BEQ     @@noxbar        ; No barrier along X

            MVII    #2,     R3      ; Invert Y if there's a horizontal barrier

@@noxbar:   MVI     @@nxsv, R1      ; Retain X movement
            MVI     @@ysv,  R2      ; Undo Y movement, see if we still hit
            PSHR    R3              ; Save hit status.
            CALL    GETPIXEL
            PULR    R3              ; Restore hit status.

            TSTR    R0
            BEQ     @@noybar        ; No barrier along Y

            INCR    R3              ; Invert X if there's a vertical barrier

       
            ;; ------------------------------------------------------------ ;;
            ;;  If we didn't see an x or y barrier, we hit a corner, so     ;;
            ;;  negate both X and Y velocity.                               ;;
            ;; ------------------------------------------------------------ ;;
@@noybar:   TSTR    R3
            BNEQ    @@hits

            MVII    #3,     R3
            B       @@hits

@@hits:
            ;; ------------------------------------------------------------ ;;
            ;;  Increment the color of the pixel.                           ;;
            ;; ------------------------------------------------------------ ;;
            MVI     @@csv,  R0
            INCR    R0
            CMPI    #7,     R0
            BLT     @@colorok
            MVII    #1,     R0
@@colorok:  MVO     R0,     @@csv

            ;; ------------------------------------------------------------ ;;
            ;;  Reflect x, y as needed.                                     ;;
            ;; ------------------------------------------------------------ ;;
            MVI     @@xvsv, R1      ; Old X velocity
            MVI     @@yvsv, R2      ; Old Y velocity

            ; If R3 is non-zero, invert X, Y velocity.
            SARC    R3,     1
            BNC     @@noinvx
            NEGR    R1
            MVO     R1,     @@xvsv
@@noinvx:
            SARC    R3,     1
            BNC     @@noinvy
            NEGR    R2
            MVO     R2,     @@yvsv
@@noinvy:   ADD     @@xsv,  R1      ; Add new xvel to old xpos
            ADD     @@ysv,  R2      ; Add new yvel to old ypos

            ;; ------------------------------------------------------------ ;;
@@nohits:   ;;  Save out the updated x, y positions (in R1, R2).            ;;
            ;; ------------------------------------------------------------ ;;
            PULR    R4
            MVO@    R1,     R4      ; Save new X to pixel record
            MVO@    R2,     R4      ; Save new Y to pixel record
            PSHR    R4
            MVO     R4,     @@nxsv

            MVI     @@csv,  R0      ; Get pixel color
            CALL    PUTPIXEL        ; Draw new pixel

            MVI     @@xsv,  R1      ; Get old X
            MVI     @@ysv,  R2      ; Get old Y
            CLRR    R0              ; Clear old pixel to black
            CALL    PUTPIXEL


            ;; ------------------------------------------------------------ ;;
            ;;  Now, write it all back out to the pixel's status record.    ;;
            ;; ------------------------------------------------------------ ;;
            PULR    R4
            MVII    #@@xvsv,R5
            MVI@    R5,     R0      ; New X velocity
            MVO@    R0,     R4
            MVI@    R5,     R0      ; New Y velocity
            MVO@    R0,     R4
            MVI@    R5,     R0      ; New color
            MVO@    R0,     R4
            ; R4 now points to next pixel record.

            RETURN                  ; Return.
            ENDP


;; ======================================================================== ;;
;;  ISR -- Simple Interrupt Service Routine                                 ;;
;; ======================================================================== ;;
ISR         PROC
            MVO     R0,     $20     ; Keep the lights on (display enable)

            MVII    #C_BLU, R0      ;\__ Blue screen border
            MVO     R0,     $2C     ;/

            MVI     $28,    R0      ;\    Cycle the color in CS0.  This
            INCR    R0              ; |-- causes colored-square pixel color
            MVO     R0,     $28     ;/    7 to shimmer onscreen.

            JR      R5              ; Return
            ENDP

;; ======================================================================== ;;
;;  LIBRARY INCLUDES                                                        ;;
;; ======================================================================== ;;
            INCLUDE "../library/print.asm"       ; PRINT.xxx routines
            INCLUDE "../library/fillmem.asm"     ; CLRSCR/FILLZERO/FILLMEM
            INCLUDE "../library/colorsq.asm"     ; colored-squares routines
            INCLUDE "../library/colorsq_sv.asm"  ; PUTPIXELS/GETPIXELS

;* ======================================================================== *;
;*  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) 2002, Joseph Zbiciak                     *;
;* ======================================================================== *;
