.binarymode TI8X
#include "ti83plus.inc"

fileadr  .equ appbackupscreen
filepage .equ fileadr+2

.org userMem-2
.db $BB,$6D

ProgramStart:
 ld hl,0
 ld (currow),hl
 ld hl,programstarting
 bcall(_PutS)
 ld hl,fileInput
 rst 20h
 bcall(_ChkFindSym)
 ret c
 ld a,b
 or a
 ret nz
 inc de
 inc de  ;skip size component.
 ex de,hl
 ld c,(hl)  ;get output file size
 inc hl
 ld b,(hl)
 inc hl
 ld (fileadr),hl
 push bc
   push bc
     push bc
     pop hl
     bcall(_EnoughMem)
     jr c,NoMem
     ld hl,fileOutput
     rst 20h
   pop hl
   bcall(_CreateProtProg)
   inc de
   inc de
 pop bc

; ld a,255
;Performance_test_loop:
; push af
   push bc
     push de
       ld hl,(fileadr)
       call dlz77_2_main
     pop de
   pop bc
; pop af
; dec a
; jr nz,Performance_test_loop


 ld hl,0
sumfile:
 ld a,(de)
 inc de
 add a,L
 ld L,a
 jr nc,$+3
 inc h
 dec bc
 ld a,b
 or c
 jr nz,sumfile
 bcall(_DispHL)
 ret



NoMem:
   pop af
 pop af
 ret

getByteFromSource:
 push hl
   in a,(6)
   push af
     ld a,h
     rlca
     rlca
     and 3
     res 7,h
     res 6,h
     push de
       ld de,(fileadr)
       add hl,de
       bit 7,d
       jr nz,skipGetByteFromSourcePaged
       bit 7,h
       jr z,skipGetByteFromSourcePaged
       res 7,h
       set 6,h
       inc a
skipGetByteFromSourcePaged:
       ld e,a
       ld a,(filepage)
       add a,e
       out (6),a
     pop de
     out (6),a
     ld L,(hl)
   pop af
   out (6),a
   ld a,L
 pop hl
 ret


fileInput:
.db protProgObj,"TESTIN",0
fileOutput:
.db protProgObj,"TESTOUT",0
fileoverrun:
.db "Err:File Overrun",0
filefound:
.db "Input file found",0
programstarting:
.db "Starting program",0

Decomp:
#include "decomp_01\decomp02.z80"



.echoln "Program size: ",$-ProgramStart