A82: AHHHHHHHHHHHHHH!

To: assembly-82@lists.ticalc.org
Subject: A82: AHHHHHHHHHHHHHH!
From: Jawbreak47@aol.com
Date: Fri, 26 Sep 1997 00:32:07 -0400 (EDT)
Reply-To: assembly-82@lists.ticalc.org

Still cant get it to work!!!
Well i have change to what you guys said but doesnt work only shows a blck
screen and then i got to take out the bads. 
So if someone could re-write or change it i would be very happy, and also add
a code that when you press clear it exits back to ASH thats it.

#include "ti82.h"
#include "oldcall.h"
#include "graph.h"

.org START_ADDR
.db "Sprite",0

Loop:
	ld hl, Sprite
	ld b,10
	ld c,10

	call PutSprite
	ROM_CALL(DISP_GRAPH

	jr Loop

PutSprite:

              

 push bc
 push de
 ld a,63
 sub c
 ld c,a
 push hl
 push hl
 ROM_CALL(FIND_PIXEL)
 ld de,$88B8                      ;CHANGED FROM $FC00 is that right?
 add hl,de
 ex de,hl
 pop hl
 ld b,(hl)
 inc hl
 ld c,(hl)
 inc hl
 push hl
 pop ix
 ex de,hl
PS_NewRow:
 push bc
 ld d,(ix)
 inc ix
 push af
 push hl
PS_NewCol:
 rl d
 ld e,a
 jr nc,PS_NoPixel
 or (hl)
 ld (hl),a
 jr PS_NextPixel
PS_NoPixel:
 cpl
 and (hl)
 ld (hl),a
PS_NextPixel:
 ld a,e
 rrca
 jr nc,PS_SameByte
 inc hl
PS_SameByte:
 djnz PS_NewCol
 pop hl
 pop af
 ld de,12
 add hl,de
 pop bc
 dec c
 jr nz,PS_NewRow
 pop hl
 pop de
 pop bc
 jr Loop

Sprite:
.db 6,6 
.db %110011
.db %100001
.db %000000
.db %000000
.db %100001
.db %110011

#include "graph.inc"

.end

Follow-Ups:

Re: A82: AHHHHHHHHHHHHHH!

From: "Thomas J. Hruska" <thruska@tir.com>