?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. ;Декомпрессор
  2. ;HL-откуда DE-куда
  3. DLPCB   DEFS 4
  4. DELPC   PUSH DE
  5.         LD DE,DLPCB
  6.         LD BC,4
  7.         LDIR
  8.         POP DE
  9. xpD0    LD A,(HL)
  10.         BIT 7,A
  11.         JR NZ,xpD1
  12.         PUSH AF
  13.         AND 1
  14.         LD B,A
  15.         LD A,(HL)
  16.         AND #E
  17.         RRCA
  18.         ADD A,3
  19.         LD C,A
  20. xpD0X   INC HL
  21.         LD A,E
  22.         SUB (HL)
  23.         INC HL
  24.         PUSH HL
  25.         LD L,A
  26.         LD A,D
  27.         SBC A,B
  28.         LD H,A
  29.         LD B,0
  30.         LDIR
  31. D00     POP HL
  32.         POP AF
  33.         RLCA
  34.         RLCA
  35.         RLCA
  36.         RLCA
  37.         AND #F
  38.         JR Z,xpD0
  39.         JR xpDRR
  40. xpD1    INC HL
  41.         BIT 6,A
  42.         JR NZ,xpD2
  43.         AND #3F
  44.         JR Z,xpDEND
  45. xpDRR   LD C,A
  46. xpDLO   RRC (HL)
  47.         LDI
  48.         JP PE,xpDLO
  49.         JR xpD0
  50. xpD2    AND #3F
  51.         ADD A,4
  52.         LD C,A
  53.         LD A,(HL)
  54.         PUSH AF
  55.         AND #F
  56.         LD B,A
  57.         JR xpD0X
  58. xpDEND  LD HL,DLPCB
  59.         LD C,4
  60.         LDIR
  61.         RET
  62.