?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1. ;выв спрайтов 3х2 с зеркальным отображением
  2. A2_HER  DEFW #E000,#F4B0,#FA50 ;для 3х2
  3. A2_WAR  DEFW #E3C0,#F870,#FE10
  4. H3x2    EX AF,AF
  5.         LD A,D
  6.         CP 5
  7.         JR C,iH320
  8.         LD A,8
  9.         SUB D
  10.         LD D,A
  11. iH320   EX AF,AF ;C/NC - не инв/инв
  12.         CP #80
  13.         JR C,H321
  14.         CP #A0
  15.         LD A,0
  16.         JR C,H321
  17.         LD A,D
  18.         LD BC,A2_WAR-30
  19.         JR H322
  20. H321    LD BC,A2_HER-30
  21.         AND 1
  22.         ADD A,D
  23.         ADD A,D
  24.         LD D,A
  25. H322    ADD A,A
  26.         ADD A,D
  27.         ADD A,A
  28.         ADD A,A
  29.         LD L,A
  30.         LD H,0
  31.         ADD HL,HL
  32.         ADD HL,HL
  33.         ADD HL,HL
  34.         LD A,E
  35.         EX DE,HL
  36.         LD L,C
  37.         LD H,B
  38.         LD BC,#1802
  39.         CALL WT
  40.         ADD HL,DE
  41.         EX DE,HL
  42.         EX AF,AF
  43.         JR C,H320r
  44. INV3x2  EX DE,HL ;инвертирование
  45.         PUSH BC
  46.         LD DE,48+invBUF
  47.         LD BC,48
  48.         PUSH BC
  49.         LDIR
  50.         POP BC
  51.         LD DE,invBUF
  52.         PUSH DE
  53.         LDIR
  54.         CALL MEM6 ;доступ к табл. инвертирования
  55.         POP HL
  56.         PUSH HL
  57.         LD B,16
  58.         LD D,#C3 ;адр таб инв/0
  59. inVLOO  ;цикл инвертирования
  60.         LD E,(HL)
  61.         LD A,(DE)
  62.         LD (HL),A
  63.         INC HL   ;1
  64.         LD E,(HL)
  65.         LD A,(DE)
  66.         LD (HL),A
  67.         INC HL   ;2
  68.         LD E,(HL)
  69.         LD A,(DE)
  70.         LD (HL),A
  71.         INC HL   ;3
  72.         LD E,(HL)
  73.         LD A,(DE)
  74.         LD (HL),A
  75.         INC HL   ;4
  76.         LD E,(HL)
  77.         LD A,(DE)
  78.         LD (HL),A
  79.         INC HL   ;5
  80.         LD E,(HL)
  81.         LD A,(DE)
  82.         LD (HL),A
  83.         INC HL   ;6
  84.         DJNZ inVLOO
  85.         POP DE
  86.         POP BC
  87. H320r   JP HeF1
  88.