Subversion Repositories pentevo

Rev

Rev 548 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed | ?url?

  1.  
  2. ;LAST UPDATE: 16.08.2015 savelij
  3.  
  4. ;ЗАПОЛНЯЛКА НОВОГО ТЕКСТМОДНОГО ЭКРАНА В СТРАНИЦАХ 9 И 11, БЕЗ ВЫХОДА
  5. FILL_NEWTXTMODE DI
  6.                 LD A,1
  7.                 OUT (PEVO_CONF),A
  8.                 LD BC,WIN_A3
  9.                 LD A,0XA4
  10.                 OUT (C),A
  11. LOC_475         LD BC,RD_7FFD
  12.                 IN A,(C)
  13.                 LD E,A
  14.                 XOR 8
  15.                 LD BC,0X7FFD
  16.                 OUT (C),A
  17.                 LD BC,WIN_A3
  18.                 LD A,E
  19.                 AND 8
  20.                 RRCA
  21.                 RRCA
  22.                 XOR 0X74
  23.                 OUT (C), A
  24.                 LD IXL,0
  25.                 LD HL,0XC000
  26.                 LD C,0X19
  27. LOC_496         LD B,0X50
  28.                 LD A,IXL
  29. LOC_49A         LD (HL),A
  30.                 INC A
  31.                 INC HL
  32.                 DJNZ LOC_49A
  33.                 INC IXL
  34.                 DEC C
  35.                 JR NZ,LOC_496
  36.                 LD HL,0XC800
  37.                 XOR A
  38.                 EX AF,AF'
  39.                 LD A,7
  40. LOC_4AB         EX AF,AF'
  41.                 LD D,H
  42.                 LD E,L
  43.                 INC DE
  44.                 ADD A,0X38
  45.                 LD (HL),A
  46.                 SUB 38H
  47.                 LD BC,0XA0
  48.                 LDIR
  49.                 INC A
  50.                 EX AF,AF'
  51.                 DEC A
  52.                 JR NZ,LOC_4AB
  53.                 LD IXL,1
  54.                 LD A,0X0C
  55. LOC_4C3         EX AF, AF'
  56.                 LD D,H
  57.                 LD E,L
  58.                 INC DE
  59.                 LD A,IXL
  60.                 LD (HL),A
  61.                 LD BC,0X50
  62.                 LDIR
  63.                 INC IXL
  64.                 EX AF,AF'
  65.                 DEC A
  66.                 JR NZ,LOC_4C3
  67.                 JR LOC_475
  68.