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


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

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




.NOLIST
#define end .end
#define END .end
#define equ .equ
#define EQU .equ
#include "ti83asm.inc"
#include "tokens.inc"
.LIST
.org 9327h

         ld hl,plotsscreen
         ld de,plotsscreen+1
         ld bc,767
         ld (hl),c
         ldir
         set textinverse,(iy+textflags)
         ld hl,10
         ld (pencol),hl
         ld hl,text
         call _vputs
         res textinverse,(iy+textflags)
         ;copy buffer
         ret

text:
         .db "Hello !!",0

.end
END


In a message dated 6/9/00 12:38:23 PM Eastern Daylight Time, 
ti-83@libertysurf.fr writes:

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



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