MirrorRepos/RomWBW
1
0
Fork 1
mirror of https://github.com/wwarthen/RomWBW.git synced 2026-02-06 14:11:48 -06:00
Code Issues Projects Releases Wiki Activity
Files
5ba63020d15c6c1505167978bc3e053c1d6ae488
RomWBW/Source/HBIOS/game.asm
b1ackmai1er 78f65522b7 Dev (#108) 
* added hack to handle tunes

* quiet clean

* added chmod for execution

* suppress warnings

* Multi-boot fixes

* the windows build somehow thinks that these filesystems are cpm3.

* credit and primitive instructions

* Update sd.asm

Cosmetic fix.

* make compile shut up about conditionals

* Add bin2asm for linus and update build to process font files under linix

* fixed quoted double quote bug, added tests

* added tests

* added bin2asm for font file source creation

* Revert linux bin2asm font stuff

* added rule for font source generation

* build fonts

* added directory mapping cache.  if the same directory is being hit
as last run, we don't need to rebuild the map.  will likely break if
you are running more than one at a time, in that the cache will be
ineffective.  also, if the directory contents change, this will also break.

* removed strip.  breaks osx

* added directory tag so . isn't matched all over the place

* added real cache validation

* fixed build

* this file is copied from optdsk.lib or optcmd.lib

* install to ../HBIOS

* prerequisite verbosity

* diff soft failure and casefn speedup

* added lzsa

* added lzsa

* removed strip. breaks on osx

* added clobber

* added code to handle multiple platform rom builds with rom size override

* added align and 0x55 hex syntax

* default to hd64180

* added N8 capability

* added SBC_std.rom to default build

* added support for binary diff

* diff fixes

* clean, identical build.  font source generator emitted .align.  this does not match the windows build

* Upgrade NZCOM to latest

* Misc. Cleanup

* fixed expression parser bug : ~(1|2) returned 0xfe

* added diff build option

* Update Makefile

Makefile enhancement to better handle ncurses library from Bob Dunlop.

* Update sd.asm

Back out hack for uz80as now that Curt fixed it.

* Misc. Cleanup

* UNA Catchup

UNA support was lacking some of the more recent behavior changes.  This corrects most of it.

* Add github action for building RomWBW

* Bump Pre-release Version

* Update build.yml

Added "make clean" which will remove temporary files without removing final binary outputs.

* Update Makefile

Build all ROM variants by default in Linux/Mac build.

* Update Makefile

* Update Makefile

* Update Makefile

* Update Makefile

* Update Makefile

* Update Makefile

* Update Makefile

* Update Makefile

* Update Makefile

* Update for GitHub Build

Case issue in TASM includes showing up in GitHub build.  This should correct that.

* Added an gitignore files to exclude generated files

* Removed Tunes/clean.cmd and Tunes/ReadMe.txt - as make clean removes them

* Build.sh: marked as executable

chmod +x Build.sh

* Fix to HBIOS/build.sh

When adding files to rom disk, if files were missing, it would error out.

It appears the intent is to skip non-existing files.

Updated to log out correctly for missing files - and continue operation.

* Update Microsoft NASCOM BASIC.docx

Nascom manual, text version by Jan S (full name unknown)

* Fix issue with Apps/Tune not making

If dest directory does not exist, fails to make Apps

* Create ReadMe.txt

* Update Makefile

* Update Build.sh

* Make .gitignores for Tools/unix more specific

* cpmtools Update

Updated cpmtools applications (Windows only).  Removed hack in diskdefs that is no longer required.

* HBIOS Proxy Temp Stack Enhancement

Reuse the bounce buffer area as the temporary stack space required briefly in HBX_INVOKE when transitioning banks.  Increases size of temporary stack space to 64 bytes.

* Update ReadMe.txt

* HBIOS - clean up TMPSTK

* Update hbios.asm

Minor cosmetic changes.

* Build Process Updates

Minor udpates to build process to improve consistency between Windows and Mac/Linux builds.

* Update hbios.asm

Add improved interrupt protection to HBIOS PEEK, POKE, and BNKCPY functions.

* hbios - wrap hbx_bnkcpy

* hbios - adjust hbx_peek hbx_poke guards

* Update hbios.asm

Adjusted used of DI/EI for PEEK and POKE to regain a bit of INTSTK space.  Added code so that HB_INVBNK can be used as a flag indicating if HBIOS is active, $FF is inactive, anything else means active.

* Add HBIOS MuTex

* Initial Nascom basic ecb-vdu graphics

set and reset for 80x25b screen with 256 character mod

* Finalize Pre-release 34

Final support for FreeRTOS

* Update nascom.asm

Optimization, cleanup, tabs and white spaces

* IDE & PPIDE Cleanup

* Clean up

Make version include files common.

* Update Makefile

* Update Makefile

* Build Test

* Build Test

* Build Fixes

* Update nascom.asm

Cleanup

* Update nascom.asm

Optimization

* hbios - temp stack tweak

* Update hbios.asm

Comments on HBX_BUF usage.

* Update nascom.asm

Optimization

* Update nascom.asm

Setup ECB-VDU build option, remove debug code

* Update nascom.asm

Set default build. update initialization

* Update nascom.asm

Make CLS clear vdu screen

* Update nascom.asm

Fixup top screen line not showing

* Add SC131 Support

Also cleaned up some ReadMe files.

* HBIOS SCZ180 - remove mutex special files

* HBIOS SCZ180 - adjust mutex comment

* Misc. Cleanup

Includes some minor improvements to contents in some disk images.

* Delete FAT.COM

Changing case of FAT.COM extension to lowercase.

* Create FAT.com

Completing change of case in extension of FAT.com.

* Update Makefile

Remove ROM variants that just have the HBIOS MUTEX enabled.  Users can easily enable this in a custom build.

* Cleanup

Removed hack from Images Makefile.  Fixed use of DEFSERCFG in various places.

* GitHub CI Updates

Adds automation of build and release assets upon release.

* Prerelease 36

General cleanup

* Build Script Cleanups

* Config File Cleanups

* Update RomWBW Architecture

General refresh for v2.9.2

* Update vdu.asm

Removed a hack in VDU driver that has existed for 8 years.  :-)

* Fix CONSOLE Constant

Rename CIODEV_CONSOLE constant to CIO_CONSOLE because it is a unit code, not a device type code.

Retabify TastyBasic.

* Minor Bug Fixes

- Disk assignment edge case
- CP/M 3 accidental fall thru
- Cosmetic updates

* Update util.z80

* Documentation Cleanup

* Documentation Update

* Documentation Update

* Documentation Updates

* Documentation Updates

* Create Common.inc

* Documentation Updates

* Documentation Updates

* doc - a few random fixes

* Documentation Cleanup

* Fix IM 0 Build Error in ACIA

* Documentation Updates

* Documentation Cleanup

* Remove OSLDR

The OSLDR application was badly broken and almost impossible to fix with new expanded OS support.

* Bug Fixes

- Init RAM disk at boot under CP/M 3
- Fix ACR activation in TUNE

* FD Motor Timeout

- Made FDC motor timeout smaller and more consistent across different speed CPUs
- Added "boot" messaging to RTC

* Cleanup

* Cleanup

- Fix SuperZAP to work under NZCOM and ZPM3
- Finalize standard config files

* Minor Changes

- Slight change to ZAP configuration
- Added ZSDOS.ZRL to NZCOM image

* ZDE Upgrade

- Upgraded ZDE 1.6 -> 1.6a

* Config File Tuning

* Pre-release for Testing

* cfg - mutex consistent config language

* Bump to Version 3.0

* Update SD Card How-To

Thanks David!

* update ReadMe.md

Remove some odd `\`.

* Update ReadMe.txt

* Update ReadMe.md

* Update Generated Doc Files

* Improve XModem Startup

- Extended startup timeout for XM.COM so that it doesn't timeout so quickly while host is selecing a file to send.
- Updated SD Card How-To from David Reese.

* XModem Timing Refinements

* TMS Driver Z180 Improvements

- TMS driver udpated to insert Z180 I/O waitstates internally so other code can run at full speed.
- Updated How-To documents from David.
- Fixed TUNE app to properly restore Z180 I/O waitstates after manipulating them.

* CLRDIR and ZDE updates

- CLRDIR has been updated by Max Scane for CP/M 3 compatibility.
- A minor issue in the preconfigured ZDE VT100 terminal escape sequences was corrected.

* Fix Auto CRT Console Switch on CP/M 3

* Handle lack of RTC better

DSRTC driver now correctly returns an error if there is no RTC present.

* Minor RTC Updates

* Finalize v3.0.1

Cleanup release for v3.0

* New ROMLDR and INTRTC driver

- Refactored romldr.asm
- Added new periodic timer based RTC driver

* CP/M 3 Date Hack

- Hack to allow INTRTC to increment time without destroying the date

* Update romldr.asm

Work around minor Linux build inconsistency

* Update Apps for New Version

* Revert "Update Apps for New Version"

This reverts commit ad80432252.

* Revert "Update romldr.asm"

This reverts commit 4a9825cd57.

* Revert "CP/M 3 Date Hack"

This reverts commit 153b494e61.

* Revert "New ROMLDR and INTRTC driver"

This reverts commit d9bed4563e.

* Start v3.1 Development

* Update FDISK80.COM

Updated FDISK80 to allow reserving up to 256 slices.

* Update sd.asm

For Z180 CSIO, ensure that xmit is finished, before asserting CS for next transaction.

* Add RC2014 UART, Improve SD protocol fix

- RC2014 and related platforms will autodetect a UART at 0xA0 and 0xA8
- Ensure that CS fully brackets all SD I/O

* ROMLDR Improvements

.com files can now be started from CP/M and size of .com files has been reduced so they always fit.

* Update commit.yml

Run commit build in all branches

* Update commit.yml

Run commit build for master and dev branches

* Improved clock driver auto-detect/fallback

* SIO driver now CTC aware

The SIO driver can now use a CTC (if available) to provide much more flexible baud rate programming.

* CTC driver fine tuning

* Update xmdm125.asm

Fixed a small issue in core XM125 code that caused a file write error message to not be displayed when it should be.

* CF Card compatibility improvement

Older CF Cards did not reset IDE registers to defaults values when reset.  Implemented a work around.

* Update ACIA detection

ACIA should no longer be detected if there is also a UART module in the system.

* Handle CTC anomaly

Small update to accommodate CTC behavior that occurs when the CTC trigger is more than half the CTC clock.

* Update acia.asm

Updated ACIA detection to use primary ACIA port instead of phantom port.

* Update acia.asm

Fix bug in ACIA detection.

Thanks Alan!

* MacOS Build Improvement

Build script updated to improve compatibility with MacOS.

Credit to Fredrik Axtelius for this.

* HBIOS Makefile - use env vars for target

Allow build ROM targets to be restricted to just one platform thru use of ENV vars:

ROM_PLATFORM - if defined to a known platform, only this platform is build - defaults to std config
ROM_CONFIG - sets the desired platform config - defaults to std

if the above ENVs are not defined, builds all ROMs

* Added some more gitignores

* Whitespace changes (crlf)

* HBIOS: Force the assembly to fail for vdu drivers if function table count is not correct

* Whitespace: trailing whitespaces

* makefile: updated some make scripts to use  when calling subdir makefiles

* linux build: update to Build.sh fix for some platforms

The initialization of the Rom dat file used the pipe (|) operator to build an initial empty file.

But the pipe operator | may sometimes return a non-zero exit code for some linux platforms, if the
the streams are closed before dd has fully processed the stream.

This issue occured on a travis linux ubuntu image.

Solution was to change to redirection.

* Bump version

* Enhance CTC periodic timer

Add ability to use TIMER mode in CTC driver to generate priodic interrupts.

* HBIOS: Added support for sound drivers

New sound driver support with initial support for the SN76489 chip

New build configuration entry:
* SN76489ENABLE

Ports are currently locked in with:
* SN76489_PORT_LEFT       .EQU    $FC     ; PORTS FOR ACCESSING THE SN76489 CHIP (LEFT)
* SN76489_PORT_RIGHT      .EQU    $F8     ; PORTS FOR ACCESSING THE SN76489 CHIP (LEFT)

* Miscellaneous Cleanup

No functional changes.

Co-authored-by: curt mayer <curt@zen-room.org>
Co-authored-by: Wayne Warthen <wwarthen@gmail.com>
Co-authored-by: ed <linux@maidavale.org>
Co-authored-by: Dean Netherton <dnetherton@dius.com.au>
Co-authored-by: ed <ed@maidavale.org>
Co-authored-by: Phillip Stevens <phillip.stevens@gmail.com>
Co-authored-by: Dean Netherton <dean.netherton@gmail.com>
2020-04-24 06:17:22 +08:00

1235 lines
28 KiB
NASM
Raw Blame History

; 2048
;
; Join the numbers and get to the 2048 tile.
;
; Commands:
;
; Use the arrow keys to move the tiles.
; When two tiles with the same number touch, they merge into one.
;
; w, s, a, d - Alternate keys (up, down, left, right)
; CTRL-E, CTRL-X, CTRL-S, CTRL-D - Wordstar-compatible control keys
;
; Compile:
;
; TASM -80 -b 2048.ASM 2048.COM
;
; Credits:
;
; Based on 2048 created by Gabriele Cirulli.
; Based on the console version for GNU/Linux by Maurits van der Schee
; Ported to Z80 and CP/M by Marco Maccaferri <macca@maccasoft.com>
; Ported to ROMWBW ROM by Phil Summers difficultylevelhigh@gmail from https://github.com/maccasoft/z80-apps/2048.asm
CTRL_A .EQU 1
CTRL_B .EQU 2
CTRL_C .EQU 3
CTRL_D .EQU 4
CTRL_E .EQU 5
CTRL_F .EQU 6
CTRL_G .EQU 7
CTRL_H .EQU 8
CTRL_I .EQU 9
CTRL_J .EQU 10
CTRL_K .EQU 11
CTRL_L .EQU 12
CTRL_M .EQU 13
CTRL_N .EQU 14
CTRL_O .EQU 15
CTRL_P .EQU 16
CTRL_Q .EQU 17
CTRL_R .EQU 18
CTRL_S .EQU 19
CTRL_T .EQU 20
CTRL_U .EQU 21
CTRL_V .EQU 22
CTRL_W .EQU 23
CTRL_X .EQU 24
CTRL_Y .EQU 25
CTRL_Z .EQU 26
BEL .EQU 07H
FF .EQU 0CH
CR .EQU 0DH
LF .EQU 0AH
EOS .EQU 24H
;BDOS .EQU 0005H
BOARD_X .EQU 25H
BOARD_Y .EQU 06H
#include "std.asm"
.ORG GAM_LOC
S2048: LD A,R
LD (RAND16+1),A
LD A,R
LD (RAND16+2),A
LD B,VAREND-BOARD
LD HL,BOARD
XOR A
CLRBOARD: LD (HL),A
INC HL
DJNZ CLRBOARD
LD DE,INIT
; LD C,09H
; CALL BDOS
CALL PRTSTRDE
CALL ADDRANDOM
CALL ADDRANDOM
CALL DRAWBORDER
CALL DRAWBOARD
LOOP2 LD A,BOARD_X-3
LD (XPOS),A
LD A,BOARD_Y
ADD A,13H
DAA
LD (YPOS),A
CALL GOTOXY
LD DE,MSG1
; LD C,09H
; CALL BDOS
CALL PRTSTRDE
LOOP:
; LD C,06H
; LD E,0FFH
; CALL BDOS
; CP 0
; JP Z,LOOP
CALL CIN
CP 'a'
JP C,K3
CP '{'
JP NC,K3
AND 5FH
K3 CP CTRL_C
JP Z,EXIT
CP 1BH
JP Z,K1
CP CTRL_E
JP Z,TOP
CP CTRL_X
JP Z,BOTTOM
CP CTRL_D
JP Z,RIGHT
CP CTRL_S
JP Z,LEFT
CP 'W'
JP Z,TOP
CP 'S'
JP Z,BOTTOM
CP 'D'
JP Z,RIGHT
CP 'A'
JP Z,LEFT
CP '8'
JP Z,TOP
CP '2'
JP Z,BOTTOM
CP '6'
JP Z,RIGHT
CP '4'
JP Z,LEFT
CP 'Q'
JP Z,QUIT
; LD C,02H
; LD E,BEL
; CALL BDOS
; CALL COUTE
JP LOOP
K1:
; LD C,06H
; LD E,0FFH
; CALL BDOS
; CP 0
; JP Z,K1
CALL CIN
CP '['
JP NZ,LOOP
K4:
; LD C,06H
; LD E,0FFH
; CALL BDOS
; CP 0
; JP Z,K4
CALL CIN
K2 CP 'A'
JP Z,TOP
CP 'B'
JP Z,BOTTOM
CP 'C'
JP Z,RIGHT
CP 'D'
JP Z,LEFT
; LD C,02H
; LD E,BEL
; CALL BDOS
; CALL COUTE
JP LOOP
LOOP1 LD A,(MOVED)
CP 0
JP Z,LOOP
CALL DRAWBOARD
CALL ADDRANDOM
CALL DRAWBOARD
CALL ISOVER
CP 1
JP Z,GAMEOVER
JP LOOP
TOP:
CALL ROTATE
CALL ROTATE
CALL ROTATE
CALL MOVEMERGE
CALL ROTATE
JP LOOP1
BOTTOM:
CALL ROTATE
CALL MOVEMERGE
CALL ROTATE
CALL ROTATE
CALL ROTATE
JP LOOP1
RIGHT:
CALL ROTATE
CALL ROTATE
CALL MOVEMERGE
CALL ROTATE
CALL ROTATE
JP LOOP1
LEFT:
CALL MOVEMERGE
JP LOOP1
QUIT:
LD A,BOARD_X-3
LD (XPOS),A
LD A,BOARD_Y
ADD A,13H
DAA
LD (YPOS),A
CALL GOTOXY
LD DE,MSG2
; LD C,09H
; CALL BDOS
CALL PRTSTRDE
Q1:
; LD C,06H
; LD E,0FFH
; CALL BDOS
; CP 0
; JP Z,Q1
CALL CIN
CP 'y'
JP Z,EXIT
CP 'Y'
JP Z,EXIT
CP 'n'
JP Z,LOOP2
CP 'N'
JP Z,LOOP2
CP 'R'
JP S2048
CP 'r'
JP S2048
; LD C,02H
; LD E,BEL
; CALL BDOS
; CALL COUTE
JP Q1
GAMEOVER:
LD A,BOARD_X-3
LD (XPOS),A
LD A,BOARD_Y+13H
DAA
LD (YPOS),A
CALL GOTOXY
LD DE,MSG3
; LD C,09H
; CALL BDOS
CALL PRTSTRDE
GAMEMORE: CALL CIN
CP 'y'
JP Z,S2048
CP 'Y'
JP Z,S2048
CP 'n'
JP Z,EXIT
CP 'N'
JP Z,EXIT
JR GAMEMORE
EXIT:
LD DE,TERM
; LD C,09H
; CALL BDOS
CALL PRTSTRDE
LD A,00H
LD HL,0000H
JP 0FFF9H
; RET
ISOVER:
LD A,1
LD (RESULT),A
LD B,16
LD HL,BOARD
G1: LD A,(HL)
CP 13
JP Z,GR
INC HL
DJNZ G1
CALL CANMERGE
CP 0
JP Z,G2
XOR A
LD (RESULT),A
G2: CALL ROTATE
CALL CANMERGE
CP 0
JP Z,G3
XOR A
LD (RESULT),A
G3: CALL ROTATE
CALL CANMERGE
CP 0
JP Z,G4
XOR A
LD (RESULT),A
G4: CALL ROTATE
CALL CANMERGE
CP 0
JP Z,G5
XOR A
LD (RESULT),A
G5: CALL ROTATE
GR: LD A,(RESULT)
RET
CANMERGE:
LD HL,BOARD
LD (BOARDPTR),HL
CALL TESTMERGE
CP 1
RET Z
LD HL,BOARD+4
LD (BOARDPTR),HL
CALL TESTMERGE
CP 1
RET Z
LD HL,BOARD+8
LD (BOARDPTR),HL
CALL TESTMERGE
CP 1
RET Z
LD HL,BOARD+12
LD (BOARDPTR),HL
CALL TESTMERGE
RET
TESTMERGE:
LD DE,(BOARDPTR)
LD HL,(BOARDPTR)
INC HL
LD B,3
M8 LD A,(DE)
CP 0
JP Z,M7
LD C,(HL)
CP C
JP Z,M7
INC HL
INC DE
DJNZ M8
XOR A
RET
M7 LD A,1
RET
MOVEMERGE:
XOR A
LD (MOVED),A
LD HL,BOARD
LD (BOARDPTR),HL
CALL MERGE
LD HL,BOARD+4
LD (BOARDPTR),HL
CALL MERGE
LD HL,BOARD+8
LD (BOARDPTR),HL
CALL MERGE
LD HL,BOARD+12
LD (BOARDPTR),HL
CALL MERGE
RET
ADDRANDOM:
LD DE,0
LD B,16
LD HL,BOARD
N2 LD A,(HL)
CP 0
JP NZ,N1
INC E
N1 INC HL
DJNZ N2
LD A,E
CP 0
RET Z
PUSH DE
CALL RAND16
POP DE
CALL DIV16
LD B,L
N4: LD C,16
LD HL,BOARD
N5: LD A,(HL)
CP 0
JP NZ,N3
DEC B
JP Z,N6
N3: INC HL
DEC C
JP NZ,N5
JP N4
N6 PUSH HL
CALL RAND16
LD DE,10
CALL DIV16
LD DE,9
CALL DIV16
LD A,E
INC A
POP HL
LD (HL),A
RET
MERGE:
CALL COLLAPSE
; merge tiles with same value
LD DE,(BOARDPTR)
LD HL,(BOARDPTR)
INC HL
LD B,3
M6: LD A,(DE)
CP 0
RET Z
LD C,(HL)
CP C
JP NZ,M5
INC A
LD (DE),A
CALL ADDPOINTS
XOR A
LD (HL),A
LD A,(MOVED)
INC A
LD (MOVED),A
PUSH DE
PUSH HL
CALL COLLAPSE
POP HL
POP DE
M5: INC HL
INC DE
DJNZ M6
RET
COLLAPSE:
; collapse all tiles
LD HL,(BOARDPTR)
LD B,4 ; find first zero
M1: LD A,(HL)
CP 0
JP Z,M2
INC HL
DJNZ M1
RET
M2: LD E,L ; DE=fist zero position
LD D,H
M4: LD A,(HL) ; move all non-zero tiles
CP 0
JP Z,M3
LD (DE),A
INC DE
XOR A
LD (HL),A
LD A,(MOVED)
INC A
LD (MOVED),A
M3: INC HL
DJNZ M4
RET
ROTATE:
; outer ring
LD B,3
R1: LD A,(BOARD+3)
LD C,A
LD A,(BOARD+2)
LD (BOARD+3),A
LD A,(BOARD+1)
LD (BOARD+2),A
LD A,(BOARD+0)
LD (BOARD+1),A
LD A,(BOARD+4)
LD (BOARD+0),A
LD A,(BOARD+8)
LD (BOARD+4),A
LD A,(BOARD+12)
LD (BOARD+8),A
LD A,(BOARD+13)
LD (BOARD+12),A
LD A,(BOARD+14)
LD (BOARD+13),A
LD A,(BOARD+15)
LD (BOARD+14),A
LD A,(BOARD+11)
LD (BOARD+15),A
LD A,(BOARD+7)
LD (BOARD+11),A
LD A,C
LD (BOARD+7),A
DJNZ R1
; inner ring
LD A,(BOARD+6)
LD C,A
LD A,(BOARD+5)
LD (BOARD+6),A
LD A,(BOARD+9)
LD (BOARD+5),A
LD A,(BOARD+10)
LD (BOARD+9),A
LD A,C
LD (BOARD+10),A
RET
ADDPOINTS:
PUSH DE
PUSH HL
LD E,A
LD D,0
LD HL,POINTS
ADD HL,DE
ADD HL,DE
LD E,(HL)
INC HL
LD D,(HL)
LD A,(SCORE+3)
ADD A,E
DAA
LD (SCORE+3),A
LD A,(SCORE+2)
ADC A,D
DAA
LD (SCORE+2),A
LD A,(SCORE+1)
ADC A,00H
DAA
LD (SCORE+1),A
LD A,(SCORE)
ADC A,00H
DAA
LD (SCORE),A
POP HL
POP DE
RET
PRINTSCORE:
LD HL,SCORE
LD DE,SCORESTR+4
LD B,4
P1 LD A,(HL)
RRA
RRA
RRA
RRA
AND 0FH
ADD A,30H
LD (DE),A
INC DE
LD A,(HL)
AND 0FH
ADD A,30H
LD (DE),A
INC DE
INC HL
DJNZ P1
LD HL,SCORESTR+4
LD B,7
P3 LD A,(HL)
CP 30H
JP NZ,P2
LD A,20H
LD (HL),A
INC HL
DJNZ P3
P2 LD A,BOARD_X
ADD A,16H
DAA
LD (XPOS),A
LD A,BOARD_Y
SUB 02H
DAA
LD (YPOS),A
CALL GOTOXY
LD DE,SCORESTR
; LD C,09H
; CALL BDOS
CALL PRTSTRDE
RET
DRAWBORDER:
LD A,BOARD_X
LD (XPOS),A
LD A,BOARD_Y
SUB 02H
DAA
LD (YPOS),A
CALL GOTOXY
LD DE,MSG4
; LD C,09H
; CALL BDOS
CALL PRTSTRDE
LD A,BOARD_X
SUB 01H
DAA
LD (XPOS),A
LD A,BOARD_Y
SUB 01H
DAA
LD (YPOS),A
CALL GOTOXY
LD DE,TOPBORDER
; LD C,09H
; CALL BDOS
CALL PRTSTRDE
LD B,12
L4 PUSH BC
LD A,(YPOS)
ADD A,1
DAA
LD (YPOS),A
CALL GOTOXY
; LD C,02H
LD E,0DBH
; CALL BDOS
CALL COUTE
LD DE,ADVANCE
; LD C,09H
; CALL BDOS
CALL PRTSTRDE
; LD C,02H
LD E,0DBH
; CALL BDOS
CALL COUTE
POP BC
DEC B
JP NZ,L4
LD A,(YPOS)
ADD A,1
DAA
LD (YPOS),A
CALL GOTOXY
LD DE,BTMBORDER
; LD C,09H
; CALL BDOS
CALL PRTSTRDE
RET
DRAWBOARD:
CALL PRINTSCORE
LD A,BOARD_X
LD (XPOS),A
LD A,BOARD_Y
SUB 01H
DAA
LD (YPOS),A
LD HL,BOARD
LD B,4
L1 PUSH BC
PUSH HL
LD A,(YPOS)
ADD A,1
DAA
LD (YPOS),A
CALL GOTOXY
POP HL
PUSH HL
LD E,(HL)
CALL PRINTSPACE
POP HL
INC HL
PUSH HL
LD E,(HL)
CALL PRINTSPACE
POP HL
INC HL
PUSH HL
LD E,(HL)
CALL PRINTSPACE
POP HL
INC HL
PUSH HL
LD E,(HL)
CALL PRINTSPACE
CALL NEWLINE
POP HL
DEC HL
DEC HL
DEC HL
PUSH HL
LD A,(YPOS)
ADD A,1
DAA
LD (YPOS),A
CALL GOTOXY
POP HL
PUSH HL
LD E,(HL)
CALL PRINTLABEL
POP HL
INC HL
PUSH HL
LD E,(HL)
CALL PRINTLABEL
POP HL
INC HL
PUSH HL
LD E,(HL)
CALL PRINTLABEL
POP HL
INC HL
PUSH HL
LD E,(HL)
CALL PRINTLABEL
CALL NEWLINE
POP HL
DEC HL
DEC HL
DEC HL
PUSH HL
LD A,(YPOS)
ADD A,1
DAA
LD (YPOS),A
CALL GOTOXY
POP HL
PUSH HL
LD E,(HL)
CALL PRINTSPACE
POP HL
INC HL
PUSH HL
LD E,(HL)
CALL PRINTSPACE
POP HL
INC HL
PUSH HL
LD E,(HL)
CALL PRINTSPACE
POP HL
INC HL
PUSH HL
LD E,(HL)
CALL PRINTSPACE
CALL NEWLINE
POP HL
INC HL
POP BC
DEC B
JP NZ,L1
RET
PRINTSPACE:
LD D,0
PUSH DE
LD HL,COLORPTR
ADD HL,DE
ADD HL,DE
LD E,(HL)
INC HL
LD D,(HL)
; LD C,09H
; CALL BDOS
CALL PRTSTRDE
POP DE
LD DE,SPACER
; LD C,09H
; CALL BDOS
CALL PRTSTRDE
RET
PRINTLABEL:
LD D,0
PUSH DE
LD HL,COLORPTR
ADD HL,DE
ADD HL,DE
LD E,(HL)
INC HL
LD D,(HL)
; LD C,09H
; CALL BDOS
CALL PRTSTRDE
POP DE
PUSH DE
LD HL,LABELPTR
ADD HL,DE
ADD HL,DE
LD E,(HL)
INC HL
LD D,(HL)
; LD C,09H
; CALL BDOS
CALL PRTSTRDE
POP DE
RET
GOTOXY:
; LD C,02H
LD E,1BH
; CALL BDOS
CALL COUTE
; LD C,02H
LD E,'['
; CALL BDOS
CALL COUTE
LD A,(YPOS)
CP 10H
JP C,L2
RRA
RRA
RRA
RRA
AND 0FH
ADD A,'0'
; LD C,02H
LD E,A
; CALL BDOS
CALL COUTE
LD A,(YPOS)
L2 AND 0FH
ADD A,'0'
; LD C,02H
LD E,A
; CALL BDOS
CALL COUTE
; LD C,02H
LD E,3BH
; CALL BDOS
CALL COUTE
LD A,(XPOS)
CP 10H
JP C,L3
RRA
RRA
RRA
RRA
AND 0FH
ADD A,'0'
; LD C,02H
LD E,A
; CALL BDOS
CALL COUTE
LD A,(XPOS)
L3 AND 0FH
ADD A,'0'
; LD C,02H
LD E,A
; CALL BDOS
CALL COUTE
; LD C,02H
LD E,'H'
; CALL BDOS
CALL COUTE
RET
NEWLINE:
; LD C,02H
LD E,CR
; CALL BDOS
CALL COUTE
; LD C,02H
LD E,LF
; CALL BDOS
CALL COUTE
RET
RAND16 LD DE,0
LD A,D
LD H,E
LD L,253
OR A
SBC HL,DE
SBC A,0
SBC HL,DE
LD D,0
SBC A,D
LD E,A
SBC HL,DE
JR NC,RAND
INC HL
RAND LD (RAND16+1),HL
RET
DIV16:
LD A,H ; HL = HL % DE
LD C,L
LD HL,0
LD B,16
DL1 SCF
RL C
RLA
ADC HL,HL
SBC HL,DE
JR NC,$+4
ADD HL,DE
DEC C
DJNZ DL1
LD D,A ; DE = HL / DE
LD E,C
RET
SPACER .DB " ", '$'
LABELPTR: .DW LABELS
.DW LABELS + 8
.DW LABELS + 16
.DW LABELS + 24
.DW LABELS + 32
.DW LABELS + 40
.DW LABELS + 48
.DW LABELS + 56
.DW LABELS + 64
.DW LABELS + 72
.DW LABELS + 80
.DW LABELS + 88
.DW LABELS + 96
.DW LABELS + 104
LABELS .DB " ", EOS
.DB " 2 ", EOS
.DB " 4 ", EOS
.DB " 8 ", EOS
.DB " 16 ", EOS
.DB " 32 ", EOS
.DB " 64 ", EOS
.DB " 128 ", EOS
.DB " 256 ", EOS
.DB " 512 ", EOS
.DB " 1024 ", EOS
.DB " 2048 ", EOS
.DB " 4096 ", EOS
.DB " 8192 ", EOS
COLORPTR: .DW COLORS
.DW COLORS + 9
.DW COLORS + 18
.DW COLORS + 27
.DW COLORS + 36
.DW COLORS + 45
.DW COLORS + 54
.DW COLORS + 63
.DW COLORS + 72
.DW COLORS + 81
.DW COLORS + 90
.DW COLORS + 99
.DW COLORS + 108
.DW COLORS + 117
COLORS .DB 1BH, "[40;37m", EOS ; 0
.DB 1BH, "[44;37m", EOS ; 2
.DB 1BH, "[46;37m", EOS ; 4
.DB 1BH, "[42;37m", EOS ; 8
.DB 1BH, "[43;30m", EOS ; 16
.DB 1BH, "[45;37m", EOS ; 32
.DB 1BH, "[41;37m", EOS ; 64
.DB 1BH, "[47;30m", EOS ; 128
.DB 1BH, "[44;37m", EOS ; 256
.DB 1BH, "[46;37m", EOS ; 512
.DB 1BH, "[42;37m", EOS ; 1024
.DB 1BH, "[43;30m", EOS ; 2048
.DB 1BH, "[45;37m", EOS ; 4096
.DB 1BH, "[41;37m", EOS ; 8192
POINTS .DW 0000H
.DW 0000H
.DW 0004H
.DW 0008H
.DW 0016H
.DW 0032H
.DW 0064H
.DW 0128H
.DW 0256H
.DW 0512H
.DW 1024H
.DW 2048H
.DW 4096H
.DW 8192H
INIT: .DB 1BH, "[2J", EOS
TERM: .DB 1BH, "[?25h"
RESET: .DB 1BH, "[0m", EOS
ADVANCE: .DB 1BH, "[28C", EOS
TOPBORDER:
.DB 1BH, "[47;37m"
.DB 0DCH
.DB 0DCH, 0DCH, 0DCH, 0DCH, 0DCH, 0DCH, 0DCH
.DB 0DCH, 0DCH, 0DCH, 0DCH, 0DCH, 0DCH, 0DCH
.DB 0DCH, 0DCH, 0DCH, 0DCH, 0DCH, 0DCH, 0DCH
.DB 0DCH, 0DCH, 0DCH, 0DCH, 0DCH, 0DCH, 0DCH
.DB 0DCH, EOS
BTMBORDER .DB 0DFH
.DB 0DFH, 0DFH, 0DFH, 0DFH, 0DFH, 0DFH, 0DFH
.DB 0DFH, 0DFH, 0DFH, 0DFH, 0DFH, 0DFH, 0DFH
.DB 0DFH, 0DFH, 0DFH, 0DFH, 0DFH, 0DFH, 0DFH
.DB 0DFH, 0DFH, 0DFH, 0DFH, 0DFH, 0DFH, 0DFH
.DB 0DFH, 1BH, "[0m", EOS
MSG1: .DB 1BH, "[0m"
.DB "UDLR = wsad ^E^X^S^D 8246 : Q=QUIT"
.DB EOS
MSG2: .DB 1BH, "[0m"
.DB " QUIT or RESTART (y/n/r) "
.DB EOS
MSG3: .DB 1BH, "[0m"
.DB " GAME OVER! PLAY AGAIN (y/n) "
.DB BEL, CR, LF, EOS
MSG4: .DB 1BH, "[0m"
.DB "2048 pts"
.DB EOS
; HBIOS functions replacing BDOS functions
;
;
; PRINT A STRING AT ADDRESS SPECIFIED IN DE
; STRING MUST BE TERMINATED BY '$'
;
PRTSTRDE:
PUSH HL
LD H,D
LD L,E
CALL PRTSTR
POP HL
RET
;
; PRINT A STRING AT ADDRESS SPECIFIED IN HL
; STRING MUST BE TERMINATED BY '$'
; USAGE:
; LD HL,MYSTR
; CALL PRTSTR
; ...
; MYSTR: .DB "HELLO$"
;
PRTSTR:
LD A,(HL)
INC HL
CP '$'
RET Z
CALL COUT
JR PRTSTR
;
; OUTPUT CHARACTER IN A TO CONSOLE DEVICE
;
COUT: PUSH AF
PUSH BC
PUSH DE
LD B,01H
LD C,0
LD E,A
RST 08
POP DE
POP BC
POP AF
RET
;
; OUTPUT CHARACTER IN A TO CONSOLE DEVICE
;
COUTE: PUSH AF
LD A,E
CALL COUT
POP AF
RET
;
; WAIT FOR A CHARACTER FROM THE CONSOLE DEVICE AND RETURN IT IN A
;
CIN: PUSH BC
LD B,00H
LD C,00H
RST 08
LD A,E
POP BC
RET
; variables
BOARD:
.DB 00, 00, 00, 00
.DB 00, 00, 00, 00
.DB 00, 00, 00, 00
.DB 00, 00, 00, 00
XPOS: .DB 0
YPOS: .DB 0
BOARDPTR: .DW 0
MOVED: .DB 0
RESULT: .DB 0
SCORE .DB 00H, 00H, 00H, 00H
VAREND .EQU $
SCORESTR .DB 1BH, "[0m $"
LASTBYTE .EQU $
SLACK .EQU (GAM_END - LASTBYTE)
.FILL SLACK,'e'
;
.ECHO "GAME space remaining: "
.ECHO SLACK
.ECHO " bytes.\n"
.END
Reference in New Issue View Git Blame Copy Permalink