| Welcome, Guest |
You have to register before you can post on our site.
|
| Online Users |
There are currently 266 online users.
» 0 Member(s) | 265 Guest(s)
Bing
|
| Latest Threads |
New video Couse / Nuevo c...
Forum: News
Last Post: Duefectu
2026-04-29, 11:02 PM
» Replies: 0
» Views: 214
|
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,301
|
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,080
|
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,218
|
3DOS Commands?
Forum: Help & Support
Last Post: boriel
2025-10-06, 02:54 PM
» Replies: 3
» Views: 1,381
|
|
|
| Spectrum resets |
|
Posted by: slenkar - 2012-08-15, 02:27 AM - Forum: Help & Support
- Replies (5)
|
 |
I was programming the same game and the speccy resets, is there a way of telling which line it crashes on?
(except commenting out loads of lines)
|
|
|
| Peek (uInteger,@label) problem (*solved*) |
|
Posted by: LCD - 2012-08-02, 09:19 PM - Forum: Bug Reports
- Replies (2)
|
|
Hallo Boriel,
I just found following Problem in s888 and s894
Code: paper 7:ink 0:border 7:cls
print peek(uinteger,@test)
print peek(@test)+256*peek(@test+1)
End
test:
asm
defw 35600
end asm
|
|
|
|
| aplib decompressor for ZX Basic. |
|
Posted by: na_th_an - 2012-08-02, 12:18 PM - Forum: How-To & Tutorials
- Replies (28)
|
|
1. Download the compressor -> <!-- m --><a class="postlink" href="http://www.mojontwins.com/warehouse/apack.zip">http://www.mojontwins.com/warehouse/apack.zip</a><!-- m -->
2. Pack your binaries using it:
Code: > apack.exe input.bin output.bin
Code: packed:
Asm
Binary "output.bin"
End Asm
Code: #include once "aplib.bas"
Code: aplibUnpack (@packed, 16384)
Here's aplib.bas:
Code: '' aplib.bas
Sub aplibDummyContainer
asm
; aPPack decompressor
; original source by dwedit
; very slightly adapted by utopian
; optimized by Metalbrain
; Adapted for ZX Basic by na_th_an
;hl = source
;de = dest
depack:
ld ixl,128
apbranch1:
ldi
aploop0:
ld ixh,1 ;LWM = 0
aploop:
call ap_getbit
jr nc,apbranch1
call ap_getbit
jr nc,apbranch2
ld b,0
call ap_getbit
jr nc,apbranch3
ld c,16 ;get an offset
apget4bits:
call ap_getbit
rl c
jr nc,apget4bits
jr nz,apbranch4
ld a,b
apwritebyte:
ld (de),a ;write a 0
inc de
jr aploop0
apbranch4:
and a
ex de,hl ;write a previous byte (1-15 away from dest)
sbc hl,bc
ld a,(hl)
add hl,bc
ex de,hl
jr apwritebyte
apbranch3:
ld c,(hl) ;use 7 bit offset, length = 2 or 3
inc hl
rr c
ret z ;if a zero is encountered here, it is EOF
ld a,2
adc a,b
push hl
ld iyh,b
ld iyl,c
ld h,d
ld l,e
sbc hl,bc
ld c,a
jr ap_finishup2
apbranch2:
call ap_getgamma ;use a gamma code * 256 for offset, another gamma code for length
dec c
ld a,c
sub ixh
jr z,ap_r0_gamma ;if gamma code is 2, use old r0 offset,
dec a
;do I even need this code?
;bc=bc*256+(hl), lazy 16bit way
ld b,a
ld c,(hl)
inc hl
ld iyh,b
ld iyl,c
push bc
call ap_getgamma
ex (sp),hl ;bc = len, hl=offs
push de
ex de,hl
ld a,4
cp d
jr nc,apskip2
inc bc
or a
apskip2:
ld hl,127
sbc hl,de
jr c,apskip3
inc bc
inc bc
apskip3:
pop hl ;bc = len, de = offs, hl=junk
push hl
or a
ap_finishup:
sbc hl,de
pop de ;hl=dest-offs, bc=len, de = dest
ap_finishup2:
ldir
pop hl
ld ixh,b
jr aploop
ap_r0_gamma:
call ap_getgamma ;and a new gamma code for length
push hl
push de
ex de,hl
ld d,iyh
ld e,iyl
jr ap_finishup
ap_getbit:
ld a,ixl
add a,a
ld ixl,a
ret nz
ld a,(hl)
inc hl
rla
ld ixl,a
ret
ap_getgamma:
ld bc,1
ap_getgammaloop:
call ap_getbit
rl c
rl b
call ap_getbit
jr c,ap_getgammaloop
ret
End Asm
apDataPool:
Asm
ap__source:
defw 0
ap__destination:
defw 0
End Asm
End Sub
Sub aplibUnpack (source as uInteger, destination as uInteger)
Poke uInteger @apDataPool, source
Poke uInteger 2 + @apDataPool, destination
Asm
ld hl, (ap__source)
ld de, (ap__destination)
di
push ix
push iy
call depack
pop iy
pop ix
ei
End Asm
End Sub
Happy coding!
|
|
|
|
| zxbasic compiler for Sega Master System? |
|
Posted by: nitrofurano - 2012-08-01, 12:26 PM - Forum: Wishlist
- Replies (20)
|
|
i knew now that someone adapted zxbasic compiler to create Sega Master System roms? did someone try it?
<!-- m --><a class="postlink" href="http://www.smspower.org/forums/viewtopic.php?t=12902">http://www.smspower.org/forums/viewtopic.php?t=12902</a><!-- m -->
if it is working fine, or close to it, maybe it could somehow be available officially here from Boriel's website?
|
|
|
|
| BIFROST* Advanced Programming |
|
Posted by: einar - 2012-07-27, 09:28 PM - Forum: ZX Basic Compiler
- Replies (6)
|
|
I posted here the first example that demonstrates how to use the "internal routines" in BIFROST*:
<!-- m --><a class="postlink" href="http://www.worldofspectrum.org/forums/showthread.php?t=40246">http://www.worldofspectrum.org/forums/s ... hp?t=40246</a><!-- m -->
Unfortunately this example was implemented in z88dk. However the same API is available for ZX BASIC and the solution would be exactly the same, thus I think this link will be also useful for ZX BASIC programmers interested in BIFROST*.
Perhaps someone here could translate this example to ZX BASIC and post it, or implement similar demos?
|
|
|
|
|
)
