Re: A86: Finished routines... Standard Delay


[Prev][Next][Index][Thread]

Re: A86: Finished routines... Standard Delay




>_title_screen:

xor a or sub a			; 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
both of these can be done at once:
    ld hl,1*256+21		;or $0115
    ld (_penRow),hl

>	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
same here

>_screen_fade_out:
>	ld a,($C008)
>_begin_screen_fade_out
>	call _delay_some
>	dec a
>	out (2),a
    ret z
>	jp _begin_screen_fade_out

>_screen_fade_in:
    xor a
    ld c,($c008)
>_begin_screen_fade_in
>	call _delay_some
>	inc a
>	out (2),a
    cp c
    ret z
>	jp _begin_screen_fade_in

also, jr would be smaller, but jp is faster.  in this case, jr would
probly be better.

-josh


___________________________________________________________________
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]