Z80:Miscellaneous Routines - Revision history

Xeda112358: formatting, hotspot,

2016-05-31T22:09:41Z

formatting, hotspot,

← Older revision		Revision as of 22:09, 31 May 2016
Line 17:		Line 17:
	and 01h		and 01h
	ret		ret
			Alternatively, save a byte and 3cc and have the output in the c flag (c means good, nc bad):
			GetBatteryStatus:
			in a,(2) \ rra \ ret
	= Boundary Check =		= Boundary Check =
			Original: Adm. Wiggin.
	Checks if coordinates is inside a designated box~~. Thanks to Adm. Wiggin~~.		New: Zeda.
			Checks if coordinates is inside a designated box.
	~~; Your box coords (will not work with 0, keep x1 < x2, and y1 < y2 [duh])~~		#define x 10
	#define x1 10		#define y 10
	#define y1 10		#define width 10
	#define ~~x2 20~~		#define height 20
	#define ~~y2 30~~

	check:		check:
	; a = x		;Input: a,b = x,y
	~~; b =~~ y		;Output: c if the coords are in the box, nc if not.
	; ~~returns~~ c ~~flag set~~ if ~~good~~		;destorys af
	; ~~returns c flag reset if no good (nc)~~		;25cc or 47cc, 11 bytes
	; ~~destorys af (quite obvious if one knows any z80 at all)~~		;compare too: 33cc~75cc, 20 bytes
	~~cp x1~~		sub x
	~~jr c,nogood~~		sub width
	~~cp x2+1~~		ret nc
	jr nc~~,nogood~~
	ld a,b		ld a,b
	~~cp y1~~		sub y
	~~jr c,nogood~~		sub height
	~~cp y2+1~~
	~~jr nc,nogood~~
	~~;if it gets here, it's in the box! Yay! Hooray! Peoples rejoice!~~
	~~; as a side effect of the last operation, the carry flag is already set.~~
	~~ret~~
	~~nogood:~~
	~~or a;to reset the carry flag~~
	ret		ret


	= Center Text =		= Center Text =
Line 298:		Line 288:

	xor a		xor a
	out (20h),a		out (20h),a

Xeda112358: /* Set15MHz */ slightly modified code for better results.

2016-05-31T21:48:35Z

Set15MHz: slightly modified code for better results.

← Older revision		Revision as of 21:48, 31 May 2016
Line 289:		Line 289:
	; z flag set if the calc is at 6MHz, nz if at 15MHz		; z flag set if the calc is at 6MHz, nz if at 15MHz
	in a,(2)		in a,(2)
	~~rlca~~		sbc a,a
	and 1		and 3
	out (20h),a		out (20h),a
	ret		ret

Xeda112358: /* IncHLMem1 */

2016-05-31T21:47:23Z

IncHLMem1

← Older revision		Revision as of 21:47, 31 May 2016
Line 211:		Line 211:
	ret		ret

	= ~~IncHLMem1~~ =		= incFPtr =
	When reading through data in MemBank1, this routine is particularly useful as it adjusts the flash pages accordingly, as well as the pointer HL. If HL does not point to data in MemBank1 (4000h~7FFFh) then HL will simply be incremented, which is useful if the data might be in RAM or flash.		When reading through data in MemBank1, this routine is particularly useful as it adjusts the flash pages accordingly, as well as the pointer HL. If HL does not point to data in MemBank1 (4000h~7FFFh) then HL will simply be incremented, which is useful if the data might be in RAM or flash.

	~~IncHLMem1~~:		incFPtr:
	inc l ~~; 4 4*16384 65536~~		;15cc or 24cc or 69cc, avg: ~15.03845cc
	ret nz ~~;11\| 5 645+1632011 179840~~		inc l \ ret nz
	inc h ~~; 4 4*64 256~~		incptr:
	ret po ~~;11\| 5 11*63+5 698~~		inc h \ ret po
	ld h,a		ld h,a
	in a,(6) ~~; 11 11 11~~		in a,(6) \ inc a \ out (6),a
	inc a ~~; 4 4 4~~		ld a,h
	out (6),a ~~; 11 11 11~~		ld h,40h
	ld a,h		ret
	ld h,40h ~~; 7 7 7~~
	ret ~~; 10 10~~

	It destroys no registers and is very efficient. However, if you are really in need of speed, such as with a ReadArc routine, you can try something like this (conditionally calling the routine):		It destroys no registers and is very efficient. However, if you are really in need of speed, such as with a ReadArc routine, you can try something like this (conditionally calling the routine):

	inc l		inc l \ call z,incptr
	call z,~~IncMem1Ptr~~
	~~<<rest of code>>~~

	~~IncMem1ptr~~
	~~inc h ; 4 4*64 256~~
	~~ret po ;11\| 5 11*63+5 698~~
	~~ld h,a~~
	~~in a,(6) ; 11 11 11~~
	~~inc a ; 4 4 4~~
	~~out (6),a ; 11 11 11~~
	~~ld a,h~~
	~~ld h,40h ; 7 7 7~~
	~~ret ; 10 10~~

	= SortA =		= SortA =

KermMartian at 07:49, 6 February 2016

2016-02-06T07:49:27Z

← Older revision		Revision as of 07:49, 6 February 2016
Line 89:		Line 89:
	= Direct Input =		= Direct Input =

	Used for direct input. See [[Z80:Direct~~-input-output~~\|here]] to learn more about direct input. Thanks to Steve Riekeberg.		Used for direct input. See [[Z80:Direct Input/Output\|here]] to learn more about direct input. Thanks to Steve Riekeberg.

KermMartian at 05:53, 5 February 2016

2016-02-05T05:53:02Z

Show changes

KermMartian: Created page with "A list of small routines that can help you. Feel free to add your own. = Battery Status = Directly polls the hardware for battery status. Thanks to Steve Riekeberg. ;N..."

2016-02-03T21:29:18Z

Created page with "A list of small routines that can help you. Feel free to add your own. = Battery Status = Directly polls the hardware for battery status. Thanks to Steve Riekeberg. ;N..."

New page

A list of small routines that can help you. Feel free to add your own.

= Battery Status =

Directly polls the hardware for battery status. Thanks to Steve Riekeberg.

;Name: BatteryStatus
;Description: Returns if the batteries are good, or low and need changing.
;Inputs: None
;Outputs: Non-Zero = Good Batteries
Zero = Batteries Low
;Destroys: A

GetBatteryStatus:
in a, (2)
and 01h
ret

= Boundary Check =

Checks if coordinates is inside a designated box. Thanks to Adm. Wiggin.

; Your box coords (will not work with 0, keep x1 < x2, and y1 < y2 [duh])
#define x1 10
#define y1 10
#define x2 20
#define y2 30

check:
; a = x
; b = y
; returns c flag set if good
; returns c flag reset if no good (nc)
; destorys af (quite obvious if one knows any z80 at all)
cp x1
jr c,nogood
cp x2+1
jr nc,nogood
ld a,b
cp y1
jr c,nogood
cp y2+1
jr nc,nogood
;if it gets here, it's in the box! Yay! Hooray! Peoples rejoice!
; as a side effect of the last operation, the carry flag is already set.
ret
nogood:
or a;to reset the carry flag
ret

= Center Text =

Displays a string centered on the screen (small font). Thanks to WikiGuru.

;input:hl points to string
;output: string displayed centered on screen
;destroyed: all registers
;other remarks: (penrow) must be set before calling this sub-routine
; first byte of string must be the length of the string

centertxt:
bcall(_SStringLength)
ld a,96 ;width of screen
sub b ;subtract width of string
rra ;divide by 2 to be centered
ld (pencol),a
ld b,(hl)
inc hl
bcall(_VPutSN)
ret

;to call:

...
ld hl,0
ld (penrow),hl
ld hl,txtTest
call centertxt
...

txtTest:
.db 11,"Sample Text"

= Direct Input =

Used for direct input. See [[Z80:Direct Input/Output|here]] to learn more about direct input. Thanks to Steve Riekeberg.

;Name: DirectInput
;Inputs: A = Key Group
;Outputs: A = Key Code; Zero If None
;Destroys: A, B

DirectInput:
ld b,a
ld a,$ff ;Reset the keypad
out (1),a
ld a,b
out (1),a
in a,(1)
ret

= Hotspot =

Checks if h>b, l>c, h<d, and l<e. Thanks to kermmartian and DarkerLine.

;----------Hot spot detection-----------
;inputs: b,c (first x and y cor)
; d,e (last x and y cor)
; h,l (current x,y)
;output: "c" flag [either true (set) or false (reset)]

hdetect:
ld a,h
cp b
ccf
ret nc
cp d
ret nc
ld a,l
cp c
ccf
ret nc
cp e
ret

= On/Off Calc =

Turns the calculator "off" and waits for user to press on. Note: Pulling batteries out will result in Ram Clear. Thanks to Taricorp.

;no inputs
ld a,02h
out (10h),a ;Turn off LCD
ld a,08h
out (3),a
call LCD_Delay
ld a,36h
out (4),a
ld a,01h
out (3),a
halt ;It halts until ON is pressed
ld a,0Bh
out (3),a
ld a,03h
out (10h),a ;Turn the LCD back on
res onKey,(iy+keyFlags)

{{lowercase}}
[[Category:Z80 Assembly]]
[[Category:Z80 Heaven]]