; Get the Hex Lsiting and add:

; End:0000:End

; as the bottom line. look at the

; spr83 code for example. NO SPACES!







.plugin asm83



#include "TI83ASM.inc"



.org PROGPTR



 call _GRBUFCLR

 

; ld ix,PROGPTR

 ld ix,Sprite+14

; add ix,de

 ld de,$0521  ; bytes wide (d) and pixels tall (c)

 ld hl,PLOTSSCREEN

 

PutSprite:

 ld b,e

 ld c,0

Height:

 push bc

 ld b,d

Core:

 ld a,(ix)

 ld (hl),a

 inc hl

 inc ix

 djnz Core

 ld bc,12

 add hl,bc

 ld b,d

DecLoop:

 dec hl

 djnz DecLoop

 pop bc

 djnz Height

 ret

 

#include "sprite.asm"



.end