JailDoctor/paco
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Mes coses

Browse Source
This commit is contained in:
Raimon Zamora
2017-02-02 13:47:20 +01:00
parent 0864cdcf89
commit 6831f39d55
5 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
parser.cpp
View File

@@ -813,7 +813,7 @@ static void parse_statements() {
tkn_next(); parse_color(); break; tkn_next(); parse_color(); break;
case TOKEN_BORDER: case TOKEN_BORDER:
tkn_next(); parse_border(); break; tkn_next(); parse_border(); break;
case TOKEN_CLRSCR: case TOKEN_CLS:
tkn_next(); parse_clrscr(); break; tkn_next(); parse_clrscr(); break;
case TOKEN_WAIT: case TOKEN_WAIT:
tkn_next(); parse_wait(); break; tkn_next(); parse_wait(); break;

5
test.bas
View File

@@ -1,6 +1,6 @@
BORDER INK_BLACK BORDER INK_BLACK
COLOR INK_WHITE + PAPER_BLACK COLOR INK_WHITE + PAPER_BLACK
CLRSCR CLS
LOCATE 4 2 PRINT CHR &h87, CHR &h85, CHR &h87, CHR &h85, CHR &h87, CHR &h85, CHR &h87, CHR &h81 LOCATE 4 2 PRINT CHR &h87, CHR &h85, CHR &h87, CHR &h85, CHR &h87, CHR &h85, CHR &h87, CHR &h81
LOCATE 4 3 PRINT CHR &h85, CHR &h85, CHR &h85, CHR &h85, CHR &h85, CHR &h85, CHR &h85, CHR &h84 LOCATE 4 3 PRINT CHR &h85, CHR &h85, CHR &h85, CHR &h85, CHR &h85, CHR &h85, CHR &h85, CHR &h84
LOCATE 4 4 PRINT CHR &h87, CHR &h81, CHR &h8D, CHR &h85, CHR &h85, CHR &h85, CHR &h8D, CHR &h85 LOCATE 4 4 PRINT CHR &h87, CHR &h81, CHR &h8D, CHR &h85, CHR &h85, CHR &h85, CHR &h8D, CHR &h85
@@ -24,7 +24,7 @@ MENU_BLINK2:
W = 0 W = 0
GOTO MENU_BLINK GOTO MENU_BLINK
MAIN_GAME: MAIN_GAME:
CLRSCR CLS
GOSUB PINTA_RED GOSUB PINTA_RED
LOCATE 6 1 PRINT "0" LOCATE 6 1 PRINT "0"
LOCATE 9 1 PRINT "0" LOCATE 9 1 PRINT "0"
@@ -38,3 +38,4 @@ PINTA_RED:
PUTCHAR 7 8 &HD1 INK_WHITE + PAPER_BLACK PUTCHAR 7 8 &HD1 INK_WHITE + PAPER_BLACK
PUTCHAR 7 10 &HD1 INK_WHITE + PAPER_BLACK PUTCHAR 7 10 &HD1 INK_WHITE + PAPER_BLACK
RETURN RETURN

2
tokenizer.cpp
View File

@@ -62,7 +62,7 @@ t_token_op tkn_tokens[] = {
{ "updatescr", TOKEN_UPDATESCR }, { "updatescr", TOKEN_UPDATESCR },
{ "color", TOKEN_COLOR }, { "color", TOKEN_COLOR },
{ "border", TOKEN_BORDER }, { "border", TOKEN_BORDER },
{ "clrscr", TOKEN_CLRSCR }, { "cls", TOKEN_CLS },
{ "wait", TOKEN_WAIT }, { "wait", TOKEN_WAIT },
}; };

2
tokenizer.h
View File

@@ -67,7 +67,7 @@ enum t_tokentype {
TOKEN_UPDATESCR, TOKEN_UPDATESCR,
TOKEN_COLOR, TOKEN_COLOR,
TOKEN_BORDER, TOKEN_BORDER,
TOKEN_CLRSCR, TOKEN_CLS,
TOKEN_WAIT, TOKEN_WAIT,
}; };

2
vdp.cpp
View File

@@ -133,7 +133,7 @@ void vdp_flip() {
if (((x + 2) >= 8) && ((x + 2) < 136) && (*cm & 32)) memcpy(sbt, palette[col & 0x0F], 4); sbt += 4; if (((x + 2) >= 8) && ((x + 2) < 136) && (*cm & 32)) memcpy(sbt, palette[col & 0x0F], 4); sbt += 4;
if (((x + 3) >= 8) && ((x + 3) < 136) && (*cm & 16)) memcpy(sbt, palette[col & 0x0F], 4); sbt += 4; if (((x + 3) >= 8) && ((x + 3) < 136) && (*cm & 16)) memcpy(sbt, palette[col & 0x0F], 4); sbt += 4;
if (((x + 4) >= 8) && ((x + 4) < 136) && (*cm & 8)) memcpy(sbt, palette[col & 0x0F], 4); sbt += 4; if (((x + 4) >= 8) && ((x + 4) < 136) && (*cm & 8)) memcpy(sbt, palette[col & 0x0F], 4); sbt += 4;
if (((x + 5) >= 8) && ((x + 5) < 136) && (*cm & 4)) memcpy(sbt, palette[col & 0x0F], 4); sbt += 4; if (((x + 5) >= 8) && ((x + 5) < 136) && (*cm & 4)) memcpy(sbt, palette[col & 0x0F], 4); sbt += 4;
if (((x + 6) >= 8) && ((x + 6) < 136) && (*cm & 2)) memcpy(sbt, palette[col & 0x0F], 4); sbt += 4; if (((x + 6) >= 8) && ((x + 6) < 136) && (*cm & 2)) memcpy(sbt, palette[col & 0x0F], 4); sbt += 4;
if (((x + 7) >= 8) && ((x + 7) < 136) && (*cm & 1)) memcpy(sbt, palette[col & 0x0F], 4); sbt += (512 - 32 + 4); if (((x + 7) >= 8) && ((x + 7) < 136) && (*cm & 1)) memcpy(sbt, palette[col & 0x0F], 4); sbt += (512 - 32 + 4);
} else { } else {