Subversion Repositories pentevo

Rev

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

  1.  
  2. ; LAST UPDATE: 01.08.2021 savelij
  3.  
  4. loc_3C47        LD BC,WIN_A3
  5.                 LD A,0XFF
  6.                 OUT (C),A               ;возврат привязки к порту 7FDD
  7. LOC_3C4B        LD DE,0XFFFF
  8.                 ld      a, 7
  9.                 jp      loc_9
  10.  
  11. loc_3C50        ld      sp, 0X5BFF
  12.                 LD BC,WIN_A3
  13.                 LD A,0X40
  14.                 OUT (C),A               ;разблокировка привязки к порту 7FFD
  15.                 ld      a, 1Fh ! 0XFF
  16.                 LD BC,WIN_P3
  17.                 OUT (C),A
  18.                 ld      hl, 0C000h
  19.                 ld      a, (hl)
  20.                 cp      0C3h
  21.                 jr      nz, loc_3C47
  22.                 LD A,MEMORY_128 | TURBO_3
  23.                 RST8D _SET_MODE         ;установка 3,5Мгц и память 128К
  24.                 xor     a
  25. loc_3C61        add     a, (hl)
  26.                 adc     a, 0
  27.                 inc     hl
  28.                 bit     7, h
  29.                 jr      nz, loc_3C61
  30.                 dec     a
  31.                 jr      nz, loc_3C47
  32.                 ld      a, 0AAh
  33.                 dec     hl
  34.                 cp      (hl)
  35.                 jr      nz, loc_3C47
  36.                 cpl
  37.                 dec     hl
  38.                 cp      (hl)
  39.                 jr      nz, loc_3C47
  40.                 LD H,CMOS_BYTE_03
  41.                 CALL READCMOS
  42.                 AND M_KILL_REZIDENT
  43.                 JR Z,.L1
  44.                 LD (0XC000),A           ;портим резидент
  45. .L1             ld      hl, 0D000h
  46.                 ld      de, 5B00h
  47.                 ld      bc, 2500h
  48.                 ldir
  49.                 LD BC,WIN_P3            ;порт установки номера страницы
  50.                 ld      a, 1Eh ! 0XFF
  51.                 LD HL,LDIR_HL_DE
  52.                 LD DE,.E1
  53.                 JP (HL)
  54.  
  55. .E1             ld      a, 3 ! 0XFF
  56.                 LD HL,LDIR_DE_HL
  57.                 LD DE,.E2
  58.                 JP (HL)
  59.  
  60. .E2             ld      a, 1Dh ! 0XFF
  61.                 LD HL,LDIR_HL_DE
  62.                 LD DE,.E3
  63.                 JP (HL)
  64.  
  65. .E3             ld      a, 1 ! 0XFF
  66.                 LD HL,LDIR_DE_HL
  67.                 LD DE,.E4
  68.                 JP (HL)
  69.  
  70. .E4             ld      a, 1Ch ! 0XFF
  71.                 LD HL,LDIR_HL_DE
  72.                 LD DE,.E5
  73.                 JP (HL)
  74.  
  75. .E5
  76.                 LD A, 0 ! 0XFF
  77.                 LD HL,LDIR_DE_HL
  78.                 LD DE,.E6
  79.                 JP (HL)
  80.  
  81. .E6             ld      a, 1Bh ! 0XFF
  82.                 LD HL,LDIR_HL_DE
  83.                 LD DE,.E7
  84.                 JP (HL)
  85.  
  86. .E7
  87.                 LD A,0 ! 0XFF
  88.                 OUT (C),A               ;вернули страницу
  89.                 LD BC,WIN_A3
  90.                 LD A,0XFF
  91.                 OUT (C),A               ;возврат привязки к порту 7FDD
  92.                 ld      sp, (0X5B73)
  93.                 ret
  94.  
  95. LDIR_DE_HL      OUT (C),A
  96.                 ld      a, 0FFh
  97.                 or      a
  98.                 jr      loc_3CE0
  99.  
  100. LDIR_HL_DE      OUT (C),A
  101.                 xor     a
  102. loc_3CE0        EXX
  103.                 ld      hl, 0C000h
  104.                 ld      de, 8000h
  105.                 ld      bc, 4000h
  106.                 jr      z, loc_3CEC
  107.                 ex      de, hl
  108. loc_3CEC        ldir
  109.                 EXX
  110.                 EX DE,HL
  111.                 JP (HL)
  112.