A83: Re: flashtext

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

A83: Re: flashtext

I used this in avalanch and Chicken Shoot...
;-------A cool routine devised by Harper Maddox and Andrew Ungvarsky------------
; Displays a flashing "Press 2nd"
 
 ld c,0
introwait:
 ld b,21
loop:
 halt
 call getkey
 cp 45   ; clear???
 ret z   ; return to what called the program... The OS
 cp 21
 jr z,start  ; If key="2nd" then start the game
 djnz loop
 
 push bc
 ;-------erase reverse line to left of "Press 2nd"
 ld bc,16*256+15   ; start of line = (15,16)
 ld de,16*256+8    ; end of line = (8,16)
 ld h,0            ; 0 means draw a white line
 call _iline       ; draw the line
 ;-----end erase line----------
 pop bc
 inc c
 ld a,c
 and %1  ;is it at 0 (when we only want 1 or 0)
 jr nz,norm ; goto "norm" if temp isnt equal to 2
 set textinverse,(iy+textflags)   ; Flash... inverse text is on
norm:
 ld a,3   ; Home screen text starts at (6,3)
 ld (curcol),a
 ld a,6
 ld (currow),a
 ld hl,secnd    
 call _puts ; display the "secnd" string
 res textinverse,(iy+textflags) ; turn Text Inverse off
 
 jr introwait    ; return back to the intro loop
 
getkey:
 call _zerooop1
 call _getk
 call _op2toop1
 call _convop1
 ld a,e
 jr z,getkey
 ret

-Harper Maddox
 
jerky@ebicom.net
-----Original Message-----
From: Dustin Graham <ima_macuser@hotmail.com>
To: assembly-83@lists.ticalc.org <assembly-83@lists.ticalc.org>
Date: Friday, March 20, 1998 4:09 PM
Subject: A83: flashtext


;try this-I think it will work

prog_start:
    set textInverse,(iy+textflags)
    CALL _CLRLCDFULL      ;CLEAR SCREEN
    LD HL,0202h
    ld (currow),hl
    LD HL,Madeby
    CALL _PUTS
    jr    LOOP
    res textInverse,(iy+textflags)
    CALL _CLRLCDFULL      ;CLEAR SCREEN
    LD HL,0202h
    ld (currow),hl
    LD HL,Madeby
    CALL _PUTS
    CALL gk

gk:
    call _GetKy
    or a
    jr z,prog_start
    ret nz

______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com