-
multi-scroll m/c subroutine for BASICArising from recent posts, here's a scrolling routine that will manage multiple left/right scrollings for any (sensible) line width or step; (ie. whe…
Arising from recent posts, here's a scrolling routine that will manage multiple left/right scrollings for any (sensible) line width or step; (ie. where width is -
calculator and sinusok, look at the Sysel's routine: [PHP]3 5b00 *s 4 5b00 tabsin = #7000 03 mksin 19.11.1995 Busy soft …
... l
26 8022 20e3 jr nz,mksn1
27 8024 se ... -
Graph Plothi! please, help with code: [PHP]For x=-100 To 100 For y=-100 To 100 If (x/2-25)*(x/2-25)+(y-50)*(y-50)<200 Or (x/2+25)*(x/2+25)+(y-50)*(y-50)<200 th…
hi! please, help with code:
[PHP]For x=-100 To 100
For y=-100 To 100
If (x/2-25)*(x/2-25)+(y-50)*(y-50) -
Optimisations in Exomizer Z80 decrunch codeThis is the 163 bytes old code (simple and optimized): [CODE] ld iy, exo_mapbasebits ld a, 128 ld b, 52 push de exo…
... , hl
dec c
jr nz, exo_setbit
exo_one:
ld ... br /> ld c, 16
jr nz, exo_get4bits
ld de, 1 ... , hl
dec c
jr nz, exo_setbit
exo_one:
ld ... -
MultifaceOneCrack-Killer.tzxhi all just wondering if anyone has ever tried to use this tool? i have had a look at it and think i understand wot it's ment to do but the code loo…
...
JR NZ, 24160
JR NZ, 24162
JR NZ, 24164
JR NZ, 24166
JR NZ, 24153 ... 8301
JR NZ, 24177
JR NZ, 24179
JR NZ, 24181
JR NZ, 24183
Machine code loopsDear all, 30 years too late I know, but I'm finally starting to get to grips with Machine Code - something I could never manage back in my early tee…
... 6912, dec it, and use jr nz,-10 ?
(Actually, have ...Works in Fuse & SpecEmu, not ZXSpinI decided that I wanted to change the scroll routine which I was using for compiling the Trailblazer maps, as I'd just copied it out of Andrew Hewson…
... cp $ff
jr nz,PRINT2
pop af ... /> dec a
jr nz,PRINT1
... call $15de ;WAIT_KEY1
jr PRINTMAP
... /> dec a
jr nz,PATLOOP
ret
Idk>le me browsing through some game's code >..... [code]61A8 F5 push af 61A9 3EFF ld a,FF 61AB D37F out (7F),a 61AD D33F ou…
... cp B5
6202 20DF jr nz,61E3
6204 CDC362 ... br /> 6230 20F6 jr nz,6228
6232 18AF jr 61E3
... ,001A
624C 18DA jr 6228
624E CDC362 ... or c
6277 20F6 jr nz,626F
6279 3D ...Cobra (improved again BUGFIX)This is an improved BUGFIX for game [URL="http://www.worldofspectrum.org/infoseekid.cgi?id=0000996"]Cobra[/URL], that works better than the fix curre…
... /> 9604: cp b
9605: jr nc,$9601 ; repeat forever!
9604: nop
9605: jr nz,$9601
9607: ret
Adding a pause key to ArkanoidHaving rediscovered the simple pleasure of playing 1980s games on genuine 1980s hardware, I've also remembered that emulation can provide a feature m…
... again
rra
jr nc,$ - 3 ; keep probing ... ei ; restore interrupt handler
jr .return_to_game[/CODE]
... br /> dec a
jr nz,$-1
and a< ...Movin And A Groovin Horizontal Flip improvementOn the left is the flip horizontal portion from Andy Pennell'S excellent Movin' & a Groovin' machine code screen routines from Your Spectrum #19 (Oct…
... ;a=GHABCDEF
JR NC,SWITCH ;turn around ; ...
JR NZ,FLIPH ;do all the columns JR NZ,fliph
DEC C
JR NZ,fliph
RET
...MGT MOUSE - exist really ?I read disassembly of +D rom/ram code and from address #2249 is routine for read MGT MOUSE ports. I can't find any info about "MGT MOUSE". Exist real…
... br /> 2250 RET NZ Return if no ... br /> 2264 RET NZ Return to vertical movement ... br /> 227A RET NZ Return to signal ... D
227D JR NZ,#2285,MOVE_UP Jump if ...SCREEN$ bug fixI've been using the SCREEN$() function recently for reading data off the screen rather than taking up space with an array and I got fed up with the s…
... ]
ScrDol0:call ScrDol
jr nz,ScrDone
call $2bf1 ;STK_FETCH ... )
ld (23606),hl
jr z,ScrDone
ld a ...Copy 4Kb in Assembly?Here's an interesting problem: what's the best way to copy a block of 4Kb in assembly? The most obvious solution is to use [B]LDIR[/B]: [CODE] l…
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…
...
cp low(NUMERO)
jr nz,BucAdd
ret
endp ...
cp low(NUMERO)
jr nz,BucPrint2Dig
ret
endp ...A "generic" loader for +3(e)I've made this loader for 128k games in +3DOS. [CODE]dos_open equ 262 dos_close equ 265 dos_abandon equ 268 dos_read equ 274 dos_write equ 277 dos_s…
... end of the list?
jr nz,cerrar ; it is, going to ... points to next block
jr bucle ; closing the loop
Math Quiz - MultiplicationThe topic is fast multiplication routines, from 8x8 to 32x32 and all points in between. These functions sit underneath floating point libraries, gen…
... />
sla h
jr c, loop_12
sla ... />
sla h
jr c, loop_16
... br /> rla
jr nc, loop_12
... e
dec e
jr nz, no_swap
ex ...Ghosts n' Goblins loaderI'm trying to put Ghosts n' Goblins onto a +3 disk but struggling to understand the mc loader. Basic loader [code] ink 7 : clear 25000 : load "" cod…
... 65075: OR L
65076: JR NZ, 65071
65078: CALL 65188 ... AF'
65125: JR NZ, 65140
65127: JR NC, 65150
65129 ... AF'
65368: JR NZ, 65385
65370: JR NC, 65395
... /> 65449: DEC A
65450: JR NZ, 65449
65452: ...Double-Buffer ScreenFor my Alien Breed Speccy re-write I decided to use a Double Buffer (DB) or 'Back Screen' to draw all the game action onto, before shuffling the whol…
... reckon
dec a
jr nz,aloop
inc d ;Inc ... store it back again
jr nz,loop1 ;Back to Loop1 if ...
ld (cline), a
jr nz,loop1 ;Back to Loop1 for ... are on Field 2
jr nz,field3 ;If not, must be ...Unusual custom turbo loaders - with sourcesI have always been fascinated by turbo loaders; my games all feature a TZX version with one of such schemes implemented, and I have been experimentin…
... br /> OR L
JR NZ,65380
CALL 65481
OR E
JR NZ,65433
RET
...
OR L
JR NZ, 65380
CALL 65481
INC H
JR NZ, 65392
LD B, 201 ... D
OR E
JR NZ, 65433
RET
...Currah ?Speech channelIt seems to me that it would be nice to be able to send words to the ?Speech with PRINT #5;"Speak English to me, Jimmy" or some such. There really i…
... /> or l ; zero
jr nz, speak_2 ; jump if not
cp ' ' ; space?
jr z, say_it ; jump to say ... cp 13 ; carriage return
jr z, say_it ; jump to say ... ), a ; done
jr done
allophones:
Help with Manic Miner tweaksPlease. :) This is the Software Projects version, simply as I had it to hand. [B]Problem 1:[/B] I've learned a bit (actually quite a bit) and manag…
... DEC C ; 37104 13
JR NZ, L_90E2 ; 37105 32 239
JR NZ, L_9109 ; 37115 32 12
JR NZ, L_8FEA ; 36823 32 17
JR NZ, L_8FEA ; 36829 32 11
Problem Reading the KeyboardHi Folks, I'm working my way through Toni Baker's rather good book and thought I'd write some code to scan the keyboard and store the results so tha…
... key in segment
JR NZ,_storeKey2 ;If the bit ... key in segment
JR NZ,_storeKey3 ;If the bit is ... key in segment
JR NZ,_storeKey4 ;If the bit ... key in segment
JR NZ,_storeKey5 ;If the bit is ...Machine Code in 30 minutes - car gameWotcha folks, 30 years on and I'm still struggling with Machine Code. I'm going through the 30-minute tutorial on the Chuntey blog and it's all made…
... ,(c)
cp 191
jr nz, moveright
inc l
cp 191
jr nz, dontmove
dec l
JR NZ MOVERIGHT? This really infuriates me ...Kempston joystick detectionIn both [url="http://skoolkit.ca/disassemblies/manic_miner/asm/34252.html#34332"]Manic Miner[/url] and [url="http://skoolkit.ca/disassemblies/jet_set…
ROM Calculator TrigHello, These Christmas holidays I finally have time to devote myself a little to the speccy . I have a question about how the ROM calculator implem…
... be the counter for dec-jr-nz
CALL GEN_ENT_1 ;In effect ... be the counter for dec-jr-nz
CALL GEN_ENT_1 ;In effect ... FP_ADDITION
DEFB FP_DEC_JR_NZ ;dec-jr-nz
DEFB SINELOOP - $ ;;to ...ZERO Emulator - BugsI have been using Zero emulator to experiment a few routines in assembly, since it has a somewhat usable debugger. However I believe I found a few b…
I have been using Zero emulator to experiment a few routines in assembly, since it has a somewhat usable debugger.
However I believe I found a few bugs, some in "zero" application, and some on emulation itself.
The following example ...z80 assembly helpEver since I was a child I wanted to program my zx81 then my zx spectrum + 2. However, it was such a mystical beast and I only ever used BASIC not kn…
... top of screen yet?
jr nz,loop ; no, carry on.
jr nz,loop ???
ret - returns to ...Text scroller and custom fontYesterday I was testing this text scroll routine taken from Jonathan Cauldwell's Intro Maker (labels have been inserted to allow partial code relocab…
... 00654
INC E
JR NZ, L_35381
L_35387: HALT
INC E
RET NZ
CALL L_35414
JP ... DE)
AND C
JR Z,L_35464
INC (HL ... HL)
AND A
JR NZ,L_35485
LD HL, MESSAGE ...
