Okay, here we go!
http://www.filedropper.com/tau_1
Code: #include "ti84pce.inc"
#macro relocate(new_location)
#ifdef old_location
.echo __file,":",__line,": Error: You cannot nest relocated blocks."
#else
#define old_location eval($)
.org new_location
#define g_location eval(new_location)
#endif
#endmacro
#macro endrelocate()
#ifdef g_location
.org $-g_location + old_location
#undefine g_location
#undefine old_location
#else
.echo "Error line ",__line,": No relocate statements corresponds to this endrelocate."
#endif
#endmacro
.org $d1a87f
.db $ef,$7b
ld de,saveSScreen+20000
ld hl,s_routine
ld bc,e_routine-s_routine
ldir
ld hl,tokenhook
call _SetTokenHook
ld hl,parserhook
call _SetParserHook
ret
s_routine:
relocate(saveSScreen+20000)
tokenhook:
.db $83
push hl
ld hl,$204
or a,a
sbc hl,de
pop hl
ret nz
ld hl,string
ret
string:
.db 0,1,$c8
parserhook:
.db $83
or a, a
jr nz, exithook
ld hl, TwoPi
call _Mov9ToOP1
call _StoTheta
ld hl, basic_prog
call _Mov9ToOP1
call _ChkFindSym
ex de, hl
ld bc, 0
ld c, (hl)
inc hl
ld b, (hl)
inc hl
ld de, pixelShadow
push bc
ldir
pop bc
ld hl, pixelShadow
ld (begPC), hl
ld (curPC), hl
add hl, bc
dec hl
ld (endPC), hl
ld hl, pixelShadow
_: ld a, (hl)
cp a, tPi
jr nz, +_
ld (hl), tTheta
_: call _IsA2ByteTok
jr nz, +_
inc hl
_: inc hl
dec bc
ld a, b
or a, c
jr nz, ---_
exithook:
xor a,a
ret
TwoPi:
.db $00, $80, $62, $83, $18, $53, $07, $17, $96
endrelocate()
e_routine:
Created by Mateo, edited by me