* Depack routine for FlashPack 2.1›* By Fox of Taquart, 5th May 1997›* Average speed: 30 kB/sec››* TO DZIALA ! Poprawil: DRC›››››››* 4 bytes on page 0›ff equ $fc›bt equ $fd›ad equ $fe››prog equ $2000››          org prog›          opt 32›››* Do not start routine here!!!›dep1 tax› beq ret› lda #$7f›dep2 bcc *+3› inx› inx› sta ad›dep3 lda (ad),y›put  sta $8080,y› iny› bne dep4› inc ad+1› inc put+2›dep4 dex› bne dep3› asl bt› bne dep7› asl ff› bne dep5›* Routine starts here!›››››start equ *›* sei›* inc $d40e›* lda #$fe›* sta $d301›› sec› jsr get› rol @› sta ff›dep5 lda #1› bcc dep6› jsr get› rol @›dep6 sta bt›dep7 jsr get› ldx #1› bcc put› lsr @› bne dep2› jsr get› bcs dep1› tay› jsr get› sta ad+1› sta put+2› bcc dep7 !››* Set address of packed data here!›* (or make your own "get" routine)›get lda $9b21› inc get+1› bne ret› inc get+2›ret rts›*exit inc $d301›* lsr $d40e›* cli› rts››   org $2e0›  dta a(start)›› end of code››If you want disable ROM while depacking,›just un-remark some lines (I bet you›know which) and replace "beq ret" with›"beq exit".›It is useful if you want to have some›data in RAM under ROM.›If you have any questions, just›contact me.› Fox sends greetz to all of coders!›