home *** CD-ROM | disk | FTP | other *** search
/ Publication 19 / Publication_19_19xx_Civitas_de_Side_B.d64 / mdr-depacker.seq < prev    next >
Text File  |  2023-02-26  |  2KB  |  90 lines
  1.  
  2.  
  3. ;{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}
  4. ;mdr-depacker v2 (ultra speed version) {SHIFT--}
  5. ;coded on 15. january 1996 by madrom   {SHIFT--}
  6. ;copyright by cream design             {SHIFT--}
  7. ;             and lepsi developments   {SHIFT--}
  8. ;{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--}
  9. ;only to use with mdr-packer 1.2 or 1.5{SHIFT--}
  10. ;packed files.                         {SHIFT--}
  11. ;                                      {SHIFT--}
  12. ;example to depack a packed file at    {SHIFT--}
  13. ;$6000 in memory to $2000              {SHIFT--}
  14. ;                                      {SHIFT--}
  15. ;    lda #<$6000 ;packed               {SHIFT--}
  16. ;    ldx #>$6000 ;file                 {SHIFT--}
  17. ;    sta zp1                           {SHIFT--}
  18. ;    stx zp2                           {SHIFT--}
  19. ;    lda #<$2000 ;depack               {SHIFT--}
  20. ;    ldx #>$2000 ;to ...               {SHIFT--}
  21. ;    sta zp3                           {SHIFT--}
  22. ;    stx zp4                           {SHIFT--}
  23. ;    jsr dep                           {SHIFT--}
  24. ;{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}
  25.  
  26.  
  27. ;used zeropage bytes
  28.  
  29. zp1      = $b0
  30. zp2      = $b1
  31. zp3      = $b2
  32. zp4      = $b3
  33. ctrlbyte = $b4
  34.  
  35.  
  36.          *= $0900
  37.  
  38. dep      ldx #0
  39.          lda (zp1,x)
  40.          sta ctrlbyte
  41.          inc zp1
  42.          bne dep+12
  43.          inc zp2
  44.          ldx #0
  45.          lda (zp1,x)
  46.          inc zp1
  47.          bne *+4
  48.          inc zp2
  49.          cmp ctrlbyte
  50.          beq dep+39
  51.          ldx #0
  52.          sta (zp3,x)
  53.          inc zp3
  54.          bne dep+12
  55.          inc zp4
  56.          bne dep+12
  57.          rts
  58.          ldx #0
  59.          lda (zp1,x)
  60.          inc zp1
  61.          bne *+4
  62.          inc zp2
  63.          cmp #$00
  64.          beq dep+38
  65.          tay
  66.          ldx #0
  67.          lda (zp1,x)
  68.          inc zp1
  69.          bne *+4
  70.          inc zp2
  71.          pha
  72.          tya
  73.          tax
  74.          pla
  75.          ldy #0
  76.          sta (zp3),y
  77.          iny
  78.          dex
  79.          bne dep+70
  80.          tya
  81.          clc
  82.          adc zp3
  83.          sta zp3
  84.          bcc dep+12
  85.          inc zp4
  86.          bne dep+12
  87.  
  88. ;end of code.
  89.  
  90.