;;==========================================================================;; ;; Joe Zbiciak's 4-TRIS, A "Falling Tetrominoes" Game for Intellivision. ;; ;; Copyright 2000, Joe Zbiciak, intvnut AT gmail.com. ;; ;; http://spatula-city.org/~im14u2c/intv/ ;; ;;==========================================================================;; ;* ======================================================================== *; ;* 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) 2000, Joseph Zbiciak *; ;* ======================================================================== *; CFGVAR "name" = "4-Tris" CFGVAR "author" = "Joe Zbiciak" CFGVAR "year" = 2000 CFGVAR "music_by" = "Pyotr Ilyich Tchaikovsky" CFGVAR "music_by" = "Bobby McFarrin" CFGVAR "license" = "GPLv2+" CFGVAR "publisher" = "SDK-1600" ROMW 16 ; Just for the heck of it. ORG $5000 ; Standard Mattel cartridge memory map ;------------------------------------------------------------------------------ ; Magic Constants ;------------------------------------------------------------------------------ EDGEL EQU 15 ; Left edge column EDGER EQU 24 ; Right edge column EDGEB EQU 21 ; Bottom edge row MOVEINC EQU 5 ; Per-downward-move score increment DANGER EQU 6 ; Trigger point at which music goes 2x COPYR EQU $13A ; Character # for Copyright circle-C NXTPCX EQU 33 ; X coord where next piece is shown NXTPCY EQU 11 ; Y coord where next piece is shown LVLROW EQU 4 ; Row 'Level' banner is displayed on LVLCOL EQU 2 ; Column 'Level' banner is displayed on LVLLOC EQU $200 + 20*(LVLROW - 1) + LVLCOL LINROW EQU 7 ; Row 'Lines' banner is displayed on LINCOL EQU 2 ; Column 'Lines' banner is displayed on LINLOC EQU $200 + 20*(LINROW - 1) + LINCOL NXTROW EQU (NXTPCY - 3)/2 ; Row 'Next' banner is displayed on NXTCOL EQU (NXTPCX - 3)/2 ; Column 'Next' banner is displayed on NXTLOC EQU $200 + 20*(NXTROW - 1) + NXTCOL ;------------------------------------------------------------------------------ ; Magic memory locations ;------------------------------------------------------------------------------ VBLANK EQU $20 ; Vertical-blank Handshake COLSTK EQU $21 ; Color-stack/FGBG switch CS0 EQU $28 ; Color Stack 0 CS1 EQU $29 ; Color Stack 1 CS2 EQU $2A ; Color Stack 2 CS3 EQU $2B ; Color Stack 3 CB EQU $2C ; Color for border ISRVEC EQU $100 ; ISR jump vector ; $130 .. $136 ; Save area used by DRAWPIECE/TESTPIECE TMPPC STRUCT $137 ; Temporary storage @@C EQU $ + 0 ; (R0) Color of current piece UNUSED @@X EQU $ + 1 ; (R1) Pivot X coordinate for current piece @@Y EQU $ + 2 ; (R2) Pivot Y coordinate for current piece @@N EQU $ + 3 ; (R3) Piece number for current piece. ENDS CURPC STRUCT $13B ; Current active piece @@C EQU $ + 0 ; (R0) Color of current piece @@X EQU $ + 1 ; (R1) Pivot X coordinate for current piece @@Y EQU $ + 2 ; (R2) Pivot Y coordinate for current piece @@N EQU $ + 3 ; (R3) Piece number for current piece. ENDS PXQ_L0 EQU $140 ; Putpixel Queue length -- not committed PXQ_L1 EQU $141 ; Putpixel Queue length -- committed PXQ_XY EQU $142 ;..$161 ; Putpixel Queue XY data, interleaved. VOLSV EQU $170 ;..$172 ; Volume save-area during pause PAUSED EQU $173 ; Flag saying we paused. OVRFLO EQU $1A0 ; Number of overflows observed WASDOWN EQU $1A1 ; Flag: This movement was 'down' WASHAND EQU $1A2 ; Flag: This movement was 'hand' SLEVEL EQU $1A8 ; Current game level number LEVEL EQU $1A9 ; Current game level number SFXPRIO EQU $1AA ; Priority of currently playing sound SCRPOS EQU $1AB ; Position onscreen to display the score SCRDIG EQU $1AC ; 10 - Number of digits to display in score SHOWNXT EQU $1AD ; Show next piece NXTPC EQU $1AE ; Next Piece REPEAT EQU $1AF ; Flag: Set to keypress we're repeating LHAND EQU $1B0 ; Last hand-controller input LHKPD EQU $1B1 ; Last input was pad if non-zero MUTE EQU $1B2 ; Last input was pad if non-zero CSAVE EQU $1B3 ; Global 'c' save area TSKDQ EQU $1C0 ;..$1DF ; $1C0..$1DF: Task data queue XSAVE EQU $1E0 ; Global 'x' save area YSAVE EQU $1E1 ; Global 'y' save area ;$1E2 .. $1E6, reserved DIDNXT EQU $1EB ; Next Piece was displayed some time this piece HEIGHT EQU $1EC ; Height of blocks in well. TSKACT EQU $1ED ; Number of highest numbered task + 1 TSKQHD EQU $1EE ; Head pointer for task queue (0..15) TSKQTL EQU $1EF ; Tail pointer for task queue (0..15) PSG0 EQU $1F0 ;..$1FD ; PSG base address CTRL0 EQU $1FE ; Right hand controller CTRL1 EQU $1FF ; Left hand controller MAXTSK EQU 4 ; Right now allow 4 active tasks TSKQ EQU $320 ;..$32F ; $320..$32F: Task queue TSKTBL EQU $330 ;..$33F ; $330..$33F: Task table (four tasks) SNDSTRM EQU $340 ;..$347 ; $340..$347: Sound stream table PREVBL EQU $348 ; Pre-VBLANK routine address HANDFN EQU $34A ; Keypad dispatch function table. SCRCOL EQU $34B ; Color that score is displayed in WTIMER EQU $34C ; Countdown timer for WAIT REGSV EQU $34D ;..$351 ; $34D..$351: Register save area for SLEEP PSCORL EQU $352 ; Player's score (lo 16 bits) PSCORH EQU $353 ; Player's score (hi 16 bits) DSCORL EQU $354 ; Displayed score (lo 16 bits) DSCORH EQU $355 ; Displayed score (hi 16 bits) LINES EQU $356 ; Number of lines cleared so far MSCORE EQU $358 ; Total of per-move scores TMP EQU $35D RANDLO EQU $35E ; Low word of random number generator RANDHI EQU $35F ; High word of random number generator SPEED EQU TSKTBL + 3 ; Piece movement speed (IN TASK TABLE!) GROM EQU $3000 GRAM EQU $3800 ;------------------------------------------------------------------------------ ROMHDR: BIDECLE ZERO ; MOB picture base (points to NULL list) BIDECLE ZERO ; Process table (points to NULL list) BIDECLE START ; Program start address BIDECLE ZERO ; Bkgnd picture base (points to NULL list) BIDECLE ONES ; GRAM pictures (points to NULL list) BIDECLE T1TLE ; 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 ONES: DECLE 1, 1, 1, 1, 1 ; Initial color stack / border color. ;------------------------------------------------------------------------------ ;;==========================================================================;; ;; SNDTBL ;; ;; Contains pointers and parameters for all sound effects and music. ;; ;;==========================================================================;; SNDTBL PROC @@bip DECLE BIP, $2744 ; Played when player moves a piece @@byump DECLE BYUMP, $2744 ; Played when the player places a piece @@bomb DECLE BOMB, $27CC ; Played when clearing a line @@bomb4 DECLE BOMB4, $3FFF ; Played when clearing FOUR lines @@boom2 DECLE BOOM2, $3FFF ; Played when well overflows @@ding3 DECLE DING3, $35EE ; Played to signal changing level @@title DECLE NUTMARCH, $3FFF ; Title screen music @@game DECLE CHINDNCE, $3FFF ; In-game music @@over DECLE BEHAPPY, $3FFF ; Game-over music @@silence DECLE SILENCE, $3FFF ; Silence! ENDP FXBIP EQU SNDTBL.bip - SNDTBL FXBOMB EQU SNDTBL.bomb - SNDTBL FXBOMB4 EQU SNDTBL.bomb4 - SNDTBL FXBOOM2 EQU SNDTBL.boom2 - SNDTBL FXDING3 EQU SNDTBL.ding3 - SNDTBL FXBYUMP EQU SNDTBL.byump - SNDTBL M_TITLE EQU SNDTBL.title - SNDTBL M_GAME EQU SNDTBL.game - SNDTBL M_OVER EQU SNDTBL.over - SNDTBL FX_OFF EQU SNDTBL.silence - SNDTBL ;;==========================================================================;; ;; TITLE / START ;; ;; ;; ;; This contains the title string and the startup code. We pre-empt the ;; ;; EXEC's initialization sequence by setting the "Special Copyright" bit ;; ;; in location $500C. This causes the code at 'START' to run before the ;; ;; built-in title screen is completely displayed. ;; ;; ;; ;; The Startup code does very little. Mainly, it sets the Interrupt ;; ;; Service Routine vector to point to our _real_ initialization routine, ;; ;; INIT. This is done because we can only get to GRAM and STIC registers ;; ;; during the vertical retrace, and vertical retrace is signaled by an ;; ;; interrupt. (Actually, we can have access to GRAM/STIC for longer ;; ;; if we don't hit the STIC 'handshake' at location $20, but then the ;; ;; display blanks. During INIT, the display does blank briefly.) ;; ;;==========================================================================;; TITLE: BYTE 100, "*-TRIS", 0 ; Title: 4-TRIS, Copyright 2000 ; Intercept/preempt EXEC initialization and just do our own. ; We call no EXEC routines in this game. START: MVI $1FF, R2 AND $1FE, R2 CLRR R4 ; Prepare to zero all system RAM, PSG0,& STIC. MVII #$20, R1 ; $00...$1F. (The STIC) JSRD R5, FILLZERO ADDI #8, R4 ; $28...$32. (The rest of the STIC) MVII #11, R1 CALL FILLZERO MVII #$F0, R4 ; $F0...$35D. We spare the rand seed values MVII #$26D, R1 ; in $35E..$35F to add some randomness. CALL FILLZERO COMR R2 MVO R2, LHAND ; Set up initial hand-controller state MVII #INIT, R0 ; Our initialization routine MVII #ISRVEC, R4 ; ISR vector MVO@ R0, R4 ; Write low half SWAP R0 ; MVO@ R0, R4 ; Write high half MVI RANDLO, R0 ; Get whatever garbage data is in memory in the MVI RANDHI, R1 ; random number generator fields MOVR PC, R5 ; Loop starting at the next instruction. @@spin: INCR R0 ; Seed random number generator while DECR R1 ; we wait for our first interrupt. MVO R0, RANDLO MVO R1, RANDHI EIS ; This falls through to STUB which causes ; our loop (saves a couple DECLEs.) ;;==========================================================================;; ;; STUB ;; ;; Null routine used in dispatchers where no behavior is defined/desired. ;; ;;==========================================================================;; STUB: JR R5 ; Stub routine ;;==========================================================================;; ;; INIT ;; ;; Initializes the ISR, etc. Gets everything ready to run. ;; ;; This is called via the ISR dispatcher, so it's safe to bang GRAM from ;; ;; here, too. ;; ;; ;; ;; -- Zero out memory to get started ;; ;; -- Set up variables that need to be set up here and there ;; ;; -- Set up GRAM image ;; ;; -- Drop into the main game state-machine. ;; ;;==========================================================================;; INIT: PROC DIS MVII #$2F0, R6 ; Reset the stack pointer MVI COLSTK, R1 ; Force display to color-stack mode ; Make sure random number generator is non-zero. MOVR PC, R0 ; The PC is guaranteed to be non-zero. XOR RANDLO, R0 BEQ @@randok ; If the XOR result is zero, we're ok, MVO R0, RANDLO ; otherwise make RANDLO non-zero. @@randok: ; Stub out all of the task hooks MVII #STUB, R0 ; Prepare to stub out some hooks. MVO R0, PREVBL ; Initial pre-VBL task is NULL MVII #MAINISR, R0 ; Point ISR vector to our ISR MVO R0, ISRVEC ; store low half of ISR vector SWAP R0 ; MVO R0, ISRVEC+1 ; store high half of ISR vector ; Do the face? MVII #$D9, R0 CMP $1FE, R0 BEQ DOFACE CMP $1FF, R0 BEQ DOFACE ; Default the GRAM image to be same as GROM. MVII #GROM, R5 ; Point R5 at GROM MVII #GRAM, R4 ; Point R4 at GRAM MVII #$200, R0 @@gromcopy: MVI@ R5, R1 MVO@ R1, R4 DECR R0 BNEQ @@gromcopy ; Copy our GRAM font into GRAM overtop of default. CALL LOADFONT DECLE FONT ; Ok, everything's ready to roll now. EIS ;;==================================================================;; ;; Game phases: ;; ;; -- Title screen ;; ;; -- (optional) Sound Test ;; ;; -- In Game ;; ;; -- Game over ;; ;; ;; ;; The INIT code cycles between these gae phases by first ;; ;; calling the subroutine which sets up the tasks for a given ;; ;; game phase, and then calling the main event loop which ;; ;; runs the game. This assumes that all tasks are stopped when ;; ;; the MAINLOOP exits. Calling SCHEDEXIT accomplishes a clean ;; ;; exit from MAINLOOP by scheduling an exit while stopping all ;; ;; other tasks. (Neat, eh?) ;; ;;==================================================================;; @@loop: CALL TITLESCREEN ; Set up 'Title Screen' CALL MAINLOOP ; Do title screen. MVI SLEVEL, R0 ; If starting level == 0, do 'Sound Test' TSTR R0 BEQ @@soundtest CALL INGAME ; Set up 'In Game' CALL MAINLOOP ; Do the Game. CALL GAMEOVER ; Set up the 'Game Over' sequence. CALL MAINLOOP ; Let it run. B @@loop ; Start over at the title screen. @@soundtest: CALL SOUNDTEST ; Sound-test requested. Set that up. CALL MAINLOOP ; Run the sound-test. B @@loop ; Go back to title screen when done. ENDP ;;==========================================================================;; ;; LOADFONT -- Load a compressed FONT into GRAM. ;; ;; ;; ;; Note: This should be called only when the STIC is already in CPU- ;; ;; controlled mode, such as from an interrupt handler. Loading a large ;; ;; font may cause the screen to blank for one or more frames. ;; ;; ;; ;; Font data is broken up into spans of characters that are copied ;; ;; into GRAM. Each span is defined as follows. ;; ;; ;; ;; Span Header: 2 Decles ;; ;; DECLE Skip Length (in bytes of GRAM memory) ;; ;; DECLE Span Length (in bytes of GRAM memory) ;; ;; Span Data -- up to Span Length Decles. ;; ;; ;; ;; Span Data is run-length encoded using the upper two bits of the ;; ;; decle to specify the run length. Valid run lengths are 0..3, ;; ;; with 0 meaning "just copy this byte to the GRAM", and 3 meaning ;; ;; "copy this byte to GRAM and make three more copies in the locations ;; ;; afterwards". To see what I mean, look at the font data in ;; ;; "font.asm". ;; ;; ;; ;; The run length encoding does not change the value used for ;; ;; 'span length'. The span length is always given in terms of ;; ;; # of GRAM locations, and not number of decles in the FONT data. ;; ;; ;; ;; The font is terminated with a span of length 0. ;; ;; ;; ;; INPUTS: ;; ;; R5 -- Points to word (1 decle in 16-bit ROM) containing ptr to font ;; ;; info. Code returns after this word. ;; ;; ;; ;; OUTPUTS: ;; ;; R0, R1, R4, R5 trashed. ;; ;; GRAM is updated according to the font specification. ;; ;; ;; ;;==========================================================================;; LOADFONT PROC MVI@ R5, R0 PSHR R5 MOVR R0, R5 MVII #GRAM, R4 ; Point R4 at GRAM @@gramloop: MVI@ R5, R0 ; Get skip & span len. (in GRAM bytes) TSTR R0 ; Quit if skip/span == 0. BEQ @@gramdone MOVR R0, R1 ANDI #$7F8, R0 ; Extract span length. XORR R0, R1 ; Clear away span bits from word SWAP R1 ; Extrack skip value. ADDR R1, R4 ; Skip our output pointer. SLR R0, 1 ; Divide count by 2. @@charloop: MVI@ R5, R1 ; Get two bytes MVO@ R1, R4 ; Put the first byte SWAP R1 ; Put the other byte into position MVO@ R1, R4 ; Put the second byte DECR R0 ; Sheesh, do I have to spell this out? BNEQ @@charloop ; inner loop B @@gramloop ; outer loop @@gramdone: PULR PC ENDP ;;==========================================================================;; ;; MAINISR ;; ;; This is the main interrupt service routine. It has to perform the ;; ;; following tasks: ;; ;; ;; ;; -- Run any miscellaneous "pre-VBLANK" task requested by main program. ;; ;; -- Hit the vertical blank handshake to keep screen enabled. ;; ;; -- Update any active sound streams. ;; ;; -- Drain and pixels queued up in the Pixel Queue. ;; ;; -- Count down task timers and schedule tasks when timers expire. ;; ;; -- Count down the 'busy-wait' timer if it is set. ;; ;; -- Detect a "Pause" request and pause the game if needed. ;; ;; ;; ;; This particular program currently does not sequence GRAM at all after ;; ;; the initial bootup. Therefore, we can hit the VBLANK handshake almost ;; ;; immediately after entering the ISR. We do support a pre-VBLANK ;; ;; routine though for other purposes, such as setting color-stack regs. ;; ;; ;; ;; Our code does not rely on any EXEC routines at all, except the ISR ;; ;; dispatch routine which saves and restores all the registers. (On a ;; ;; real Intellivision, we have no choice. On an emulator, that routine ;; ;; can be replaced with a separate non-EXEC routine which performs a ;; ;; similar dispatch, if we want to distribute this program without an ;; ;; EXEC ROM image but with an emulator.) ;; ;; ;; ;;==========================================================================;; MAINISR PROC PSHR R5 ; Save return address ;; Call out to user-defined pre-VBLANK routine. ;; This routine should point to the stub if no routine is to ;; be called. (simplifies the code w/out really slowing it down.) MVII #@@rl0, R5 ; Point to @@rl0 MVI PREVBL, PC ; Call subroutine @@rl0: ;; Hit the VBLANK handshake now MVO R0, $20 ; Allow STIC to display this frame. ;; Update sound streams. All sound streams update at 60Hz. ;; Stream #0 can update at "60Hz * 2" if double-speed mode is on. CALL SNDPRIO ; Make sure music & sfx play nice ; Update music CALL DOSNDSTREAM ; Update the sound stream DECLE SNDSTRM ; Point to the music stream ; Update sfx CALL DOSNDSTREAM ; Update the sound stream DECLE SNDSTRM+4 ; Point to the sfx stream ; If well is too tall, play music fast. MVII #DANGER, R0 CMP HEIGHT, R0 BLT @@slowmusic MVII #SNDSTRM, R4 CALL DOSNDSTREAM ; Update the sound stream DECLE SNDSTRM ; Point to the music stream @@slowmusic: MVII #RANDHI,R1 MVI SNDSTRM+1, R2 XOR@ R1, R2 MVO@ R2, R1 ; Throw some bits into the random bucket ;; Drain any pixels that were queued and committed. CALL DRAINPXQ ;; Count down task timers and schedule tasks. We have up to MAXTSK ;; active tasks at one time. We decrement all counters by two. ;; -- If the count is initially <= 0, the task is inactive and ;; is skipped. ;; -- If the count goes to zero, the task is triggered and its ;; count is reinitialized. ;; -- If the count goes negative, the task is triggered and its ;; count is not reinitialized. ;; This allows us to have one-shot and repeating tasks pretty ;; easily. Repeating tasks clear bit 0 of their period count, ;; and one-shot tasks set bit 0. ;; ;; When tasks are triggered, their procedure address is written ;; to the task queue which is drained by the non-ISR main task. ;; The task queue is a small circular buffer in 16-bit memory with ;; head and tail pointers in 8-bit memory. The circular buffer is ;; 16 entries large. I hope this is enough. Overflow can cause ;; strange effects. ;; ;; Task control table entry layout: ;; ;; Word 0: Function Ptr ;; Word 1: Instance data ;; Word 2: Current down-count ;; Word 3: Reinit count MVI TSKACT, R0 ; Iterate over active tasks TSTR R0 BEQ @@notasks MVII #TSKTBL+2, R3 ; Point to the task control table @@taskloop: MVI@ R3, R1 ; Get tasks's current tick count TSTR R1 ; Is it <= 0? BLE @@nexttask ; ... yes? Skip it. MOVR R1, R2 ADD RANDLO, R2 MVO R2, RANDLO ; Throw some bits into the random bucket SUBI #2, R1 ; Count it down. BNEQ @@noreinit ; If it went to zero, reinit count INCR R3 MVI@ R3, R1 ; Get new period for task DECR R3 SUBR R2, R2 ; Z = 1, S = 0 (causes the BGT to not be taken) @@noreinit: MVO@ R1, R3 ; Store new period. BGT @@nexttask ; If this count didn't expire, ... ; ... go to the next task @@q: ; Schedule this task by adding it to the task queue MOVR R3, R4 SUBI #2, R4 MVI@ R4, R2 ; Get task function pointer MVI TSKQHD, R1 ; Get task queue head INCR R1 ; Move to next slot ANDI #$F, R1 ; Stay within 16-entry circ buffer CMP TSKQTL, R1 BEQ @@overflow ; Drop this task if queue overflows. (!) MOVR R1, R5 ADDR R1, R5 ; R5 is for task data queue ADDI #TSKDQ, R5 ; Point to task data queue MVO R1, TSKQHD ; Store updated task queue head ADDI #TSKQ, R1 ; Point to actual task queue MVO@ R2, R1 ; Store the function pointer MVI@ R4, R2 ; Get task instance data MVO@ R2, R5 ; Store low half of instance data SWAP R2, 1 MVO@ R2, R5 ; Store high half of instance data @@nexttask: ADDI #4, R3 ; Point to next task struct DECR R0 BNEQ @@taskloop ; Loop until done with all tasks B @@notasks @@overflow: MVI OVRFLO, R0 INCR R0 MVO R0, OVRFLO @@notasks: @@wtimer: ;; Count down the wait-timer, if there is one MVI WTIMER, R5 DECR R5 BMI @@expired MVO R5, WTIMER @@expired: ;; Check to see if the user has requested a pause. MVII #$5A, R0 ; Keypad 1 + Keypad 9 CMP $1FE, R0 ; Pause on first controller? BEQ @@pausing CMP $1FF, R0 ; Pause on second controller? BEQ @@pausing PULR PC ; Return @@pausing: DIS ; Disable interrupts while paused. ; Grab PSG volume settings aside and force volume to zero. MVII #VOLSV, R2 MVII #$1FB, R3 MOVR R2, R5 MOVR R3, R4 MVO R4, PAUSED ; Set 'we paused' flag MVI@ R4, R0 ; Channel a MVO@ R0, R5 MVI@ R4, R0 ; Channel b MVO@ R0, R5 MVI@ R4, R0 ; Channel c MVO@ R0, R5 CLRR R1 MOVR R3, R4 MVO@ R1, R4 MVO@ R1, R4 MVO@ R1, R4 CLRC CALL @@waithand ; Wait for both controllers to be released. SETC CALL @@waithand ; Wait for either controller to be pressed CLRC CALL @@waithand ; Wait for both controllers to be released. MOVR R3, R5 MOVR R2, R4 MVI@ R4, R0 ; Channel a MVO@ R0, R5 MVI@ R4, R0 ; Channel b MVO@ R0, R5 MVI@ R4, R0 ; Channel c MVO@ R0, R5 EIS PULR PC @@waitpress: BNEQ @@waitdone @@waithand: MVII #100, R1 ; Debounce factor @@waitloop: MVII #$1FE, R4 SDBD MVI@ R4, R0 COMR R0 BC @@waitpress BNEQ @@waithand @@waitdone: DECR R1 BNEQ @@waitloop JR R5 ENDP ;;==========================================================================;; ;; MAINLOOP ;; ;; The main loop runs asynchronously from the MAINISR, running tasks as ;; ;; they get scheduled. There is also a background task that runs when ;; ;; nothing else is in the queue. ;; ;; ;; ;; -- Grab task from task queue, if any ;; ;; -- run that task ;; ;; -- look for next task ;; ;; -- run background task once if no tasks available ;; ;; ;; ;; The background task scans hand controllers. I do this because ;; ;; hand-controller scanning could be fairly expensive. Also, scanning ;; ;; hand controllers may cause new tasks to get scheduled (eg. the triggers ;; ;; for various hand controller events) and I don't want to overrun the ;; ;; task queue. ;; ;; ;; ;; The background task also updates the random number generator state. I ;; ;; do this to make the random numbers a bit more random since the game ;; ;; loading varies according to what's going on. ;; ;;==========================================================================;; MAINLOOP PROC PSHR R5 ; Save return address, since any ; task is allowed to exit the main ; game loop, say, when switching ; between game phases. ; ; There are three game phases: ; -- Title Screen ; -- In Game ; -- Game Over. MVII #EDGEB, R1 ; Set the well height so that music MVO R1, HEIGHT ; plays correctly MVO R1, MUTE ; Also, un-mute music. @@loop: MOVR PC, R5 ; Set our return address to @@loop DECR R5 ; This is 2 decles vs. 4 for SDBD/MVII ; Run next scheduled task from queue DIS ; Shut off interrupts MVI TSKQTL, R1 ; Get the tail of the queue CMP TSKQHD, R1 ; Are there tasks in the queue? BEQ @@bktsk ; No: Do background task INCR R1 ; Pop task from queue by ANDI #$F, R1 ; ... moving the queue tail MVO R1, TSKQTL ; Store new task-queue tail MOVR R1, R4 ADDR R4, R4 ADDI #TSKDQ, R4 SDBD MVI@ R4, R2 ; Load instance data for task ADDI #TSKQ, R1 ; Point to task queue MVI@ R1, R0 ; Get function pointer from queue ; Dispatch to user's task. Make sure interrupts are enabled again EIS ; Done with critical section JR R0 ; Jump to subroutine ; Note that this implicitly loops back to @@oloop here @@bktsk: EIS ; Done with critical section CALL NEXTRAND ; Update random number state CALL SCANHAND ; Scan the hand controllers. EC_LOC EQU $CF00 EC_MAG EQU $69 EC_POLL EQU $CF01 MVI EC_LOC, R0 CMPI #EC_MAG,R0 BNEQ @@loop CALL EC_POLL B @@loop ; Run around the inner loop ENDP ;;==========================================================================;; ;; QTASK ;; ;; Add a task to the task queue. ;; ;; NOTE: CALL THIS WITH INTERRUPTS OFF!!!! (eg. use JSRD). Interrupts ;; ;; will be enabled before return. ;; ;; ;; ;; INPUTS: ;; ;; R0 -- Task function pointer ;; ;; R1 -- Task instance data ;; ;; R5 -- Return address. ;; ;; ;; ;; OUTPUTS: ;; ;; R0 -- intact. ;; ;; R1 -- swapped ;; ;; R2, R4 -- trashed. ;; ;;==========================================================================;; QTASK PROC MVI TSKQHD, R2 ; Get head of task queue INCR R2 ; Move to next queue slot ANDI #$F, R2 ; Stay in circular buffer CMP TSKQTL, R2 ; Are we overflowing the queue? BEQ @@overflow ; Yes ... don't overflow it! MVO R2, TSKQHD ; Store new task queue head MOVR R2, R4 ; Generate instance data pointer ADDR R2, R4 ; (remember mult by two for data ptr) ADDI #TSKQ, R2 ; Point into task queue MVO@ R0, R2 ; Store function pointer to task q ; moved addi for STIC interruptibility fix ADDI #TSKDQ, R4 ; Point into task data queue MVO@ R1, R4 ; Store instance data to data q SWAP R1 ; .... cont'd MVO@ R1, R4 ; .... cont'd EIS ; Re-enable ints after crit section JR R5 ; Return. @@overflow: MVI OVRFLO, R2 INCR R2 MVO R2, OVRFLO EIS ; Re-enable ints after crit section JR R5 ; Return. ENDP ;;==========================================================================;; ;; SCHEDEXIT ;; ;; Flushes the task queue and schedules the exit task. ;; ;; ;; ;; INPUTS: ;; ;; R5 -- Return address. ;; ;;==========================================================================;; SCHEDEXIT: PROC PSHR R5 ; Push return address. JSRD R5,STOPALLTASKS ; Flush the pending task queue MVII #@@exit, R0 ; Schedule the exit task ... PULR R5 B QTASK ; ... and chain the return. @@exit: PULR PC ENDP ;;==========================================================================;; ;; STOPALLTASKS ;; ;; Stops all tasks by setting the task count to zero and by ;; ;; flushing the task queue (sets head/tail to 0). Returns old task count. ;; ;; NOTE: CALL THIS WITH INTERRUPTS OFF!!!! (eg. use JSRD) Interrupts ;; ;; are NOT re-enabled by this function. ;; ;; ;; ;; INPUTS: ;; ;; R5 -- Return address ;; ;; ;; ;; OUTPUTS: ;; ;; R0 -- Previous TSKACT ;; ;; R1 -- Cleared ;; ;; All tasks stopped. ;; ;;==========================================================================;; STOPALLTASKS PROC MVI TSKACT, R0 CLRR R1 MVO R1, TSKACT MVO R1, TSKQHD MVO R1, TSKQTL DECR R1 MVO R1, TSKTBL+2 ; period == -1 for task 0 MVO R1, TSKTBL+6 ; period == -1 for task 1 MVO R1, TSKTBL+10 ; period == -1 for task 2 NOP ; (interruptible, for STIC) MVO R1, TSKTBL+14 ; period == -1 for task 3 JR R5 ENDP ;;==========================================================================;; ;; STARTTASK ;; ;; Puts a task into a task slot for general timer-based scheduling ;; ;; ;; ;; INPUTS: ;; ;; R5 -- Invocation record: ;; ;; DECLE -- Task number ;; ;; DECLE -- Task function pointer ;; ;; DECLE -- Task initial period * 2. If bit 0==1, this is one-shot task. ;; ;; DECLE -- Task period re-init. Useful if first delay!=recurring delay. ;; ;; R2 -- Task instance data (optional) ;; ;; ;; ;; OUTPUTS: ;; ;; Task record is set up. (User still needs to update TSKACT to make ;; ;; the task records active, if necessary.) ;; ;; ;; ;; Registers R0, R4 are trashed. ;; ;;==========================================================================;; STARTTASK PROC MVI@ R5, R0 SLL R0, 2 ; R0 = R0 * 4 (four words/entry) MVII #TSKTBL,R4 ; R4 = &TSKTBL[0] ADDR R0, R4 ; R4 = &TSKTBL[n] DIS ; Entering critical section. MVI@ R5, R0 ; Get Function pointer MVO@ R0, R4 ; ... and write it MVO@ R2, R4 ; Write task instance data MVI@ R5, R0 ; Get task period MVO@ R0, R4 ; ... and write it MVI@ R5, R0 ; Get task period reinit MVO@ R0, R4 ; ... and write it EIS JR R5 ENDP ;;==========================================================================;; ;; STOPTASK ;; ;; Stops a given task by setting its period to -1. Task can be ;; ;; retriggered/restarted by calling RETRIGGERTASK. ;; ;; ;; ;; INPUTS: ;; ;; R3 -- Task number. ;; ;; ;; ;; OUTPUTS: ;; ;; Task is disabled. ;; ;; R0 == -1, R3 points to task delay count. ;; ;;==========================================================================;; STOPTASK PROC SLL R3, 2 ; R3 = R3 * 4 (four words/entry) ADDI #TSKTBL+2, R3 ; R3 = &TSKTBL[n].delay CLRR R0 DECR R0 ; R0 == -1. MVO@ R0, R3 ; TSKTBL[n].delay = -1 JR R5 ENDP ;;==========================================================================;; ;; RETRIGGERTASK ;; ;; Restarts a task by copying its delay re-init field to its delay field. ;; ;; Can be used on one-shot tasks or tasks which have been stopped with ;; ;; 'StopTask'. ;; ;; ;; ;; INPUTS: ;; ;; R3 -- Task number. ;; ;; ;; ;; OUTPUTS: ;; ;; R0 -- Task delay ;; ;; R3 -- points to task delay count ;; ;;==========================================================================;; RETRIGGERTASK: PROC SLL R3, 2 ; R3 = R3 * 4 (four words/entry) ADDI #TSKTBL+3, R3 ; R3 = &TSKTBL[n].reload DIS MVI@ R3, R0 ; Get reload value @@chain: DECR R3 ; Offset 2 is delay count MVO@ R0, R3 EIS JR R5 ENDP ;;==========================================================================;; ;; WAIT ;; ;; Busy-waits for the number of ticks specified in R0. ;; ;; ;; ;; INPUTS: ;; ;; R0 -- Number of ticks to wait ;; ;; R5 -- Return address ;; ;; ;; ;; OUTPUTS: ;; ;; R0 -- cleared ;; ;;==========================================================================;; WAIT PROC MVI@ R5, R0 MVO R0, WTIMER CLRR R0 @@loop: CMP WTIMER, R0 BNEQ @@loop JR R5 ENDP ;;==========================================================================;; ;; SLEEP ;; ;; Causes a one-shot process to sleep by scheduling a second one-shot ;; ;; process to reawake it. This is VERY DIFFICULT TO USE, and can be ;; ;; used by ONE PROCESS ONLY at a time. ;; ;; ;; ;; SPAWN ;; ;; Same as sleep, only the sleeping task isn't a one-shot. It keeps ;; ;; retriggering automatically at the designated interval, or can be ;; ;; retriggered manually if the period is odd. ;; ;; ;; ;; INPUTS: ;; ;; R5 -- Invocation record, in following format: ;; ;; Period/sleep time 1 Decle (Must be ODD for SLEEP) ;; ;; Process # to use 1 Decle ;; ;; Top of Stack -- Return address from _this_ process back to scheduler. ;; ;; Task will wake at address after invocation record. ;; ;; ;; ;; OUTPUTS: ;; ;; R0, R1, R2, R3, R4 restored ;; ;; R5 points to your return address ;; ;; Top of stack has return address for scheduler ;; ;;==========================================================================;; SLEEP: PROC SPAWN: MVO R4, REGSV+4 ; Save R4 MVII #REGSV, R4 MVO@ R0, R4 ; Save R0 MVO@ R1, R4 ; Save R1 MVO@ R2, R4 ; Save R2 MVO@ R3, R4 ; Save R3 MVI@ R5, R2 ; Get sleep time MVI@ R5, R3 ; Get PID SLL R3, 2 ; R3 = R3 * 4 (four words/entry) MVII #TSKTBL,R4 ; R4 = &TSKTBL[0] ADDR R3, R4 ; R4 = &TSKTBL[n] MVII #@@wake,R0 MVO@ R0, R4 ; Address to wake up at MVO@ R5, R4 ; Instance data (R2 restore) MVO@ R2, R4 MVO@ R2, R4 PULR PC @@wake: PSHR R5 ; Remember return address MOVR R2, R5 MVII #REGSV, R4 ; Point to register save area MVI@ R4, R0 ; Restore R0 MVI@ R4, R1 ; Restore R1 MVI@ R4, R2 ; Restore R2 MVI@ R4, R3 ; Restore R3 MVI@ R4, R4 ; Restore R4 JR R5 ; Go there ENDP ;;==========================================================================;; ;; DOFACE ;; ;;==========================================================================;; DOFACE PROC DIS MVII #$2F0, SP MVII #@@loadface, R0 MVO R0, PREVBL SWAP R0 MVO R0, PREVBL+1 CLRR R0 MVII #$F0, R1 MVII #$200, R4 CALL FILLMEM MVII #$200 + 8 + 20, R4 MVII #FACE, R5 MVII #9, R0 MVO R0, CB MVO R0, CS0 @@f_oloop: MVII #6, R2 @@f_iloop: MVI@ R5, R1 MVO@ R1, R4 DECR R2 BNEQ @@f_iloop ADDI #14, R4 DECR R0 BNEQ @@f_oloop CALL DRAWSTRING3 DECLE 0, $200 + 20*10 ;01234567890123456789 BYTE $4A, $6F, $65, $20, $5A, $62, $69, $63, $69, $61, $6B BYTE $20, $73, $61, $79, $73, $20, $48, $49, $21, $0A, $00 EIS DECR PC @@loadface: MVII #@@shunt, R0 MVO R0, PREVBL SWAP R0 MVO R0, PREVBL+1 MVII #9, R0 MVO R0, CS0 MVO R0, CB CALL LOADFONT DECLE FACEFONT @@shunt: MVO R0, $20 PULR PC ENDP ;;==========================================================================;; ;; Colored squares pixel-manipulation routines. ;; ;; J. Zbiciak, July 1999 ;; ;;==========================================================================;; ; Data tables for pixel routines MSKTBL: DECLE $0007, $0038, $01C0, $2600 CLRTBL: DECLE $0000, $0249, $0492, $06DB DECLE $2124, $236D, $25B6, $27FF ;;==========================================================================;; ;; PIXCALC -- Pixel Calculation: Convert x,y into addr,mask ;; ;; ;; ;; INPUTS: ;; ;; R1 -- X coordinate ;; ;; R2 -- Y coordinate ;; ;; R5 -- Return address ;; ;; ;; ;; OUTPUTS: ;; ;; R1 -- Pixel mask ;; ;; R2 -- Address in display memory. ;; ;; R3, R4 -- Clobbered. ;; ;;==========================================================================;; PIXCALC PROC SLL R2, 1 ; y' = y << 1 MOVR R2, R4 ; mskidx = y << 1 ANDI #2, R4 ; mskidx = (y << 1) & 2 SUBR R4, R2 ; y' = (y & ~1) << 1 MOVR R2, R3 ; save y' SLL R2, 2 ; y'' = (y & ~1) << 3 ADDR R3, R2 ; y''' = y' + y'' = (y >> 1) * 20 SARC R1, 1 ; c = x & 1; x' = x >> 1 ADCR R4 ; mskidx = ((y << 1) & 2) + (x & 1) ADDR R1, R2 ; ofs = x' + y''' = (x >> 1) + (y >> 1) * 20 ADDI #$200, R2 ; ptr = ofs + $200 = &BACKTAB[ofs] ==> R2 ADDI #MSKTBL,R4 ; mskptr = MSKTBL + mskidx' = &MSKTBL[mskidx] MVI@ R4, R1 ; mask = *mskptr ==> R1 JR R5 ; return ENDP ;;==========================================================================;; ;; PUTPIXEL -- Put pixel at x, y coordinates with color 'c' (0-7) ;; ;; ;; ;; INPUTS: ;; ;; R0 -- Color ;; ;; R1 -- X coordinate ;; ;; R2 -- Y coordinate ;; ;; R5 -- Return address ;; ;; ;; ;; OUTPUTS: ;; ;; R1 -- Word stored at R2 ;; ;; R2 -- Display memory address ;; ;; R0, R3, R4, R5 -- Clobbered. ;; ;;==========================================================================;; PUTPIXEL PROC PSHR R5 ; Save return address MVII #PUTPIXELR+1,R5 ; Return to actual pixel draw below B PIXCALC ; Convert x,y into mask,addr ;;==========================================================================;; ;; PUTPIXELR -- Put pixel 'raw': accepts address, mask, and color ;; ;; (Alternate entry point for PUTPIXEL.) ;; ;; ;; ;; INPUTS: ;; ;; R0 -- Color ;; ;; R1 -- Pixel mask ;; ;; R2 -- Display memory address ;; ;; ;; ;; OUTPUTS: ;; ;; R1 -- Word stored at R2 ;; ;; R2 -- Display memory address ;; ;; R0,R5 -- Clobbered. ;; ;;==========================================================================;; PUTPIXELR: PSHR R5 ; Save return address MOVR R0, R5 ADDI #CLRTBL,R5 ; clrptr = CLRTBL + c' = &CLRTBL[c] MVI@ R5, R0 ; color = CLRTBL[c] ANDR R1, R0 ; color = color & mask (select desired pix) COMR R1 ; invert mask AND@ R2, R1 ; pix = BACKTAB & ~mask (clear pixel) ADDR R0, R1 ; pix' = pix + color (merge pixels) MVO@ R1, R2 ; BACKTAB[ofs] = pix' (write pixels) PULR PC ; return. ENDP ;;==========================================================================;; ;; PIXELCLIP ;; ;; Returns with C==1 if pixel is onscreen ;; ;; ;; ;; INPUTS: ;; ;; R1 -- X coordinate ;; ;; R2 -- Y coordinate ;; ;; R5 -- Return address ;; ;; ;; ;; OUTPUTS: ;; ;; Carry == 1 if onscreen, 0 if offscreen. ;; ;;==========================================================================;; PIXELCLIP PROC TSTR R1 ; Off left? BMI @@offscr ; Yes: Set carry and exit TSTR R2 ; Off top? BMI @@offscr ; Yes: Set carry and exit CMPI #39, R1 ; Off right? BGT @@offscr ; Yes: Set carry and exit CMPI #23, R2 ; Off bottom? BGT @@offscr ; Yes: Set carry and exit SETC ; No to all: Clear carry and exit JR R5 @@offscr CLRC JR R5 ENDP ;;==========================================================================;; ;; GETPIXELS -- Calls GETPIXEL, but saves/restores X, Y ;; ;; ;; ;; INPUTS: ;; ;; R1 -- X coordinate ;; ;; R2 -- Y coordinate ;; ;; R5 -- Return addr. ;; ;; ;; ;; OUTPUTS ;; ;; R0 -- Color ;; ;; R1 -- X coordinate ;; ;; R2 -- Y coordinate ;; ;; R3, R4, R5 -- Clobbered. ;; ;;==========================================================================;; GETPIXELS PROC PSHR R5 @@chain: MVO R1, XSAVE MVO R2, YSAVE CALL GETPIXEL MVI XSAVE, R1 MVI YSAVE, R2 PULR PC ENDP ;;==========================================================================;; ;; PUTPIXELS -- Calls PUTPIXEL, but saves/restores X, Y ;; ;; ;; ;; INPUTS: ;; ;; R0 -- Color ;; ;; R1 -- X coordinate ;; ;; R2 -- Y coordinate ;; ;; R5 -- Return addr. ;; ;; ;; ;; OUTPUTS ;; ;; R0 -- Color ;; ;; R1 -- X coordinate ;; ;; R2 -- Y coordinate ;; ;; R3, R4, R5 -- Clobbered. ;; ;;==========================================================================;; PUTPIXELS PROC PSHR R5 @@chain: MVO R1, XSAVE MVO R2, YSAVE MVO R0, CSAVE CALL PUTPIXEL MVI CSAVE, R0 MVI XSAVE, R1 MVI YSAVE, R2 PULR PC ENDP ;;==========================================================================;; ;; GETPIXELSC ;; ;; Calls GETPIXELS or returns R0 unchanged if pixel is off screen ;; ;; ;; ;; INPUTS: ;; ;; R0 -- Color to return if off-screen ;; ;; R1 -- X coordinate ;; ;; R2 -- Y coordinate ;; ;; R5 -- Return addr. ;; ;; ;; ;; OUTPUTS ;; ;; R0 -- Color ;; ;; R1 -- X coordinate ;; ;; R2 -- Y coordinate ;; ;; R3, R4, R5 -- Clobbered. ;; ;;==========================================================================;; GETPIXELSC PROC PSHR R5 ; Save return address CALL PIXELCLIP ; See if pixel is onscreen ADCR PC ; If it is, then skip the return PULR PC ; Otherwise return. B GETPIXELS.chain ; If onscreen chain over to GETPIXELS ENDP ;;==========================================================================;; ;; GETPIXEL -- Get pixel at x, y address ;; ;; ;; ;; INPUTS: ;; ;; R1 -- X coordinate ;; ;; R2 -- Y coordinate ;; ;; ;; ;; OUTPUTS: ;; ;; R0 -- Color ;; ;; R2 -- Display memory address ;; ;; R1, R3, R4, R5 -- Clobbered. ;; ;;==========================================================================;; GETPIXEL PROC PSHR R5 ; Save return address MVII #GETPIXELR+1,R5 ; Return to actual pixel read below B PIXCALC ; Convert x,y into mask,addr ;;==========================================================================;; ;; GETPIXELR -- Get pixel 'raw': accepts address, mask ;; ;; (Alternate entry point for getpixel) ;; ;; INPUTS: ;; ;; R1 -- Pixel mask ;; ;; R2 -- Display memory address ;; ;; ;; ;; OUTPUTS: ;; ;; R0 -- Color ;; ;; R2 -- Display memory address ;; ;; R1, R5 -- Clobbered. ;; ;;==========================================================================;; GETPIXELR: PSHR R5 ; Save return address MVI@ R2, R0 ; pix = BACKTAB[ofs] ANDR R1, R0 ; pix' = pix & mask MOVR R0, R1 ; SWAP R0, 1 ; ANDI #$20, R0 ; ADDR R1, R0 ; merge oddball bit from lower right pixel SLL R1, 2 ; SWAP R1, 1 ; ADDR R1, R0 ; Fold upper, lower pairs of pixels MOVR R0, R1 ; SLR R0, 1 ; SLR R0, 2 ; ADDR R1, R0 ; Fold left, right pixels ANDI #7, R0 ; Select remaining pixel PULR PC ; return ENDP ;;==========================================================================;; ;; PUTPIXELSCQ ;; ;; ;; ;; Queues a pixel for display if it's onscreen. This routine does not ;; ;; draw the pixel directly, but rather puts it in a queue of pixels that ;; ;; are waiting to be drawn. This queue is emptied during the interrupt ;; ;; service routine after the queue is "committed" for display with a call ;; ;; to COMMITPXQ. ;; ;; ;; ;; The pixel queue serves as a mechanism for reducing/eliminating the ;; ;; flicker associated with redrawing a game piece. Without the queue, ;; ;; piece movements could result in a significant amount of flicker. ;; ;; To further reduce flicker, the queue insert routine attempts to ;; ;; optimize multiple 'PUTPIXELs' to the same location, with the last ;; ;; PUTPIXEL taking precedence. ;; ;; ;; ;; Because this queue is intended for drawing game pieces only, it is ;; ;; not very large. No checking is performed for queue overflow, either. ;; ;; Also, because double-buffering is not performed, this routine will ;; ;; block if there is a committed pixel queue waiting to be drawn. ;; ;; ;; ;; INPUTS: ;; ;; R0 -- Color ;; ;; R1 -- X coordinate ;; ;; R2 -- Y coordinate ;; ;; ;; ;; OUTPUTS ;; ;; R0 -- Color ;; ;; R1 -- X coordinate ;; ;; R2 -- Y coordinate ;; ;; R3, R4, R5 -- Clobbered. ;; ;;==========================================================================;; PUTPIXELSCQ PROC PSHR R5 ; Save return address CALL PIXELCLIP ; See if pixel is onscreen ADCR PC ; If it is, then skip the return PULR PC ; Otherwise return. ; Merge Y coordinate and color up-front, since we store ; them merged in the queue. MOVR R0, R3 ; Work on a copy of our color SWAP R3 SLR R3, 2 SLR R3, 1 ; R3 = color << 5 XORR R3, R2 ; Put color in bits 5..7 of R2 DIS ; Critical section: Queue management. ; First, check to see if any pixels are queued at all. If there ; aren't any, just jump straight to the queue-insert. MVI PXQ_L0, R3 TSTR R3 BEQ @@insert_eis ; Next, check to see if there are any committed pixels waiting ; to be drawn in the pixel queue. Wait until the queue is drained. CLRR R3 CMP PXQ_L1, R3 ; If there are no committed pixels, we EIS ; Interrupts can be enabled now. BEQ @@check ; still need to check for redundant pixels. @@drain: CMP PXQ_L1, R3 ; Otherwise, let the queue drain and jump BNEQ @@drain ; straight to the insert since it's empty B @@insert @@check: ; If we reach here, we have a non-empty pixel queue, and no ; committed pixels. Step through the queue to see if we have ; any redundant pixels. MVII #PXQ_XY - 1, R4 ; Point at start of Queue minus 1 MVI PXQ_L0, R3 ; Get queue length @@notx: INCR R4 ; Where we branch when X didn't match. @@noty: DECR R3 ; Decrement loop count BMI @@insert ; Get out of here when it expires. @@rloop: CMP@ R4, R1 ; Compare X coords BNEQ @@notx ; X miscompared. MOVR R2, R5 XOR@ R4, R5 ANDI #$1F, R5 ; Cmp Y coords (lower 5 bits of queue entry) BNEQ @@noty ; Y miscompared ; If we get here, the coordinates match, so just update the color ; and exit the queue insertion process entirely. DECR R4 B @@styc ; Store Y coordinate and color, and leave @@insert_eis: EIS @@insert: ; If we get here, then this is not a duplicate pixel, so we need ; to extend the queue. Warning: No bounds checking is done here. MVI PXQ_L0, R3 MOVR R3, R4 ; Copy the old queue length to R4 ADDR R3, R4 ; Multiply it by 2 INCR R3 MVO R3, PXQ_L0 ADDI #PXQ_XY, R4 ; Point R4 at pixel queue @@stx: MVO@ R1, R4 ; Store the X coordinate @@styc: MVO@ R2, R4 ; Store the Y coordinate and color ANDI #$1F, R2 ; Strip the color from the Y + color. PULR PC ; Return. ENDP ;;==========================================================================;; ;; DRAINPXQ ;; ;; Drains the pixel queue (intended to be called from an ISR). ;; ;; ;; ;; INPUTS: ;; ;; R5 -- Return address ;; ;; Pixels in the committed pixel queue ;; ;; ;; ;; OUTPUTS: ;; ;; R0..R5 clobbered. ;; ;;==========================================================================;; DRAINPXQ PROC PSHR R5 DIS ; Critical section: Grab committed pixels. MVI PXQ_L1, R3 TSTR R3 BEQ @@leave CLRR R1 MVO R1, PXQ_L0 ; Clear count of queued pixels. MVO R1, PXQ_L1 ; Clear count of comitted pixels. EIS MVII #PXQ_XY, R4 @@pixloop: MVI@ R4, R1 ; Get X coordinate MVI@ R4, R2 ; Get Y coordinate and color MOVR R2, R0 ; Separate Y coordinate and color SLL R0, 2 SLL R0, 1 SWAP R0 ; Color is now in 3 lsbs. ANDI #$7, R0 ; Mask away undesired bits in color ANDI #$1F, R2 ; Mask away undesired bits in Y coord. PSHR R3 PSHR R4 CALL PUTPIXEL ; Display the pixel PULR R4 PULR R3 DECR R3 ; Decrement our loop count BNEQ @@pixloop ; Keep looping until we've displayed them all @@leave: EIS PULR PC ENDP ;;==========================================================================;; ;; COMMITPXQ ;; ;; Commits queued pixels in the pixel queue to be displayed. ;; ;; ;; ;; INPUTS: ;; ;; R5 -- Return address ;; ;; Pixels in the pixel queue. ;; ;; ;; ;; OUTPUTS: ;; ;; Pixels are committed for display. ;; ;;==========================================================================;; COMMITPXQ PROC PSHR R5 ; Save return address on stack. DIS ; Disable interrupts (critical section) MVI PXQ_L1, R5 ; See if there are already committed pixels TSTR R5 ; ... waiting to be drawn. (oops!) BNEQ @@leave ; Yes.. then leave. MVI PXQ_L0, R5 ; No? Get our count of non-committed pixels. MVO R5, PXQ_L1 ; Store it to our count of committed pixels. @@leave: EIS ; Done with critical section. PULR PC ; Return to caller ENDP ;;==========================================================================;; ;; PIECE ;; ;; The Piece Shape Table ;; ;; ;; ;; Shape encoding for the game pieces ;; ;; ;; ;; The game pieces are encoded as a series of moves from the "center ;; ;; point". Blocks are placed _after_ each move. All pieces are ;; ;; composed of four moves except piece 6 (the T) which requires 5 ;; ;; moves, and piece 5 which uses an extra move so that it is centered ;; ;; in the "next piece" box. ;; ;; ;; ;; Each move is encoded in two bits. The LS bit specifies the axis ;; ;; (up/down or left/right), and the MS bit specifies the sign of ;; ;; the direction on that axis (1==+1 and 0==-1). Moves are processed ;; ;; from the LS bit pair up to the MS bit pair. This encoding allows ;; ;; each piece to be described in exactly one decle. ;; ;; ;; ;; NOTE: The fifth move may NOT be "up". The rotation code ;; ;; distiguishes between four-move and five-move pieces by whether the ;; ;; upper two bits are zero. If they're both zero, it's a four-move ;; ;; piece, otherwise the two bits specify the fifth move. (Recall that ;; ;; 00 corresponds to "up".) ;; ;; ;; ;; Right now, rotations are performed in a brute-force manner: We ;; ;; just encode all of the rotations in our data set here. It's ;; ;; seems to be alot cheaper than writing the code to rotate pieces, ;; ;; although I can't be sure unless I do them both. At the very least, ;; ;; the brute-force approach is alot easier. ;; ;; ;; ;; Notation: pXrY is "Piece #X, Rotation #Y". X == 0..6, Y == 0..3. ;; ;; ;; ;; up#, dn#, lf# and rt# indicate a movement in a direction ;; ;; on a given move number. ;; ;; ;; ;; Pieces are shown in the comments in their initial ;; ;; orientation. The block marked with %% is the "pivot" ;; ;; block. ;; ;;==========================================================================;; PIECE PROC ; handy constants for defining the moves. @@up0 EQU 0000000000b @@dn0 EQU 0000000010b @@lf0 EQU 0000000001b @@rt0 EQU 0000000011b @@up1 EQU 0000000000b @@dn1 EQU 0000001000b @@lf1 EQU 0000000100b @@rt1 EQU 0000001100b @@up2 EQU 0000000000b @@dn2 EQU 0000100000b @@lf2 EQU 0000010000b @@rt2 EQU 0000110000b @@up3 EQU 0000000000b @@dn3 EQU 0010000000b @@lf3 EQU 0001000000b @@rt3 EQU 0011000000b ;;up4 not allowed @@dn4 EQU 1000000000b @@lf4 EQU 0100000000b @@rt4 EQU 1100000000b ; Piece 0: The Long Bar ; ; ### ; ### ; %%% ; %%% ; ### ; ### ; ### ; ### ; @@p0r0 BYTE @@up0 + @@dn1 + @@dn2 + @@dn3 @@p0r1 BYTE @@lf0 + @@rt1 + @@rt2 + @@rt3 @@p0r2 BYTE @@up0 + @@dn1 + @@dn2 + @@dn3 @@p0r3 BYTE @@lf0 + @@rt1 + @@rt2 + @@rt3 ; Piece 1: The Square Block ; ; ###%%% ; ###%%% ; ###### ; ###### ; @@p1r0 BYTE @@dn0 + @@lf1 + @@up2 + @@rt3 @@p1r1 BYTE @@dn0 + @@lf1 + @@up2 + @@rt3 @@p1r2 BYTE @@dn0 + @@lf1 + @@up2 + @@rt3 @@p1r3 BYTE @@dn0 + @@lf1 + @@up2 + @@rt3 ; Piece 2: The L shape ; ; ###%%%### ; ###%%%### ; ### ; ### ; @@p2r0 BYTE @@rt0 + @@lf1 + @@lf2 + @@dn3 @@p2r1 BYTE @@dn0 + @@up1 + @@up2 + @@lf3 @@p2r2 BYTE @@lf0 + @@rt1 + @@rt2 + @@up3 @@p2r3 BYTE @@up0 + @@dn1 + @@dn2 + @@rt3 ; Piece 3: The Reverse-L shape ; ; ###%%%### ; ###%%%### ; ### ; ### ; @@p3r0 BYTE @@lf0 + @@rt1 + @@rt2 + @@dn3 @@p3r1 BYTE @@up0 + @@dn1 + @@dn2 + @@lf3 @@p3r2 BYTE @@rt0 + @@lf1 + @@lf2 + @@up3 @@p3r3 BYTE @@dn0 + @@up1 + @@up2 + @@rt3 ; Piece 4: The S shape ; ; %%%### ; %%%### ; ###### ; ###### ; @@p4r0 BYTE @@rt0 + @@lf1 + @@dn2 + @@lf3 @@p4r1 BYTE @@up0 + @@dn1 + @@rt2 + @@dn3 @@p4r2 BYTE @@rt0 + @@lf1 + @@dn2 + @@lf3 @@p4r3 BYTE @@up0 + @@dn1 + @@rt2 + @@dn3 ; Piece 5: The Z shape ; ; ###SSS Note: SSS brick is the actual starting brick. ; ###SSS ; %%%### ; %%%### ; @@p5r0 DECLE @@dn0 + @@rt1 + @@lf2 + @@up3 + @@lf4 @@p5r1 DECLE @@dn0 + @@up1 + @@dn2 + @@lf3 + @@dn4 @@p5r2 DECLE @@dn0 + @@rt1 + @@lf2 + @@up3 + @@lf4 @@p5r3 DECLE @@dn0 + @@up1 + @@dn2 + @@lf3 + @@dn4 ; Piece 6: The T shape ; ; ###%%%### ; ###%%%### ; ### ; ### ; @@p6r0 DECLE @@lf0 + @@rt1 + @@dn2 + @@up3 + @@rt4 @@p6r1 DECLE @@up0 + @@dn1 + @@lf2 + @@rt3 + @@dn4 @@p6r2 DECLE @@lf0 + @@rt1 + @@up2 + @@dn3 + @@rt4 @@p6r3 DECLE @@up0 + @@dn1 + @@rt2 + @@lf3 + @@dn4 ENDP ;;==========================================================================;; ;; PUTPIECEREC ;; ;; Writes a piece record to memory. ;; ;; ;; ;; PUTPIECEREC.NC ;; ;; Writes a piece record to memory, except color. ;; ;; ;; ;; INPUTS: ;; ;; R0 -- piece color ;; ;; R1 -- X coord of pivot ;; ;; R2 -- Y coord of pivot ;; ;; R3 -- piece number/rotation ;; ;; R4 -- Address of piece information record (+1 if PUTPIECEREC.NC) ;; ;; R5 -- Return address ;; ;; ;; ;; OUTPUTS: ;; ;; R0..R3, R5 -- not modified ;; ;; R4 -- points just past end of of piece information record ;; ;;==========================================================================;; PUTPIECEREC PROC MVO@ R0, R4 ; Put piece color @@NC: MVO@ R1, R4 ; Put piece pivot X coordinate MVO@ R2, R4 ; Put piece pivot Y coordinate MVO@ R3, R4 ; Put piece number/rotation JR R5 ; Return ENDP ;;==========================================================================;; ;; GETPIECEREC ;; ;; Reads a piece record from memory. ;; ;; ;; ;; GETPIECEREC.NC ;; ;; Reads a piece record from memory, except color. ;; ;; ;; ;; INPUTS: ;; ;; R4 -- Address of piece information record (+1 if GETPIECEREC.NC) ;; ;; R5 -- Return address ;; ;; ;; ;; OUTPUTS: ;; ;; R0 -- piece color (unless GETPIECEREC.NC) ;; ;; R1 -- X coord of pivot ;; ;; R2 -- Y coord of pivot ;; ;; R3 -- piece number/rotation ;; ;;==========================================================================;; GETPIECEREC PROC MVI@ R4, R0 ; Get piece color @@NC: MVI@ R4, R1 ; Get piece pivot X coordinate MVI@ R4, R2 ; Get piece pivot Y coordinate ; Sign-extend R1 and R2 since they're in 8-bit RAM. MVII #$7F, R3 ; Generate constant $FF80 COMR R3 ; R3 is "magic sign-extend constant" ADDR R3, R1 ; Propogate sign-bit info to upper-half XORR R3, R1 ; R1 is fully sign-extended here. ADDR R3, R2 ; Propogate sign-bit info to upper-half XORR R3, R2 ; R2 is fully sign-extended here. MVI@ R4, R3 ; Get piece number/rotation JR R5 ; Return ENDP ;;==========================================================================;; ;; DRAWPIECE ;; ;; Draws a piece on the screen in the desired color (0..7). ;; ;; ;; ;; TESTPIECE ;; ;; Determines if a piece can be drawn in a given location by tracing its ;; ;; path and doing GETPIXELSC calls. ;; ;; ;; ;; INPUTS: ;; ;; R0 -- If DRAWPIECE, color of piece to draw (0..7) ;; ;; R1 -- X coordinate of pivot ;; ;; R2 -- Y coordinate of pivot ;; ;; R3 -- Piece number ;; ;; R5 -- Return address ;; ;; ;; ;; OUTPUTS: ;; ;; R0 -- If TESTPIECE, Zero == OK, non-zero == not OK; else, trashed. ;; ;; R4 -- Minimum Y coordinate ;; ;; R5 trashed. ;; ;; ;; ;; $130..$135 used for temporary storage. ;; ;;==========================================================================;; DRAWPIECE PROC @@colsv EQU $130 ; Piece color save area @@pvxsv EQU $131 ; Pivot X coordinate save area @@pvysv EQU $132 ; Pivot Y coordinate save area @@pnrsv EQU $133 ; Piece number/rotation save area @@pcwsv EQU $134 ; Loop count save area @@cntsv EQU $135 ; Loop count save area @@miny EQU $136 ADDR R0, R0 ; Shift color left by 1 INCR R0 ; Set the LSB on the color INCR PC ; Skip the CLRR R0 TESTPIECE: CLRR R0 ; Start with color = 0, LSB = 0 PSHR R5 ; Save return address MVII #@@colsv, R4 ; Point R4 at save area CALL PUTPIECEREC MVO R2, @@miny ; Start with Min Y == pivot point ; Convert piece number to control word. ADDI #PIECE, R3 ; Point into PIECE array entry for piece MVI@ R3, R3 ; Get the piece control word MVII #3, R4 ; At least four moves in piece @@loop: MOVR R3, R0 ; Copy Piece Control Word ANDI #2, R0 ; Get sign for move (set == +1, clear == -1) DECR R0 ; R0 is either +1/-1 according to move SARC R3, 2 ; Shift move away from PCW. Carry==axis BC @@xaxis ; Carry Clear == Y-Axis, Carry Set == X-Axis ADDR R0, R2 ; Add move to Y axis ; See if this Y coordinate is our new min-Y coord CMP @@miny, R2 BGE @@cont MVO R2, @@miny INCR PC ; Skip add-to-X (next instruction) @@xaxis: ADDR R0, R1 ; Add move to X axis @@cont: ; Note, at most 8 bits remain in PCW here, so we save in 8-bit loc. MVO R3, @@pcwsv ; Save remaining Piece Control Word (max 8 bit) MVO R4, @@cntsv ; Save our loop trip count MVI @@colsv, R0 ; Get saved color SARC R0, 1 ; If bit-0 set, this is DRAW, else TEST BC @@draw ; @@test: ; Note R0 should be 0 here. This treats off-screen pixels as black, ; which is what we want. CMPI #EDGEL, R1 ; Are we off left? BLT @@notok ; Yes: Bad! CMPI #EDGER, R1 ; Are we off left? BGT @@notok ; Yes: Bad! CALL GETPIXELSC ; Get pixel, with clipping. CMPI #7, R0 ; Ignore color 7, since we use that BEQ @@pixelok ; for the active piece. TSTR R0 ; Otherwise, make sure it's black. BEQ @@pixelok ; B @@notok ; Didn't pass the tests? It's not ok then. @@draw: CALL PUTPIXELSCQ ; Put the pixel on the screen, with clipping. @@pixelok: MVI @@pcwsv, R3 ; Get our saved piece number MVI @@cntsv, R4 ; Get our loop trip count. DECR R4 BPL @@loop ; Loop as long as R4 > 0 CLRR R4 TSTR R3 ; See if this is a 5-move piece. BNEQ @@loop ; Loop one last time if it is. MVI @@colsv, R0 ; Restore color register (if TESTPIECE is ok, SLR R0, 1 ; ...OR if this is DRAWPIECE). INCR PC ; (skip the MOVR.) @@notok: ; Else, skip the restore if TESTPIECE and MOVR PC, R0 ; ...pixel is not ok, so force R0 non-zero MVII #@@pvxsv, R4 ; Point to save area + 1 CALL GETPIECEREC.NC MVI @@miny, R4 ; Get minimum Y value into R4 PULR PC ; Return to the caller ENDP ;;==========================================================================;; ;; GETPIECECOLOR ;; ;; Gets Piece Color, given the piece number/rotation. ;; ;; ;; ;; INPUTS: ;; ;; R3 -- Piece number/rot. Bits 0..1 are rotation, Bits 2..4 are piece # ;; ;; R5 -- Return address ;; ;; ;; ;; OUTPUTS: ;; ;; R0 -- Piece color ;; ;;==========================================================================;; GETPIECECOLOR PROC PSHR R3 ; Save R3 so that it's not clobbered SLR R3, 2 ; Generate index into color table ADDI #@@color,R3 ; R3 = PCCOLOR[piece] MVI@ R3, R0 ; Get the piece color into R0 PULR R3 ; Restore R3 JR R5 ; Return. @@color BYTE $2, $1, $3, $4, $5, $6, $1 ENDP ;;==========================================================================;; ;; PICKPIECE ;; ;; Grabs the 'next piece' and makes it the current piece. Then picks a ;; ;; new 'next piece'. ;; ;;==========================================================================;; PICKPIECE PROC PSHR R5 @@chain: @@randloop: MVII #4, R2 ; Generate some new random bits CALL NEXTRANDX ANDI #$1C, R0 ; Mask to [0..7] * 4 BEQ @@randloop ; If it comes up 0, try again SUBI #4, R0 ; Make into piece #0..#6 CALL NEXTCLEAR ; Clear previous 'next-piece' MVI NXTPC, R3 ; Get previous 'next-piece'. MVO R0, NXTPC ; Save new 'next-piece'. MVI SHOWNXT, R1 ; Are we showing next piece? MVO R1, DIDNXT ; Initialize our "showed next piece" flag TSTR R1 BEQ @@noshow PSHR R3 ; Save R3 -- new current piece number CALL NEXTSHOW ; Show next piece PULR R3 ; Restore R3 @@noshow: CALL GETPIECECOLOR ; Get the current piece's color. MVO R0, CS1 ; Force color-stack to piece's color MVO R0, CS3 ; Force color-stack to piece's color MVII #EDGEL+5, R1 ; Start out in middle of well... MVII #3, R2 ; ...just a little off top of screen COMR R2 ; (Y = -3) MVII #CURPC.C, R4 ; Write to "current piece" record. CALL PUTPIECEREC ; Make this the current piece. PULR PC ; Return. ENDP ;;==========================================================================;; ;; CLEARWELL ;; ;; Clears the well in a dramatic fashion ;; ;;==========================================================================;; CLEARWELL PROC @@bot EQU $1E2 PSHR R5 CLRR R0 MVO R0, CURPC.C ; make sure current piece number is cleared. @@wellloop: MVII #EDGEB, R3 CMP HEIGHT, R3 ; R3 has actual well height. BLE @@return ; Do nothing if well is empty. @@randloop: MVII #5, R2 CALL NEXTRANDX ; Get a random number (advance by 5 bits) ANDI #31, R0 ADD HEIGHT, R0 CMPR R3, R0 ; Make sure it's less than the well height. BGE @@randloop MOVR R0, R2 MVII #EDGEL+1, R1 CALL GETPIXELS CMPI #7, R0 BEQ @@nukeit @@fillit: CALL NUKELINE B @@wellloop @@nukeit: MVO R2, @@bot CALL WAIT ; Wait a few ticks DECLE 2 ; MVII #@@wellloop, R5 PSHR R5 B DOSCORE.nukeit ; Nuke the line, collapsing the well. ; This will return to @@wellloop @@return: PULR PC ; Return. ENDP ;;==========================================================================;; ;; SCOREDROP ;; ;; Loops over a four line window and marks rows for deletion. ;; ;; Returns line-clearing score in R0 and leaves lines to be cleared set ;; ;; to color #7. ;; ;; ;; ;; NUKELINE ;; ;; Force-clears a line as if it were full. ;; ;; ;; ;; INPUTS: ;; ;; R2 == Row number to start at. ;; ;; ;; ;; OUTPUTS: ;; ;; R0 = Number of lines cleared. ;; ;; R2 = original value plus 4 ;; ;; R3 = Number of lines cleared. ;; ;; R1, R4, R5 trashed ;; ;; ;; ;; $1E0..$1E3 used as temp storage. ;; ;;==========================================================================;; SCOREDROP PROC @@trip EQU $1E2 @@full EQU $1E3 PSHR R5 ; Save return address CLRR R3 ; Clear count of lines to score MVO R3, @@full MVII #3, R4 ; Loop trip count B @@doscore NUKELINE: PSHR R5 CLRR R4 MVO R4, @@full MVO R4, @@trip B @@nuke @@doscore: MVO R4, @@trip MVII #EDGEL, R1 ; Iterate over columns 15..24 @@scoreloop: CALL GETPIXELS ; Read a pixel TSTR R0 ; Is it zero? BEQ @@sloop ; If so, stop -- line's not full. INCR R1 CMPI #EDGER, R1 ; At the end of the well? BLE @@scoreloop ; If not, keep looping @@nuke: MVI @@full, R3 INCR R3 MVO R3, @@full ;; Prepare to set entire row in well to color 7 MVII #EDGEL, R1 ; Start at left edge of well MVII #7, R0 ; Color = 7 @@floop: CALL PUTPIXELS ; Draw the pixel INCR R1 ; Move to next column CMPI #EDGER, R1 ; Are we at the right edge? BLE @@floop ; No: Keep looping. @@sloop: MVI @@trip, R4 INCR R2 ; Go to next line DECR R4 ; Decrement loop count BPL @@doscore ; Keep going as long as R4 >= 0 @@sdone: ; Scoring complete MVI @@full, R3 ;; If this was a 4-line clear, play the special sound effect CMPI #4, R3 BNEQ @@return MVII #2, R1 ; High priority sound effect CALL PLAY.sfxp DECLE FXBOMB4 @@return: MOVR R3, R0 ; Return number of cleared lines. PULR PC ; Return to caller. ENDP ;;==========================================================================;; ;; DOSCORE ;; ;; Calls SCOREDROP to score a dropped piece and mark lines for deletion. ;; ;; ;; ;; Calculates the score based on number of downward moves the player ;; ;; made, as well as the number of lines cleared. ;; ;; ;; ;; Collapses lines that have been marked for deletion by the scoring ;; ;; routines. Processes the four lines ABOVE R2. (This works pretty well, ;; ;; since the scoring routines leave R2 pointing to the line AFTER the four ;; ;; lines that were scored.) Lines are scanned in the leftmost column, ;; ;; and lines containing a pixel of color 7 in this column are cleared. ;; ;; ;; ;; INPUTS: ;; ;; R2 == Line at top of 4-line window to score ;; ;; ;; ;; OUTPUTS: ;; ;; R0, R1, R2, R4, R5 trashed? ;; ;; ;; ;; Locations $1E0..$1E3, $1E6 used as temporary storage. ;; ;;==========================================================================;; SCORETABLE DECLE 500, 1500, 3000, 6000 DOSCORE PROC @@bot EQU $1E2 @@top EQU $1E3 @@clr EQU $1E6 PSHR R5 MVII #EDGEB-4, R3 ; Make sure we're not too close to CMPR R3, R2 ; the bottom of the well. BLE @@rowok MOVR R3, R2 ; If we are, move our window up some. @@rowok: PSHR R2 ; First, add in any "move points" MVI MSCORE, R0 MVI PSCORL, R1 ; Add this to our score MVI PSCORH, R4 ADDR R0, R1 ; Add moves to lower half of 32-bit score ADCR R4 ; Propogate carry from lower to upper half MVO R1, PSCORL MVO R4, PSCORH CLRR R2 MVO R2, MSCORE ; Clear the total. ; Wait one tick to make sure any queued pixels have been drawn. ; This works because the ISR always drains the committed pixel ; queue completely, and WAIT busywaits on a counter maintained ; by the ISR. Cool, eh? CALL WAIT DECLE 1 PULR R2 ; Next, see if we need to clear any lines due to this drop CALL SCOREDROP ; Score the drop. MOVR R0, R5 ; If we didn't score anything, return BEQ @@done ; (chain return through PICKPIECE) @@hmm ADDI #SCORETABLE-1, R5 ; R5 = &scoretable[lines] MVI@ R5, R0 ; Load base score for this # of lines MVI LEVEL, R3 MVI PSCORL, R1 ; Otherwise, add this to our score MVI PSCORH, R4 @@scoreloop: ADDR R0, R1 ; (multiply by level thru repeated addition) ADCR R4 DECR R3 BPL @@scoreloop ; Go around 'level + 1' times. MVO R1, PSCORL MVO R4, PSCORH @@notnuke: SUBI #4, R2 ; Find top of window MVO R2, @@top ; Remember top row ADDI #3, R2 ; Move to bottom of window CALL SPAWN ; Fork the line clearing as new task. DECLE 13, 3 ; Period == 6 ticks (10Hz), task #3 ;;--------------------------------------------------------------------;; ;; NOTE: THIS IS A NEW TASK HERE!!! IT IS CALLED FOR EACH LINE!!! ;; ;; We do this to avoid having tasks pile up in the queue while we ;; ;; do our work. Things such as score updates (most common) tend to ;; ;; pile up in the queue otherwise. ;; ;;--------------------------------------------------------------------;; @@scan: MVII #EDGEL, R1 ; Scan along left edge MVO R2, @@bot ; Remember current y position CALL GETPIXEL ; Grab a pixel. MVI @@bot, R2 ; Restore row position MVI @@top, R1 ; Restore top of window CMPI #7, R0 ; Is this pixel color 7? BEQ @@collapseok ; It is: go collapse this row. DECR R2 ; Move up a row on the screen CMPR R1, R2 ; Are we out of our window? BGE @@scan ; If not, keep scanning @@done: CALL SLEEP DECLE 31, 3 ; Sleep for 1/4th second after drop. PULR R5 B PICKPIECE ; Chain return through PICKPIECE @@collapseok: ;; When we collapse a line, the top of our scanning window ;; actually moves down a row, and our scan position does NOT move ;; up a row. So, look at the scan row, and increment the top ;; row value. INCR R1 ; Move top down one row MVO R1, @@top ; Store new top of window ;; Increment our "cleared lines" count and queue up the "show lines" ;; task. MVI LINES, R1 INCR R1 MVO R1, LINES MVII #UPDATESTATS, R0 JSRD R5, QTASK ;; We spawned as a one-shot task. We retrigger only after we're ;; sure we might need it, so that we don't get over-triggered. ;; (We will get triggered up to 5 times, with the fifth trigger ;; doing the call to PICKPIECE.) MVII #3, R3 CALL RETRIGGERTASK @@nukeit: MVII #1, R1 CALL PLAY.sfxp ; Trigger the collapse soundeffect. DECLE FXBOMB @@nosfx: MVII #EDGEL, R1 ; Start at left edge. @@xloop: MVI HEIGHT, R2 ; Start at top of screen MVO R1, XSAVE ; Save our current column CLRR R4 ; Propogate a black pixel from top @@yloop: MVO R4, @@clr ; Remember prev row's color MVO R2, YSAVE ; Save our current row CALL PIXCALC ; Calculate mask/addr for this pixel MOVR R1, R4 ; Remember mask CALL GETPIXELR ; Get color to copy to next row MOVR R4, R1 ; Restore mask MOVR R0, R4 ; Remember color for next row MVI @@clr, R0 ; Restore previous rows color CALL PUTPIXELR ; Draw prev rows color in this row MVI YSAVE, R2 ; Restore row position MVI XSAVE, R1 ; Restore column position INCR R2 ; Move down one row CMP @@bot, R2 ; Are we at the last row? BLE @@yloop ; No? Keep looping. INCR R1 ; Move to next column CMPI #EDGER, R1 ; Are we at the right edge yet? BLE @@xloop ; No? Keep looping. ; Decrement one from our well height here, so that music speed ; changes after we collapse a row, and our scan window changes as ; well for speed. MVI HEIGHT, R1 ; Decrement the well height now. INCR R1 ; (Note: 'HEIGHT' is actually MVO R1, HEIGHT ; EDGEB - height. Hence the INCR.) PULR PC ; Return... we will be retriggered ; if there are more lines to scan. ENDP ;;==========================================================================;; ;; UPDATESCORE ;; ;; Shows current score, by incrementally updating a displayed score value. ;; ;;==========================================================================;; UPDATESCORE PROC MVII #PSCORL,R4 ; Point to player/displayed score MVI@ R4, R2 ; Get lo 16 of player's actual score MVI@ R4, R3 ; Get hi 16 of player's actual score MVI@ R4, R0 ; Get lo 16 of displayed score MVI@ R4, R1 ; Get hi 16 of displayed score CMPR R3, R1 ; Compare upper halves. BEQ @@next ; Displayed = Actual: Test lower halves BNC @@doincr ; Displayed < Actual: Do the increment BNEQ @@uhoh ; Displayed > Actual? UHOH! @@next: CMPR R2, R0 ; Compare lower halves. BEQ @@return ; Displayed = Actual: Do nothing. BNC @@doincr ; Displayed < Actual: Do the increment ; Displayed > Actual? UHOH! @@uhoh: ; If we get here, we accidentally overshot the player's actual ; score somehow. Compensate by setting the displayed score to the ; actual score. :-P (Note: We also use this code to force a ; redisplay of the score on purpose by setting the displayed ; score to 0xFFFFFFFF, which is always higher than the player's ; score (or is it? How good are YOU?)). MOVR R2, R0 ; Set lo half of displayed to actual MOVR R3, R1 ; Set hi half of displayed to actual B @@disp ; Display the fixed score. @@return: JR R5 @@doincr: ; First, find the difference between the displayed and actual ; scores. This is a 32-bit subtract. SUBR R0, R2 ; Subtract the lo halves. ADCR R3 ; Subtract the borrow from the hi half DECR R3 ; as a "not borrow" SUBR R1, R3 ; Subtract the hi halves ; Divide the difference by 8, rounding upwards. ; This is effectively "num = (num + 7) / 8". It should ; produce a non-zero number if num starts out non-zero. ADDI #7, R2 ; Add rounding factor ADCR R3 ; ... and carry into upper half ; Unsigned right shift by 3 CLRC RRC R3, 1 ; Shift the first bit. Can't SARC (sign bit) RRC R2, 1 ; SARC R3, 2 ; SARC is safe now: sign bit is for sure 0 RRC R2, 2 ; ; TSTR R2 ; BNEQ @@addit ; TSTR R3 ; BNEQ @@addit ; HLT ; THIS SHOULD NEVER HAPPEN ; INCR R2 @@addit: ADDR R2, R0 ; Add the new increment's lo half ADCR R1 ; Propogate the carry ADDR R3, R1 ; Add the new increment's hi half @@disp: MVO R0, DSCORL ; Store the updated display value (lo) MVO R1, DSCORH ; Store the updated display value (hi) MVI SCRDIG, R2 MVI SCRCOL, R3 MVI SCRPOS, R4 B DEC32B ; Display with leading zeros. ; (Chained return) ENDP ;;==========================================================================;; ;; UPDATESTATS ;; ;; Updates game information such as # of lines, level, and drop speed. ;; ;;==========================================================================;; UPDATESTATS PROC PSHR R5 MVI SCRCOL, R3 ; Get score color MVI LINES, R0 ; Get current number of lines MVI LEVEL, R1 ; Get current level TSTR R1 BEQ @@initial ; First time through, force an update. ADDR R1, R1 ; R1 = 2 * (level) MOVR R1, R2 SLL R2, 2 ; R2 = 8 * (level) ADDR R2, R1 ; R1 = 10 * (level) CMPR R1, R0 ; See if we've cleared enough lines to go up ; a level. BLT @@samelevel ; If not new level, just update line counter. MVII #3, R1 ; Sound effect priority == 3 CALL PLAY.sfxp ; DECLE FXDING3 ; Ding to signify "Next Level". ;B @@nextlevel @@nextlevel: MVI LEVEL, R2 ; Get current level number INCR R2 ; Update our level number MVO R2, LEVEL ; Store the new level number B @@skipinitial @@initial: MVI SLEVEL, R2 ; Get starting level MVO R2, LEVEL ; Store it to our level number @@skipinitial: MVII #20, R4 ; See if level > 20. If so, clamp to that CMPR R4, R2 ; for purposes of setting speed. BLE @@speedok MOVR R4, R2 @@speedok: ADDI #SPDTBL+1, R2 ; Point R2 into Speed Table MVI@ R2, R2 MVO R2, SPEED ; Set piece speed from speed table MVII #LVLLOC + 20, R4 MVII #2, R2 MVI LEVEL, R0 ; Increment the level number CALL DEC16A ; Display the updated level number MVI LINES, R0 @@samelevel: MVII #LINLOC + 20, R4 MVII #2, R2 PULR R5 B DEC16A ENDP ;;==========================================================================;; ;; SPDTBL ;; ;; Speed table. Contains rates at which pieces drop for all the levels. ;; ;; Rates are all in "Ticks * 2". ;; ;;==========================================================================;; SPDTBL PROC DECLE 160 + 0 ; Level 1 DECLE 120 + 0 ; Level 2 DECLE 100 + 0 ; Level 3 DECLE 80 + 0 ; Level 4 DECLE 60 + 0 ; Level 5 DECLE 50 + 0 ; Level 6 DECLE 40 + 0 ; Level 7 DECLE 34 + 0 ; Level 8 DECLE 28 + 0 ; Level 9 DECLE 24 + 0 ; Level 10 DECLE 20 + 0 ; Level 11 DECLE 18 + 0 ; Level 12 DECLE 16 + 0 ; Level 13 DECLE 14 + 0 ; Level 14 DECLE 12 + 0 ; Level 15 DECLE 10 + 0 ; Level 16 DECLE 8 + 0 ; Level 17 DECLE 6 + 0 ; Level 18 DECLE 4 + 0 ; Level 19 DECLE 2 + 0 ; Level 20 and beyond ENDP ;;==========================================================================;; ;; MARQUEE ;; ;; Cycles colors on a string of text. ;; ;; ;; ;; INPUTS: ;; ;; R2 -- Task instance data: ;; ;; Low byte of instance data gives screen offset. ;; ;; High byte of instance data gives length. ;; ;;==========================================================================;; MARQUEE PROC MOVR R2, R3 ANDI #$FF, R3 ; R3 == screen offset. XORR R3, R2 SWAP R2 ; R2 == length. ADDI #$200, R3 ; Convert screen offset into actual address. MVI@ R3, R0 ; Get first display word from string. MVII #$7, R1 ; Color mask for three LSBs. ANDR R1, R0 ; Get color from leading character in string. COMR R1 ; Invert our mask, so we can replace colors. @@loop: DECR R0 ; Cycle color by decrementing BNEQ @@ok ; Make sure it didn't go to zero! MVII #$7, R0 ; If it did, set it back to 7. @@ok: MVI@ R3, R4 ; Get a character from the display. ANDR R1, R4 ; Mask away its color bits. ADDR R0, R4 ; Replace them with our new color bits. MVO@ R4, R3 ; Write the modified character to the display. INCR R3 ; Move to next character. DECR R2 ; Loop until done. BNEQ @@loop JR R5 ; Return. ENDP ;;==========================================================================;; ;; ANIDROP ;; ;; Color cycles CS1 and CS3 so that collapse lines "flash", or sets a ;; ;; solid color while piece is active. ;; ;;==========================================================================;; ANIDROP PROC MVI CURPC.C, R2 ; Is there a current piece active? TSTR R2 BNEQ @@active MVI CS1, R2 ; No? Just flash colors then. INCR R2 @@active: MVO R2, CS1 ; Set up colorstack #1 and #3 MVO R2, CS3 JR R5 ; Return. ENDP ;;==========================================================================;; ;; MUTETOGGLE ;; ;; Toggles MUTE state ;; ;;==========================================================================;; MUTETOGGLE PROC DIS MVI MUTE, R0 ; Get current mute status TSTR R0 ; If zero, we're muted. BEQ @@unmute ; Mute the music by zeroing its volume registers. CLRR R0 MVI SNDSTRM+3,R1 ; Get current stream mask SLL R1, 2 ; Move volume-register bits to top SLLC R1 ; If channel C's vol control is enabled .... BNC @@notc MVO R0, PSG0+13 ; ... clear it @@notc: SLLC R1 ; If channel B's vol control is enabled .... BNC @@notb MVO R0, PSG0+12 ; ... clear it @@notb: SLLC R1 ; If channel A's vol control is enabled .... BNC @@nota MVO R0, PSG0+11 ; ... clear it @@nota: INCR PC ; skip INCR R0. @@unmute: INCR R0 ; Un-mute the audio MVO R0, MUTE ; Store the new mute status EIS JR R5 ENDP ;;==========================================================================;; ;; ROTPIECE_CW ;; ;; Rotates a piece clockwise by updating the two LSBs of its piece ;; ;; index #. ;; ;; ;; ;; ROTPIECE_CCW ;; ;; Rotates a piece counter clockwise by updating the two LSBs of its ;; ;; piece index #. ;; ;; ;; ;; INPUTS: ;; ;; R3 -- Piece number/rotation ;; ;; R5 -- Return address ;; ;; ;; ;; OUTPUTS ;; ;; R3 -- New piece/rotation ;; ;; R0 -- Trashed ;; ;;==========================================================================;; ROTPIECE_CW: PROC SETC ; Flag that this is a clockwise rotate INCR PC ; (skip the CLRC) ROTPIECE_CCW: CLRC ; Flag that this is a counter-clockwise rotate MOVR R3, R0 ; Copy piece number/rotation to R0 ADCR PC ; If counter-clockwise, complement R0, COMR R0 ; ... else don't. SETC RLC R0, 1 ANDI #3, R0 XORR R0, R3 ; Magic! JR R5 ENDP ;;==========================================================================;; ;; GRAVITY ;; ;; Makes the pieces fall! ;; ;; ;; ;; MVPIECE ;; ;; Moves/Rotates a piece around on the screen. ;; ;; ;; ;; INPUTS: ;; ;; R2 -- Event number: ;; ;; 13: Disc Left Move piece left ;; ;; 14: Disc Right Move piece right ;; ;; 15: Disc Down Move piece down ;; ;; 16: Action Top Rotate CCW ;; ;; 17: Action Left Rotate CW ;; ;; 18: Action Right Rotate CW ;; ;; ;; ;; THIS CODE SUCKS. ;; ;; (Although, it sucks less than the original code that I had here.) ;; ;;==========================================================================;; GRAVITY PROC MVII #15, R2 ; Event #15 is 'down' CLRR R0 ; Flag that this is NOT a hand-ctrl input INCR PC ; (skip 'MOVR') MVPIECE: MOVR R2, R0 ; Flag that this IS a hand-ctrl input MVO R0, WASHAND ; Store 'WASHAND' flag. PSHR R5 ; Save return address PSHR R2 ; Save keypad # MVII #CURPC.C, R4 CALL GETPIECEREC ; Load current piece's record into R0..R3 PULR R4 ; Get keypad # into R4 TSTR R0 ; Is there an active piece? BEQ @@return ; Do nothing if no piece is active. MVII #@@check, R5 ; Set up "return address" MVO R4, WASDOWN ; Default "WAS DOWN" to "NOT" SUBI #13, R4 ; Scale range down to 0..6, check for R4==13 BMI @@return ; Bogus input R4 < 13 (should never happen) BNEQ @@not_left ; If taken, R4 != 13 DECR R1 ; Move left JR R5 ; Jump to '@@check' @@not_left: SUBI #2, R4 ; Check for R4==14 or R4==15 BMI @@is_right ; Bogus input R4 == 13 (should never happen) BNEQ @@not_down ; If taken, R4 != 14 MVO R4, WASDOWN ; Set 'WASDOWN' to 'Yes, it was DOWN'. INCR R2 ; Move down one JR R5 ; Jump to '@@check' @@is_right: INCR R1 ; Move right JR R5 ; Jump to '@@check' @@not_down: DECR R4 ; Check for R4==16 or R4 > 16 ; Note: Both of these branches chain return through ROTPIECE_xxx BEQ ROTPIECE_CCW ; If taken, R4==16 (top action button) B ROTPIECE_CW ; If taken, R4>=17 (bottom action buttons) @@check: ;; All movement paths lead to here. At this point, R0..R3 ;; contain the proposed piece state (rotation, X, Y) CALL TESTPIECE ; Is the piece placeable here? TSTR R0 BNEQ @@cantmove ; If we couldn't move the piece, leave. ; Prepare to move the piece. CALL GETPIECECOLOR ; Get the piece's color. MVO R0, CURPC.C ; Set piece's color in its record. MVO R0, CS1 ; Force color-stack to piece's color MVO R0, CS3 ; Force color-stack to piece's color MVII #TMPPC.X, R4 CALL PUTPIECEREC.NC ; Save updated piece in temp storage CALL GETPIECEREC ; Restore original piece info CLRR R0 ; Force color to 0 for erase. CALL DRAWPIECE ; Erase previous piece MVII #TMPPC.X, R4 CALL GETPIECEREC.NC ; Restore updated piece info INCR R4 MVII #7, R0 ; Always draw in color 7 here! CALL PUTPIECEREC.NC ; Store it to the current piece info CALL DRAWPIECE ; Draw the updated piece on the screen ; Bip and increment the per-move total MVI WASHAND, R0 ; Was this a hand-controller input? TSTR R0 BEQ @@nothand ; No... don't bip, and don't add to MSCORE CALL PLAY.sfx ; Yes... BIP! DECLE FXBIP MVI WASDOWN, R0 ; If this was a hand movement that pushed TSTR R0 ; down, increment the MSCORE. BNEQ @@notdown ; No... don't increment MSCORE MVI MSCORE, R0 ADDI #MOVEINC,R0 ; Yes... increment MSCORE! MVO R0, MSCORE @@notdown: @@nothand: PULR R5 ; Chain Return via COMMITPXQ B COMMITPXQ ; Commit the pixels to be drawn to screen. @@cantmove: MVI WASDOWN, R0 ; Was this a downward move? TSTR R0 BNEQ @@return ; No? Just return then. PULR R5 B PLACEPIECE ; Yes? Place the piece (w/ chained return) @@return: PULR PC ; Return ENDP ;;==========================================================================;; ;; NEXTSHOW ;; ;; Shows the currently displayed piece in the next-piece box. ;; ;; ;; ;; NEXTCLEAR ;; ;; Clears the currently displayed piece in the next-piece box. ;; ;; ;; ;; INPUTS: ;; ;; Location 'NXTPC' holds current next piece. ;; ;; R5 -- return address. ;; ;; ;; ;; OUTPUTS: ;; ;; R0 -- saved ;; ;; R1 -- NXTPCX ;; ;; R2 -- NXTPCY ;; ;; R3 -- Next piece's piece number/rotation ;; ;; R4, R5 -- trashed ;; ;;==========================================================================;; NEXTSHOW PROC MVO PC, DIDNXT ; Set the "We showed next piece" flag. ; (Note: PC guaranteed to be non-zero) SETC ; Set the "This is NEXTSHOW" flag. INCR PC ; Skip the CLRC. NEXTCLEAR: CLRC ; Set the "This is NEXTCLEAR" flag. PSHR R5 ; Save our return address. PSHR R0 ; Save R0. MVI NXTPC, R3 ; Get the next piece's piece number/rotation BNC @@clear ; If carry cleared, set color to 0. CALL GETPIECECOLOR ; Otherwise, get the piece's color. INCR PC ; Skip the CLRR. @@clear: CLRR R0 ; Clear the piece's color. MVII #NXTPCX, R1 ; Position ourself in the next-piece box. MVII #NXTPCY, R2 CALL DRAWPIECE PULR R0 ; Restore R0. PULR R5 ; Chain return via COMMITPXQ B COMMITPXQ ; Commit the pixels for display immediately. ENDP ;;==========================================================================;; ;; NEXTTOGGLE ;; ;; Toggles whether next-piece is shown. ;; ;;==========================================================================;; NEXTTOGGLE PROC MVI SHOWNXT, R1 ; Are we currently showing next piece? TSTR R1 BEQ @@turnon ; No... then start showing it. @@turnoff: CLRR R1 ; Yes... turn it off! MVO R1, SHOWNXT B NEXTCLEAR ; Chain return through NEXTCLEAR @@turnon: INCR R1 MVO R1, SHOWNXT B NEXTSHOW ; Chain return through NEXTSET ENDP ;;==========================================================================;; ;; PLACEPIECE ;; ;; Make piece permanent where it is at. ;; ;;==========================================================================;; PLACEPIECE PROC DIS PSHR R5 MVII #CURPC.C, R4 ; Write to "current piece" record. CALL GETPIECEREC ; Make this the current piece. EIS TSTR R0 ; Make sure we actually had an active piece BNEQ @@active PULR PC ; Not active? Just return! @@active: CALL DRAWPIECE ; Draw it. CALL COMMITPXQ ; Commit the pixels. CALL WAIT ; Wait one tick, so pixels are committed. DECLE 1 CLRR R5 ; Mark our current piece as inactive. MVO R5, CURPC.C ; It will get reactivated by DOSCORE. ; We do this after the 'wait' so that we're ; sure our queued pixels are drawn. CMPI #EDGEB, R4 ; Is this piece off-screen? BLE @@notgameover ; No... keep going CALL NEXTCLEAR PULR R5 CLRR R0 MVO R0, HEIGHT B SCHEDEXIT ; Yes... game over! @@notgameover: CMP HEIGHT, R4 ; Did this piece form the new top-of-well? BGE @@nottop MVO R4, HEIGHT @@nottop: MVI DIDNXT, R0 ; Was 'next piece' displayed during this TSTR R0 ; piece? If not, double MSCORE BNEQ @@didnext MVI MSCORE, R0 ADDR R0, R0 ; double the MSCORE MVO R0, MSCORE @@didnext: PSHR R4 CALL PLAY.sfx DECLE FXBYUMP PULR R1 ; Make row # the task-instance data MVII #DOSCORE, R0 ; Queue the scoring task. PULR R5 JD QTASK ; Queue and chain return ENDP ;;==========================================================================;; ;; TITLESCREEN ;; ;; Draws the title screen and waits for user input. ;; ;;==========================================================================;; TITLESCREEN PROC PSHR R5 CLRR R0 MVO R0, CS0 ; Set color stack to BLACK MVO R0, CS1 MVO R0, CS2 MVO R0, CS3 MVO R0, CB ; Set display border to BLACK MVII #$F0, R1 ; Set entire display to BLACK MVII #$200, R4 CALL FILLMEM CALL DRAWSTRING3 DECLE 6, $200+0*20+3 BYTE "Joseph Zbiciak",0 CALL DRAWSTRING4 DECLE $200+1*20+6 BYTE "presents",0 CALL DRAWSTRING5 DECLE TITLE + 1 ; Point to the title DECLE $807 ; In GRAM font. DECLE $200+5*20+10-3 ; Point R4 to location on screen CALL DRAWSTRING3 DECLE 1, $200+10*20+2 DECLE "Copyright ", COPYR, " 2000", 0 MVO R1, SCRCOL ; Animate the '2000' in Copyright 2000. SUBI #4, R4 ; Back up to the '2000' MVO R4, SCRPOS MVII #6, R4 ; Suppress 6 digits MVO R4, SCRDIG MVII #2000, R0 CLRR R1 MVII #PSCORL,R4 MVO@ R0, R4 ; PSCORL = 2000 MVO@ R1, R4 ; PSCORH = 0 --> PSCOR = 2000 SUBI #25, R0 MVO@ R0, R4 ; DSCORL = 1975 MVO@ R1, R4 ; DSCORH = 0 --> DSCOR = 1975 CALL STARTTASK DECLE 2 ; Task # 2 DECLE UPDATESCORE ; Update displayed date DECLE 4, 4 ; 15Hz ; Start a Marquee task on the 4-TRIS title string. MVII #107 + 256*6, R2 ; Length 6, Offset 107 CALL STARTTASK DECLE 0 ; Task #0 DECLE MARQUEE ; MARQUEE task DECLE 10, 10 ; Period: every 5 ticks ; Make all three tasks active. MVII #3, R3 MVO R3, TSKACT ; Start off title screen music. CALL PLAY.mus DECLE M_TITLE ; Set our keypad dispatch CLRR R0 MVO R0, HANDFN PULR PC ENDP ;;==========================================================================;; ;; GAMEHAND ;; ;; Table of keypad dispatches for INGAME ;; ;;==========================================================================;; GAMEHAND PROC @@kp0: DECLE STUB ; 0: KP0 @@kp1: DECLE STUB ; 1: KP1 @@kp2: DECLE STUB ; 2: KP2 @@kp3: DECLE STUB ; 3: KP3 @@kp4: DECLE NEXTTOGGLE ; 4: KP4 @@kp5: DECLE STUB ; 5: KP5 @@kp6: DECLE NEXTTOGGLE ; 6: KP6 @@kp7: DECLE MUTETOGGLE ; 7: KP7 @@kp8: DECLE STUB ; 8: KP8 @@kp9: DECLE MUTETOGGLE ; 9: KP9 @@kpC: DECLE NEXTTOGGLE ; 10: KPC @@kpE: DECLE STUB ; 11: KPE @@dsU: DECLE STUB ; 12: Disc Up @@dsL: DECLE MVPIECE ; 13: Disc Left @@dsR: DECLE MVPIECE ; 14: Disc Right @@dsD: DECLE MVPIECE ; 15: Disc Down @@acT: DECLE MVPIECE ; 16: Action Top @@acL: DECLE MVPIECE ; 17: Action Left @@acR: DECLE MVPIECE ; 18: Action Right ENDP ;;==========================================================================;; ;; INGAME ;; ;; Sets up the display for the game by clearing the screen to "colored ;; ;; squares" mode, etc. Also sets up some initial tasks for starting the ;; ;; game. ;; ;;==========================================================================;; INGAME: PROC PSHR R5 ; Clear screen to colored squares mode MVII #$10, R0 SWAP R0 ; $1000 corresponds to four black sq MVII #$200, R4 ; Fill memory starting at $200 MVII #$F0, R1 ; ... through $2EF (all BACKTAB) CALL FILLMEM ; Set up color stack advance bits to left and right of the "well". ; Also, draw well edges in yellow. MVII #$206, R4 MVII #$22F8, R0 ; Black w/ "advance" bit, no colsq MVII #11, R1 ; 11 rows MVII #$1186, R2 ; Yellow in blocks 0, 2 MVII #$3430, R3 ; Yellow in blocks 1, 3 @@csloop: MVO@ R0, R4 MVO@ R2, R4 ADDI #4, R4 MVO@ R3, R4 MVO@ R0, R4 ADDI #12, R4 DECR R1 BNEQ @@csloop ; Draw bottom of the "well" MVII #EDGEL, R1 MVII #EDGEB, R2 MVII #6, R0 @@botloop: CALL PUTPIXELS INCR R1 CMPI #EDGER, R1 BLE @@botloop ; Draw the 'next piece' box MVII #NXTPCX-3, R1 MVII #NXTPCY-3, R2 MVII #6, R0 @@npxloop: CALL PUTPIXELS ADDI #7, R2 CALL PUTPIXELS SUBI #7, R2 INCR R1 CMPI #NXTPCX+3, R1 BLE @@npxloop INCR R2 DECR R1 @@npyloop: CALL PUTPIXELS SUBI #6, R1 CALL PUTPIXELS ADDI #6, R1 INCR R2 CMPI #NXTPCY+4, R2 BLE @@npyloop ; draw 'Lines', 'Level' and 'Next' onscreen in cyan MVII #$1809, R1 MVII #LVLLOC, R4 MVII #8, R2 CALL TLA ; Draw 'Level' ADDI #LINLOC - LVLLOC - 3, R4 CALL TLA ; Draw 'Lines' SUBI #3 + LINLOC - NXTLOC, R4 CALL TLA ; Draw 'Next' ; Spool up the random number generator a bit MVII #$FF, R2 CALL NEXTRANDX ; Pick a starting piece and a starting 'next piece' CLRR R0 MVO R0, NXTPC CALL PICKPIECE ; Pick a random piece (starting piece) MVII #$FF, R2 CALL NEXTRANDX ; Spin the random number generator some more. CALL PICKPIECE ; Pick a random piece (next piece) ; Set PREVBL routine to animate CS1 and CS3 MVII #ANIDROP, R0 MVO R0, PREVBL ; Task 0: Step blocks down the screen / score drops. ; Task 1: Key/disc/pad repeat manager. ; Task 2: Score display update. ; Task 3: Sleep task. ; Set up piece drop task CALL STARTTASK DECLE 0 DECLE GRAVITY DECLE 120, 120 ; 1Hz ; Set up the score update. CLRR R2 ; Do not suppress any digits. MVII #$1802, R3 ; Display in orange, using GRAM font MVII #20*11 + 5, R4 ; Put at bottom of screen in middle MVO R2, SCRDIG MVO R3, SCRCOL MVO R4, SCRPOS CALL STARTTASK DECLE 2 ; Task # 2 DECLE UPDATESCORE ; Update displayed score DECLE 4, 4 ; 30Hz ; Allow up to four active tasks. (Task 3 is used for SLEEP). MVII #4, R3 MVO R3, TSKACT ; Set up color stack. Entries 0 and 2 are black, 1 and 3 are white. ; Entries 1 and 3 will be "cycled" during a drop animation sequence. MVII #CS0, R4 CLRR R0 MVO@ R0, R4 MVO@ R0, R4 MVO@ R0, R4 MVO@ R0, R4 MVII #PSCORL,R4 ; (interruptible, for STIC) ; Clear our total lines count and level number. (UPDATESTATS ; will move the level number to 1 for us.) MVO R0, LINES ; Lines cleared so far MVO R0, LEVEL ; Clear level number to force an update ; Clear our starting score MVO@ R0, R4 ; PSCORL MVO@ R0, R4 ; PSCORH DECR R0 ; Set to -1 to force a redisplay. MVO@ R0, R4 ; DSCORL MVO@ R0, R4 ; DSCORH ; Clear the well height. MVII #EDGEB, R0 MVO R0, HEIGHT ; Set our keypad dispatch MVII #GAMEHAND, R0 MVO R0, HANDFN ; Play some background music CALL PLAY.mus DECLE M_GAME ; Chain through "UPDATESTATS" PULR R5 B UPDATESTATS ENDP ;;==========================================================================;; ;; TLA ;; ;; 'Three Letter Acronym' ;; ;; Used to draw the labels over 'Level', 'Lines' and 'Next' on the screen. ;; ;; ;; ;; INPUTS: ;; ;; R1 -- Screen format word, including starting GRAM/GROM card #. ;; ;; R2 -- Index value for stepping between GRAM/GROM card #'s. ;; ;; R4 -- Display pointer. ;; ;; R5 -- Return address. ;; ;; ;; ;; OUTPUTS: ;; ;; R1 -- Screen format word, with GRAM/GROM card # advanced by 3. ;; ;; R4 -- Display pointer, advanced by 3 ;; ;; R2, R5 untouched. ;; ;;==========================================================================;; TLA PROC MVO@ R1, R4 ADDR R2, R1 MVO@ R1, R4 ADDR R2, R1 MVO@ R1, R4 ADDR R2, R1 JR R5 ENDP ;;==========================================================================;; ;; TESTHAND ;; ;; Table of keypad dispatches for SOUNDTEST ;; ;;==========================================================================;; TESTHAND PROC @@kp0: DECLE MUTETOGGLE ; KP0 @@kp1: DECLE SOUNDTEST.sfx ; KP1 @@kp2: DECLE SOUNDTEST.sfx ; KP2 @@kp3: DECLE SOUNDTEST.sfx ; KP3 @@kp4: DECLE SOUNDTEST.sfx ; KP4 @@kp5: DECLE SOUNDTEST.sfx ; KP5 @@kp6: DECLE SOUNDTEST.sfx ; KP6 @@kp7: DECLE SOUNDTEST.mus ; KP7 @@kp8: DECLE SOUNDTEST.mus ; KP8 @@kp9: DECLE SOUNDTEST.mus ; KP9 @@kpC: DECLE SOUNDTEST.soff ; KPC @@kpE: DECLE SOUNDTEST.moff ; KPE @@dsU: DECLE SCHEDEXIT ; Disc Up @@dsL: DECLE SCHEDEXIT ; Disc Left @@dsR: DECLE SCHEDEXIT ; Disc Right @@dsD: DECLE SCHEDEXIT ; Disc Down @@acT: DECLE SOUNDTEST.spd ; Action Top @@acL: DECLE SOUNDTEST.spd ; Action Left @@acR: DECLE SOUNDTEST.spd ; Action Right ENDP ;;==========================================================================;; ;; SOUNDTEST ;; ;; Extremely simple Sound Test routine ;; ;;==========================================================================;; SOUNDTEST PROC PSHR R5 ; Set our keypad dispatch MVII #TESTHAND, R0 MVO R0, HANDFN ; Force music and sound effects off CALL @@soff ; Force sound effects off. CALL @@moff ; Force music off. ; Display instructions MVII #$F0, R1 ; Set entire display to BLACK MVII #$200, R4 CALL FILLZERO MVII #$1807, R1 ; Pastel Purple, GRAM font MVII #$200 + 5, R4 CALL DRAWSTRING2 BYTE "SOUND TEST",0 CALL DRAWSTRING3 DECLE 6, $200 + 40 ; Yellow, top of screen ; 01234567890123456789 BYTE "1 - 6: Sound Effect" BYTE "7,8,9: Bkgnd Music " BYTE "0: Toggle Mute " BYTE "Clear: Stop SFX " BYTE "Enter: Stop Music " BYTE "Action: Music speed " BYTE "Disc: Exit", 0 CALL DRAWSTRING3 DECLE 1, $2F0 - 40 ; Blue, bottom of screen. ; 01234567890123456789 BYTE "intvnut AT gmail.com" BYTE " v1.12",0 ; Start a Marquee task on the Sound Test string. MVII #5 + 256*10, R2 ; Length 10, Offset 5 CALL STARTTASK DECLE 0 ; Task #0 DECLE MARQUEE ; MARQUEE task DECLE 14, 14 ; Period: every 7 ticks ; Make maquee task active. MVII #1, R3 MVO R3, TSKACT PULR PC ; Return @@soff: MVII #$FF, R1 MVII #FX_OFF, R4 B PLAY.sfxn ; Force sound effects off @@moff: MVII #FX_OFF, R4 B PLAY.musn ; Force music off @@sfx: ; Play a sound effect DECR R2 ADDR R2, R2 MOVR R2, R4 B PLAY.sfxn @@mus: ; Play new music DECR R2 ADDR R2, R2 MOVR R2, R4 B PLAY.musn @@spd: ; Toggle music speed MVII #EDGEB, R0 XOR HEIGHT, R0 MVO R0, HEIGHT JR R5 ENDP ;;==========================================================================;; ;; GAMEOVER ;; ;; Guess what? It's game over time!! ;; ;;==========================================================================;; GAMEOVER PROC PSHR R5 ; Set our keypad dispatch CLRR R0 MVO R0, HANDFN ; Stop the current game music & sfx, and play a loud BOOM! MVO R0, SNDSTRM+7 ; Make SFX enable mask go to 0 DECR R0 MVO R0, MUTE ; Force music to be un-muted MVO R0, DSCORL ; set 'displayed score' to 0xFFFFFFFF MVO R0, DSCORH ; (moved from below to save some code) CALL PLAY.mus ; Play loud BOOM on music channel DECLE FXBOOM2 ; Force the displayed score to be fully updated. CALL UPDATESCORE ; Wait for "BOOM2" to finish MVII #2, R0 @@spin: CMP SNDSTRM, R0 BLE @@spin ; Clear the well! CALL CLEARWELL CALL WAIT DECLE 20 ; Wait 1/3rd second afterwards ; Put up the GAME OVER string. CALL DRAWSTRING3 DECLE $7 DECLE $200 + 20*5 + 5 BYTE "Game Over!",0 ; Start a Marquee task on the Game Over string. MVII #105 + 256*10, R2 ; Length 10, Offset 105 CALL STARTTASK DECLE 0 ; Task #0 DECLE MARQUEE ; MARQUEE task DECLE 10, 10 ; Period: every 5 ticks MVII #1, R0 MVO R0, TSKACT ; Play the Game Over music CALL PLAY.mus DECLE M_OVER PULR PC ENDP ;;==========================================================================;; ;; SETLEVEL ;; ;; Receives a keypad number and sets up our starting score and level ;; ;; number appropriately. ;; ;; ;; ;; INPUT: ;; ;; R2 -- Key/disc/action button number (0..18) ;; ;; ;; ;; OUTPUT: ;; ;; SLEVEL set up appropriately. ;; ;;==========================================================================;; SETLEVEL PROC TSTR R2 ; See if it's zero BEQ @@got_level ; Yes... Set it anyway. Triggers 'sound test' CMPI #10, R2 ; See if it's > 10 BLE @@got_level ; No, use this as the level number @@default_lev: MVII #4, R2 ; Default is to start at level #4 @@got_level: MVO R2, SLEVEL ; Store starting level number B SCHEDEXIT ; Return via SCHEDEXIT ENDP ;;==========================================================================;; ;; HANDTASK ;; ;; Handles a keypad press. ;; ;; ;; ;; INPUT: ;; ;; R2 -- Keypad key number (0..11), disc dir (12..15), or action ;; ;; button (16..18) ;; ;; R5 -- Return address ;; ;; ;; ;; OUTPUT: ;; ;; Jumps to appropriate function. R2 is still set to the keypad number. ;; ;;==========================================================================;; HANDTASK PROC MVI HANDFN, R4 TSTR R4 BEQ SETLEVEL ADDR R2, R4 MVI@ R4, PC ENDP ;;==========================================================================;; ;; KEYREPEAT ;; ;; Key repeat task, scheduled on task #1. De-schedules self if nothing ;; ;; is currently pressed. Works by clearing LHAND/LHKPD. ;; ;;==========================================================================;; KEYREPEAT PROC MVII #1, R3 ; Prepare to disable task if needed MVI LHAND, R0 ; See if something was pressed MVO R0, REPEAT ; Update "repeating" flag. TSTR R0 ; BEQ STOPTASK ; No? Disable task and chain the return CLRR R0 ; Yes? Clear last-pressed info. MVO R0, LHAND MVO R0, LHKPD JR R5 ; Return. ENDP ;;==========================================================================;; ;; SCANHAND ;; ;; Scan the hand controllers and schedule tasks based on the input ;; ;; triggers we see. Hand controller debouncing is done here too, which ;; ;; makes scanning controllers somewhat time-consuming. (I need to ;; ;; eventually experiment with debounce parameters on real hardware if I ;; ;; plan to make this a cartridge.) ;; ;; ;; ;; Hand controller docs: ;; ;; Bit 0: Down, Row 0 keys --------- 1 2 3 ;; ;; Bit 1: Right, Row 1 keys --------- 4 5 6 ;; ;; Bit 2: Up, Row 2 keys --------- 7 8 9 ;; ;; Bit 3: Left, Row 3 keys --------- C 0 E ;; ;; Bit 4: Corner | | | ;; ;; Bit 5: T/L Col 2 keys --------- | -- | ---+ ;; ;; Bit 6: L/R Col 1 keys --------- | ---+ ;; ;; Bit 7: T/R Col 0 keys ----------+ ;; ;;==========================================================================;; ; E C 9 8 7 6 5 4 3 2 1 0 PADTBL: BYTE $28, $88, $24, $44, $84, $22, $42, $82, $21, $41, $81, $48 ; rgt lft top ACTTBL: BYTE $C0, $60, $A0 ; bot rgt lft top DSCTBL: BYTE $01, $02, $08, $04 SCANHAND PROC DBOUT EQU 5 ; Debounce outer loop DBIN EQU 120 ; Debounce inner loop DB80 EQU (80*DBIN)/100 ; 80% of inner loop iters @@startover: CLRR R2 MVO R2, PAUSED ; Clear 'we paused' flag MVII #DBIN, R2 @@dbnothing: MVI CTRL0, R0 AND CTRL1, R0 XORI #$FF, R0 ; See if it is the same as our last hand-controller input. ; If so, just ignore it. CMP LHAND, R0 BEQ @@nothing MOVR R0, R1 ; Lets see if it's anything at all BNEQ @@input ; If it comes up non-empty, process it. DECR R2 ; If it comes up empty, debounce before BNEQ @@dbnothing ; saying it's just nothing. B @@noinput @@input: ; If last input was keypad, ignore this if they share any bits. MVI LHKPD, R0 ANDR R1, R0 BNEQ @@nothing ; Debounce the input. If we read the same value >80% of the ; iterations of the debounce inner loop, we say it's good. ; Otherwise we iterate the outer loop. @@debounce: MVII #DBOUT, R3 ; Outer loop max count @@oloop: CLRR R2 ; Match count MVII #DBIN, R0 ; Inner loop count MVI CTRL0, R1 AND CTRL1, R1 @@iloop: MVI CTRL0, R4 AND CTRL1, R4 CMPR R4, R1 BNEQ @@notsame ; Yes... don't count it INCR R2 ; No... do count it. @@notsame: DECR R0 ; Count down inner loop BNEQ @@iloop XORI #$FF, R1 CMPI #DB80, R2 ; Was it same >80% of inner loop? BGE @@ok ; Yes, keep it. DECR R3 ; No, iterate outer loop BNEQ @@oloop ; If we fall through here, just parse whatever we read last. ; Somebody really needs to clean their controllers! @@ok: MVI PAUSED, R3 ; If we paused during debounce, start this TSTR R3 ; whole thing over. BNEQ @@startover ; Parse controller info in R1. ; If bit 4 is set, assume this is NOT a keypad press. MOVR R1, R0 ANDI #$10, R0 BNEQ @@nopad ; See if it EXACTLY matches a keypad key MVII #PADTBL,R4 MVII #11, R0 @@kloop: CMP@ R4, R1 BEQ @@gotpad DECR R0 BGE @@kloop B @@nopad @@gotpad: MVO R1, LHAND ; Set last-hand value ; If we _think_ we got a keypad input, make DAMN SURE by debouncing ; AGAIN with 3x the debounce inner loop. MVII #3*DBIN, R3 ; Inner loop count @@kpdloop: MVI CTRL0, R4 AND CTRL1, R4 XORI #$FF, R4 CMPR R4, R1 BNEQ @@debounce ; Miscompare? Hell with this! @@kpnotsame: DECR R3 ; Count down inner loop BNEQ @@kpdloop MVO R1, LHKPD ; Record that last input was keypad. MOVR R0, R1 B @@dispatch ; Keypad keys don't repeat. @@notrepeating: PSHR R5 CALL STARTTASK ; Make the keypress repeat DECLE 1 ; Task #1 DECLE KEYREPEAT ; KEYREPEAT task DECLE 30, 8 ; First repeat 250ms, rest @ 15Hz PULR R5 @@repeating: PULR R1 @@dispatch: MVII #HANDTASK, R0 ; Queue the HANDTASK to process key JD QTASK @@nopad: CLRR R0 MVO R0, LHKPD MOVR R1, R0 ; Copy input to R0 to decode action buttons. ANDI #$E0, R0 BEQ @@noaction ; Don't decode action btns if there are none ; Action buttons shouldn't repeat like the disc, so avoid doing ; action buttons if these bits match bits in REPEAT. @@hmm MVI REPEAT, R2 ANDI #$E0, R2 CMPR R2, R0 BEQ @@noaction MVI LHAND, R2 ANDI #$E0, R2 CMPR R2, R0 BEQ @@noaction PSHR R1 ; Ok, decode the action buttons. MVII #ACTTBL,R4 ; R4 points to the "action table" MVII #3, R1 @@actloop: CMP@ R4, R0 BEQ @@gotaction DECR R1 BNEQ @@actloop B @@notaction @@gotaction: ; Queue an action-key event ADDI #15, R1 PSHR R5 MVII #HANDTASK, R0 ; Queue the HANDTASK to process key JSRD R5, QTASK PULR R5 @@notaction: PULR R1 @@noaction: ; Now process disc events. MVI LHAND, R2 ; Get our previous controller input MVO R1, LHAND ; Save current input MOVR R1, R3 MVII #DSCTBL,R4 ; R4 points to the "disc table" MVII #4, R1 @@discloop: MOVR R3, R0 ; Restore word. AND@ R4, R0 ; Compare against a direction bit. BNEQ @@gotdisc ; Is this bit set? DECR R1 BNEQ @@discloop B @@nothing @@gotdisc: ADDI #11, R1 PSHR R1 MOVR R0, R3 AND REPEAT, R0 ; See if we're repeating BNEQ @@repeating ANDR R3, R2 ; See if this is just our prev keypress BEQ @@notrepeating ; Yup, this is new. PULR R1 B @@nothing ; ... otherwise ignore it. @@noinput: CLRR R1 MVO R1, LHAND ; Clear last-hand MVO R1, LHKPD ; Clear last-was-keypad MVO R1, REPEAT ; Clear repeating key @@nothing: JR R5 ; Return. ENDP ;;==========================================================================;; ;; NEXTRAND ;; ;; Simple task which updates the random number generator. It advances ;; ;; the random number generator's state by one bit. This is a good one ;; ;; to call from the background task to keep things random. ;; ;; ;; ;; NEXTRANDX ;; ;; Same as NEXTRAND, only it iterates for R2 iterations, generating R2 ;; ;; new random bits. (default is only one new random bit) ;; ;; ;; ;; INPUTS: ;; ;; R2 -- Number of iterations (NEXTRANDX only) ;; ;; R5 -- Return address ;; ;; Random state in RANDLO, RANDHI ;; ;; ;; ;; OUTPUTS: ;; ;; R0, R1 -- Contains current rand # state. ;; ;; R2 -- Zeroed ;; ;; R4 -- Trashed ;; ;;==========================================================================;; NEXTRAND PROC MVII #1, R2 NEXTRANDX MVII #RANDLO, R4 MVI@ R4, R0 MVI@ R4, R1 @@loop: SLLC R0, 1 RLC R1, 1 BNC @@nocarry ; XORI #$5, R0 ; period==(2**31 - 1) polynomial XORI #$04C1, R1 ; period==(2**32 - 1) polynomial (CRC-32 poly) XORI #$1DB7, R0 @@nocarry: DECR R2 BNEQ @@loop SUBI #2, R4 MVO@ R0, R4 MVO@ R1, R4 JR R5 ENDP ;;==========================================================================;; ;; POW10 ;; ;; Look-up table with powers of 10 as 32-bit numbers (little endian) ;; ;; ;; ;; NPW10 ;; ;; Same as POW10, only -10**x instead of 10**x ;; ;;==========================================================================;; POW10 POW10_9 DECLE 1000000000 AND $FFFF, 1000000000 SHR 16 ; 10**9 POW10_8 DECLE 100000000 AND $FFFF, 100000000 SHR 16 ; 10**8 POW10_7 DECLE 10000000 AND $FFFF, 10000000 SHR 16 ; 10**7 POW10_6 DECLE 1000000 AND $FFFF, 1000000 SHR 16 ; 10**6 POW10_5 DECLE 100000 AND $FFFF, 100000 SHR 16 ; 10**5 POW10_4 DECLE 10000 AND $FFFF, 10000 SHR 16 ; 10**4 POW10_3 DECLE 1000 AND $FFFF, 1000 SHR 16 ; 10**3 POW10_2 DECLE 100 AND $FFFF, 100 SHR 16 ; 10**2 POW10_1 DECLE 10 AND $FFFF, 10 SHR 16 ; 10**1 POW10_0 DECLE 1 AND $FFFF, 1 SHR 16 ; 10**0 NPW10 NPW10_9 DECLE -1000000000 AND $FFFF,(-1000000000 SHR 16) AND $FFFF ;-10**9 NPW10_8 DECLE -100000000 AND $FFFF,(-100000000 SHR 16) AND $FFFF ;-10**8 NPW10_7 DECLE -10000000 AND $FFFF,(-10000000 SHR 16) AND $FFFF ;-10**7 NPW10_6 DECLE -1000000 AND $FFFF,(-1000000 SHR 16) AND $FFFF ;-10**6 NPW10_5 DECLE -100000 AND $FFFF,(-100000 SHR 16) AND $FFFF ;-10**5 NPW10_4 DECLE -10000 AND $FFFF,(-10000 SHR 16) AND $FFFF ;-10**4 NPW10_3 DECLE -1000 AND $FFFF,(-1000 SHR 16) AND $FFFF ;-10**3 NPW10_2 DECLE -100 AND $FFFF,(-100 SHR 16) AND $FFFF ;-10**2 NPW10_1 DECLE -10 AND $FFFF,(-10 SHR 16) AND $FFFF ;-10**1 NPW10_0 DECLE -1 AND $FFFF,(-1 SHR 16) AND $FFFF ;-10**0 ;;==========================================================================;; ;; DEC16 ;; ;; Displays a 16-bit decimal number on the screen with leading blanks ;; ;; in a field up to 5 characters wide. ;; ;; ;; ;; DEC16A ;; ;; Same as DEC16, only displays leading zeroes. ;; ;; ;; ;; DEC16B ;; ;; Same as DEC16, only leading zeros are controlled by bit 15 of R3. ;; ;; (If set, suppress leading zeros. If clear, show leading zeros.) ;; ;; ;; ;; DEC16C ;; ;; Same as DEC16B, except R1 contains an amount to add to the first digit ;; ;; ;; ;; INPUTS: ;; ;; R0 -- Decimal number ;; ;; R1 -- (DEC16C only): Amount to add to initial digit. ;; ;; R2 -- Number of digits to suppress (If R2<=5, it is 5-field_width) ;; ;; R3 -- Color mask ;; ;; R4 -- Screen offset (8-bit) ;; ;; ;; ;; OUTPUTS: ;; ;; R0 -- Zeroed ;; ;; R1 -- Trashed ;; ;; R2 -- Remaining digits to suppress (0 if initially <= 5.) ;; ;; R3 -- Color mask, with bit 15 set if no digits displayed. ;; ;; R4 -- Pointer to character just right of string ;; ;; R5 -- Trashed ;; ;; ;; ;; Routine uses $110, $111 for temporary storage. ;; ;;==========================================================================;; DEC16 PROC @@so EQU $110 @@fw EQU $111 SETC ; Prepare to set bit 15 of color mask INCR PC ; Skip the CLRC DEC16A CLRC ; Prepare to clear bit 15 of clrmask SLL R3, 1 RRC R3, 1 ; Set/clear bit 15 of color mask DEC16B CLRR R1 DEC16C PSHR R5 ; Save return address MVII #POW10_4, R5 ; Point to '10000' entry in POW10 MVO R4, @@so ; Save screen offset MVO R2, @@fw ; Save field width MVII #5, R4 ; Iterate 5 (16-bit goes to 65536) MOVR R1, R2 INCR PC @@digitlp: CLRR R2 ; Start with division result == 0 MVI@ R5, R1 ; Load power of 10 INCR R5 ; Point to next smaller power of 10 @@divloop: INCR R2 SUBR R1, R0 ; Divide by repeated subtraction BC @@divloop ADDR R1, R0 ; Loop iterates 1 extra time: Fix it. DECR R2 ; Fix extra iter. Also test if 0 BNEQ @@disp ; If digit != 0, display it. TSTR R3 ; If digit == 0 and no lead 0, skip BMI @@blank @@disp: SLL R3, 1 ; Clear "no leading 0" flag SLR R3, 1 ; MVI @@fw, R1 ; Get field width DECR R1 ; Are we in active field yet? BMI @@ok ; Yes: Go ahead and display MVO R1, @@fw ; No: Save our count-down till field B @@iter ; and don't display the digit. @@blank: MOVR R3, R2 ; Blank character _just_ gets format MVI @@fw, R1 ; Get field width DECR R1 ; Are we in active field yet? BMI @@drawit ; Yes: Go ahead and display MVO R1, @@fw ; No: Save our count-down till field B @@iter ; and don't display the digit. @@ok: ADDI #$10, R2 ; Pseudo-ASCII digits start at 0x10 SLL R2, 2 ; Put pseudo-ASCII char in position ADDR R2, R2 ; ... by shifting left 3 XORR R3, R2 ; Merge with display format @@drawit: MVI @@so, R1 ; Get screen offset XORI #$200, R1 ; Move to screen MVO@ R2, R1 ; Put character on screen INCR R1 ; Move the pointer MVO R1, @@so ; Save the new offset @@iter: DECR R4 ; Count down our digit count BNEQ @@digitlp ; Keep iterating MVI @@so, R4 ; Restore offset MVI @@fw, R2 ; Restore digit suppress ocunt PULR PC ; Whew! Done! ENDP ;;==========================================================================;; ;; DEC32 ;; ;; Displays a 32 bit number without leading zeros. It performs this feat ;; ;; by calling DEC16 twice. ;; ;; ;; ;; DEC32A ;; ;; Same as DEC32, except leading zeros are displayed. ;; ;; ;; ;; DEC32B ;; ;; Same as DEC32, except leading zeros are controlled by bit 15 of R3 ;; ;; (If set, suppress leading zeros. If clear, show leading zeros.) ;; ;; ;; ;; INPUTS: ;; ;; R0 -- Low half of 32-bit number ;; ;; R1 -- High half of 32-bit number ;; ;; R2 -- Number of leading digits to suppress (10 - field width) ;; ;; R3 -- Screen format word ;; ;; R4 -- Screen offset (8-bit) ;; ;; ;; ;; $110..$113 used for temporary storage ;; ;;==========================================================================;; DEC32 PROC @@so EQU $110 @@fw EQU $111 @@fmt EQU $35D SETC ; Prepare to set bit 15 of color mask INCR PC ; Skip the CLRC DEC32A CLRC ; Prepare to clear bit 15 of clrmask SLL R3, 1 RRC R3, 1 ; Set/clear bit 15 of color mask NOP ; (interruptible for STIC) DEC32B PSHR R5 ; Save return address MVO R2, @@fw ; Save field width MVO R4, @@so ; Save screen offset MVO R3, @@fmt CLRR R3 PSHR R3 ; Push accumulator (init'd to 0) ; Use division by repeated subtraction to generate a 16-bit ; value which represents the first 5 digits of the 10 digit number. MVII #NPW10_9, R5 ; Point to -10**9 @@digitlp: CLRR R3 MVI@ R5, R2 ; Load low half of 32-bit -10**x MVI@ R5, R4 ; Load high half of 32-bit -10**x @@divlp: SLR R3, 1 @@divlpb: INCR R3 ADDR R2, R0 ; Add the low half ADCR R1 ; Add carry from low half RLC R3, 1 ; See if adding the carry carried ADDR R4, R1 ; Add high half BC @@divlp ; Loop if we had a carry from either SARC R3, 1 ; upper half ADD. (We can't get BC @@divlpb ; a carry from both, though.) ; Subtract off the extra iteration SUBR R2, R0 ; Subtract the low half. ADCR R1 ; Add in the "not-borrow" DECR R1 ; Turn "not-borrow" into "borrow" SUBR R4, R1 ; Subtract the high half. DECR R3 BEQ @@nxtdigit ; Take our count and multiply it by the appropriate power of 10. MOVR R5, R2 MOVR R3, R4 SUBI #NPW10_4, R2 ; Translate 10**x to 10**(x-5) BEQ @@donemult @@mult: ADDR R4, R4 ; To mult by 10, do (x<<1)+(x<<3) MOVR R4, R3 SLL R3, 2 ADDR R3, R4 ADDI #$4, R2 BLT @@mult @@donemult: ADD@ SP, R4 ; Add this to our 16-bit accum. PSHR R4 ; that we keep on top-of-stack @@nxtdigit: CMPI #NPW10_4, R5 BLT @@digitlp MVI @@fw, R2 ; Restore field width MVI @@so, R4 ; Restore screen offset MVI @@fmt, R3 ; ... MVO R0, @@fmt ; Save low half momentarily. PULR R0 ; Get accumulated word for display PSHR R1 ; Save upper bit CALL DEC16B ; Display first five digits ; Now, our 32-bit number should be less than 100000. That ; means R1 should be 0 or 1. We display the last five digits ; as a single 16-bit number by handling that bit separately. MVI @@fmt, R0 ; Restore lower 16 bits PULR R1 ; Get upper bit TSTR R1 ; Was it zero? BEQ @@noextra ; Yes: Nothing special to do MVII #6, R1 ; No: Add 6 to the leading digit ADDI #5536, R0 ; ... and "5536" to remaining digits @@noextra: PULR R5 ; Chain the return. B DEC16C ; Display remaining digits. WHEW! ENDP ;;==========================================================================;; ;; DEC32Z ;; ;; Same as DEC32, except a zero is displayed in the final position if ;; ;; the whole number's value is zero. ;; ;; ;; ;; DEC16Z ;; ;; Same as DEC16, except a zero is displayed in the final position if ;; ;; the whole number's value is zero. ;; ;;==========================================================================;; DEC32Z PROC TSTR R0 ; Is lower half non-zero? BNEQ DEC32 ; Yes: Go display the number as per usual. TSTR R1 ; Is upper half non-zero? BNEQ DEC32 ; Yes: Go display the number as per usual. MVII #10, R1 ; Otherwise, display a 0 in a field that is B @@dozero ; ... up to 10 spaces wide. DEC16Z: TSTR R0 ; Is the number non-zero? BNEQ DEC16 ; Yes: Go display the number as per usual. MVII #5, R1 ; Otherwise, display a 0 in a field that is ; ... up to 5 spaces wide. @@dozero: SUBR R2, R1 ; Account for suppressed digits. BLE @@nodisp ; Display nothing if # of suppressed digits ; is greater than or equal to our field width. ADDI #$200, R4 ; Point into display memory. INCR PC ; Skip the first MVO@ in loop below. @@loop: MVO@ R3, R4 ; Output a blank space (leading blanks) DECR R1 ; Decrement our count of leading blanks. BNEQ @@loop ; Keep looping until we've filled the blank ; ... portion of the displayed number. XORI #$80, R3 ; Now, display the digit 0 in last position. MVO@ R3, R4 XORI #$80, R3 ; Finally, restore our display format word. @@nodisp: JR R5 ; Return to the caller. ENDP ;;==========================================================================;; ;; DRAWSTRING1 ;; ;; Puts an ASCIIZ string pointed to by R0 onscreen. ;; ;; ;; ;; DRAWSTRING2 ;; ;; Puts an ASCIIZ string after a JSR R5 onscreen. ;; ;; ;; ;; DRAWSTRING3 ;; ;; Reads R1, R4 from @ R5, then does DRAWSTRING2. ;; ;; ;; ;; DRAWSTRING4 ;; ;; Reads R4 from @ R5, then does DRAWSTRING2. ;; ;; ;; ;; DRAWSTRING5 ;; ;; Reads R0, R1, R4 from @ R5, then does DRAWSTRING1. ;; ;; ;; ;; INPUTS: ;; ;; R0 -- String pointer (if DRAWSTRING) ;; ;; R1 -- Screen format word ;; ;; R4 -- Output pointer ;; ;; R5 -- Return address (also, string if DRAWSTRING2). ;; ;; ;; ;; OUTPUTS: ;; ;; R0 -- Zero if DRAWSTRING2, one if DRAWSTRING ;; ;; R1 -- Untouched EXCEPT bit 15 is cleared. ;; ;; R4 -- Points just after displayed string. ;; ;; R5 -- Points just past end of string. ;; ;; R2 and R3 are not modified. ;; ;;==========================================================================;; DRAWSTRING PROC DRAWSTRING5 MVI@ R5, R0 MVI@ R5, R1 MVI@ R5, R4 DRAWSTRING1 PSHR R5 MOVR R0, R5 SETC INCR PC DRAWSTRING2: CLRC SLL R1, 1 RRC R1, 1 MVI@ R5, R0 ; Get first char of string @@tloop: SUBI #32, R0 ; Shift ASCII range to charset SLL R0, 2 ; Move it to position for BTAB word SLL R0, 1 XORR R1, R0 ; Merge with color info MVO@ R0, R4 ; Write to display MVI@ R5, R0 ; Get next character TSTR R0 ; Is it NUL? BNEQ @@tloop ; --> No, keep copying then SLLC R1, 1 ADCR R0 SLR R1, 1 ADDR R0, PC JR R5 PULR PC DRAWSTRING3: MVI@ R5, R1 DRAWSTRING4: MVI@ R5, R4 B DRAWSTRING2 ENDP ;;==========================================================================;; ;; FILLZERO ;; ;; Fills memory with zeros ;; ;; ;; ;; FILLMEM ;; ;; Fills memory with a constant ;; ;; ;; ;; INPUTS: ;; ;; R0 -- Fill value (FILLMEM only) ;; ;; R1 -- Number of words to fill ;; ;; R4 -- Start of fill area ;; ;; R5 -- Return address ;; ;; ;; ;; OUTPUTS: ;; ;; R0 -- Zeroed (if FILLZERO) ;; ;; R1 -- Zeroed ;; ;; R4 -- Points to word after fill area ;; ;;==========================================================================;; FILLZERO PROC CLRR R0 FILLMEM MVO@ R0, R4 DECR R1 BNEQ FILLMEM JR R5 ENDP ;;==========================================================================;; ;; SNDPRIO ;; ;; ;; ;; Task which prioritizes sound streams by giving stream #0 ;; ;; all of the channel bits that aren't being used by stream #1. This is ;; ;; called by the ISR during sound-stream updates. ;; ;; ;; ;; This task also implements the "Mute" functionality. ;; ;;==========================================================================;; SNDPRIO PROC MVI SNDSTRM+4,R0 ; load current hold count for strm 2 CLRR R1 CMPI #2, R0 ; is it less than 2? BLT @@inactive ; yes: stream is inactive MVI SNDSTRM+7,R1 @@inactive: XORI #$3FFF, R1 MVI MUTE, R0 TSTR R0 BNEQ @@notmute ANDI #$7FF, R1 ; Disallow access to volume. @@notmute: MVO R1, SNDSTRM+3 JR R5 ENDP ;;==========================================================================;; ;; DOSNDSTREAM -- This is the sound engine! ;; ;; ;; ;; PSG memory map ;; ;; ;; ;; $1F4:$1F0 Channel A period (12 bits) ;; ;; $1F5:$1F1 Channel B period (12 bits) ;; ;; $1F6:$1F2 Channel C period (12 bits) ;; ;; $1F7:$1F3 Envelope period (16 bits) ;; ;; ;; ;; $1F8 Channel enables ;; ;; $1F9 Noise period (5 bits) ;; ;; $1FA Envelope mode ;; ;; ;; ;; $1FB Channel A volume ;; ;; $1FC Channel B volume ;; ;; $1FD Channel C volume ;; ;; ;; ;; $1FE, $1FF Hand controllers (not used for sound.) ;; ;; ;; ;; Sound is microprogrammed with a series of records of the following ;; ;; format: ;; ;; ;; ;; INSTRUCTION WORD (two formats): ;; ;; ;; ;; Format 1 (BREF = 0) ;; ;; +---+---+---+---+---+---+---+---+---+---+---+---+----+----+----+----+ ;; ;; | DURATION TO HOLD THIS FRAME |QUIT|ZERO|PCTL|BREF| ;; ;; +---+---+---+---+---+---+---+---+---+---+---+---+----+----+----+----+ ;; ;; ;; ;; Format 2 (BREF = 1) ;; ;; +---+---+---+---+---+---+---+---+---+---+---+---+----+----+----+----+ ;; ;; | BREF OFFSET RELATIVE TO $ - 2 | DUR. TO HOLD |QUIT|ZERO|PCTL|BREF| ;; ;; +---+---+---+---+---+---+---+---+---+---+---+---+----+----+----+----+ ;; ;; ;; ;; CONTROL WORD ;; ;; +---+----+---+---+---+---+---+---+---+---+---+---+---+---+---+---+ ;; ;; | 0 |LINK|snD|snC|snB|snA|sn9|sn8|sn7|sn6|sn5|sn4|sn3|sn2|sn1|sn0| ;; ;; +---+----+---+---+---+---+---+---+---+---+---+---+---+---+---+---+ ;; ;; ;; ;; DATA BYTES, 1 word for each two snX bits set. ;; ;; +---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+ ;; ;; | SECOND BYTE TO WRITE | FIRST BYTE TO WRITE | ;; ;; +---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+ ;; ;; ;; ;; LINK ADDRESS (if LINK set), 1 word, as-is. ;; ;; +---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+ ;; ;; | ADDRESS TO CONTINUE SOUND PROCESSING AT. | ;; ;; +---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+ ;; ;; ;; ;; ;; ;; Instruction Word details: ;; ;; ;; ;; The DUR field in the Instruction Word specifies how long a set of ;; ;; values is held in the PSG before it processes the next word. The ;; ;; duration is specified in ticks, where 1 tick == 1/60th second. A ;; ;; duration of 0 means "immediately"--the sound processor will start ;; ;; processing the next sound record as soon as it completes this one. ;; ;; This is useful for combining operations, such as setting ZERO & ;; ;; PCTL to zero the previous notes, and then sending new ones (if they ;; ;; are on different channels). ;; ;; ;; ;; The QUIT, ZERO, PCTL, BREF and LINK flags control the following ;; ;; behavior: ;; ;; ;; ;; QUIT When set, this terminates the sound given sound microprogram ;; ;; after the duration specified. ;; ;; ;; ;; ZERO When set, this tells the sound processor that no bytes are ;; ;; coded for this frame since all were zeros. This causes the ;; ;; processor to write a pattern of zeros guided by the control ;; ;; word. ;; ;; ;; ;; PCTL When set, this tells the sound processor to use the previous ;; ;; control word. The previous control word is not defined when ;; ;; the stream is started, but it is defined across a link. ;; ;; ;; ;; BREF When set, this frame is coded only as a back-reference. All ;; ;; control decles and data bytes come from the back reference. ;; ;; Note: When using a back-reference, the QUIT, ZERO, PCTL, and ;; ;; DUR settings are used from the Instruction Word for the ;; ;; _current_ frame! Also, the duration is limited to four bits ;; ;; when BREF=1, since the upper byte gives the back-reference ;; ;; relative offset. ;; ;; ;; ;; LINK When set, this tells the sound processor that this frame ;; ;; is followed by the address for the next frame. Otherwise, ;; ;; the sound processor assumes that the next frame is after this ;; ;; one. LINK is effectively a "jump after this" instruction. ;; ;; NOTE: LINK is actually in the Control Word, and is remembered ;; ;; when PCTL=1 in the next record. ;; ;; ;; ;; Control Word details: ;; ;; ;; ;; The bits sn0 ... snD report whether bytes are coded for each of the ;; ;; fourteen sound registers on the PSG. The PCTL bit in the Instruction ;; ;; word specifies whether the previous control word is reused for the ;; ;; current frame or is read from the stream. ;; ;; ;; ;; Sound Engine details: ;; ;; ;; ;; Up to two sound programs may be running at once. It is up to the ;; ;; programmer to ensure that they do not try to control the same channels ;; ;; at once. The intended use is to have music playing on one stream ;; ;; and sound effects on a second stream. ;; ;; ;; ;; The following state is kept for each active sound stream in 16-bit ;; ;; memory: ;; ;; ;; ;; HOLDCNT -- Number of ticks left for current record times 2 ;; ;; If the LSB of HOLDCNT is set, stream processing stops ;; ;; after this record. ;; ;; ;; ;; PREVCTL -- Previous control word. ;; ;; ;; ;; NEXTREC -- Pointer to the next stream record. ;; ;; ;; ;; STRMMSK -- Stream channel mask. This is used to prevent a ;; ;; stream from updating certain channel parameters and ;; ;; is most useful when, say, a sound-effect needs to ;; ;; borrow a channel briefly. ;; ;; ;; ;; NOTE: Bit 15 of control word (eg. bit 7 of second word) MUST BE 0. ;; ;; Otherwise, copy loop will loop forever. Also, bit 14 of stream ;; ;; channel mask MUST BE 0, otherwise the copy loop will write part ;; ;; of the link address to one of the hand controller addresses. :-) ;; ;; ;; ;;==========================================================================;; DOSNDSTREAM: PROC MVI@ R5, R4 PSHR R5 MVI@ R4, R1 ; Load tick/hold count (REC[0]) SUBI #2, R1 ; Count down the hold count BMI @@inactive ; If count goes negative, channel is ; inactive. BEQ @@nextrec ; If count goes to zero, load next ; sound record into the channel DECR R4 ; Otherwise, store the updated count. MVO@ R1, R4 ; count ==> REC[0] @@inactive: PULR PC ; Return. @@backup: DECR R4 @@nextrec: MVI@ R4, R5 ; Load the stream record ptr (REC[1]) MVI@ R5, R2 ; Load hold tick-count from stream MOVR R2, R3 SARC R2, 1 ; See if this is a back-reference BNC @@notbref ANDI #$7F, R2 ; Clear BREF offset out of upper bits. SWAP R3 ANDI #$FF, R3 ; Extract BREF offset from upper 8 bits ADDI #2, R3 ; Make BREF relative to just before rec DECR R4 MVO@ R5, R4 ; Store updated record ptr (REC[1]) SUBR R3, R5 ; Subtract relative offset @@notbref: SARC R2, 1 ; See if we have new control word. BC @@prevctl ; If PCTL = 1, use prev control word. MVI@ R5, R1 ; Load new control-word from stream MVO@ R1, R4 ; Store updated ctrl-word to str info ; (REC[2]) INCR PC ; Skip the following MVI@. @@prevctl: MVI@ R4, R1 ; Load previous ctrl-word from str info ; (REC[2]) MVI@ R4, R0 ; Load the stream channel mask (REC[3]) SUBI #4, R4 ; Point back at hold tick-count SARC R2, 1 ; See if we are writing a zero-record BNEQ @@notzero ; If this was a zero hold count, set up so that we will process ; next record. This is almost like tail-recursion. MVII #@@backup, R3 PSHR R3 @@notzero: MVO@ R2, R4 ; Store new tick count (REC[0]) ; We generate a write mask by ANDing the stream channel mask ; with the control word. The result is a bit-mask describing ; which PSG registers we'll actually write to. ANDR R1, R0 ; Generate channel write mask MVII #$1F0, R2 ; Point to the PSG for writing. BC @@zerorec ; If we're writing a zero record, ; don't read any bytes from stream. PSHR R4 MVII #1, R4 COMR R0 SARC R1, 1 ; 6 ; See if we have a coded word. @@loop: BNC @@noread ; 9 7 ; If not, skip the read. @@read: SWAP R3, 1 XORI #1, R4 ADDR R4, PC MVI@ R5, R3 ; 8 ; ... otherwise read word from stream SARC R0, 1 ; 6 ; See if we are to write this word. ADCR PC ; 6 MVO@ R3, R2 ; 8 ; ... otherwise write to the PSG INCR R2 ; 6 ; Always update the PSG pointer. SARC R1, 1 ; 6 ; See if we have a coded word. BNEQ @@loop ; 9 7 ; Yes: Keep looping! BC @@read ; ; affects last bit ONLY. @@finish: PULR R4 CMPI #$1FF, R2 ; Did we have a link pointer in this ; record? BLT @@nolink ; If not, then don't grab one here. MOVR R3, R5 ; Move link pointer to record pointer B @@waslink ; Skip the back-ref test. @@nolink: CMP@ R4, R5 ; Detect if this was a back-ref BLE @@return ; If it was, our pointer didn't advance DECR R4 ; Else, prepare to store new rec ptr @@waslink: MVO@ R5, R4 ; Store record ptr to stream info @@return: PULR PC ; Return @@noread: INCR R2 ; 6 SARC R0, 1 ; 6 SARC R1, 1 ; 6 BNEQ @@loop ; 9 7 BC @@read ; ; affects last bit ONLY. B @@finish ; 56 coded and written ; 48 coded, not written ; 36 not coded, not written @@zerorec: CLRR R3 SARC R0, 1 ; 6 ; See if we are to write this word. @@zloop: BNC @@nozero ; 9 7 ; Skip write if not in write mask MVO@ R3, R2 ; 8 ; ... otherwise write to the PSG @@nozero: INCR R2 ; 6 ; Always update the PSG0pointer. SARC R0, 1 ; 6 ; See if we are to write this word. BNEQ @@zloop ; 9 7 ; Yes: Keep looping! BNC @@zlink MVO@ R3, R2 ; We need to handle link records specially here. @@zlink: SLLC R1, 2 ; Check bit 14. BNOV @@nolink ; If set, we have link, else, we don't MVI@ R5, R3 ; Load the link address MVO@ R3, R4 ; Store record ptr to stream info PULR PC ENDP ;;==========================================================================;; ;; PLAY.sfx ;; ;; Plays a sound effect on stream #1. ;; ;; ;; ;; PLAY.sfxp ;; ;; Plays a sound effect with raised priority on stream #1. ;; ;; ;; ;; PLAY.mus ;; ;; Plays a music stream on stream #0. ;; ;; ;; ;; PLAY.sfxn ;; ;; Same as PLAY.sfxp, only sound effect number is passed in R4 ;; ;; instead of in the invocation record. ;; ;; ;; ;; PLAY.musn ;; ;; Same as PLAY.mus, only sound effect number is passed in R4 ;; ;; instead of in the invocation record. ;; ;; ;; ;; INPUTS: ;; ;; R1 -- Priority (if PLAY.sfxp or PLAY.sfxn) ;; ;; R5 -- Invocation record (if PLAY.sfx, PLAY.sfxp, PLAY.mus) ;; ;; DECLE Index into SNDTBL. ;; ;; ;; ;; OUTPUTS: ;; ;; R1, R4 is clobbered ;; ;; Sound is triggered on requested channel. ;; ;; Returns at R5, or just after if invocation record is used. ;; ;;==========================================================================;; PLAY PROC @@musn: CLRC ; Flag that this is music INCR PC ; (skip the SETC) @@sfxn: SETC ; Flag that this is a sound effect B @@go2 ; Start the music/sound effect @@sfx: CLRR R1 ; If PLAY.sfx, set prio == 0. @@sfxp: SETC ; Flag that this is a sound effect INCR PC ; (skip the CLRC) @@mus: CLRC ; Flag that this is music. @@go: MVI@ R5, R4 ; Read invocation record. @@go2: PSHR R5 ; Save return address PSHR R0 ; Save R0 (minimize clobbering) MVII #SNDSTRM+4, R5 ; point to sound effect stream BC @@notmusic SUBI #4, R5 ; If carry was set, point to sfx stream CLRR R1 DECR R1 @@notmusic: ; Note: The following is non-interruptible, and that's necessary ; to avoid a race w/ the sound code that runs in the ISR. DIS ; First see if something is already playing on this stream MVII #2, R0 CMP@ R5, R0 ; Compare hold delay vs. 2. BGT @@notbusy ; If delay > 2, stream is busy ; If the channel is busy, check our sound priority. This test is ; performed only for sound effects. (INCR R1/BEQ is always taken ; for music). INCR R1 ; If this is music, don't do prio. BEQ @@music ; CMP SFXPRIO, R1 ; Now see if this sound effect is ; high enough priority to play. BLT @@noplay ; No... don't play it. @@play: MVO R1, SFXPRIO ; Update the sound effect priority @@music: ADDI #2, R5 ; Point to stream mask MVI@ R5, R0 ; Get the current stream mask SUBI #3, R5 ; Move the pointer back SWAP R0, 1 ; We're interested in vol bits ; and channel enables. SLR R0, 2 ; Shift away bits we don't want SARC R0, 2 ; ChanEn->C VolA->OV BNC @@no_chan_en ; ChanEn set? MVII #$38, R1 ;Yes... MVO R1, PSG0+10 ;Set channel enables to "Tone Only" @@no_chan_en: CLRR R1 ; Prepare to write zeros. BNOV @@no_vol_a ; VolA set? MVO R1, PSG0+11 ;Yes... Clear Volume for channel A MVO R1, PSG0+0 ;Yes... Clear PeriodLo for channel A MVO R1, PSG0+4 ;Yes... Clear PeriodHi for channel A @@no_vol_a: SARC R0, 2 ; VolB->C VolC->OV BNC @@no_vol_b ; VolB set? MVO R1, PSG0+12 ;Yes... Clear Volume for channel B MVO R1, PSG0+1 ;Yes... Clear PeriodLo for channel B MVO R1, PSG0+5 ;Yes... Clear PeriodHi for channel B @@no_vol_b: BNOV @@no_vol_c ; VolC set? MVO R1, PSG0+13 ;Yes... Clear Volume for channel C MVO R1, PSG0+2 ;Yes... Clear PeriodLo for channel C MVO R1, PSG0+6 ;Yes... Clear PeriodHi for channel C @@no_vol_c: B @@dorecord @@notbusy: INCR R1 BEQ @@dorecord MVO R1, SFXPRIO ; Update the sound effect priority @@dorecord: ; At this point R4 is an index into the sound table ; and R5 points to the second word of the stream record. ADDI #SNDTBL,R4 ; Point R5 into sound table DECR R5 MVII #2, R1 ; Start off with hold count = 2 MVO@ R1, R5 ; Store hold count == 2 MVI@ R4, R1 MVO@ R1, R5 ; Store record pointer INCR R5 MVI@ R4, R1 MVO@ R1, R5 ; Store channel mask @@noplay: EIS PULR R0 PULR PC ENDP ;;==========================================================================;; ;; SOUND EFFECTS ;; ;; BOMB -- Plays a descending pitch following by an explosion. ;; ;; DING3 -- Dings 3 times (signals "next level") ;; ;; BOOM -- Just the explosion ;; ;; SILENCE -- The calm after the storm ;; ;;==========================================================================;; BOMB DECLE 16 ; 1/60th second DECLE $2144 ; Channel C period/vol, Channel Enable DECLE $0010, $0C38 ; Period: $010, ChEnable: $38, Vol: $0C DECLE 16 ; 1/60th second DECLE $04 ; Rapid descening pitch on channel C DECLE $18, $12, $20, $12, $30, $12, $40 DECLE $12, $50, $12, $60, $12, $70, $12, $80 BOOM DECLE 800 ; Long delay (5/6ths second) DECLE $2788 ; Env & noise period, Ch.Enable, C Vol DECLE $28FF ; Env Period == $28FF DECLE $1F1C ; Noise on channel C only., period 1F DECLE $3F00 ; Envelope type = 0000 SILENCE DECLE 0 DECLE $0100 DECLE $38 ; No noise enabled DECLE 12 DECLE $3AFF ; All except envelope trigger BOOM2 DECLE 4 ; No delay DECLE $3AFF ; Clear nearly everything DECLE $3F0 ; Long delay DECLE $3F88 ; Env & noise period, Ch.Enable, Vols DECLE $1FFF DECLE $1F07 ; Noise on all channels, period 1F DECLE $3F00 ; Envelope type = 0000 DECLE $3F3F ; Volume = 15 + Envelope DECLE $0F0 ; Long delay DECLE $4000 DECLE SILENCE BIP DECLE $20 ; 1/30th second DECLE $2144 ; Chan C DECLE $00FF, $0938 ; Period: $0FF, ChEnable: $38, Vol: $09 DECLE $0A ; 0/60th second, PCTL, QUIT DECLE $0000, $0038 ; Zero all but channel enables. BYUMP DECLE 16 ; 1/60th second DECLE $2144 ; Channel C period/vol, Channel Enable DECLE $0410, $0C38 ; Period: $510, ChEnable: $38, Vol: $0D DECLE 16 ; 1/60th second DECLE $04 ; Rapid descening pitch on channel C DECLE $50, $12, $90 DECLE $10 ; Last frame, chain to SILENCE DECLE $4044 DECLE $04E0 DECLE SILENCE DING3 DECLE 15*16 ; 1/4th second DECLE $35EE ; Channel C DECLE $6160, $00FF DECLE $1800 ; B = $060 C = $061, Env Per = $18FF DECLE $0038 ; Channel enables, Envelope type 0 DECLE $3F3F ; Volume = 15 + envelope DECLE 15*16 + 4 ; 1/4th second + zero DECLE $0400 ; Hit envelope register w/ Zero DECLE 15*16 + 4 ; 1/4th second, + zero DECLE $4400 ; Hit envelope register w/ Zero & Link DECLE SILENCE ; Silence afterwards. BOMB4 DECLE $14 ; One tick DECLE $3FFF ; Clear everything. ; (makes the 'gong' more consistent). DECLE $10 ; DECLE $1DBB ; DECLE $1419, $07FF, $3807 DECLE $0038, $3F3F DECLE 16 ; 1/60th second DECLE $2044 ; Channel C period/vol, Channel Enable DECLE $0010, $000C ; Period: $010, Vol: $0C DECLE 16 ; 1/60th second DECLE $04 ; Rapid descening pitch on channel C DECLE $18,$12,$20,$12,$28,$12,$30,$12,$38,$12,$40 DECLE $12,$10,$12,$18,$12,$20,$12,$28,$12,$30,$12,$38,$12,$40 DECLE $12,$10,$12,$18,$12,$20,$12,$28,$12,$30,$12,$38,$12,$40 DECLE 0 DECLE $4000, BOMB ;;==========================================================================;; ;; Background music data ;; ;;==========================================================================;; INCLUDE "nut1mrch.asm" INCLUDE "chindnce.asm" INCLUDE "behappy.asm" ;;==========================================================================;; ;; FONT ;; ;;==========================================================================;; INCLUDE "font.asm" DECLE "http://spatula-city.org/~im14u2c/intv/", 0 DECLE "Copyright 2000 Joseph Zbiciak",0 DECLE "JZ" DECLE 0