Subversion Repositories pentevo

Rev

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

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