home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Publication 19
/
Publication_19_19xx_Civitas_de_Side_B.d64
/
mdr-depacker.seq
< prev
next >
Wrap
Text File
|
2023-02-26
|
2KB
|
90 lines
;{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
;mdr-depacker v2 (ultra speed version) {SHIFT--}
;coded on 15. january 1996 by madrom {SHIFT--}
;copyright by cream design {SHIFT--}
; and lepsi developments {SHIFT--}
;{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT--}
;only to use with mdr-packer 1.2 or 1.5{SHIFT--}
;packed files. {SHIFT--}
; {SHIFT--}
;example to depack a packed file at {SHIFT--}
;$6000 in memory to $2000 {SHIFT--}
; {SHIFT--}
; lda #<$6000 ;packed {SHIFT--}
; ldx #>$6000 ;file {SHIFT--}
; sta zp1 {SHIFT--}
; stx zp2 {SHIFT--}
; lda #<$2000 ;depack {SHIFT--}
; ldx #>$2000 ;to ... {SHIFT--}
; sta zp3 {SHIFT--}
; stx zp4 {SHIFT--}
; jsr dep {SHIFT--}
;{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
;used zeropage bytes
zp1 = $b0
zp2 = $b1
zp3 = $b2
zp4 = $b3
ctrlbyte = $b4
*= $0900
dep ldx #0
lda (zp1,x)
sta ctrlbyte
inc zp1
bne dep+12
inc zp2
ldx #0
lda (zp1,x)
inc zp1
bne *+4
inc zp2
cmp ctrlbyte
beq dep+39
ldx #0
sta (zp3,x)
inc zp3
bne dep+12
inc zp4
bne dep+12
rts
ldx #0
lda (zp1,x)
inc zp1
bne *+4
inc zp2
cmp #$00
beq dep+38
tay
ldx #0
lda (zp1,x)
inc zp1
bne *+4
inc zp2
pha
tya
tax
pla
ldy #0
sta (zp3),y
iny
dex
bne dep+70
tya
clc
adc zp3
sta zp3
bcc dep+12
inc zp4
bne dep+12
;end of code.