Subversion Repositories pentevo

Rev

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

  1.  
  2. ; LAST UPDATE: 01.11.2023 savelij
  3.  
  4. ;==================ЧТЕНИЕ С NEMO HDD=======================
  5. RD_HDD_NEMO     PUSH BC
  6.                 PUSH DE
  7.                 PUSH DE
  8.                 EX AF,AF'
  9.                 LD A,(MAS_SLA)
  10.                 OR B
  11.                 LD E,C
  12.                 LD BC,0xFF00 + PN_1F6
  13.                 OUT (C),A
  14.                 LD C,PN_1F5
  15.                 OUT (C),E
  16.                 POP DE
  17.                 LD C,PN_1F4
  18.                 OUT (C),D
  19.                 LD C,PN_1F3
  20.                 OUT (C),E
  21.                 LD C,PN_1F2
  22.                 EX AF,AF'
  23.                 OUT (C),A
  24.                 EX AF,AF'
  25.                 LD C,PN_1F7
  26.                 LD A,0x20
  27.                 OUT (C),A
  28.                 LD C,PN_1F7
  29. HDDRD1          IN A,(C)
  30.                 AND 0x88
  31.                 CP 8
  32.                 JR NZ,HDDRD1
  33.                 EX AF,AF'
  34. HDDRD2          EX AF,AF'
  35.                 LD A,0x40
  36.                 LD C,PN_1F0
  37. READSC1         IN E,(C)
  38.                 INC C
  39.                 IN D,(C)
  40.                 DEC C
  41.                 LD (HL),E
  42.                 INC HL
  43.                 LD (HL),D
  44.                 INC HL
  45.                 IN E,(C)
  46.                 INC C
  47.                 IN D,(C)
  48.                 DEC C
  49.                 LD (HL),E
  50.                 INC HL
  51.                 LD (HL),D
  52.                 INC HL
  53.                 IN E,(C)
  54.                 INC C
  55.                 IN D,(C)
  56.                 DEC C
  57.                 LD (HL),E
  58.                 INC HL
  59.                 LD (HL),D
  60.                 INC HL
  61.                 IN E,(C)
  62.                 INC C
  63.                 IN D,(C)
  64.                 DEC C
  65.                 LD (HL),E
  66.                 INC HL
  67.                 LD (HL),D
  68.                 INC HL
  69.                 DEC A
  70.                 JR NZ,READSC1
  71.                 LD C,PN_1F7
  72. HDDRD3          IN A,(C)
  73.                 AND 0x80
  74.                 JR NZ,HDDRD3
  75.                 EX AF,AF'
  76.                 DEC A
  77.                 JR NZ,HDDRD2
  78.                 POP DE
  79.                 POP BC
  80.                 XOR A
  81.                 RET
  82. ;==================ЧТЕНИЕ С NEMO HDD=======================
  83.