-
Optimization for this codeHello, I have done and submitted a small program for the CSS Crap Game Compo which involves a machine code routine. The z80 with BASIC and MC is av…
...
ld (hl),a
jr nz, kontroll2
inc h ...
ld (hl),a
jr nz, kontroll3
inc h ...
ld (hl),a
jr nz, kontroll4
inc h ...
ld (hl),a
jr nz, kontroll7
jp writetext ... -
Help needed with simple MCode routineI'm trying to code a routine to clear the screen and I can't figure out why it's not working: ld hl,16384 ld bc, 6144 loop:ld (hl),0 inc hl dec bc l…
Why doesn't my loop work?Can anyone help me understand why my loop doesn't work? Is it to do with how DEC HL affects the flags? [code] ; Read 32k bytes from port 191 as fa…
CrusoePlease add the following "known errors" description for game [URL="http://www.worldofspectrum.org/infoseekid.cgi?id=0002872"]Crusoe[/URL]: [QUOTE]Bu…
... $80E5 ; jump correction
JR $8149 ; 80E5 18 62
JR $8706 ; 8736 18 CE
JR NZ, PATCH ; B8FD 20 F7
(part of) screen to UDGHere is a routine to copy a Y,X-position on screen to a UDG. 0<=y<=23 0<=x<=31 144<=udg<=165 (UDG "A" to UDG "U") [code] ; start code with ; PRINT …
Here is a routine to copy a Y,X-position on screen to a UDG.
0Cobra (improved BUGFIX)This is an improved BUGFIX for game [URL="http://www.worldofspectrum.org/infoseekid.cgi?id=0000996"]Cobra[/URL], please replace the "known errors" de…
... /> 9604: cp b
9605: jr nc,$9601 ; repeat forever!
9604: nop
9605: jr nz,$9601
9607: ret[/CODE ...Kiwi OS for z80 computerHi everyone, Nearly made my z80 computer with 2K ROM 32K RAM. It has an OS im still writing called Kiwi (apple, blackberry, you get the idea ;D) he…
... ;IS THE OPTION NEW
JR NZ, RUN_COMPARE ;IF NOT NEW, JUMP ... ;IS THE OPTION RUN
JR NZ, GOTO_COMPARE ;IF NOT RUN, JUMP ... ;IS THE OPTION GOTO
JR NZ, SAVE_COMPARE ;IF NOT RUN, JUMP ... ;IS THE OPTION GOTO
JR NZ, LOAD_COMPARE ;IF NOT SAVE, JUMP ...machine code loadercan someone have a look at this loader and break down what its actually doing and also how i can stop it from executing the 2 loads of headerless blo…
... /> 5B16 CP FF
5B18 JR NZ,5B11
5B1A LD IX ... /> 5B24 CALL 0556
5B27 JR NC,5B1A
5B29 LD ... /> 5B33 CALL 0556
5B36 JR NC,5B29
5B38 JP ...Keys redefine routine and key check.I have written some asm code which allows me to redefine keys (for a game etc.), and also allows me to be able to check any keypresses for the redefi…
...
and a
jr nz,do_the_redefine
; ok, lets ... go check next key
jr gk_exit
gk_key_is_pressed: set ... do it all again
jr get_defined_key
ret ; ...
or c
jr nz,d_loop
ret
...AND,XOR,OR,BIT,RES,SET,CPL,NEG,RLC,RRC,SLA,SRL,RL, RR,SRA for BASICAs this was drifting away from the original INKEY$ thread I thought that I'd create a new one. So here's a routine to provide all of the above mentio…
... check code
jp nz,ERRORA ;return on error
push bc
jr c,EVALOP ;1st 9 ... need no mod
jr nz,RESSET
ld ... br /> djnz SETBIT
jr LDOPC2
RESSET: sla ...Indirect Variable AssignmentHere's another wacky routine. This allows assignment of values to variables where the source & destination variables can themselves be defined in var…
Here's another wacky routine. This allows assignment of values to variables where the source & destination variables can themselves be defined in variables (or expressions which evaluate to variables). Some of this can already be done with VAL or VAL$, ...Amazonia (BUGFIX)This is a bugfix for game [URL="http://www.worldofspectrum.org/infoseekid.cgi?id=0027280"]Amazonia[/URL], please add the following "known errors" des…
... uppercase 'N'?
a4b6 20e7 jr nz,0a49fh ; otherwise wait for another ... 'n'?
a4ba 20e3 jr nz,0a49fh ; otherwise wait for another ... 'n'?
a4ba 20e3 jr nz,0a49fh ; otherwise wait for another ...Undefine functionHere's a routine to selectively remove variables from the VARS area and reclaim the space. This can be done partially from BASIC already by assigning…
...
pop de
jr c,CHKNXT ;variable already undefined ... $E0
cp $E0
jr nz,NOTFOR ;not a for...next ... variable
call RECLAIM2
jr CHKNXT
;string ...joining lines of BASICDue to overwhelming demand - well, one demand - well, more of a suggestion, really - here's a routine to join together lines of BASIC. The vertical c…
... cp 7 ;EDIT
jr nz,NOTEDIT
set 6,(IY ... :cp $0d ;ENTER
jr nz,NOENTER
res 6,(IY ... CP 11 ;cursor up
JR NZ,FINISH
CURSUP: ...The INPUT command routine ($2089)I was looking at the INPUT routine with a view to modifying the intro so that I could pre-load the workspace and edit an existing value, rather than …
... , check the INPUT for
JR 2161,IN-VAR-4 errors ... is taken if using
JR NZ,2174,IN-VAR-5 other ...AZIMUT / Frecuency spectrum[code]start DI LD HL,#7F40 LD D,#58 loop LD B,#00 bucle1 LD A,H IN A,[#FE] XOR A,C AND A,L J…
...
AND A,L
JR NZ,findA
DJNZ bucle1
AND A,L
JR NZ,findB
DJNZ bucle2
RRA
JR C,loop
EI
Routine for clearing screenI was looking for a 'nice' way of clearing a screen of graphics in Z80. After a ridiculous amount of time mucking around, this is the best and most …
... ,b
or c
jr nz,SCREEN_CLEAR_LOOP
ld a ... />
ld (PRT_CHR),a
jr START
PRT_CHR
Inefficient code in ROM, from ram-check to RAM-DONEHere is the inefficient code: [CODE] ;; ram-check L11DA: LD H,D ; Transfer the top value to the HL register LD L,E …
... we reached ROM - $3F ?
JR NZ,L11DC ; Back to RAM-FILL ... (HL) ; decrement to 1.
JR Z,L11EF ; forward to RAM ... ; increment for next iteration.
JR Z,L11EA ; forward to RAM ...Jelly-Vision!As threatened in the "'Spectrum Play' Error" thread, here's a ruff'n'reddy interrupt driven full screen wobbling routine which has no practical use w…
... printing in lower screen?
jr nz,TESTSCROLL
bit 1,( ... br /> cp $0e
jr z,INSCROLL
push bc ... ld bc,6144-256
jr nz,MOVEUP
MOVEDOWN: ld hl ...40 Column Printing RoutineI've written a 40 column printing routine, which I'd like to share... It's my first piece of 'public' code so go easy on me! I don't think it is a…
... br /> cp 13
jr z,foundcr ; recognises some ... a
inc hl
jr nextchr
rst16replacement ... br /> and a
jr nz,skipoverprint
push hl ; ...Any ideas on speeding up this assembler segment?It copies a pixel column of a rectangle which may be anywhere in the display file to a pixel column in d$. The source column may start at any bit pos…
...
and $01 ; 7
jr z,next_d ;12
;** = 62 ... column scan depth remaining
jr nz,for_d ;12
;** = 64
BeepFX ProblemHi All, I'm currently trying to integrate the BeepFX engine in my 100% Assembler Game and it plays the sound fine, but then plays the sound again, a…
... ,b
or c
jr nz,SFXRTl1
ld a,(SFXRTDUTY ... b
or c
jr nz,SFXRTl0
ld c,11 ... a
dec d
jr nz,SFXRNl2
ld d,e ...Kempston detectionI could use some help. This Kempston joystick behaviour drives me mad. I've written a game called Necrospermia recently ([url]http://www.worldofspec…
... )
BIT 0,A
JR NZ,StartAnim3
XOR A ... )
BIT 4,A
JR Z,StartAnim4
LD ... /> RET
StartAnim4
JR StartAnim2 [/CODE]Using R as a loop counterThis is just something silly I've found a while back. xD [b][How-to][/b] Setup your routine like this:[code] ld a,X ;see below ld r,a loop ;your …
...
ld a,r
jr nz,loop[/code]Here, X is ... the final 'ld a,r: jr nz,loop' commands) which you need ...
ld a,r
jr nz,.l2
ld a,b ...
