MaxCoderz

Code: Select all

.nolist				;defines, includes, and equates

#DEFINE equ .equ
#DEFINE EQU .equ
#DEFINE end .end
#include "ti83plus.inc"		;ROM call definitions
.list
	.org $9d93
	.db $BB,$6D
	b_call(_AnsName)
	b_call(_chkfindsym)
	ex de,hl
	inc hl
	inc hl
	inc hl
	ld b,8
	ld de,Buffer
	push de
; the following routine borrowed from Doors CS 4.8+
dcsSquish:				;optimized - should still work
	push bc
	ld c,2
dcsSquishLoop:
	ld a,(hl)			;A=ascii 65d
	push hl				;0=ascii 48d
	push de
	ld e,48d
	sub e
	cp 10h
	jr c,dcsSquish_DONE
	sub 7				;save 5 bytes
dcsSquish_DONE:
	pop de
	pop hl
	inc hl
	dec c
	jr z,dcsSquishNext
	sla a
	sla a
	sla a
	sla a
	ld (ScratchVar),a
	jr dcsSquishLoop
dcsSquishNext:
	ld b,a
	ld a,(ScratchVar)
	or b
	ld (de),a
	inc de
	pop bc
	dec bc
	ld a,b
	or c
	jr nz,dcsSquish
GET_X:
	b_call(_zeroop1)
	ld hl,op1+1
	ld (hl),'X'			 ;or any other var
	b_call(_rclvarsym)			 ;op1 / op2 -> value
	b_call(_convop1)
	ld a,e				;previously ld a,hl
	push af
	b_call(_zeroop1)
	ld hl,op1+1
	ld (hl),'Y'			 ;or any other var
	b_call(_rclvarsym)			 ;op1 / op2 -> value
	b_call(_convop1)
	ld l,e				;previously ld a,hl
	pop af
	pop ix
	ld b,8
;-----> Draw a sprite - iPutSprite courtesy of Joe W., from Ion libs
; b=size of sprite
; l=yc
; a=xc
; ix holds pointer
iPutSprite:
	ld	e,l
	ld	h,$00
	ld	d,h
	add	hl,de
	add	hl,de
	add	hl,hl
	add	hl,hl
	ld	e,a
	and	$07
	ld	c,a
	srl	e
	srl	e
	srl	e
	add	hl,de
	ld	de,plotsscreen
	add	hl,de
iPutSpriteLoop1:
sl1:	ld	d,(ix)
	ld	e,$00
	ld	a,c
	or	a
	jr	z,iPutSpriteSkip1
iPutSpriteLoop2:
	srl	d
	rr	e
	dec	a
	jr	nz,iPutSpriteLoop2
iPutSpriteSkip1:
	ld	a,(hl)
	xor	d
	ld	(hl),a
	inc	hl
	ld	a,(hl)
	xor	e
	ld	(hl),a
	ld	de,$0B
	add	hl,de
	inc	ix
	djnz	iPutSpriteLoop1
	b_call(_grbufcpy_v)
	ret
Buffer:
	.db 0,0,0,0,0,0,0,0
Scratchvar:
	.db 0,0
.end
END