A86: Finished routines... Standard Delay
[Prev][Next][Index][Thread]
A86: Finished routines... Standard Delay
I have finished with both the fade in and fade out routines... If anyone
cares I have attached them below....
Thanks for everyones help...
Chris
P.S: If you can find any way to improve this codes efficiency then please
do.
Also does anyone know where I can find a standard delay routine... I saw
one a while ago that delayed for n/200ths of a second but I never saw it
again.
***************************
_title_screen:
ld a,$00 ; sets contrast to zero
out (2),a ; leaves contrast byte alone
ld a,21
ld (_penCol),a ; x=21, 1
ld a,1
ld (_penRow),a
ld hl,titlestring ; load the title string
call _vputs ; output the title string
ld a,22
ld (_penCol),a
ld a,56
ld (_penRow),a
ld hl,email
call _vputs
call _screen_fade_in
call _screen_fade_out
call _screen_fade_in
ret ; return to main
_clean_up:
call _clrLCD ; clear the screen
call _homeup ; moves cursor to top
call _runIndicOn ; turns the run indicator on
ret ; return from program
_screen_fade_out:
ld a,($C008)
_begin_screen_fade_out
call _delay_some
dec a
out (2),a
cp $00
jp z, _done_screen_fade_out
jp _begin_screen_fade_out
_done_screen_fade_out
ret
_screen_fade_in:
ld a,$00
ld hl, $C008
_begin_screen_fade_in
call _delay_some
inc a
out (2),a
cp (hl)
jp z, _done_screen_fade_in
jp _begin_screen_fade_in
_done_screen_fade_in:
ret
_delay_some:
ld b,$14 ; delay seed
_begin_delay_loop
HALT
djnz _begin_delay_loop
ret
*****************************************************************
___________________________________________________________________
You don't need to buy Internet access to use free Internet e-mail.
Get completely free e-mail from Juno at http://www.juno.com/getjuno.html
or call Juno at (800) 654-JUNO [654-5866]