The following warnings occurred:
Warning [2] Undefined array key "attachments" - Line: 20 - File: portal.php(680) : eval()'d code PHP 8.2.31 (Linux)
File Line Function
/inc/class_error.php 157 errorHandler->error
/portal.php(680) : eval()'d code 20 errorHandler->error_callback
/portal.php 680 eval
Warning [2] Undefined array key "attachments" - Line: 20 - File: portal.php(680) : eval()'d code PHP 8.2.31 (Linux)
File Line Function
/inc/class_error.php 157 errorHandler->error
/portal.php(680) : eval()'d code 20 errorHandler->error_callback
/portal.php 680 eval
Warning [2] Undefined array key "attachments" - Line: 20 - File: portal.php(680) : eval()'d code PHP 8.2.31 (Linux)
File Line Function
/inc/class_error.php 157 errorHandler->error
/portal.php(680) : eval()'d code 20 errorHandler->error_callback
/portal.php 680 eval
Warning [2] Undefined array key "attachments" - Line: 20 - File: portal.php(680) : eval()'d code PHP 8.2.31 (Linux)
File Line Function
/inc/class_error.php 157 errorHandler->error
/portal.php(680) : eval()'d code 20 errorHandler->error_callback
/portal.php 680 eval
Warning [2] Undefined array key "attachments" - Line: 20 - File: portal.php(680) : eval()'d code PHP 8.2.31 (Linux)
File Line Function
/inc/class_error.php 157 errorHandler->error
/portal.php(680) : eval()'d code 20 errorHandler->error_callback
/portal.php 680 eval




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

Username
  

Password
  





Search Forums

(Advanced Search)

Forum Statistics
» Members: 274
» Latest member: zxspecticle
» Forum threads: 1,086
» Forum posts: 6,487

Full Statistics

Online Users
There are currently 139 online users.
» 0 Member(s) | 138 Guest(s)
Bing

Latest Threads
New video Couse / Nuevo c...
Forum: News
Last Post: Duefectu
2026-04-29, 11:02 PM
» Replies: 0
» Views: 212
location of heap manageme...
Forum: Help & Support
Last Post: boriel
2026-03-07, 12:13 AM
» Replies: 1
» Views: 485
non-paged supervisor code...
Forum: Help & Support
Last Post: sdo303
2026-02-20, 06:38 PM
» Replies: 8
» Views: 1,297
How to open fuse as an ex...
Forum: How-To & Tutorials
Last Post: Duefectu
2026-02-09, 01:52 PM
» Replies: 3
» Views: 1,389
Old zxbasic game errors
Forum: Help & Support
Last Post: boriel
2025-11-09, 11:52 AM
» Replies: 7
» Views: 2,076
Error: Undefined GLOBAL l...
Forum: Help & Support
Last Post: ardentcrest
2025-11-04, 05:46 PM
» Replies: 3
» Views: 1,080
A Fast(er) Plot Routine f...
Forum: How-To & Tutorials
Last Post: tubz74
2025-10-30, 03:16 PM
» Replies: 2
» Views: 1,179
Hall of Fame - Include fo...
Forum: How-To & Tutorials
Last Post: tubz74
2025-10-28, 03:48 PM
» Replies: 0
» Views: 630
[SOLVED] Array layout bug...
Forum: Bug Reports
Last Post: Zoran
2025-10-25, 05:48 PM
» Replies: 2
» Views: 1,217
3DOS Commands?
Forum: Help & Support
Last Post: boriel
2025-10-06, 02:54 PM
» Replies: 3
» Views: 1,380

 
  Space Ship
Posted by: symbolshift - 2017-03-02, 10:51 AM - Forum: Gallery - No Replies

A friend of mine is a graphic artist in the C64 demo scene from the Level64 group. Some weeks ago he wanted to experiment with ZX screen graphics and did this wonderful screen linked below. I added some small animation for the copkit with Boriel basic.

<!-- m --><a class="postlink" href="http://level64andmore.blogspot.com.es/2017/01/no-solo-de-commodore-64-vive-el-hombre.html">http://level64andmore.blogspot.com.es/2 ... ombre.html</a><!-- m -->

Print this item

  [sordm5] first test
Posted by: nitrofurano - 2017-02-28, 04:18 PM - Forum: Other Archs - No Replies

first test for Sord M5 (testing the keyboard for now)
( <!-- m --><a class="postlink" href="http://www.boriel.com/wiki/en/index.php/ZX_BASIC:Released_Programs_-_SordM5#keyboard_test">http://www.boriel.com/wiki/en/index.php ... board_test</a><!-- m --> )



Attached Files
.zip   example01b_startingtowork.zip (Size: 22.35 KB / Downloads: 1,119)
Print this item

  [rx78] first test
Posted by: nitrofurano - 2017-02-27, 12:00 AM - Forum: Other Archs - Replies (2)

first test for Bandai’s RX-78
( the wiki page related to this thread is at <!-- m --><a class="postlink" href="http://www.boriel.com/wiki/en/index.php/ZX_BASIC:Released_Programs_-_RX78#first_test">http://www.boriel.com/wiki/en/index.php ... first_test</a><!-- m --> )



Attached Files
.zip   example01f.zip (Size: 17.07 KB / Downloads: 1,173)
Print this item

  [trs80model1] slideshow
Posted by: nitrofurano - 2017-02-20, 03:01 PM - Forum: Other Archs - No Replies

just a simple slideshow for TRS-80 Model 1 (as seen at <!-- m --><a class="postlink" href="http://www.boriel.com/wiki/en/index.php/ZX_BASIC:Released_Programs_-_TRS-80#slideshow">http://www.boriel.com/wiki/en/index.php ... #slideshow</a><!-- m --> )



Attached Files
.zip   example01f_slideshow.zip (Size: 39.41 KB / Downloads: 1,142)
Print this item

  [trs80model1] first test
Posted by: nitrofurano - 2017-02-19, 11:36 AM - Forum: Other Archs - No Replies

first test for TRS-80 Model 1 (the very first computer i started programming, back in my childhood)
( the wiki page related to this thread is at - <!-- m --><a class="postlink" href="http://www.boriel.com/wiki/en/index.php/ZX_BASIC:Released_Programs_-_TRS-80">http://www.boriel.com/wiki/en/index.php ... s_-_TRS-80</a><!-- m --> )



Attached Files
.zip   example01e_startingtowork.zip (Size: 19.34 KB / Downloads: 1,155)
Print this item

  Using ZXbasic to add page banked IM music
Posted by: emook - 2017-02-18, 12:43 PM - Forum: Gallery - Replies (1)

Hi,

As a small challange I wanted to see if I could add music to games written with ADG by Jonathan Caudwell. ADG games usually take around 30k of memory starting from around 32000 so this leaves no room for music and playback.

My idea was that I would swap in bank 4 (@49152) and set up my music and then an IM routine at 25500. The IM routine swaps to bank 4, plays a frame of music and swaps the bank back to 0 and allows the game to continue. Here's the code I came up with (the music routine and data have been compressed with zx7 to take up less space)

An working example can be seen here with : http://torinak.com/qaop#128#l=http://zxbasic.uk/uploads/monty_tls.z80


Code:
#include <memcopy.bas> ' REM IM music for ADG v1 ' monty border 0 paper 0 ink 6 cls ASM di ; disable intsd LD A,(23388) AND 248 OR 4 ; select bank 4 LD BC,32765 LD (23388),A OUT (C),A EI END ASM ' the playsoutine expects the music to be at 51310, so lets copy the music there zx7Unpack(@music, 51310) ' The play routine expects to be at 49152, so lets copy it there zx7Unpack(@ayplay, 49152) ' This is routine that will be called every frame, lets copy it to its correct location memcopy(@Ints, $6060, 60) ' we need to init our play routine, so call it randomize usr 49152 randomize USR @IMStart ' Start ADG game 'randomize usr 32000 END ayplay: asm incbin "vt49152.bin.zx7" END asm music: asm incbin "intro.pt3.zx7" END asm musicend: Ints: asm di ; disable interrupts push af ; save all std regs push bc push de push hl push ix push iy ex af, af' ; and shadow af push af ; swap to bank 4 LD A,(23388) ; load a with previos port value AND 248 OR 4 ; bank 4 LD BC,32765 LD (23388),A OUT (C),A call 49157 ; play the current tune ;swap back to bank 0 LD A,(23388) AND 248 OR 0 LD BC,32765 LD (23388),A OUT (C),A pop af ex af, af' ; restore af pop iy pop ix ; restore ix & iy pop hl pop de pop bc pop af ; restore all std regs ei ; enable interrupts jp 56 END asm IMStart: asm DI ; swap to bank 4 before IM start LD A,(23388) AND 248 OR 4 LD BC,32765 LD (23388),A OUT (C),A ; this code creates a 256 byte vector table at $FE00, then sets IM2 ld hl, $5e00 ld de, $5e01 ld bc, 256 ld a, h ld i, a ld a, $60 ld (hl), a ldir im 2 ; now swap back to 0 LD A,(23388) AND 248 OR 0 LD BC,32765 LD (23388),A OUT (C),A ei ret END asm IMOff: ASM DI IM 1 EI RET END ASM

Print this item

  How can I use ZXB as Assembler only
Posted by: Luzie - 2017-02-13, 10:28 PM - Forum: How-To & Tutorials - Replies (2)

I want to use ZXB "as Assembler only". So no single BASIC statement will be used.

E.g. I just want to assemble this:

ASM
ORG 50000
RET
END ASM

and after compiling this should result in just a .BIN or .TAP-File which contains the single $C9 mcode ($C9=201 dez for RET) and is in memory from adress 50000 dez.

Is there a simple way for doing this?

Print this item

  Experimenting With Channel Pitches
Posted by: emook - 2017-02-07, 11:15 PM - Forum: Gallery - Replies (1)

Hi again,

This time I try and create realistic pitch based vu meters. I noticed while doing this there isn't an inbuilt feature to ensure things stay nicely synced, I find PAUSE to blunt so used a MC routine that return false if not enough frames had passed or true if it was time for an update.

Music is converted from the Megadrive, music is on interrupts, uses Putchars for the octopus, some bits compressed with zx7.

Source included.

[Image: VuMeters.png]



Attached Files
.zip   VuOutRun.zip (Size: 19.63 KB / Downloads: 1,079)
Print this item

  ZXBASIC_USER_DATA relocation?
Posted by: Haplo - 2017-02-07, 05:53 PM - Forum: Help & Support - Replies (2)

Hi,

in my project I use a lot of memory, indeed I use all the banks of RAM available. But my main code has grown beyond the 49151 position and now I have a serious problem by switching pages of RAM: ZXbasic stores some vitality data in the end of the generated code, like ZXBASIC_USER_DATA, so if the label overcome 49152, I can't switch pages without risky consequences Sad

My question is, it's posible to move/relocate these labels to another area more secure?
Of course I could do it manuallyby editing the .asm generated but I hope that exists an easy way to avoid this.

Print this item

  Compounded Let statments
Posted by: emook - 2017-02-02, 02:17 PM - Forum: ZX Basic Compiler - Replies (6)

Hello,

I've noticed that somthing that is possible is Sinclair Basic doesn't seem possible in Boriel....

eg:

Sinclair Basic

10 LET x=0
20 LET x=x+1-(50 AND x=50)
30 PRINT AT 0,0;x,
40 GOTO 20

As you can see x=x+1 will increment minus 0 unless x=50 then it will subtract 50. Great for loops and counters. In ZXB I am having to expand this into IF THEN statements.

x=0
x=x+1
myloop:
IF x=50 THEN
x=0
END IF
Print at 0,0;x,
GOTO myloop

Print this item