Subversion Repositories pentevo

Rev

Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

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