-
Map compressor based on ZX7Hi I have release a map compressor for "La Churrera" game engine, but can be adapted to any other game. Source code is here (Download TmxCompress.0.…
... /> add a, e
desc8: inc a
ld e, a
desc9: ld a ...
ex de, hl ; HL = destination + offset + 1
add hl, de ; DE = destination ... -
Troublesome routine, help needed!Having problems with this routine, it basically fires a rocket up the screen, but refuses to detect collisions. I'm using attribute blocks for detect…
... A, (av1)
LD H, 0
LD L, A
ADD HL, HL
ADD HL, HL ...
ADD HL, HL
ADD HL, HL
ADD HL, HL
LD DE, 22528
ADD HL ... -
Sinclairscene, thank you all........ but I will be going on low level for long time with possibility of leaving the scene. Nothing your fault, but I am low in spirit of developping…
... de,16384
plp ld a,(ix+0)
cp 255 ... )
add hl,hl
add hl,hl
add hl,hl
ld bc,15616-256
add hl,bc ... ld a,(hl)
ld (de),a
inc d
inc hl
That painter thing..I'm struggling to think of a non clunky way of detecting when a 'box' has been surrounded and can be highlighted, like in the pic: [IMG]http://i1142…
... /> ld (hl),a ;draw a red box border
ld (de),a
add hl,bc ...
ex de,hl
add hl,bc
ex de,hl ...Simple memory transfer routineI'm looking for a simple memory transfer routine that shifts 32 bytes of data from the address HL is set to 55143, I have tried using LDIR, but cant …
...
[CODE] ld a,(level)
ld h, ... a ;multiply level by 32
add hl,hl ;x2
add hl,hl ;x4
add hl,hl ... ;x8
add hl,hl ;x16
add hl,hl ... 32)
add hl,de ;hl now pointing at ...Simple memory transfer routineI'm looking for a simple memory transfer routine that shifts 32 bytes of data from the address HL is set to 55143, I have tried using LDIR, but cant …
... now
[CODE] ld a,($CB16) ;level no.
ld ... de,$0020 ;
ld hl,udg-32 ;
push de ... in BC
lp add hl,de ;
dec a ;
jr nz ...Simple memory transfer routineI'm looking for a simple memory transfer routine that shifts 32 bytes of data from the address HL is set to 55143, I have tried using LDIR, but cant …
Faster; :smile:
[CODE] ld a,($CB16) ;level no.
ld de,$0020 ;
ld hl,udg-32 ;
ld b,d ;
ld c,e ;
lp add hl,de ;
dec a ;
jr nz,lp ;
ld de,$D767 ;
ldir
ret[/CODE]Simple memory transfer routineI'm looking for a simple memory transfer routine that shifts 32 bytes of data from the address HL is set to 55143, I have tried using LDIR, but cant …
... br /> (17 bytes and a lot less T)
... 51990
GetUDG: ld hl,UDGdata-32
ld de ... ld a,(LEVEL)
ld b,a
GetLoop:add hl,de
djnz GetLoop
ld (UDG),hl ...Simple memory transfer routineI'm looking for a simple memory transfer routine that shifts 32 bytes of data from the address HL is set to 55143, I have tried using LDIR, but cant …
... br /> (17 bytes and a lot less T)
... 51990
GetUDG: ld hl,UDGdata-32
ld de ... ld a,(LEVEL)
ld b,a
GetLoop:add hl,de
djnz GetLoop
ld (UDG),hl ...Simple memory transfer routineI'm looking for a simple memory transfer routine that shifts 32 bytes of data from the address HL is set to 55143, I have tried using LDIR, but cant …
19 bytes
[CODE] ld a,($CB16) ;level no.
ld bc,$0020 ;
ld hl,udg-32 ;
lp add hl,bc ;
dec a ;
jr nz,lp ;
ld de,$D767 ;
ldir ;
ret ;[/CODE]Converting an integer arbitrary large binary number into a printable decimal formThis was asked a long ago at the comp.sys.sinclair newsgroup. At that time, I came up with a solution by extrapolating the classic algorithm of suces…
...
Loop5: ld a,(hl)
add a,a
add a,a
add a,a
call Marker ;reached ... /> add a,48
ld (hl),a
dec hl
inc bc
ld a,(hl ...bit manipulation conundrumWhat's a neat way to change this bit pattern in registers BCDE: [code]Loop0: ;change B:00000000 C:abcdefgh D:ijklmnop E:qrstuvwx[/code] to this bit …
... /> .lp0
ld a,1
.lp1
add a ;add an extra zero ... bit to A each 3 shifts ...
ld b,3
.lp2
add hl,hl ... ;shift 3 leftmost bits off the initial values into A
Converting an integer arbitrary large binary number into a printable decimal formThis was asked a long ago at the comp.sys.sinclair newsgroup. At that time, I came up with a solution by extrapolating the classic algorithm of suces…
... code]
Carry10:ld hl,65535 ;carry all 10s ... push bc
Loop4: add a,(hl) ;adding an extra digit ... zero
ld (hl),a ;extend the number 1 ... /> dec hl
ld (hl),255
inc hl
...Converting an integer arbitrary large binary number into a printable decimal formThis was asked a long ago at the comp.sys.sinclair newsgroup. At that time, I came up with a solution by extrapolating the classic algorithm of suces…
... a,(hl) ;.... multiply cumulative decimal total by 8
add a,a
add a,a
add a,a
add a ... z,EndProg
add a,48
ld (hl),a
dec hl
inc ...Converting an integer arbitrary large binary number into a printable decimal formThis was asked a long ago at the comp.sys.sinclair newsgroup. At that time, I came up with a solution by extrapolating the classic algorithm of suces…
... faster as well:[code]Carry10:add a,(hl) ;carry all 10s overflows ... Loop7
Next6: add 10
ld (hl),a ;update current digit
dec hl ;then check ...Converting an integer arbitrary large binary number into a printable decimal formThis was asked a long ago at the comp.sys.sinclair newsgroup. At that time, I came up with a solution by extrapolating the classic algorithm of suces…
... ) )*8 ... +o(n) )
;first, add in the next octal digit ... a,(hl)
daa
ld (hl),a
CarryOn:dec hl
ld a,(hl)
ld d,$ff
add a,48
rst $10
Converting an integer arbitrary large binary number into a printable decimal formThis was asked a long ago at the comp.sys.sinclair newsgroup. At that time, I came up with a solution by extrapolating the classic algorithm of suces…
... /> ld l,a
add hl,hl
add hl,hl
add hl,hl
add hl,de ;HL=start of char ... nz,PRINTEX
ld a,d
add a,8
ld d ...Converting an integer arbitrary large binary number into a printable decimal formThis was asked a long ago at the comp.sys.sinclair newsgroup. At that time, I came up with a solution by extrapolating the classic algorithm of suces…
... Carry
add a,a
daa
rl c
add a,a
daa ... /> add a,b ;add b/fwd carry
daa
ld (hl),a
ld a ...Documentation for SP1 for Z88DK?(I was going to post in [URL="http://www.worldofspectrum.org/forums/showthread.php?t=11729"]the other thread[/URL], so if a mod thinks this should go…
... /> write1s:
ld a,l
add a,'0'
ld ... /> divloop:
inc a
add hl,bc
jp c, divloop ...
sbc hl,bc
Small demo to show my sprite engine for ZX Spectrum 48KThis demo shows 13 sprites moving at 50fps totally flicker free: 12 enemies bouncing in edges and the main character, controllable with OPSA (note S …
I found a small optimization in the mult8x8 ...
ld l, d
add hl, hl
[/code]
with ... br />
[code]
ld hl, 0
ld d, l ... an instance of "ld de, hl", wich doesn't exist in ...Small demo to show my sprite engine for ZX Spectrum 48KThis demo shows 13 sprites moving at 50fps totally flicker free: 12 enemies bouncing in edges and the main character, controllable with OPSA (note S …
... =Metalbrain;739183]I found a small optimization in the mult8x8 ... br /> ld l, d
add hl, hl
[/code]
...
[code]
ld hl, 0
ld d, l ... right about ld de, hl. Fixed and also the ...Small demo to show my sprite engine for ZX Spectrum 48KThis demo shows 13 sprites moving at 50fps totally flicker free: 12 enemies bouncing in edges and the main character, controllable with OPSA (note S …
...
[code]
ld hl, 0
ld d, l ... IF data & %10000000
add hl, de
ENDIF
...
ELSE
ld hl, 0
ENDIF
... 'm working on a better macro right now...Small demo to show my sprite engine for ZX Spectrum 48KThis demo shows 13 sprites moving at 50fps totally flicker free: 12 enemies bouncing in edges and the main character, controllable with OPSA (note S …
... , you should never start loading HL with zero. It should always ... /> Also if there's only a single bit set in [B ... never need to execute [B]ADD HL,DE[/B].array offset (z88dk)Im trying to simulate a 2 dimensional array by using an offset [code] #include <fzx.h> char scr[768]; int arrayoffset(char x,char y) { return (x*…
... code -- it will lead to a larger code footprint, which is ... modify the macro to call a function to compute the index ... cost more but will be a bit faster. EDIT: inlining might ...Andromeda and MCoderI came across "Andromeda" by PSS written "in BASIC for MCODER" by A. Tobias 1983. Unfortunately the ANDROMED.TAP file always failed with R Tape Loadi…
... LD BC,100
60006 ADD HL,BC
60007 LD (nnnnn ... ),HL
60010 CALL 63720[/CODE]< ... 2.B appears to be a beta of MCODER2. (Would also ... can do such as LET a$(3)="z" and READ x ...Elliptical ChallengeSubsequent to the recent "Graph Plot" thread, I wrote this general purpose ellipse drawing routine which will plot (although it doesn't actually use …
... /> ld de,12
add hl,de ;HL=data pointer
NextStep:
ld b,a
inc b
... /> or b
ld (hl),a
pop hl
pop bc
Clearing 22 lines of the screenHow do I go about clearing the top 22 lines of the screen and leave the bottom #0 area untouched? I have a routine to reset the attributes, but cant…
... line
loop1: ld (hl),a ;put a zero on screen
inc ... a,l ;check low byte
add a,32 ;next row down within a ... segment
ld l,a
ld a,h ;a overspun, so move down a segment too
add a,8 ...mirroring bitsIf I have a string of 1408 bytes, each of which has one bit 'b' set, what's the shortest way of mirroring that string, so that each bit set at positi…
... />
[code]InPlace
ld hl,StringAddress
ld bc,StringLength ...
ld a,#01
.lp1
rr (hl)
rla< ... /> jr nc,.lp1
ld (hl),a
cpi
jp pe ... hl,MirrorTable-1
ld a,(de)
.lp1
inc hl
add a ...mirroring bitsIf I have a string of 1408 bytes, each of which has one bit 'b' set, what's the shortest way of mirroring that string, so that each bit set at positi…
... [CODE]
loop ld a, (hl)
add a, a
jp c, is80< ... jp write
is01 rrc (hl) ; $01->$80
... br /> write ld (hl), a
next inc hl
djnz loop ...Elliptical ChallengeSubsequent to the recent "Graph Plot" thread, I wrote this general purpose ellipse drawing routine which will plot (although it doesn't actually use …
... /> inc hl
ld a,(SetBit+1)
ld (hl),a
inc hl
ld (23680),hl[/code]
Add:
