Re: A83: Date: Fri, 9 Jun 2000 18:33:31 +0200

To: Assembly-83 <assembly-83@lists.ticalc.org>
Subject: Re: A83: Date: Fri, 9 Jun 2000 18:33:31 +0200
From: Richard Harper Maddox <gte172i@prism.gatech.edu>
Date: Fri, 9 Jun 2000 12:47:24 -0400 (EDT)
In-Reply-To: <000201bfd230$a421b980$347a24d5@fr>
Reply-To: assembly-83@lists.ticalc.org




 ; blacken screen

 ld hl,plotsscreen
 ld (hl),255
 ld de,plotsscreen+1
 ld bc,767			; number of bytes to paint
 ldir

 ; insert your favorite buffer copy here

On Fri, 9 Jun 2000, ti-83 wrote:

> Does someone know a better solution to make the screen black ? I've seen the game Penguins. At the beginning, the screen blinks. It could be interessant for my program. How does it work ?
> 
> My solution to make the screen black :
> 
> .NOLIST
> #define end .end
> #define END .end
> #define equ .equ
> #define EQU .equ
> #include "ti83asm.inc"
> #include "tokens.inc"
> .LIST
> .org 9327h
> 
>          call _clrLCDfull
>          ld bc,0
>          ld de,95*256
>          ld h,1 
> 
> line:
>          call _iline
>          inc c
>          inc e
>          ld a,e
>          cp 63
>          jp nz,line
>          set textinverse,(iy+textflags)
>          ld hl,10
>          ld (pencol),hl
>          ld (penrow),hl
>          ld hl,text
>          call _vputs
>          ret
> 
> text:
>          .db "Hello !!",0
> 
> .end
> END
> 
> 
> Thanks
> 
> Ti-83
> 
> Le monde de la TI-83
> http://www.ifrance.com/ti-83
> ti-83@libertysurf.fr
>

References:

A83: Date: Fri, 9 Jun 2000 18:33:31 +0200

From: "ti-83" <ti-83@libertysurf.fr>

Prev: A83: Date: Fri, 9 Jun 2000 18:33:31 +0200
Next: Re: A83: Date: Fri, 9 Jun 2000 18:33:31 +0200
Index(es):
- Main
- Thread