0 Members and 1 Guest are viewing this topic.
.nolist#include "ti83plus.inc".list.org UserMem-2.db $BB,$6Dhook_addr = appBackupScreenstart: ld hl, hook_start ld de, hook_addr push de ld bc, hook_end-hook_start ldir pop hl ld a, 1 bcall(_SetGetKeyHook) ret hook_start: .db $83 bit editOpen, (iy+editFlags) ret z cp kYequ ;if y= wasn't pressed, check if we should uninstall hook jr nz, disableHook ld hl, hook_addr + varname - hook_start bcall(_Mov9toOP1) bcall(_ChkFindSym) jr c, disableHook ;if prgm doesn't exist ld hl,$0055 ld (saveSScreen),hl ld (OP1+1),hl ld hl,saveSScreen+4 ex de,hl ld c,(hl) inc hl ld b,(hl) inc hl ld (saveSScreen+2),bc ldir ld a,5 ld (OP1),a bcall(_ChkFindSym) jr c,$+5 bcall(_DelVarArc) ld a,5 ld hl,saveSScreen bcall(_ExecuteNewPrgm) ld a, 0 retdisableHook: cp kGraph ret nz bcall(_ClrRawKeyHook); ld a, 0 ;pressing Graph continues to the graph screen ret varname: .db ProgObj, "U", 0, 0hook_end: