[A83] Re: number _vputs and black-out a piece of screen


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

[A83] Re: number _vputs and black-out a piece of screen



 ld a,($c008)
 ld b,a
 and 3
 ld (contrast_sublev),a
 ld a,b
 srl a
 srl a
 add a,'0'
 ld (contrast),a
 ;...


In a message dated 6/27/2001 5:42:25 PM Eastern Daylight Time, 
tijlc@hotmail.com writes:


> Undoubtedly :-)
> 
> So, updated again:
> 
>     ld    b,00h
>     ld    a,(8008h)
>     rra          ; divide by 2
>     rl    b
>     rra          ; once again
>     rl    b
>     and   0Fh    ; not sure if this is necessary, but I think it is.
>     add   30h    ; 30h is the character '0'
>     ld    (contrast),a
>     ld    a,b
>     xor   3
>     ld    (contrast_sublev),a
>     ld    hl,contrastTxt
>     bcall(_vputs)
>     ret
> contrastTxt:
>     .db   "Contrast is "
> contrast:
>     .db   0," "
> contrast_sublev:
>     .db   0,"/4",0



----
Jonah Cohen
<ComAsYuAre@aol.com>
http://jonah.ticalc.org