home *** CD-ROM | disk | FTP | other *** search
/ Killer Drive 64 4 / Killer-Drive_64_04_1998_-_de_Side_D.d64 / mdr-depacker.asc < prev    next >
Text File  |  2023-02-26  |  2KB  |  77 lines
  1.  
  2. ;{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-*};
  3. ; mdr-depacker v2.1                    ;
  4. ;{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-*};
  5. ; original code jan'96 by madrom       ;
  6. ;{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-*};
  7. ; # improved jan'97 by stoff/neoplasia ;
  8. ; # improved feb'97 by toxic/neoplasia ;
  9. ;{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-*};
  10. ;only to use with mdr-packer 1.2 or 1.5;
  11. ;packed files.                         ;
  12. ;                                      ;
  13. ;example to depack a packed file at    ;
  14. ;$6000 in memory to $2000              ;
  15. ;                                      ;
  16. ;    lda #<$6000 ;packed               ;
  17. ;    ldx #>$6000 ;file                 ;
  18. ;    sta zp1                           ;
  19. ;    stx zp2                           ;
  20. ;    lda #<$2000 ;depack               ;
  21. ;    ldx #>$2000 ;to ...               ;
  22. ;    sta zp3                           ;
  23. ;    stx zp4                           ;
  24. ;    jsr dep                           ;
  25. ;{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-*};
  26.  
  27. ;used zeropage bytes
  28.  
  29. zp1      = $b0
  30. zp2      = $b1
  31. zp3      = $b2
  32. zp4      = $b3
  33.  
  34. dep      ldy #$00
  35.          lda (zp1),y
  36.          sta ctrlbyte
  37.          inc zp1
  38.          bne *+4
  39.          inc zp2
  40. realdep  lda (zp1),y
  41.          inc zp1
  42.          bne *+4
  43.          inc zp2
  44. ctrlbyte = *+1
  45.          cmp #$00
  46.          beq packed
  47.          sta (zp3),y
  48.          inc zp3
  49.          bne realdep
  50.          inc zp4
  51.          bne realdep
  52.          rts
  53. packed   lda (zp1),y
  54.          beq *-3
  55.          tax
  56.          inc zp1
  57.          bne *+4
  58.          inc zp2
  59.          lda (zp1),y
  60.          inc zp1
  61.          bne *+4
  62.          inc zp2
  63. fill     sta (zp3),y
  64.          iny
  65.          dex
  66.          bne *-4
  67.          tya
  68.          ldy #$00
  69.          clc
  70.          adc zp3
  71.          sta zp3
  72.          bcc realdep
  73.          inc zp4
  74.          bne realdep
  75. ;{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-*}EndOfCode
  76.  
  77.