Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- .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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement