Boriel Basic Forum

Welcome, Guest

You have to register before you can post on our site.

Search Forums

(Advanced Search)

Forum Statistics

» Members: 277
» Latest member: Elemento26
» Forum threads: 1,087
» Forum posts: 6,490

Full Statistics

Online Users

There are currently 109 online users.
» 0 Member(s) | 107 Guest(s)
Bing, Google

Latest Threads

GuSprites
Forum: Help & Support
Last Post: zedex82
2026-06-19, 06:39 PM
» Replies: 2
» Views: 355

New video Couse / Nuevo c...
Forum: News
Last Post: Duefectu
2026-04-29, 11:02 PM
» Replies: 0
» Views: 2,700

location of heap manageme...
Forum: Help & Support
Last Post: boriel
2026-03-07, 12:13 AM
» Replies: 1
» Views: 745

non-paged supervisor code...
Forum: Help & Support
Last Post: sdo303
2026-02-20, 06:38 PM
» Replies: 8
» Views: 1,848

How to open fuse as an ex...
Forum: How-To & Tutorials
Last Post: Duefectu
2026-02-09, 01:52 PM
» Replies: 3
» Views: 1,743

Old zxbasic game errors
Forum: Help & Support
Last Post: boriel
2025-11-09, 11:52 AM
» Replies: 7
» Views: 2,538

Error: Undefined GLOBAL l...
Forum: Help & Support
Last Post: ardentcrest
2025-11-04, 05:46 PM
» Replies: 3
» Views: 1,396

A Fast(er) Plot Routine f...
Forum: How-To & Tutorials
Last Post: tubz74
2025-10-30, 03:16 PM
» Replies: 2
» Views: 1,479

Hall of Fame - Include fo...
Forum: How-To & Tutorials
Last Post: tubz74
2025-10-28, 03:48 PM
» Replies: 0
» Views: 819

[SOLVED] Array layout bug...
Forum: Bug Reports
Last Post: Zoran
2025-10-25, 05:48 PM
» Replies: 2
» Views: 1,539

playing sound samples

Posted by: nitrofurano - 2011-10-14, 01:00 PM - Forum: Wishlist - Replies (10)

interesting would be a kind of command for playing samples, just like this type-in example found at wos repository:
http://www.worldofspectrum.org/infoseeki...id=0024188
ftp://ftp.worldofspectrum.org/pub/sincla...ampler.txt

since i knew from some magazine snippets from 80's, it seems to be not that hard to be implemented
the idea would be, somehow, we could convert a kind of .wav (or .flac, .aiff, .ogg, .mp3, .raw, etc., like from SoX or Audacity) into a kind of 8khz/1bit sound sample raw binary to be added as defb values, and play it from some zxbasiccompiler library

what do you all think? thanks!

Version 1.2.8 Released!

Posted by: boriel - 2011-10-10, 09:02 PM - Forum: ZX Basic Compiler - Replies (4)

This version is (IMHO) tested enough, and so, released as Stable.
You can download it here

NOTE: This is revision 1.2.8 s758
If you already have it, you don't need to download it again.

Changelog since 1.2.7:
* Code rearranged and reestructured for future refactorizations.
*! Complete rewritten backend (or almost!) to fix a bug in code
:generation which was being suboptimal. Now generated code is
:much faster and take less memory than before!
*+ Added support for Bitwise syntax (|, &, ~)
*! Fixed some bugs in ASM
*! Fixed some bugs in the peephole optimizer (-O3)
*! Fixed a bug with line continuation comments /' ...
*! Fixed bugs in ASM parser regarding to comments
*+ Added ATTRADDR function in <attrib.bas>
*! Many more bugs fixed related to STRING memory leak
*! Fixed a bug related to parameters.
* Some optimizations for code size and speed for FLOAT types
* Optimization for STRING parameters
* Optimization for 32 bit values
*! Fixed a bug for Uinteger/Integer arrays assignation
*! Fixed 2 bugs in CAST operation and type conversion
*! Fixed a bug in OVER attribute during PRINT
* Added PONG game example
*! Fixed a bug in POKE
*! PRINT optimized and slighty faster. Now fully compatible with
:SINCLAIR BASIC (no Out of Screen error on program exit)
*! CSRLN and POS optimized to this new PRINT SCHEME!
... and much much more

reading simultaneous keys pressed

Posted by: nitrofurano - 2011-10-08, 06:49 PM - Forum: Help & Support - Replies (6)

	i forgot how to read simultaneous keys pressed on zx-spectrum - is it from port 254? and only port 254? and how? and how can we read them in a zxbasic-compiler snippet? thanks!

equivalent of waitvbl (from Amos and sdlBasic) needed

Posted by: nitrofurano - 2011-10-08, 06:07 PM - Forum: Help & Support - Replies (2)

i tried this code

Code:
#include <print64.bas>
ink 7:paper 0:border 2: bright 1:flash 0:cls
let x=10:let y=10
printat64(y,x):print64("X")
let a$=inkey$
if a$="w" or a$="W" or a$="7" or a$=chr$(11) then printat64(y,x):print64(" "):y=y-1:printat64(y,x):print64("X"):end if
if a$="s" or a$="S" or a$="6" or a$=chr$(10) then printat64(y,x):print64(" "):y=y+1:printat64(y,x):print64("X"):end if
if a$="a" or a$="A" or a$="5" or a$=chr$(8) then printat64(y,x):print64(" "):x=x-1:printat64(y,x):print64("X"):end if
if a$="d" or a$="D" or a$="8" or a$=chr$(9) then printat64(y,x):print64(" "):x=x+1:printat64(y,x):print64("X"):end if
goto 100

but it runs too fast, and i only need to synchronize it with the display frequence (50hz or 60hz)
i think zxspectrum uses this with some z80 interrupt instruction? which one, and how can we use it inside 'asm/endasm'?

interesting performance differences with sub/endsub

Posted by: nitrofurano - 2011-10-08, 03:22 PM - Forum: Help & Support - No Replies

i were trying to make some experiences with display memory byte sequence references from coco2 (pmode 4) and msx1 (screen 2)
first i tried these:

coco2-pmode4 with sub/endsub (around 49 seconds):

Code:
dim a1, a2, v1, i as integer
sub vpokeln(a1,v1)
  let a2=16384 +  ((a1 band 31) bor ((a1 band 224)*8) bor ((a1 band 1792)/8) bor (a1 band 6144))
  if a1>=0 and a1<=6143 then: poke a2,v1:end if
  end sub
out 254,6
for i=400 to 6000
  vpokeln(i,40)
  next i
pause 0

msx1-screen2 with sub/endsub (around 60 seconds):

Code:
dim a1, a2, v1, i as integer
sub vpokech(a1,v1)
  let a2=16384+(((a1 band 7)*256) bor ((a1 band 248)/8) bor ((a1 band 1792)/8) bor (a1 band 6144))
  if a1>=0 and a1<=6143 then: poke a2,v1:end if
  end sub
out 254,6
for i=400 to 6000
  vpokech(i,40)
  next i
pause 0

but when i don't use sub/endsub, i got these results as benchmark:

coco2-pmode4 without sub/endsub (around 3 seconds):

Code:
dim i as integer
out 254,6
for i=400 to 6000
  poke 16384+((i band 31) bor ((i band 224)*8) bor ((i band 1792)/8) bor (i band 6144)),40
  next i
pause 0

msx1-screen2 with sub/endsub (around 7 seconds):

Code:
dim i as integer
out 254,6
for i=400 to 6000
  poke 16384+(((i band 7)*256) bor ((i band 248)/8) bor ((i band 1792)/8) bor (i band 6144)),40
  next i
pause 0

and i used the original zx-spectrum byte sequence display, i got this:

with sub/endsub (around 30 seconds):

Code:
dim a1, a2, v1, i as integer
sub vpokezx(a1,v1)
  let a2=16384+a1
  if a1>=0 and a1<=6143 then: poke a2,v1:end if
  end sub
out 254,6
for i=400 to 6000
  vpokezx(i,40)
  next i
pause 0

without sub/endsub (around 0.25 seconds or less):

Code:
dim i as integer
out 254,6
for i=400 to 6000
  poke 16384+i,40
  next i
pause 0

the question: what is causing so large performances differences from my expectations (i expected faster on the slower ones), and should i do for optimizing this?

64 char print - 32 lines version

Posted by: nitrofurano - 2011-10-08, 02:11 PM - Forum: Wishlist - Replies (20)

	Since zxbasic compiler has a library for 4x8 characters, how possible or easy to implement would be a 4x6 characters version?

how MojonTwin's fourspriter.bas, from library, works?

Posted by: nitrofurano - 2011-10-06, 06:29 PM - Forum: Help & Support - Replies (3)

	while browsing the compiler's content, i found './library/mj/fourspriter.bas' supposed that '#include <fourspriter.bas>' or '#include <mj/fourspriter.bas>' should be part of our snippets, but i have no idea about how to used... some ideas? thanks!

asm/endasm DEFB not accepting 0xFE or FEh instead of 254

Posted by: nitrofurano - 2011-10-06, 05:02 PM - Forum: Help & Support - Replies (2)

hi!
i always had some idea that z80 assemblers accepts byte values in hexadecimal format, instead of only decimals - i'm i wrong, or is this zxbasic compiling missing this feature? (or can we suggest this feature?)

Code:
guest@macbook_mint1 /mnt/sda4/trabalhos/programacao/8bit/zxspectrum/ftpupload/zxspectrumstuff_20111001/borielzxbasiccompiler/snippets $ zxb.py -t -B -a asm.bas Generating LALR tables
WARNING: Token 'BIN' defined, but not used
WARNING: There is 1 unused token
Generating LALR tables
WARNING: Token 'UMINUS' defined, but not used
WARNING: There is 1 unused token
asm.bas:2: Error: Syntax error. Unexpected token 'x00' [ID]
guest@macbook_mint1 /mnt/sda4/trabalhos/programacao/8bit/zxspectrum/ftpupload/zxspectrumstuff_20111001/borielzxbasiccompiler/snippets $ zxb.py -t -B -a asm.bas 
Generating LALR tables
WARNING: Token 'BIN' defined, but not used
WARNING: There is 1 unused token
Generating LALR tables
WARNING: Token 'UMINUS' defined, but not used
WARNING: There is 1 unused token
asm.bas:3: Error: Undefined label 'ffh'
guest@macbook_mint1 /mnt/sda4/trabalhos/programacao/8bit/zxspectrum/ftpupload/zxspectrumstuff_20111001/borielzxbasiccompiler/snippets $

Code:
asm
DEFB 0,1,2,3,4,5,6,7
DEFB 00h,01h,02h,03h,04h,05h,06h,07h
DEFB 0xff,0xfe,0xfd,0xfc,0xfb,0xfa,0xf9,0xf8
end asm

found a bug on draw command

Posted by: nitrofurano - 2011-10-01, 03:15 PM - Forum: Help & Support - Replies (2)

Code:
cls:out 254,6

let x1=60:let y1=60
let x2=70:let y2=50
plot x1,192-y1
draw x2-x1,y1-y2

let x1=80:let y1=60
let x2=90:let y2=70
plot x1,192-y1
draw x2-x1,y1-y2

pause 0

this code should draw two lines, not one line and one dot...

[Image: zxbasiccompilerbug.png]

bug on a bezier draw attempt

Posted by: nitrofurano - 2011-09-29, 07:28 PM - Forum: Help & Support - Replies (2)

i'm trying to draw a kind of custom simplified vectorial file, converted from postscript or svg, with a code like this:

Code:
CA=49152:LET XT=0: LET YT=0:LET CT=0

PAPER 7:BORDER 7: BRIGHT 0: INK CT: CLS: OUT 254,0

REM FILE READING

LET CM=PEEK(CA):LET CA=CA+1

IF CM=ASC("M") THEN GOSUB 5002

IF CM=ASC("L") THEN GOSUB 5102

IF CM=ASC("C") THEN GOSUB 5202

IF CM=ASC("F") THEN GOSUB 5302

IF CM=ASC("I") THEN GOSUB 5402

IF CM=ASC("Z") THEN GOSUB 5502

GOTO 1102

REM _M_ MOVE

LET XT=PEEK(CA):LET CA=CA+1:LET YT=191-PEEK(CA):CA=CA+1:RETURN

REM _L_ LINE

LET X1=PEEK(CA):LET CA=CA+1:LET Y1=191-PEEK(CA):CA=CA+1

INK CT: PLOT XT,YT: DRAW XT-X1,YT-Y1 :LET XT=X1:LET YT=Y1:RETURN

REM _C_ BEZIER

LET X1=PEEK(CA):LET CA=CA+1:LET Y1=191-PEEK(CA):LET CA=CA+1

LET X2=PEEK(CA):LET CA=CA+1:LET Y2=191-PEEK(CA):LET CA=CA+1

LET X3=PEEK(CA):LET CA=CA+1:LET Y3=191-PEEK(CA):LET CA=CA+1

LET XA=(X3)-(3*X2)+(3*X1)-(XT):LET YA=(Y3)-(3*Y2)+(3*Y1)-(YT)

LET XB=(3*X2)-(6*X1)+(3*XT):LET YB=(3*Y2)-(6*Y1)+(3*YT)

LET XC=(3*X1)-(3*XT):LET YC=(3*Y1)-(3*YT)

LET X=0: LET Y=0

FOR T=0 TO 1 STEP 0.25

LET XO=X:LET YO=Y

LET X=(((((XA*T)+XB)*T)+XC)*T)+XT

LET Y=(((((YA*T)+YB)*T)+YC)*T)+YT

IF T=0 THEN INK CT: PLOT X,Y

IF T<>0 THEN INK CT: DRAW X-XO,Y-YO

NEXT T

LET XT=X3:LET YT=Y3:RETURN

REM _F_ FILL

LET XT=PEEK(CA):LET CA=CA+1:LET YT=191-PEEK(CA):LET CA=CA+1

REM PAINT (XT,YT),CT

RETURN

REM _I_ INK COLOUR

LET CT=PEEK(CA):CA=CA+1:RETURN

REM _Z_ END OF DOCUMENT

GOTO 5502

but when i try to compile it:

Code:
guest@macbook_mint1 /mnt/sda4/emulation/zxspectrum/basic/BorielZxBasicCompiler $ zxb.py /mnt/sda4/emulation/zxspectrum/basic/bin2tap_py/zvfreader_
zxspectrum.bas -t -S 32768
zvfreader_zxspectrum.bas:31: Syntax Error. Unexpected token 'NEXT' <NEXT>
guest@macbook_mint1 /mnt/sda4/emulation/zxspectrum/basic/BorielZxBasicCompiler $

very weird... what could cause this?

Pages (101): « Previous 1 … 71 72 73 74 75 … 101 Next »

Login
Username:
Password:	Lost Password?
	Remember me