Copy running program

 nolist
 include "ti83plus.inc"
 list

Part1:
 1/>ld hl, op1
 1/>ld de, tempSwapArea+314
 1/>ld bc, 9
 1/>ldir
Part2:
 ; Now we have the prog name stored in tempSwapArea+314
 1/>ld hl, tempSwapArea+314
 1/>rst rmov9toop1
 bcall ChkFindSym
 1/>xor a
 1/>cp b
 1/>ld a, (de)
 1/>ld b, a
 1/>inc de
 1/>ld a, (de)
 1/>ld b, a
 1/>inc de
 1/>push bc
 1/>ld hl, tempSwapArea+314
 1/>rst rmov9toop1
 bcall CreateProtProg
 1/>pop bc
 1/>inc de
 1/>inc de
 1/>ld hl, 9D93h
 1/>ldir