Возможно есть смысл открыть новую тему, но всё это крутится вокруг z88dk, языка C и т.д.
Код написан ещё в мае, но это не важно!
// zcc +zx -vn -startup=30 -clib=new -create-app minesweaper.c -o minesweaper
// Лицензия: GNU AFFERO GENERAL PUBLIC LICENSE
// Version 3, 19 November 2007
// Copyright (C) 2007 Free Software Foundation, Inc. <https://fsf.org/>
// VER 19.10.2026 (c) Maxim Sivkov
// Реализация игры Minesweeper под z88dk
// с целью изучения языка C
// под платформу ZX Spectrum 48K.
// https://github.com/z88dk/z88dk
// Размер минного поля фиксированный 20 на 20. Мин 40.
// Нюанс. Игра также закончится, если пометить ячейку без мины.
// Не используются массивы.
// В качестве массива используется экранная память.
// Вероятно возникнет вопрос к коду, и к чему такие сложности.
// Но как оказалось, у режима -startup=30 есть много ограничений.
// И сразу ответ на вопрос, а зачем тебе режим -startup=30.
// В документации написано, что: 32x24 rom print routine, no scanf
// much smaller than other crts because the rom is used for output
// А я использую только 32x24 всегда и уменьшение размера
// компилируемого кода при использовании ROM очень критично.
// В любом случае, я получил огромное удовольствие от программирования
// на C для моего любимого ZX Spectrum 48K так же как я это делал на
// Boriel Basic и для Компонентного Паскаля/Оберона на XDevLite.
// Планирую написать тоже самое на PASTA80, но это не точно.
#include <arch/zx.h>
#include <stdio.h>
#include <stdlib.h> // for rand()
#include <input.h>
#include <sound.h>
#include <sound/bit.h>
#include <im2.h> // для работы с прерываниями
#define ATTR_BASE 0x5800 // Адрес области атрибутов в памяти Spectrum
unsigned char curX=10,curY=10,nMines=0,fExit=0,;
uint16_t nKey;
uint16_t frames=0;
// Прототип функции (объявление)
void resetDebug(void);
void putAT(unsigned char x, unsigned char y)
{
__asm
LD A,22 ; AT command
RST 16
ld hl,2
add hl,sp ; skip over return address on stack
ld a,(hl) ; y
RST 16
inc hl
inc hl
ld a,(hl) ; x
RST 16
__endasm;
}
void putINK(unsigned char colour)
{
__asm
ld ix,2
add ix,sp
LD A,16 ; INK command
RST 16
LD A,(ix+0) ; colour
RST 16
__endasm;
}
void putPAPER(unsigned char colour)
{
__asm
ld ix,2
add ix,sp
LD A,17 ; PAPER command
RST 16
LD A,(ix+0) ; colour
RST 16
__endasm;
}
void putFLASH(unsigned char set)
{
__asm
ld ix,2
add ix,sp
LD A,18 ; FLASH command
RST 16
LD A,(ix+0) ; set
RST 16
__endasm;
}
void putBRIGHT(unsigned char set)
{
__asm
ld ix,2
add ix,sp
LD A,19 ; BRIGHT command
RST 16
LD A,(ix+0) ; set
RST 16
__endasm;
}
int screenstr(unsigned char x, unsigned char y)
{
__asm
// asm_zx_cxy2saddr.asm adapted for ix
ld ix,2
add ix,sp
ld a,(ix+0) // y coordinate
rrca
rrca
rrca
and $e0
or (ix+2) // x coordinate
ld l,a
ld a,(ix+0) // y coordinate
and $18
or $40
ld h,a
// zx_screenstr_callee.asm
// hl = screen address
ld c, 96 // number of chars to match against
ld de, (23606) // use CHARS system variable to locate character set bitmap
inc d
charloop:
ld b, 8 // match 8 pixel rows
push hl
mloop:
ld a, (de)
xor (hl)
jr z, cont1 // jump if bit patterns match
inc a
jr nz, nomatch // jump if bit patterns are not inverses
cont1:
inc de
inc h
djnz mloop
match:
pop hl
ld a, 128
sub c
ld l, a // hl = ascii char code
ld h, b
ret
nomatch:
ld a, b //Remaining rows in font left
add a, e
ld e, a
jp nc, cont2
inc d
cont2:
pop hl
dec c
jp nz, charloop
ld l, c
ld h, c // return with 0 to indicate no match
scf
ret
__endasm
}
// Функция для получения seed из системного таймера
uint16_t get_seed_from_frames() {
// Берем два байта системной переменной FRAMES по адресу 23672
frames = *((uint16_t*)23672);
return frames;
}
void initgame(void)
{
unsigned char s,i,j,rx,ry;
zx_border(INK_BLACK);
zx_cls(INK_WHITE | PAPER_BLACK);
putAT(0,0);
putINK(7);
putPAPER(0);
puts("\x84\x83\x83\x83\x83Maxim_Sivkov\x83\x83\x83\x83\x88");
for (i=1; i<21; i++)
{
putAT(0,i);
puts("\x8A");
putAT(1,i);
putPAPER(7);
putINK(1);
for (j=1; j<21; j++)
{
putAT(j,i);
putchar(' ');
}
putPAPER(0);
putINK(7);
putAT(21,i);
puts("\x85");
}
putAT(0,i);
puts("\x81\x8C\x8C\x8C\x8C\x8C\x8C\x8C\x8C\x8C\x8C\x8C\x8C\x8C\x8C\x8C\x8C\x8C\x8C\x8C\x8C\x82");
putPAPER(0);
putINK(2); putAT(24,2); puts("Press"); putAT(23,3); puts("any key");
__asm__("ei"); // Включаем прерывания
in_wait_key();
nKey = in_inkey();
in_wait_nokey();
__asm__("di"); // Отключение прерываний
resetDebug();
srand(get_seed_from_frames());
putINK(7);
putPAPER(7);
for (i=1; i<41; i++)
{
rx = rand()%20+1;
ry = rand()%20+1;
s = screenstr(rx,ry);
if (s==42) // char '*'
{
i--;
}
else
{
putAT(rx,ry);
putchar('*');
}
}
putPAPER(0);
putINK(6); putAT(22,6); puts("Keys:");
putINK(7); putAT(22,7); puts("q,a,o,p -");
putINK(6); putAT(22,8); puts("Move cursr");
putINK(7); putAT(22,9); puts("space -");
putINK(6); putAT(22,10);puts("Open field");
putINK(7); putAT(22,11);puts("m -");
putINK(6); putAT(22,12);puts("Mark mine");
putINK(7); putAT(22,13);puts("x - ");
putINK(6); putAT(22,14);puts("Exit");
putINK(7); putAT(22,15);puts("d -");
putINK(6); putAT(22,16);puts("Debug Mode");
// putINK(2); putAT(24,18);puts("Press");
// putAT(23,19); puts("any key");
}
// Функция получения цвета фона
uint8_t get_paper_from_attr(uint8_t attr)
{
return (attr >> 3) & 0x07;
}
// Чтение атрибута по координатам
uint8_t read_attr(unsigned char col, unsigned char row)
{
uint8_t *attr_ptr = (uint8_t *)(ATTR_BASE + (row * 32) + col);
return *attr_ptr;
}
// Запись атрибута по координатам
void write_attr(unsigned char col, unsigned char row, uint8_t attr) {
uint8_t *attr_ptr = (uint8_t *)(ATTR_BASE + (row * 32) + col);
*attr_ptr = attr;
}
void hideCursor(void)
{
uint8_t old_attr = read_attr(curX, curY);
uint8_t new_attr = (old_attr & 0x07) | (((old_attr >> 3) & 0x07) << 3) | (0x00 << 6) | (((old_attr >> 7) & 0x01) << 7);
write_attr(curX, curY,new_attr);
}
void showCursor(void)
{
uint8_t old_attr = read_attr(curX, curY);
uint8_t new_attr = (old_attr & 0x07) | (((old_attr >> 3) & 0x07) << 3) | (0x01 << 6) | (((old_attr >> 7) & 0x01) << 7);
write_attr(curX, curY,new_attr);
}
void moveCursor(char dx,dy)
{
if ((curX+dx)>0 && (curX+dx)<21 && (curY+dy)>0 && (curY+dy)<21)
{
bit_click(); // Короткий щелчок
hideCursor();
curX = curX+dx;
curY = curY+dy;
showCursor();
}
else
{
bit_beepfx(BEEPFX_ALARM_1);
}
}
void debug(void)
{
unsigned char s;
putPAPER(0);
putINK(7); putAT(22,0); puts("Debug:"); putINK(2); putAT(28,0); puts(" ON");
putINK(6); putAT(22,1); puts("Key:"); putINK(2); putAT(26,1); printf("%c",nKey);
putINK(6); putAT(22,2); puts("X="); putINK(2); putAT(24,2); printf("%d ",curX);
putINK(6); putAT(27,2); puts("Y="); putINK(2); putAT(29,2); printf("%d ",curY);
s = screenstr(curX,curY);
putINK(6); putAT(22,3); puts("C$=("); putINK(4); putAT(26,3); printf("%c",s); putINK(6); putAT(27,3); printf(")%d ",s);
putINK(6); putAT(22,4); puts("Mines="); putINK(7); putAT(28,4); printf("%d ",nMines);
// putINK(6); putAT(22,5); puts("f="); putINK(7); putAT(24,5); printf("%d ",frames);
}
void resetDebug(void)
{
unsigned char i;
putINK(7); putPAPER(0); putAT(22,0); puts("Debug:"); putINK(7); putAT(28,0); puts("OFF");
putINK(0); putPAPER(0);
for (i=1; i<4; i++)
{
putAT(22,i); puts(" ");
}
}
void markMine(void)
{
if (screenstr(curX,curY)!=42)
{
fExit = 11;
}
else
{
uint8_t old_attr = read_attr(curX, curY);
uint8_t paper_attr = get_paper_from_attr(old_attr);
if (paper_attr==7)
{
nMines=nMines+1;
paper_attr=1;
}
else if (paper_attr==1)
{
nMines=nMines-1;
paper_attr=7;
}
uint8_t new_attr = (old_attr & 0x07) | ((paper_attr & 0x07) << 3) | (((old_attr >> 6) & 0x01) << 6) | (((old_attr >> 7) & 0x01) << 7);
write_attr(curX, curY,new_attr);
}
if (nMines==40)
{
fExit=7;
}
}
uint8_t checkMine(int8_t xx,yy)
{
if (screenstr(xx,yy)==42) return 1;
return 0;
}
uint8_t checkCell(int8_t x,y)
{
uint8_t nM=0;
if ((x>0) && (x<21) && (y>0) && (y<21))
{
if (screenstr(x,y)==32)
{
nM=nM+checkMine(x-1,y-1)+checkMine(x,y-1)+checkMine(x+1,y-1)+checkMine(x-1,y)+checkMine(x+1,y)+checkMine(x-1,y+1)+checkMine(x,y+1)+checkMine(x+1,y+1);
if (nM>0)
{
putINK(nM-(nM>6)*6); putPAPER(7); putAT(x,y); putchar(nM+0x30);
return 1;
}
else
{
putINK(7); putPAPER(0); putAT(x,y); putchar('#');
checkCell(x-1,y-1);
checkCell(x+1,y+1);
checkCell(x+1,y-1);
checkCell(x-1,y+1);
checkCell(x-1,y);
checkCell(x+1,y);
checkCell(x,y-1);
checkCell(x,y+1);
return 0;
}
}
}
return 2;
}
void openField(void)
{
uint8_t s=screenstr(curX,curY);
if (s==42)
{
fExit=13;
putINK(2); putPAPER(7); putAT(curX,curY); putchar('*');
}
else if (s==32)
{
checkCell(curX,curY);
showCursor();
}
}
void mainloop(void)
{
unsigned char fDebug=0;
putINK(7);
putPAPER(0);
showCursor();
while(!fExit)
{
if (fDebug) {debug();}
in_wait_key();
nKey = in_inkey();
in_wait_nokey();
switch (nKey)
{
case 'o': moveCursor(-1,0); break;
case 'p': moveCursor(1,0); break;
case 'q': moveCursor(0,-1); break;
case 'a': moveCursor(0,1); break;
case 'd': fDebug = 1-fDebug; if (!fDebug) {resetDebug();} break;
case 'm': markMine(); break;
case ' ': openField(); break;
case 'x': fExit=1; break;
break;
}
}
switch (fExit)
{
case 1: putINK(2); putAT(22,19); puts("Exit Code!"); bit_beepfx(BEEPFX_POWER_OFF); break;
case 7: putINK(2); putAT(22,19); puts("WIN!"); bit_beepfx(BEEPFX_SCORE); break;
case 11: putINK(2); putAT(22,19); puts("Miss Mine!"); bit_beepfx(BEEPFX_ALARM_2); break;
case 13: putINK(2); putAT(22,19); puts("Game OVER!"); bit_beepfx(BEEPFX_FAT_BEEP_1); break;
break;
}
}
void main(void)
{
initgame();
mainloop();
}
